[Haskell-beginners] Sum a tuple of Monoids