sig val detach : ('a -> 'b) -> 'a -> 'b Lwt.t val init : int -> int -> 'a Lwt.t val nbthreads : unit -> int val nbthreadsbusy : unit -> int val nbthreadsqueued : unit -> int end