[Haskell-cafe] do-notation for building monoid values