[Haskell-beginners] Random Numbers with the State Monad