sig
  type t
  exception Stopped
  val add :
    priority:'a -> 'a Duppy.scheduler -> (unit -> float) -> Duppy.Async.t
  val wake_up : Duppy.Async.t -> unit
  val stop : Duppy.Async.t -> unit
end