var     a:array[1..3,1..3500] of integer;
        n,t,nr,i:integer;
        buf:array[1..1000000] of char;
        f,g:text;

procedure cmls;
var     best:array[1..30001] of integer;
        max:integer;
        i,j:integer;
begin
  for i:=1 to n do best[i]:=1;
  max:=1;
  for i:=1 to n do
    begin
      for j:=1 to n do
        if (a[1,i]<a[1,j])and(a[2,i]<a[2,j])and(a[3,i]<a[3,j])and(best[i]+1>best[j]) then
          begin
            best[j]:=best[i]+1;
            if best[j]>max then max:=best[j];
          end;
    end;
  nr:=max;
end;

procedure citire;
var     i:integer;
begin
  for i:=1 to n do
    readln(f,a[1,i],a[2,i],a[3,i]);
  nr:=0;
  cmls;
  writeln(g,nr);
end;

begin
  assign(f,'cutii.in');
  assign(g,'cutii.out');
  reset(f);
  rewrite(g);
  settextbuf(f,buf);
  settextbuf(g,buf);

  readln(f,n,t);
  for i:=1 to t do
    citire;

  close(g);
end.