print "name sys 0\n";
print "name root 1\n";
$num = 2;
while (<>) {
	($a, $b) = split(/^object[\t ]+/);
	if ($b) {
		chop($b);
		if ($b ne "root" && $b ne "sys") {
			print "name $b $num\n";
			$num++;
		}
	}
}

