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