             [verb step & args] event
             vis-event-handler (get (get vis-event-handlers verb) step)]
         (vis-event-handler vis actx args)
-        (set-el-innerHTML "event" [num-events @vis])
-        (set-el-innerHTML "vis-html" "hello")
+        (set-el-innerHTML "vis-html"
+                          (apply str
+                                 (flatten (vis-html @vis @root-actx))))
         (set-el-innerHTML "vis"
                           (str "<circle cx='"
                                (mod num-events 500)

        event-delay (atom 0)
        event-ch (chan)
        last-id (atom 0)
        w [{:gen-id #(swap! last-id inc)
            :event-ch event-ch}]]
    (go-loop [num-events 0]

                               " fill='red'/>")))
      (recur (inc num-events)))
    (ago w-actx w
         (reset! root-actx w-actx)
         (let [in (achan-buf w-actx 100)
               out (achan-buf w-actx 1)
               fdp (make-fenced-pump w-actx in out @max-inflight)
