(define (example)
  (let ((x 0))
    (lambda ()
      (set! x (+ x 1))
      x)))

(define f (example))
(display f)
(display f)