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