(defmacro forcat
  {:style/indent 1}
  [seq-expr expr]
  `(apply concat (for ~seq-expr ~expr)))

(vec
 (forcat [ch channels]
   (<! (async/into [] ch))))`