(define (make-random m a seed)
  (lambda () (set! seed (quotient (* vorige a) m))))