4 use experimental 'for_list';
8 convert the input to .dot format:
13 xhj -- { mft rtg hvp sgl };
14 hgx -- { dxq stc cfn };
22 and find the components and their edges.
28 my ($n1, @ns) = /\w+/g;
36 my ($node, $seen) = @_;
40 my ($n, $d) = shift @q;
41 next if $seen->{$n}++;
43 for my $n1 (keys %{ $g{$n} }) {
54 while (%seen != keys %g) {
58 $m *= walk($n, \%seen);
62 say "$comps mul=$m" if $comps > 1;
66 for my ($n1, $n2) (qw(rrz pzq jtr mtq ddj znv)) {