sig
  type t
  val of_map : char -> char Main.Type.UMap.t -> Main.Type.UCharTbl.Char.t
  val get : Main.Type.UCharTbl.Char.t -> Main.Type.UChar.t -> char
end