type t
Pool of processes to execute in parallel up to a number of jobs.
val create : jobs:int ‑> t
Create a new pool of processes
val start_child : f:('a ‑> unit) ‑> pool:t ‑> 'a ‑> unit
Start a new child process in the pool. If all the jobs are taken, wait until one is free.
val wait_all : t ‑> unit
Wait until all the currently executing processes terminate