 :: Alliance -> Alliance
allu a =
   let b = Set.filter (not . isNonAscii) (countries a) in
   a { countries = b }

--
allu :: Alliance -> Alliance
allu a =
   let b = Set.filter (not . isNonAscii) (countries a) in
   a { countries = b }
allu a =
   let b = Set.filter (not . isNonAscii) (countries a) in
   a { countries = b }