                                                   (symbol (str ":" %2))
                                                   (get-el-value (str op "-" %2)))
                                                cmd2 params)]
-                              (set-el-innerHTML input-log
-                                                (str num-ins ": " cmd3 "\n"
-                                                     (get-el-innerHTML input-log)))
+                              (el-log el-prefix "input" (str num-ins ": " cmd3))
                               (aput a-input in-ch (handler cmd3))
                               (recur (inc num-ins))))
                   (ago-loop z-output world [num-outs 0]
                             (let [result (atake z-output out-ch)]
-                              (set-el-innerHTML output-log
-                                                (str num-outs ": " result "\n"
-                                                     (get-el-innerHTML output-log)))
+                              (el-log el-prefix "output" (str num-outs ": " result))
                               (recur (inc num-outs))))
                   (make-fenced-pump world in-ch out-ch @storage-max-inflight)))
               el-prefix nil)))


(def storage-max-inflight (atom 10))

(defn world-vis-init [el-prefix]
  (let [kvs (atom {})
        changes (atom {})

                     (merge (map #(listen-el (gdom/getElement %) "click")
                                 (keys storage-cmd-handlers))))]
    (vis-init (fn [world]
                (let [in-ch (achan-buf world 100)
                      out-ch (achan-buf world 0)]
                  (ago-loop a-input world [num-ins 0]
                            (let [cmd (<! cmd-ch)
