gistfile1.clj

(def c (chan))

(defn drain [c]
  (go
    (loop [col []]
      (if-let [v (<! c)]
        (recur (conj col v))
        col))))

(go 
  (let [s (<! (drain c))]
   ...do something...))