A function accepting Person

Let's sum the ages of the people

sumAges :: [Person] -> Int
sumAges = sum . map age