;; Press C-c multiple times in an interval < 20s

(use posix)

(set-signal-handler!
 signal/int
 (lambda (signal)
   (print "caught signal" signal)
   (sleep 20)))


(let loop ()
  (sleep 1)
  (loop))