sig val set_timeout : ?reset:bool -> float -> unit val deactivate : unit -> unit val activate : unit -> unit val activated : unit -> bool end