class ['a] timeout_engine : float -> exn -> 'a engine -> ['a] engine
['a]
float -> exn -> 'a engine ->
engine