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