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