sig
  val enable : bool Pervasives.ref
  val set_debug_mode : bool -> unit
  val set_debug_target : Equeue.Debug.debug_target -> unit
end