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