sig
  type t
  val create :
    ?name_first16:string ->
    unit -> [ `Ok of In_thread.Helper_thread.t | `Out_of_threads ]
end