sig
  type 'a t
  val create : unit -> 'Jstable.t
  val add : 'Jstable.t -> Js.js_string Js.t -> '-> unit
  val find : 'Jstable.t -> Js.js_string Js.t -> 'Js.optdef
  val keys : 'Jstable.t -> Js.js_string Js.t list
end