var     a,v,b,c:array[0..15000] of longint;
        n,m,i,j,x,y:longint;
        f,t:text;

function suma(p:longint):longint;
begin
  suma:=0;
  while p>0 do
    begin
      suma:=suma+v[p];
      dec(p,c[b[p]]);
    end;
end;

procedure modifica(x,y:longint);
begin
  while x<=n do
    begin
      v[x]:=v[x]-y;
      inc(x,c[b[x]]);
    end;
end;

begin
  assign(f,'datorii.out');
  rewrite(f);
  assign(t,'datorii.in');
  reset(t);
  readln(t,n,m);

{  for i:=1 to n do
    read(t,a[i]);

  for i:=1 to 10 do
   if b[i]=0 then
      begin
        j:=i;
          while j<=n do
            begin
              b[j*2]:=b[j]+1;
              j:=j*2;
            end;
      end;

  c[0]:=1;
  for i:=1 to 10 do
    c[i]:=c[i-1]*2; }

  for i:=1 to n do
    v[i]:=a[i]+suma(i-1)-suma(i-c[b[i]]);

  for i:=1 to m do
    begin
      readln(t,j,x,y);
      if j=0 then modifica(x,y)
      else if x=1 then writeln(f,suma(y))
      else writeln(f,suma(y)-suma(x-1));
    end;
  close(t);
  close(f);
end.