                                :color (get-el-value "color")
                                :sleep (js/parseInt (get-el-value "sleep"))})
                      (merge (map #(listen-el (gdom/getElement %) "click")
-                                 (keys cbfg.world.lane/cmd-handlers))))
+                                 (keys req-handlers))))
+        event-delay (atom init-event-delay)
+        step-ch (chan (dropping-buffer 1))
+        prog-ch (listen-el (gdom/getElement "prog-go") "click")
         run-controls-ch (cbfg.vis/vis-run-controls event-delay step-ch "header")]
     (go-loop [num-worlds 0]
       (let [last-id (atom 0)

(ns cbfg.world.t1
  (:require-macros [cljs.core.async.macros :refer [go-loop]]
                   [cbfg.act :refer [act act-loop actx-top achan achan-buf aput atake]])
  (:require [cljs.core.async :refer [<! >! close! chan map< merge timeout dropping-buffer]]
            [goog.dom :as gdom]
            [om.core :as om :include-macros true]

      (recur))))

; --------------------------------------------

(defn kv-server [server-addr & ports]
  (let [world (:world @prog-base)
