genPerson :: Gen Person
genPerson = do
  name <- arbitrary :: Gen String
  age <- arbitrary :: Gen Int
  return $ Person name age
genPerson :: Gen Person
genPerson = do
  name <- arbitrary :: Gen String
  age <- arbitrary :: Gen Int
  return $ Person name age
genPerson = do
  name <- arbitrary :: Gen String
  age <- arbitrary :: Gen Int
  return $ Person name age