(let loop ((i 1))
  (display i) (newline)
  (loop (+ 1 i)))