Implement set!

[g0dzill3r]

Implemented.

(define (make-counter)
           (let ((count 0))
              (lambda ()
                 (set! count (+ count 1))
                 count)))

(define a (make-counter))
(a)
(a)
(a)