BZOJ 1062

program candy bzoj1062;
const maxc=;
      maxm=;
      maxn=;
var n,len,m,i,p,t,l,r,c,d,q:longint;
    s:array[..,..maxn,..maxm] of longint;
    x,y:array[..maxc] of longint;

procedure add(p,x,y,v:longint);
var i:longint;
begin
    inc(x); inc(y);
    while x<maxn do
    begin
        i:=y;
            while i<maxm do
                begin
                    inc(s[p,x,i],v);
                    inc(i,i and -i);
                end;
        inc(x,x and -x);
    end;
end;

function sum(p,x,y:longint):longint;
var i:longint;
begin
    if (x<)or(y<) then exit();
    inc(x); inc(y); sum:=;
    if x>n then x:=n+;
    if y>m then y:=m+;
    while x> do
        begin
            i:=y;
            while i> do
                begin
                    inc(sum,s[p,x,i]);
                    dec(i,i and -i);
                end;
            dec(x,x and -x);
        end;
end;

procedure update(t,c,l,r,d:longint);            inline;
begin
    x[c]:=(t-d*l+n) mod n; y[c]:=r-l;
    add(,x[c],y[c]+x[c],);
    add(,x[c],y[c]-x[c]+n,);
end;

procedure change(c:longint);                    inline;
begin
    add(,x[c],y[c]+x[c],-);
    add(,x[c],y[c]-x[c]+n,-);
end;

function area(p,x1,y1,x2,y2:longint):longint;   inline;
begin
    area:=sum(p,x2,y2)+sum(p,x1-,y1-)-sum(p,x1-,y2)-sum(p,x2,y1-);
end;

function ask(t,l,r:longint):longint;            inline;
var d:longint;
begin
    d:=longint(r=len);
    ask:=area(,t,l+t,t+r,m)+area(,,l+t-n,t+r-n-d,m)+area(,t-r+n+d,l-t,n,m)+area(,t-r,l-t+n,t-,m);
end;

begin
    read(q,len); n:=len<<; m:=len<<;
    for i:= to q do
        begin
            read(p);
                case p of
                :begin read(t,c,l,r,d); update(t,c,l,r,d);    end;
                :begin read(t,l,r); writeln(ask(t mod n,l,r)); end;
                :begin read(t,c); change(c); end;
                end;
        end;
end.