`make-swb-random-state:`procedureCreates an initial seed array and generator state. The seed vector is filled one bit at a time by taking the leading bit of the xor of a shift register and a congruential sequence. The congruential generator is

`(c*48271) mod (2^30 - 1)`. The shift register generator is`c(I + L18)(I + R13)`. The same congruential generator continues to be used as a mixing generator with the SWB generator.