type cutie=record
           x:integer;
           y:integer;
           z:integer;
           end;
vector=array [1..3500] of cutie;
var u,n,t,i,nr:integer;
 a,max:cutie;
 v:vector;
 f,g:text;
 procedure citire(n:integer;var v:vector);
 var i:integer;
 begin
   for i:=1 to n do readln(f,v[i].x,v[i].y,v[i].z);
 end;
 procedure maxim(var v:vector;n:integer;var a:cutie);
 var i:integer;
     ok:boolean;
 begin
   a:=v[1];
   for i:=2 to n do if (a.x<v[i].x) and (a.y<v[i].y) and (a.z<v[i].z)  then a:=v[i];
   i:=0;
   ok:=false;
   repeat
   i:=i+1;
   if (a.x=v[i].x) and (a.y=v[i].y) and (a.z=v[i].z) then begin
                  v[i].x:=0;
                  v[i].y:=0;
                  v[i].z:=0;
                  ok:=true;
                  end;
   until (ok) or (i=n);  
 end;
begin
  assign(f,'cutii.in');
  assign(g,'cutii.out');
  reset(f);
  rewrite(g);
  readln(f,n,t);
  for u:=1 to t do begin
                   nr:=1;
                   citire(n,v);
                   maxim(v,n,max);
                   for i:=2 to n do begin
                                    maxim(v,n,a);
                                    if (a.x<max.x) and (a.y<max.y) and (a.z<max.z)  then begin
                                                                                         nr:=nr+1;
                                                                                         max:=a;
                                                                                         end;
                                    end;
                   writeln(g,nr);
                   end;

  close(f);
  close(g);
end.