my @a = (); 
my @b = ();
my @adj = ();
my @rank = ();
my $num;

sub print_ranks {
	for $i (0..$num-1) {
		print "$i : ";

		$prev = -1;
		foreach $x (sort @{$adj[$val[$i]]}) {
			if ($rank[$x] != $i && $rank[$x] != $prev) {
				print "$rank[$x] ";
			}	
			$prev = $rank[$x];
		}
		print "\n";
	} 
}	
	
while (<>) {
	chomp;
	s/[ ]+/ /g;
	@a = split /:/, $_;
	$_ = $a[1];
	@b = split;
	@{$adj[$a[0]]} = @b;
	$val[$num] = $a[0];
	$rank[$a[0]] = $num++;
}	
print_ranks;