   ;;    before mapping in this example)."
   (let [c (a/chan 1 (comp (filter even?)
                           (map (partial * 100))))]
-    (a/onto-chan c (range 5))
+    (a/onto-chan c [0 1 2 3 4])
     (chan->seq c))
   => [0 200 400])
 
 (fact "A `mapcat` transducer"
   (let [c (a/chan 1 (mapcat (fn [x] [x x])))]
-    (a/onto-chan c (range 5))
+    (a/onto-chan c [0 1 2 3 4])
     (chan->seq c))
   => [0 0 1 1 2 2 3 3 4 4])


(fact "About `a/map`"
  (chan->seq (a/map (partial * 100)
                    [(a/to-chan (range 5))]))
  => [0 100 200 300 400])

(fact "About `a/reduce`"


(fact "About `a/mapcat< (N.B. This is deprecated)"
  (chan->seq (a/mapcat< (fn [x] [x :plop])
                        (a/to-chan [0 1 2 3 4])))
  => [0 :plop 1 :plop 2 :plop 3 :plop 4 :plop])

;;;; ___________________________________________________________________________
