(let loop ()
   (display "SPAM")
   (loop))