(let loop ((number (read)))
  (if (= number 42)
      (exit)
      (begin
        (print number)
        (loop (read)))))