sig   val name : Uchar.t -> string   type alias_tag =       [ `Abbreviation | `Alternate | `Control | `Correction | `Figment ]   val pp_alias_tag : Format.formatter -> Uucp.Name.alias_tag -> unit   val name_alias : Uchar.t -> (Uucp.Name.alias_tag * string) list end