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