-- Helper function to calculate the distance between two points using
-- Pythargoras theoreme
lineLength :: Point -> Point -> Double
lineLength (x,y) (x',y') =
  let dx = x'-x
      dy = y'-y
  in  sqrt $ dx^2+dy^2
lineLength :: Point -> Point -> Double
lineLength (x,y) (x',y') =
  let dx = x'-x
      dy = y'-y
  in  sqrt $ dx^2+dy^2
lineLength (x,y) (x',y') =
  let dx = x'-x
      dy = y'-y
  in  sqrt $ dx^2+dy^2