#| BEGIN (Write your solution here) |#
(define (make-rand)
  (let ((x 0))
    (define (generate)
      (set! x (+ x 1))
      x)
    (define (reset val)
      (set! x val))
    (define (dispatch message)
      (cond ((eq? message 'generate) (generate))
            ((eq? message 'reset) reset)))
    dispatch))

(define rand (make-rand))
#| END |#