[Haskell-beginners] Wrapping random