# Construction du graphe des frontieres de l'Amerique du sud.
with(GraphTheory):
pays := [argentine, paraguay, venezuela, colombie, guyane, bresil, surinam, chili, uruguay, bolivie, perou, guyana, equateur];
AmeriqueDuSud:=Graph(pays,Trail(guyane,surinam,guyana,venezuela,colombie,equateur,perou,bolivie,chili,argentine,uruguay));
for v in [guyane, surinam,guyana, venezuela, colombie, perou, bolivie, paraguay, argentine, uruguay] do AddEdge(AmeriqueDuSud,{bresil,v}) od:
AddEdge(AmeriqueDuSud,{{colombie,perou},{perou,chili},{argentine,bolivie},{argentine,paraguay},{paraguay,bolivie}});