pointToPointDist :: Point -> Point -> Double
pointToPointDist (x1, y1) (x2, y2) = sqrt (fromIntegral (x'^2 + y'^2))
    where
        x' = x1 - x2
        y' = y1 - y2
pointToPointDist :: Point -> Point -> Double
pointToPointDist (x1, y1) (x2, y2) = sqrt (fromIntegral (x'^2 + y'^2))
    where
        x' = x1 - x2
        y' = y1 - y2
pointToPointDist (x1, y1) (x2, y2) = sqrt (fromIntegral (x'^2 + y'^2))
    where
        x' = x1 - x2
        y' = y1 - y2