gistfile1.clj

(defn handler [ch _] (receive-all ch print) (enqueue ch "hi"))

(defn test-harness []
  (let [[a b] (channel-pair)]
    (handler b nil) ;; give handler one side of the channel pair
    (enqueue a 1 2 3) ;; these will be received by 'b', and the handler will print out '123'
    (println (channel-seq a)))) ;; will print '["hi"]'