     #(first %)))
 
 (defn batch
-  "Returns an async value that is realized with the given collection
+  "Alpha - subject to change
+
+  Returns an async value that is realized with the given collection
   when all (or n if supplied) elements of the collection have been
   realized."
   ([coll] (batch Integer/MAX_VALUE coll))

       ch)))

(defn enqueue
  ([_])
  ([ch & vs]
     (loop [vs vs cont? true]

            (cons v nxt)))))))

(defn channel
  "Returns a new channel. Calling seq with a channel returns an
  asynchronous sequence of the values that are put into the channel."
  ([]  (channel nil 0))
  ([f] (channel f 1))
  ([f capacity]
