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