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