[Haskell-beginners] How can I lift my function taking a function to a Monad?