timers.arc

(mac every (n . body)
  `(thread
     (while t
       (sleep ,n)
       ,@body)))
       
;; try it out

; print a heartbeat every second
(every 1 (prn "."))

; fizzbuzz
(every 3 (prn "fizz"))
(every 5 (prn "buzz"))