'a -> ('a -> 'a #Uq_engines_compat.engine) Stream.t -> Unixqueue.event_system -> ['a] Uq_engines_compat.engine