sig

  type t

  val add : int -> (unit -> unit) -> Bogue.Timeout.t

  val add_ignore : int -> (unit -> unit) -> unit

  val cancel : Bogue.Timeout.t -> unit

end