Learnt randomness in Haskell