#!/usr/bin/perl -w

$count = 0;

while(<STDIN>) {
	chomp;
	($key,$value) = split "\t";
		
	if (!defined($oldkey)) {
	    $oldkey = $key;
	    $count  = $value;
	} else {
	    if ($oldkey eq $key) {
		$count = $count + $value;
	    } else {
		print "$oldkey\t$count\n";
		$oldkey = $key;
		$count  = $value;
	    }
	}
}
print "$oldkey\t$count\n";
