#| BEGIN (Write your solution here) |#
(define rand-update (lambda(x) (+ x 1)))
(define random-init 0)
(define rand
  (let ((x random-init))
    (lambda (m)
      (cond ((eq? m 'generate)
             (set! x (rand-update x))
             x)
            ((eq? m 'reset)
             (lambda (new-value) (set! x new-value)))))))

#| END |#