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