sig
  type t
  val create :
    ?priority:In_thread.Priority.t ->
    ?name:string -> unit -> In_thread.Helper_thread.t Core.Std.Or_error.t
end