(defun keep-printing-spam ()
    (display "SPAM")
    (newline)
    (keep-printing-spam) )