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