Alternating 1 and 2

gistfile1.txt

(defn -main []
  (let [c1 (chan)
        c2 (chan)]
    (go-loop  []
      (let [a (<! c1)]
        (println a)
        (Thread/sleep 1000)
        (>! c2 2)
        (recur)))
    (go-loop []
      (let [a (<! c2)]
        (println a)
        (Thread/sleep 1000)
        (>! c1 1)
        (recur)))
    (>!! c1 1)
    (Thread/sleep 10000)))