sig val install : ?mode:[ `glib_into_lwt | `lwt_into_glib ] -> unit -> unit val remove : unit -> unit val iter : bool -> unit val wakeup : unit -> unit end