{
TASK:MATRIX
LANG:PASCAL
}
var
a:array[1..1000,1..2] of qword;
b:array[1..1000] of byte;
k,m,n,i,j:integer;
begin
readln(n,m);
for i:=1 to n do
  for j:=1 to m do begin
                   read(k);
                   a[i][1]:=a[i][1] xor k;
                   a[i][2]:=a[i][2] + k;
                   end;
m:=n;
for i:=1 to n-1 do
 for j:=i+1 to n do
  if (a[i][1]=a[j][1])and(a[i][2]=a[j][2])
  and(b[i]=0)and(b[j]=0) then begin
                              dec(m);
                              b[i]:=1;
                              b[j]:=1;
                              end;
  writeln(m);
  end.
