(defun make-counter () (let ((var 0)) (lambda () (mutate var (+ 1 var)) var))) (define counter (make-counter)) (assert (= (counter) 1)) (assert (= (counter) 3)) (assert (= (counter) 3))
