sig
  type t
  val add : ms:int -> callback:(unit -> unit) -> Timer.t
  val set : ms:int -> callback:(unit -> unit) -> unit
  val remove : Timer.t -> unit
end