sig
  type task = unit -> Proc.t
  type t
  val make : ?prio:int -> DepDAG.task -> DepDAG.t list -> DepDAG.t
  val make_par : ?prio:int -> DepDAG.t list -> DepDAG.t
  val run : ?n:int -> DepDAG.t -> unit
end