Webs_thread_poolThread pools.
val make : int -> tmake n is a thread pool with at most n threads.
val exec : t -> (unit -> unit) -> unitexec pool task schedules task task for execution on the pool.
Warning. There's no protection against spurious exceptions raised from task.
val finish : t -> unitfinish pool blocks until all tasks are done and destroys the pool.