var n,p,h,i,j,m,max,nr,c:longint;
    v:array [1..100000] of boolean;
    f,g:text;

begin
  assign(f,'hotel.in');
  assign(g,'hotel.out');
  reset(f);
  rewrite(g);
  readln(f,n,p);
  for h:=1 to n do v[i]:=false;
  for h:=1 to p do
    begin
    read(f,c);
    case c of
    1: begin
       readln(f,i,m);
       for j:=i to i+m-1 do v[j]:=true;
       end;
    2: begin
       readln(f,i,m);
       for j:=i to i+m-1 do v[j]:=false;
       end;
    3: begin
       readln(f);
       max:=0;
       nr:=0;
       for j:=1 to n do
         if not v[j] then nr:=nr+1
         else begin
              if nr>max then max:=nr;
              nr:=0;
              end;
       if nr>max then max:=nr;
       writeln(g,max);
       end;
    end;
    end;
  close(f);
  close(g);
end.