float -> (unit -> 'a #Uq_engines_compat.engine) -> Unixqueue.event_system -> ['a] Uq_engines_compat.engine