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