[Haskell-beginners] foldM with tuple and maybe