(Blobs.JaM
By Stolfi July 25, 1983 8:39 pm) =

(random) { (seed) seed const .add mult .mul .store
  seed 4.0 .exch .lt {(seed) seed 4 .sub .store} .cvx .if
  seed 2.0 .exch .lt {(seed) seed 2 .sub .store} .cvx .if
  seed 1.0 .exch .lt {(seed) seed 1 .sub .store} .cvx .if
  seed } .cvx .def
  
  (seed) 0.72343223 .def