         (update-in adv [:inventory] #(conj % dest)))
      (do (println "There is no such item. ")
         adv) )))
+
 (defn dropItem [obj adv]
     (if-let [dest (get-in adv [:inventory obj])]
       (update-in adv [:inventory] #(dissoc % dest))
       (do (println "You don't have such item")
        adv)))
+
 (defn print_inventory [adv]
     (do (println (seq (adv :inventory)))
       adv))
+
 (defn print_content [adv]
     (let [location (adv :location)]
-    (do (print (str (-> the-map location :content)))adv)))
+    (do (println (str (-> the-map location :content)))adv)))
 
 (defn tp [location adv]
     )
+
+(defn sleep [adv]
+    (do (println "You are at full health")(assoc-in adv [:hp] 100)))
 
 (defn respond [inst adv]
   (if (contains? inst 1)


(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"
