O1 O3 O5 O11 O73
O2 O72 O54 O12 O7
O3 O1 O6 O5 O12
O5 O1 O3
O6 O3
O7 O2
O11 O1
O12 O2 O3
O54 O2
O72 O2
O73 O1

##</code><code>##

print "strict graph {\n";
while (<DATA>) {
    my ($node, @neighbours) = split;
    print "    $node -- $_\n" for @neighbours;
}
print "}\n";