sig
  type t
  val create : ?name:string -> ?size:int -> (unit -> unit) -> Bench.Test.t
  val name : Bench.Test.t -> string option
  val size : Bench.Test.t -> int option
end