#!/usr/bin/perl -n
BEGIN { @ARGV = (); $prev = ""; }
chomp;
if (defined $prev) {
	if ($prev eq "") {
		s/\s+$//;
		$proc = $_;
		$extra_out_count = $extra_in_count = 0;
		undef $_;
	} elsif ($prev =~ /^[a-z]\w*$/i && /^>\s*$/) {
		print "$proc -> $prev [taillabel=$extra_out_count];\n";
		++$extra_out_count;
		undef $_;
	} elsif ($prev =~ /^[a-z]\w*$/i && /^<\s*$/) {
		print "$prev -> $proc [headlabel=$extra_in_count];\n";
		++$extra_in_count;
		undef $_;
	} elsif ($prev =~ />\s*$/ && /^([a-z]\w*)\s*$/i){
		print "$proc -> $1;\n";
		undef $_;
	} elsif ($prev =~ /<\s*$/ && /^([a-z]\w*)\s*$/i){
		print "$1 -> $proc;\n";
		undef $_;
	}
}
$prev = $_;