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