;;; -*- Mode:LISP; Package:user; Readtable:ZL; Base:10; Patch-File:T -*-



(defun foo nil
  (do-forever
    (if (not (zerop (remainder 257772500 41414040)))
	(tv:beep))))