         vec
         ;(r/take limit)
         (r/map counter)
+        (r/map inc)
+        (r/filter odd?)
         (r/fold 8 + +)
         ))
 

(ns clojure-club.playground.mbastian
  (:require [clojure.core.reducers :as r]))

(defn work-proxy [input]  (Thread/sleep input)  1)


       (take limit)
       (map counter)
       (reduce +)))

;Transducers - non-parallel?
(def xf2
  (comp
    (take 40)
    (map counter)
    (map inc)))
;(time (transduce xf2 + (repeat work-proxy-thunk)))
