let  dist x y = max (abs (fst y - fst x)) (abs (snd y - snd x))