   (look [this arguments]))
 
 (defrecord Story [player rooms]
-  (get-current-room [this]
-    (first (filter (fn [x] (= (:order x) (:current-room player))) rooms)))
   Queryable
   (get-all-items [this]
     (concat (map (fn [x] (:items x)) rooms)))

  ;;   (println "move!"))
  (look [this arguments]
    (if (nil? arguments)
      (:summary (get-current-room this))
      (let [arguments-vec (str/split arguments #" ")]
        (if (= "at" (first arguments-vec))
          (if-let [item (get-item this (second arguments-vec))]

(defrecord Monster [name summary])
(def monster-defaults ["" ""])

(defrecord Player [name summary room])
(def player-defaults ["" "" :undefined])

(defrecord Room [name summary order items])
(def room-defaults ["" "" 0 []])
