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