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