data Person = Person { name :: String, age :: Int} instance Eq Person where (Person name1 age1) == (Person name2 age2) = (name1 == name2) && (age1 == age2) instance Show Person where show (Person name age) = "Person name=" ++ name ++ " age…