let
( ++ ) x y = (fst x + fst y, snd x + snd y)