case ( evaluate e l ) of Nothing -> Nothing Just a -> case ( evaluate e r ) of Nothing -> Nothing Just b -> Just ( a + b )
evaluate e l >>= \ a -> evaluate e r >>= \ b -> return ( a + b)