           [:pick] (pick (inst 1) adv)
           [:dropItem] (dropItem (inst 1) adv)
           [_](do
-              (println (str "I'm sorry Dave. I cannot allow you to do that."))
+              (println (str "I'm sorry "(-> adv :name)". I cannot allow you to do that."))
               adv)
           )
   (match inst


(defn -main
  [& args]
  (println "What is your name")
  (let [n (read-line)
        adv-n (adventurer :name)
        adv (assoc-in adventurer [:name] n)]
  (println (str "Good morning, "(str(adv :name))"! How was your sleep? "))
  (loop [the-m the-map
         the-a adventurer]
    (let [location (the-a :location)
          the-a' (status the-a)
          _      (println (str " What do you wanna do? You can go "  (str(-> the-m location :todo))))

            [clojure.core.match :refer [match]]
               )
  (:gen-class))

(def the-map
  {
   :bedroom {:desc "There is a bed, and a warm warm warm blanket that is pretty effective in putting you to sleep"
