var    f,g:text; i,j,t,n,aux,k:integer; x,y,z,l:array[1..350] of integer; ok:boolean;
max:integer;
begin
assign(f,'cutii.in');
assign(g,'cutii.out');
reset(f); rewrite(g);
readln(f,n,t);
for i:=1 to t do begin

for j:=1 to n do readln(f, x[j], y[j], z[j]);

repeat
ok:=true;
for k:=1 to n-1 do
if x[k]>x[k+1] then begin
aux:=x[k];
x[k]:=x[k+1];
x[k+1]:=aux;
aux:=y[k];
y[k]:=y[k+1];
y[k+1]:=aux;
 aux:=z[k];
z[k]:=z[k+1];
z[k+1]:=aux;
ok:=false;
end;
until ok=true;
l[n]:=1;
for k:=n-1 downto 1 do
begin
l[k]:=1;
for j:=1+k to n do
if (x[k]< x[j]) and (y[k]<y[j]) and (z[k]<z[j]) and (l[k]<1+l[j]) then

l[k]:=1+l[j];
end;
max:=l[1];
for k:=2 to n do
if max<l[k] then max:=l[k];
writeln(g, max);    end;
close(f);
close(g);
end.