#!/afs/athena/contrib/perl/perl

$| = 1;
while(<>){
	$line = $_;
	if(substr($_,0,1) eq 'R'){
		($rn, @rest) = split;
		($r, $num) = split(':',$rn);
		$name[$num] = join(' ', @rest);
#		print("$num) $name[$num]\n");
		print("$num, ");
	}
	if(substr($line,0,1) eq 'E'){
		($en, @rest) = split;
		($e, $ex) = split(':', $en);
		$exitname = join(' ', @rest);
		if($exitname eq 'n' || $exitname eq 's' || $exitname eq 'e' || $exitname eq 'w'){
		$exits{$num.$exitname} = $ex;
		}
	}
}

$x[0] = 0;
$y[0] = 0;
for $room (0..$num){
$x = $x[$room];
$y = $y[$room];
next unless (defined($x) && defined($y));
#print("**$name[$room]-- ($x, $y)\n");
$loc[$room] = "$x, $y";
for $d ('n','s','e','w'){
	if($exits{$room.$d}){
		($xdif = ($x +1)) if $d eq 'e';
		($xdif = ($x -1)) if $d eq 'w';
		($xdif = ($x)) if (($d eq 'n')||($d eq 's'));

		($ydif = ($y +1)) if $d eq 'n';
		($ydif = ($y -1)) if $d eq 's';
		($ydif = ($y)) if (($d eq 'w') || ($d eq 'e'));

		$x[$exits{$room.$d}]=$xdif;
		$y[$exits{$room.$d}]=$ydif;
		#print("Going $d from [".$name[$room]."][$x, $y] to [".$name[$exits{$room.$d}]."][$xdif, $ydif]\n");
	}
}
}

for $room (0..$num){
print("$name[$room]-- ($loc[$room])\n");
}