gscheme/examples/let-over-lambda.scm

(define count
 (let ((c 0)) (lambda () (set! c (+ 1 c)) c)))
(count) (count) (count)