Sample core.async - see it running in the browser: http://programming-enchiladas.destructuring-bind.org/rm-hull/7758795

sin.cljs

(defn sin-vals [offset]
  (map ƒ(Math/sin %) (iterate (partial + 0.1) offset)))

(let [events (chan)]

  ;; produce seqs of sine values
  (go-loop [n 0]
           (<! (timeout 200))
           (>! events (sin-vals n))
           (recur (inc n)))

  (go-loop [cnt 10]
           (when (pos? cnt)

             ;; Draw on screen
             (println
              (map (λ [x y] {:x x :y y})
                   (range 3)
                   (take 3 (<! events))))

             (recur (dec cnt)))))