program criminala(input,output);
var
  n,m,i,j,k,l:longint;
  a:array[1..1000,1..2]of longint;
begin
  assign(input,'criminala.in');
  reset(input);
  assign(output,'criminala.out');
  rewrite(output);
  readln(n,m);
  for i:=1 to n do
  begin
    a[i,1]:=0;
    a[i,2]:=0;
  end;
  for i:=1 to m do
  begin
    readln(k);
    if k>0 then inc(a[k,1])
    else inc(a[abs(k),2]);
  end;
  j:=0;
  k:=0;
  for i:=1 to n do
  begin
    if a[i,1]>a[i,2] then begin j:=j+a[i,1]; k:=k+a[i,2]; end
      else begin j:=j+a[i,2]; k:=k+a[i,1]; end;
  end;
  writeln(j);
  writeln(k);
  close(input);
  close(output);
end.