type dimens=record
x,y,z:integer;
end;
var n,t,i,j,max,m,s,q:integer;
a: array [1..3500] of dimens;
b, maxval: array [1..3500] of integer;
b1,b2:array [1..1 shl 12] of char;
fi, fo:text;
begin
assign(fi,'cutii.in');
assign(fo,'cutii.out');
settextbuf(fi,b1);
settextbuf(fo,b2);
reset(fi);
rewrite(fo);
readln(fi,n,t);
for m:=1 to t do begin
q:=0;
for i:=1 to n do begin
read(fi,s); a[s].x:=s;
if s>q then q:=s;
readln(fi,a[s].y,a[s].z);
end;
b[q]:=1; max:=0;
maxval[q]:=1;
for i:=q-1 downto 1 do begin
for j:=i+1 to q do begin
if maxval[j]<b[i] then break;
if (a[j].y>a[i].y) and (a[j].z>a[i].z) and (b[j]>b[i]) then b[i]:=b[j];
end;
inc(b[i]);
if b[i]>max then max:=b[i];
if maxval[i+1]>b[i] then maxval[i]:=maxval[i+1]
else maxval[i]:=b[i];
end;
writeln(fo,max);
for i:=1 to q-1 do b[i]:=0;
end;
close(fo);
end.