# Module Pa_bench

    module Pa_bench: sig .. end

    val libname : unit -> string

    val drop_benches : [ `Deadcode | `No | `Remove ] Pervasives.ref

    val maybe_drop : Camlp4.PreCast.Ast.loc ->
           Camlp4.PreCast.Ast.expr -> Camlp4.PreCast.Ast.str_item

    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.t ->
           Camlp4.PreCast.Ast.expr option ->
           string -> Camlp4.PreCast.Ast.expr -> Camlp4.PreCast.Ast.str_item