sig
  type 'a t
  exception Reject
  exception Terminate
  exception Out_of_handlers
  val create :
    ?string_of_event:('-> string) -> ('Equeue.t -> unit) -> 'Equeue.t
  val add_event : 'Equeue.t -> '-> unit
  val add_handler : 'Equeue.t -> ('Equeue.t -> '-> unit) -> unit
  val run : 'Equeue.t -> unit
  val set_debug_mode : bool -> unit
end