[Haskell-beginners] To use random number monad inside function