#!/usr/bin/perl -w
%map = ();
$router = "r000000";
while (<>) {
    chomp;
    @line = split /[: ]+/;
    $outline = undef;
    @outparms = ();
    foreach $i (@line) {
	$map{$i} = ++$router if (!defined($map{$i}));
	if (defined($outline)) {
	    push(@outparms, $map{$i});
	} else {
	    $outline = $map{$i} . ":";
	}
    }
    print join(" ", $outline, sort(@outparms)) . "\n";
}