(alarm 1
   (prinl "Exit in 4 seconds")
   (alarm 4 (bye)) )