Closure of Scheme.

The simplest closure sample of Scheme.

(define (f x)
  (let ((y x))
    (lambda ()
      (set! y (+ y 1))
      y)))

> (define a (f 1))
> (display (a))
2
> (display (a))
3
> (display (a))
4