Do-Notation für Monaden

Original:

evaluate e l >>= \ a ->
    evaluate e r >>= \ b ->
        return ( a + b )

do-Notation:

do a <- evaluate e l
   b <- evaluate e r
   return ( a + b )