let debug n format = Pdg_parameters.result ~level:(n+1) format