Module Thread_pool

module Thread_pool: sig .. end

type t 

val create : ?max_threads:int -> unit -> t

val add_work : ('a -> 'b) -> 'a -> t -> unit

val shutdown : t -> unit