sig val init : float -> unit val timeout : float -> '-> 'Event.event end