 (defonce app-state
   (atom
     {:stack (list "first" "second")
-     :new-item-text ""}))
+     :new-item-text ""
+     :snooping false}))
 
 (defmulti step
   (fn [_ {:keys [id]}]


;: VIEW

(defn counter [count inc-msg dec-msg]
  [:div
   [:h2 (str "count " count)]
   [:button 
    {:on-click (on-click inc-msg)}
    "+"]
   [:button 
    {:on-click (on-click dec-msg)}
    "-"]])

(defn greeting [state]
  [:div

    [:button
     {:on-click (on-click :pop)}
     "Pop"]]
   [:div
    [:a
     {:on-click (on-click :toggle-snoop)}
     (if (:snooping state) "peeking..." "peek...")]
    (when (:snooping state)
     (into [:ol]
      (map #(vec [:li %]) (:stack state))))]
   [:div
    [:p (:new-item-text state)]
    [:input
