4 putStr "Blocking real time alarms.\n" >>
5 blockSignals (addSignal realTimeAlarm emptySignalSet) >>
6 putStr "Scheduling an alarm in 2 seconds...\n" >>
8 putStr "Sleeping 5 seconds.\n" >>
10 getPendingSignals >>= \ ints ->
11 putStr "Checking pending interrupts for RealTimeAlarm\n" >>
12 print (inSignalSet realTimeAlarm ints) >>