谁说pascal只能80，要换c++的

var    
    a,b:array[0..200000] of longint;    
    m,d,i,p,t,s,f,le,ri,u:longint;    
    k:char;    
    w:dword;    
begin    
    readln(m,d);    
    s:=0;
    f:=0;
    a[0]:=maxlongint;    
    for i:=1 to m do begin    
        read(k);    
        readln(p);    
        if k='A' then begin    
            inc(s);   
            inc(f);    
            w:=t;    
            w:=w+p;    
            if w<=maxlongint then a[s]:=w mod d 
                else a[s]:=(-((not w)+1)) mod d;    
            b[s]:=f;    
            while a[s]>=a[s-1] do begin 
                dec(s);
                a[s]:=a[s+1];
                b[s]:=b[s+1];
            end;    
        end 
        else begin    
            le:=0;
            ri:=s;    
            repeat    
                u:=(le+ri) shr 1;    
                if b[u]<f-p+1 then le:=u 
                    else ri:=u;    
            until ri-le=1;    
            t:=a[ri];    
            writeln(t);    
        end;    
    end;    
end.