sig
  type runner = Unixqueue.event_system -> (unit -> unit) -> unit
  class tcl_event_system :
    ?run:Uq_tcl.runner -> unit -> Unixqueue.event_system
end