          (println "yo" msg)
          msg)))
 
+(defn child2 [agw in-ch]
+  (ago agw
+       (loop [yas 0]
+         (println "ya0" yas (<! in-ch))
+         (println "ya1" yas (<! in-ch))
+         (recur (inc yas)))))
+
 (let [hi-ch (listen-el (gdom/getElement "hi") "click")
       bye-ch (listen-el (gdom/getElement "bye") "click")
       fie-ch (listen-el (gdom/getElement "fie") "click")

       (loop [num-hi 0 num-bye 0]
         (println "num-hi" num-hi "num-bye" num-bye)
         (println :agw @agw)
         (println :lss @last-snapshot)
         (let [[x ch] (alts! [hi-ch bye-ch])]
           (cond
            (= ch hi-ch)

      rtw-ch (listen-el (gdom/getElement "rtw") "click") ; restore-the-world button
      last-snapshot (atom nil)
      agw (make-ago-world)
      ch1 (ago-chan agw 1)
      ch2 (ago-chan agw 2)]
  (go-loop []
    (<! stw-ch)
    (reset! last-snapshot (ago-snapshot agw))
