+warn "# freq_count = ",dump($freq_count);
+warn "# ap_freq = ",dump($ap_freq);
+
+foreach my $node ( sort keys %$ap_freq ) {
+ print $dot _dot($node), ' [ shape=record, label="', $node, '|{', join('|', map { "<$_>$_ " . $ap_freq->{$node}->{local}->{$_} } sort keys %{ $ap_freq->{$node}->{local} }), '}" ];', "\n";
+
+}
+