import Random main = do x <- getStdGen print (next x) print (next x) setStdGen (mkStdGen 12) x <- getStdGen print (next x) print (next x)