distance :: (Float, Float) -> (Float, Float) -> Float
  distance (x1,y1) (x2,y2) = sqrt ((x1-x2)^2 + (y1-y2)^2)
distance :: (Float, Float) -> (Float, Float) -> Float
distance (x1,y1) (x2,y2) = sqrt ((x1-x2)^2 + (y1-y2)^2)
distance (x1,y1) (x2,y2) = sqrt ((x1-x2)^2 + (y1-y2)^2)