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