import "Prelude"

data XYS = XYS { x :: Double, y :: Double, s :: String }

len XYS {x = x, y = y} = sqrt (x*x + y*y)

main = len (XYS { x = 4, y = 3, s = "Hello world!" })
-- 
5.0