;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:CL -*-

(defun zurch ()
  (do-forever
    (sleep (random (* 60. 60.)) "Keyboard")
    (tv:careful-notify nil t "I'm a hacker and I'm OK!  I work all night and I sleep all day!")))