#!/usr/bin/perl
use 5.14.2;
use warnings;


my ($n, $m) = split ' ', <>;
my ($wsum, $bsum);
my %mar = ();
for(my $i = 0; $i < $n; $i ++)
{
	my ($x, $y) = split ' ', <>;
	$mar{$x} = $y;
}
my $i = 0;
for my $k (keys  %mar)
{
	$bsum += $mar{$k} if $i < $n/2;
	$wsum += $k if $i >= $n/2;
	$i++;
}


print $wsum. " ".$bsum;