basic core.async loop with tick, killer channel

loop.clj

(defn irc-loop
  "core.async based main loop" [config]
  (let [killer (chan)]
    (go-loop [data config]
      (when data
        (println "running")
        (alt!
          killer ([reason] (println "killed because:" reason))
          (timeout 1000) (do (println "tick!")
                             (recur data)))))
    killer))


(async/put! l "die")