             (room/add-item (item/make ["tool board" "tools" "board" "toolset"]
                                       "Only a mid-size hammer and a crowbar were left of what appeared to have been a big toolset."
                                       :take "Not the entire thing!") "")
+            (room/add-item (item/make ["table" "work table"] "Seemed too small to get any real work done. It had one drawer.") "")
+            (room/add-item drawer "")
             (room/add-item hammer "")
             (room/add-item crowbar "")
             (room/add-item (item/make ["lawn mower" "mower"]

                  (room/add-item (item/make "house" "It looked even bigger from this side."
                                                    :enter `can-enter
                                                    :break "Perhaps with the proper tooling."))))
; TODO react to crowbar?
(def bath-window (item/make "window"
                            "It was too high to look inside from where I was standing."
                            :look-in "It was too high to look inside from where I was standing."
                            :open "I could reach the border of the window but not open it from the ground level."
                            :use "I could reach the border of the window but not open it from the ground level."
                            :enter "I could reach the border of the window but not open it from the ground level."
                            :break "There was no need to do that."))
(def west-passage (->
                    (room/make "West passage"
                               "The western passage ended up in a wall with a high window, probably of a bathroom.")
                    (room/add-item bath-window "")))

; TODO react to crowbar?
(def east-passage (->
                    (room/make "East passage"
                               "The eastern passage ended up in the back of one of the bedrooms I saw from the street. It had a window.")

(defn crow-pre
  "If trying to open the back door do it, otherwise default message."
  [gs item]
  (cond
    (some #{"back door"} (:names item)) true
    (= (:id item) "bath-window") "There was no need to break the window, just find a way to reach it."
    (some #{"window"} (:names item)) "I didn't want to draw too much attention."
    :else "I didn't want to break into that."))

(defn crow-post
  "Open the door and connect the rooms."
