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