while true
do
     read $input
     if $input
     then
          (light(blinky) = true)
               call(SYSAD)
               ;;
          (database(crash) = true)
               call(DBA)
               ;;
          (application(slow) = true)
               call(application developer)
               open(conference call)
               ;;
          (user(squawk) = true)
               call(someone who cares)
               ;;
          (server(smoke) = true)
               leave(building)
               ;;
          *)
               call(supervisor)
               supervisor(decide)
               follow(decision)
               ;;
          esac
          $input = “”
     fi
     sleep 30 or die “Can’t sleep on duty”
done