#!/usr/bin/perl

while(<STDIN>){
	chomp;
	my @d = split(/\t/);
	if ( $d[0] =~ /^[0-9]/ ) {
		my $cc = `php /var/www/html/cc.php $d[0]`;
		$d[0] .= $d[0]."(".$cc.")";
	}
	print join("\t", @d)."\n";
}
