type 'a t
val create : unit -> 'a tval add : 'a t -> Js_of_ocaml.Js.js_string Js_of_ocaml.Js.t -> 'a -> unitval remove : 'a t -> Js_of_ocaml.Js.js_string Js_of_ocaml.Js.t -> unitval find : 'a t -> Js_of_ocaml.Js.js_string Js_of_ocaml.Js.t -> 'a Js_of_ocaml.Js.optdefval keys : 'a t -> Js_of_ocaml.Js.js_string Js_of_ocaml.Js.t list