   [floor]
   (case
     floor
-    "first" :1
-    "second" :2
-    "third" :3
-    "fourth" :4))
+    "first" 1
+    "second" 2
+    "third" 3
+    "fourth" 4))
 
 (defn parse-item
   [item]


(defn parse-input
  [raw-input]
  (apply merge (map parse-line (clojure.string/split-lines raw-input))))
(defn parse-content
  [content]
  (if (= content "nothing relevant")
    #{}
    (let [items (clojure.string/split content #", (and )?| and ")]
      (set (map parse-item items)))))

(defn parse-line
  [line]
