async-test.clj

(ns irc-proxy.core                                                  
  (:require [clojure.core.async :as async :refer :all]))            
                                                                    
(def c (chan))                                                      
(def quit (chan))                                                   
                                                                    
(defn -main []                                                      
  (go                                                               
    (while true                                                     
      (if-let [v (<! c)]                                            
        (prn v)                                                     
        (close! quit))))                                            
                                                                    
  (go                                                               
    (>! c "testing")                                                
    (>! c "core.async")                                             
    (close! c))                                                     
                                                                    
  (<!! quit))