and tactic = param_decl list * code
and param_decl = id (** goal/func/tactic parameter. *)
and id = string
-and code = substs
+and code = substs * bool (** code + quiet flag *)
and returning = RetExpr | RetStrings | RetString
and substs = subst list
and subst =