gistfile1.clj

(def chan-a (chan 10)) ;; channel with a buffer of 10 elements
(def chan-b (chan 10))
(def chan-c (chan 10))

(>!! chan-a :message-1) ;; >!! = put onto channel                                                                                                           
(>!! chan-b :message-2)
(>!! chan-c :message-3)

(loop [chs [chan-a chan-b chan-c]]
  ;; alts!! = try to take a value from any of the supplied channels                                                                                         
  ;; :priority? true = try to take from the channels in order                                                                                               
  ;; (timeout 1000) = if no channels returned a value, return nil after 1s                                                                                  
  (println (first (alts!! (conj chs (timeout 1000)) :priority? true)))
  ;; rotate the channel order for fairness                                                                                                                  
  (recur (conj (vec (rest chs)) (first chs))))

;;;:message-1
;;;:message-2 
;;;:message-3
;;;nil
;;;nil
;;;nil 
;...