Sourcetype 'a bucket = | Job of 'a| Wait| Done
Sourceval make : num_workers:int -> 'a list -> 'a list next Sourcetype 'a of_n = {work : 'a;bucket : int;total : int;
} Sourceval make_n_buckets : buckets:int -> split:(bucket:int -> 'a) -> 'a of_n next