data People = Person Name Age
type Name = String
type Age = Int


showPerson:: People -> String
showPerson (Person st n) = st ++ " -- " ++ show n