sig type t val create : int -> (unit -> unit) -> Lwt_timeout.t val start : Lwt_timeout.t -> unit val stop : Lwt_timeout.t -> unit val change : Lwt_timeout.t -> int -> unit end