Module Std.Bucket

type 'a bucket =
  1. | Job of 'a
  2. | Wait
  3. | Done
type 'a next = unit -> 'a bucket
val of_list : 'a list -> 'a list bucket
val make : num_workers:int -> 'a list -> 'a list next
type 'a of_n = {
  1. work : 'a;
  2. bucket : int;
  3. total : int;
}
val make_n_buckets : buckets:int -> split:(bucket:int -> 'a) -> 'a of_n next