                               cbfg.world.lane/make-fenced-pump-lane)
     (act-loop fenced-pump-lane-in actx [num-ins 0]
               (let [msg (atake fenced-pump-lane-in server-recv-ch)]
+                (println :fenced-pump-lane-in msg)
                 (aput fenced-pump-lane-in fenced-pump-lane-in-ch msg)
                 (when (> (:sleep msg) 0)
                   (let [sleep-ch (atimeout fenced-pump-lane-in (:sleep msg))]

              (rest prev-msgs)
              moving
              (conj out (render-msg prev-msg "msg-exit"
                                    ["top:" (max 40 (- dist (* line-height (count out)) 70)) "px;"])))
       :else
       (recur (rest curr-msgs)
              prev-msgs

    cmd-ch))

(defn render-msg [msg class-extra style-extra]
  ["<div class='msg " class-extra
   "' style='color:" (:color msg) "; " style-extra "'>&#9679;"
   "<div class='result'>" (:result msg) "</div></div>"])

(defn render-msgs [curr-msgs prev-msgs dist line-height]
