#!/bin/perl
use warnings;

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

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

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

print "$black $white\n";