program criminala(input,output);
var
 n,m:longint;
 a:array[1..1000,1..2]of integer;
 i,j,x,t:longint;
 ans1,ans2:longint;

begin
 assign(input,'criminala.in');
 reset(input);
 readln(n,m);
 for i:=1 to m do
 begin
  readln(x);
  if x>0 then inc(a[x,1]);
  if x<0 then inc(a[-x,2]);
 end;
 close(input);

 for i:=1 to n do
  if a[i,1]>a[i,2] then
  begin
   t:=a[i,1];
   a[i,1]:=a[i,2];
   a[i,2]:=t;
  end;

 for i:=1 to n do
 begin
  inc(ans1,a[i,1]);
  inc(ans2,a[i,2]);
 end;

 assign(output,'criminala.out');
 rewrite(output);
 writeln(ans2);
 writeln(ans1);
 close(output);
end.