sig type t val create : name:string -> (unit -> unit) -> Bench.Test.t val create_indexed : name:string -> args:int list -> (int -> (unit -> unit) Core.Std.Staged.t) -> Bench.Test.t end