program datorii;
var f,g:text;
        doi:array[0..60] of longint;
        v:array[0..15001] of longint;
        c:array[0..15001] of longint;
        n,m:longint;



procedure iofile;
var i:longint;
begin
        assign(f,'datorii.in');
        reset(f);
        assign(g,'datorii.out');
        rewrite(g);
        readln(f,n,m);
        for i:=1 to n do
                begin
                        read(f,v[i]);
                        v[i]:=v[i]+v[i-1];
                end;
        fillchar(c,sizeof(c),0);
end;

procedure doila;
var p,i:longint;
begin
        p:=1;
        i:=0;
        doi[i]:=p;
        while p<=n do
                begin
                        inc(i);
                p:=p*2;
                doi[i]:=p;
                end;
end;

procedure aib;
var i,poz,s1,s2,ind,val,cod,st,dr,sum:longint;
begin
        for i:=1 to m do
                begin
                        read(f,cod);
                        if cod=0 then
                                begin
                                        read(f,ind);
                                        readln(f,val);
                                        poz:=0;
                                        while ind<=n do
                                                begin
                                                        c[ind]:=c[ind]+val;
                                                        while ind and doi[poz]=0 do
                                                                poz:=poz+1;
                                                        ind:=ind+doi[poz];
                                                        poz:=poz+1;
                                                end;
                                end else
                                begin
                                        read(f,st);
                                        readln(f,dr);
                                        poz:=0;
                                        s1:=0;
                                        sum:=v[dr]-v[st-1];
                                        while dr>0 do
                                                begin
                                                        s1:=s1+c[dr];
                                                        while dr and doi[poz]=0 do
                                                                poz:=poz+1;
                                                        dr:=dr-doi[poz];
                                                        poz:=poz+1;
                                                end;
                                        s2:=0;
                                        poz:=0;
                                        st:=st-1;
                                        while st>0 do
                                                begin
                                                        s2:=s2+c[st];
                                                        while st and doi[poz]=0 do
                                                                poz:=poz+1;
                                                        st:=st-doi[poz];
                                                        poz:=poz+1;
                                                end;
                                        writeln(g,sum-s1+s2);
                                end;
                end;
        close(g);
end;


begin
        iofile;
        doila;
        aib;
end.