             [cljs.core.async :refer [put! chan <!]]))
 
 (defonce app-state (atom {:text "Hello!"
-                          :items ["foo" "bar"]}))
+                          :items ["foo"
+                                  "Foobar [[foo|blitz]] lolophone hoptigoff."]}))
 
 (defn add-item [app owner]
   (let [new-item (-> (om/get-node owner "new-item")

      (om/set-state! owner :text text)
      (om/set-state! owner :text value))))

(defn item-view [item owner]
  (reify
    om/IRender
    (render [this]
      (dom/li nil (str item)))))

(defn app-view [app owner]
  (reify

               (apply dom/ul nil
                      (om/build-all item-view (:items app)))))))

(defn main []
  (om/root app-view
           app-state
