[(0,1,1), (0,2,2), (1,0,1), (1,2,3), (2,0,2), ( 2,1,3)
]).
(X): - X = (
[1,2,3,4,5,6,7],
edge (7,4,16), (7,5,25), (7,6,36)
: - g2 (X), primeInit (X, T, S, M), primeSearch (X, T, S, M, R), write ('Graph optimal carcas:'), writeln (R).