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

       (loop [num-fie 0]
         (println "num-fie" num-fie)
         (println :agw @agw)
         (println :lss @last-snapshot)
         (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)))))))))
  (child2 agw ch2))

