        (loop [num-fie 0]
          (println "num-fie" num-fie)
          (println :agw @agw)
-         (println :lss @last-snapshot)
+         (>! ch2 [:fie num-fie])
+         (>! ch2 [:foe num-fie])
          (let [[x ch] (alts! [fie-ch])]
            (cond
             (= ch fie-ch)

                    (println "ERROR"
                             "x" x "num-fie" num-fie
                             "x2" x2 "num-fie2" num-fie2)
                    (recur (inc num-fie))))))))))


         (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")
