var a,s:array[0..15000] of longint;
    n,m,j,x,q,p,t,v,i:longint;
    f,g:text;
begin
 assign(f,'datorii.in'); reset(f);
 assign(g,'datorii.out'); rewrite(g);
 read(f,n,m);
 for i:=1 to n do begin
  read(f,a[i]);
  s[i]:=s[i-1]+a[i];
 end;
 for i:=1 to m do begin
  read(f,x);
  if x=1 then begin
   read(f,p,q);
   writeln(g,s[q]-s[p-1]);
  end
  else begin
   read(f,t,v);
   for j:=t to n do
    dec(s[j],v);
  end;
 end;
 close(f); close(g);
end.