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