I'd like to write a function like the following:

(defn consume-chs
  [chs]
  (go-loop []
    (let [vs (for [ch chs] (<! ch))]
      (when (every? some? vs)
        (println vs)
        (recur)))))