           (hash-set)
           (frequencies (neighbors cells))))
 
+
 (defn update-state
   [{:keys [cells bounds] :as state}] 
   (assoc state :cells (next-state cells bounds)))
 
-(defn add-timer
-  [f prefix]
-  (fn [& args]
-    (let [t (js/Date.)
-          r (apply f args)
-          t2 (js/Date.)]
-      (js/console.log prefix (- t2 t))
-      r)))
 
-(def update-state (add-timer update-state "update-state"))
+#_(def update-state (add-timer update-state "update-state"))
 
 
 (defn live!

            [om.dom :as dom :include-macros true]
            [cljs.core.async :refer (timeout <!)])
  (:require-macros [cljs.core.async.macros :refer (go)]))

(defn neighbors
  "Given a set of cells returns a seq of adjacent cells. If n cells share a 

                 (dom/div nil 
                          (dom/button 
                            #js {:onClick (partial toggle-play-state app)}
                            (if (:playing? app) "stop" "play"))
                          (dom/button
                            #js {:onClick #(reset-random!)}
                            "random"))
                 (apply dom/svg #js {:height (* height cell-size) 
                                     :width (* width cell-size)
                                     :onClick (partial handle-world-click 
