(defn action []
  (print "Handled SIGHUP!")
  (flush))

(defn main [_]
  # Set the interrupt-interpreter argument to `true` to allow
  # interrupting the busy loop `(forever)`. By default, will not
  # interrupt the interpreter.
  (os/sigaction :hup action true)
  (forever))