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