core.clj

(defn seq!!
  "Returns a (blocking!) lazy sequence read from a channel."
  [c]
  (lazy-seq
    (when-let [v (<!! c)]
      (cons v (seq!! c)))))

(defn -main
  [& args]
  (let [c (chan)]
    (future
      (doseq [i (range 10)]
        (>!! c i))
      (close! c))
    (doseq [s (seq!! c)]
      (println s)))
  (println "exit"))