#!/bin/perl

use strict;
use warnings;

my ($n, $m) = split / /, <>;

# my @boxes = 
my @boxes = sort { $b <=> $a }  map { (split / /, <>)[0] }  (1 .. $n);

my $black = 0;
my $white = 0;
for my $i (1 .. $n) {
    if (2*$i <= $n) {
        $black += $boxes[$i-1];
    }
    else {
        $white += $m - $boxes[$i-1];
    }
}

print "$black $white\n";