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