#!/usr/bin/perl

use Graph;

my $g = Graph->new;

$g->add_path( 'a', 'b' );
$g->add_path( 'a', 'c' );

my $complement = $g->complement;

print "g             = $g\n";
print "complement(g) = $complement\n";