data Sex = Male | Female deriving (Eq, Read, Show) data Person = P { name :: String, sex :: Sex , address :: String , age :: Int} deriving (Eq,Read,Show) p :: Person p = P { name ="taro", sex = Male , address = "Chiba", age =20} p2 :: Pers…