#lang racket
(let ([n 0])
  (define (loop)
    (displayln  n)
    (set! n (add1 n))
    (cons (loop) empty))
  (loop))