         wrapping-ch (a/map> (partial * 100)
                             wrapped-ch)]
     (a/go
-      (doseq [i (range 5)]
+      (doseq [i [0 1 2 3 4]]
         (a/>! wrapping-ch i))
       (a/close! wrapping-ch))
     (chan->seq wrapped-ch))


(fact "About `a/map<` (N.B. This is deprecated)"
  (chan->seq (a/map< (partial * 100)
                     (a/to-chan (range 5))))
  => [0 100 200 300 400])

(fact "About `a/map>` (N.B. This is deprecated)"

  ;;    before mapping in this example)."
  (let [c (a/chan 1 (comp (filter even?)
                          (map (partial * 100))))]
    (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 [0 1 2 3 4])
    (chan->seq c))
  => [0 0 1 1 2 2 3 3 4 4])
