family :: (NamedThing a, Parent a) => a -> (Name, [Name])
family = getName &&& children
family :: (NamedThing a, Parent a) => a -> (Name, [Name])
family = getName &&& children
family = getName &&& children