import Random main = do x <- getStdGen print (next x) print (next x) print (fst (next x)) setStdGen (snd (next x)) print (next x) x <- getStdGen print (next x) newStdGen print (next x) x <- getStdGen print (next x)