newtype Age = Age Int deriving Show
newtype Bar = Bar Age deriving Show