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