{-# LANGUAGE UnicodeSyntax #-}
module Main where

data Point = Point
    { pointX, pointY ::Double
    , name           ::String
    } deriving (Show)

distance ::Point ->Point ->Double
distance x y =
    let t� = (pointX x - pointX y)^2
        t� = (pointY x - pointY y)^2
    in sqrt $ t� + t�