sig
  module Test :
    sig
      type t
      val create :
        ?name:string ->
        ?size:int -> (unit -> unit) -> Deprecated_bench.Test.t
      val name : Deprecated_bench.Test.t -> string option
      val size : Deprecated_bench.Test.t -> int
    end
  module Result :
    sig
      module Stat :
        sig
          type t = {
            run_cycles : int;
            compactions : int;
            minor_allocated : int;
            major_allocated : int;
            promoted : int;
          }
          val empty : Deprecated_bench.Result.Stat.t
        end
      type t = string option * int * Deprecated_bench.Result.Stat.t array
      val mean :
        Deprecated_bench.Result.Stat.t array ->
        Deprecated_bench.Result.Stat.t
      val min :
        Deprecated_bench.Result.Stat.t array ->
        Deprecated_bench.Result.Stat.t
      val max :
        Deprecated_bench.Result.Stat.t array ->
        Deprecated_bench.Result.Stat.t
      val compactions_occurred : Deprecated_bench.Result.Stat.t array -> bool
    end
  type 'a with_benchmark_flags =
      ?verbosity:[ `High | `Low | `Mid ] ->
      ?gc_prefs:Core.Std.Gc.Control.t ->
      ?no_compactions:bool ->
      ?trials:[ `Auto | `Num of int ] -> ?clock:[ `Cpu | `Wall ] -> 'a
  type column =
      [ `Allocated
      | `Cycles
      | `Input_size
      | `Name
      | `Nanos
      | `Normalized_cycles
      | `Warnings ]
  type 'a with_print_flags =
      ?limit_width_to:int ->
      ?columns:[ `Allocated
               | `Cycles
               | `If_not_empty of Deprecated_bench.column
               | `Input_size
               | `Name
               | `Nanos
               | `Normalized_cycles
               | `Warnings ] list ->
      ?display:Textutils.Ascii_table.Display.t -> 'a
  val bench :
    (Deprecated_bench.Test.t list -> unit)
    Deprecated_bench.with_benchmark_flags Deprecated_bench.with_print_flags
  val bench_raw :
    (Deprecated_bench.Test.t list -> Deprecated_bench.Result.t list)
    Deprecated_bench.with_benchmark_flags
  val print :
    (Deprecated_bench.Result.t list -> unit)
    Deprecated_bench.with_print_flags
end