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

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