library(RDieHarder)
dieharder("r250","2dsphere",seed=12345)
q()
