sig
  type t
  val start : Store.t -> t Lwt.t
  val stop : t -> unit Lwt.t
  val list : t -> Task.t list
  val peek : t -> Task.t option
  val peek_s : t -> Task.t Lwt.t
end