연습문제 3.6

(define (rand command)
  (cond ((eq? command'generate) (random))
    ((eq? command 'reset)
      (lambda (new)
        (random-seed new)))
    (else
      (error "Bad command -- " command))))