{$IFDEF NORMAL}
  {$I-,OBJECTCHECKS-,Q-,R-,S-}
{$ENDIF NORMAL}
{$IFDEF DEBUG}
  {$I-,OBJECTCHECKS+,Q-,R-,S-}
{$ENDIF DEBUG}
{$IFDEF RELEASE}
  {$I-,OBJECTCHECKS-,Q-,R-,S-}
{$ENDIF RELEASE}
program datorii;
type sir=array [0..15000]of longint;
var
s:sir;
f,g:text;
n,m,cod,t,j,v,i:longint;
begin
assign(f,'datorii.in'); reset(f);
assign (g,'datorii.out'); rewrite(g);
read(f,n,m);s[0]:=0;
for i:=1 to n do
            begin
            read(f,v);
            s[i]:=s[i-1]+v;
            end;
for i:=1 to m do
              begin
              read(f,cod,t,v);
              if cod=1 then writeln(g,s[v]-s[t-1])
                     else
                     for j:=t to n do s[j]:=s[j]-v;
              end;
close(f); close(g);
end.