sig val handlers_field : string val bind : (common -> unit) -> JSOO.obj -> unit val unbind : 'a -> JSOO.obj -> unit val clear : unit -> JSOO.obj -> unit end