frege data Person = Person { name :: String, age :: Int } greet :: Person -> String greet (Person name age) = "Hello, my name is " ++ name ++ " and I'm " ++ show age ++ " years old." main :: IO () main = println (greet (Person "Alice" 30))