let pretty fmt pdg = PdgTypes.Pdg.pretty_graph fmt pdg.graph