{$R+,S+,Q+,I+,O-}
var
  n,m,i,x,j,k: longint;
  ans: int64;
  a: array [0..555] of int64;
begin
  read(n,m);
  while n > 0 do
  begin
    fillchar(a,sizeof(a),0);
    for i:=1 to n do
    begin
      read(x);
      inc(a[x]);
    end;
    ans:=0;
    for i:=1 to m do ans:=ans+a[i]*(a[i]-1)*(a[i]-2) div 6;
    for i:=1 to m-2 do
      for j:=i+1 to m-1 do
        for k:=j+1 to m do ans:=ans+a[i]*a[j]*a[k];
    write(ans,' ');
    ans:=int64(n)*(n-1)*(n-2)*(n-3) div 24;
    for i:=1 to m-1 do
      for j:=i+1 to m do ans:=ans-a[i]*(a[i]-1)*a[j]*(a[j]-1) div 4;
    writeln(ans);
    read(n,m);
  end;
end.