distance (a,b) (c,d) = abs (c-a) + abs (d-b) deai [px, py, qx, qy] = (distance (px, py) (qx, qy)) / 2 main = getContents >>= print . deai . map read . words