A module internal to Core_bench. Please look at Bench.
val verbosity : [ `High | `Low ] ref
val set_verbosity : [ `High | `Low ] -> unit
val print_high : ('a, out_channel, unit) format -> 'a