Module Pa_bench

val libname : unit -> string

val drop_benches : bool Pervasives.ref

val descr : Camlp4.PreCast.Ast.loc -> (Camlp4.PreCast.Ast.expr * Camlp4.PreCast.Ast.expr * Camlp4.PreCast.Ast.expr * Camlp4.PreCast.Ast.expr)

val apply_to_descr_bench : string -> Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Syntax.Ast.expr option -> string -> Camlp4.PreCast.Ast.expr -> Camlp4.PreCast.Ast.str_item