type from_uni_list =
  Netmappings.from_uni_list =
    U_nil
  | U_single of (int * int)
  | U_double of (int * int * int * int)
  | U_array of int array
val get_to_unicode : string -> int array
val get_from_unicode : string -> from_uni_list array
val lock : unit -> unit
val unlock : unit -> unit
val init_mt : (unit -> unit) -> (unit -> unit) -> unit