Random2.scm

(use math.mt-random)
(define (random-maker)
  (let ((m (make <mersenne-twister> :seed (sys-time))))
    (lambda () (mt-random-integer m 2))))

(define random1 (random-maker))
(define (random a b)
  (let ((count (- b a)))
    (+ a (let loop ((count count)
                    (num 0))
           (if (< count  1) num
               (loop (- count 1)
                     (+ (random1) num)))))))