let
lone (i,j) (x,y) = (+) (abs (i-x)) (abs (j-y))