#!/usr/bin/perl -w
use strict;

my ($sum1, $sum2) = 0, 0;
while (my $l = <>) {
    chomp($l);
    my ($k, $v1, $v2) = split /\t/, $l;
    $sum1 += $v1;
    $sum2 += $v2;
}
print "$sum1\t$sum2\n";
