program cutii;
var f,g:text;
    lu,l,h:array[1..3500]of 1..3500;
    n,i,aux,c:0..3500;
    t,y:1..100;
    ord:0..1;
begin
assign(f,'cutii.in');
assign(g,'cutii.out');
reset(f);
rewrite(g);
read(f,n);
read(f,t);
for y:=1 to t do
  begin
    c:=0;
    for i:=1 to n do
      begin
        read(f,lu[i]);
        read(f,l[i]);
        read(f,h[i]);
      end;
    repeat
          ord:=0;
          for i:=1 to n-1 do
            if (l[i]>l[i+1])then
              begin
                aux:=l[i];
                l[i]:=l[i+1];
                l[i+1]:=aux;
                aux:=lu[i];
                lu[i]:=lu[i+1];
                lu[i+1]:=aux;
                aux:=h[i];
                h[i]:=h[i+1];
                h[i+1]:=aux;
                ord:=1;
              end;
          until ord=0;
    for i:=1 to n do
      if (lu[i]>lu[i-1])and(h[i]>h[i-1])then c:=c+1;
    writeln(g,c);
  end;
close(f);
close(g);
end.