(use posix)

(print (current-milliseconds))
(set-alarm! 1)

(define (handler sig)
  (print sig "@" (current-milliseconds)))

(set-signal-handler! signal/alrm handler)

(sleep 3)