(define print-it
  (lambda ()
    (display '(1 2 3))
    (newline)
    (print-it)))