; Returns a generator of streams of random normal deviates.
; http://cap-lore.com/code/Scheme/grnd.txt
(let ((v (fileVal "RC4"))(sc (/ 1. (expt 2 55))))
(lambda (S) (let* ((f #f)(v (v 'nb S))(m 0)(gf (lambda () (- (* (ex 'vv (v 7)) (ex 'sc sc)) 1))))
  (write (list 'Boo sc))(newline)
    (list (gf)(gf)))))