Example 1

Program source: 

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)

Output: (433334474,763021058 329686584)

Output: (433334474,763021058 329686584)

Output: 433334474

Output: (433334474,763021058 329686584)

Output: (473117066,750799641 277682575)

Output: (473117066,750799641 277682575)

Output: (1349143456,750839655 1549179761)