これ、始めは奇妙に思った
(define x
　(let ((y 0))
　　(lambda()(set! y (+ y 1)) y)))
(x)=>1
(x)=>2