*Main> take 10 $ randomRs (1, 10) (mkStdGen 1)
[6,7,6,8,9,8,5,6,1,9]
*Main> take 10 $ randomRs (1, 10) (mkStdGen 1)
[6,7,6,8,9,8,5,6,1,9]
*Main> length $ randomRs (1, 10) (mkStdGen 1)
  C-c C-cInterrupted.
*Main> :t randomRs
randomRs :: (Random a, RandomGen g) => (a, a) -> g -> [a]
*Main> ex2
fgzhkwncsl
*Main> ex2
fgzhkwncsl
*Main> ex2
fgzhkwncsl
fgzhkwncsl
*Main> :t newStdGen 
newStdGen :: IO StdGen
*Main> ex3
fgzhkwncsl
dxvkvjpjwf
*Main> ex3
trseovkljm
irphzwqlew
epvfbbdzdz
*Main> ex3
epvfbbdzdz
ckxlfttcfa
txcpknkakp
*Main> ex2
txcpknkakp
txcpknkakp
*Main> ex2
txcpknkakp
txcpknkakp
*Main> ex3
txcpknkakp
avoxlmhevu
sihwademtf
*Main> ex3
sihwademtf
ikyhqtonby
utjjewasch