var
  w,ch,i,j,time,x1,y1,x2,y2,x,y,z,n:longint;
  ans:int64;
  a:array[0..2000,0..2000]of longint;

begin
  assign(input,'locust.in'); reset(input);
  assign(output,'locust.out'); rewrite(output);
  readln(w);
  readln(n);
  for time:=1 to n do
  begin
    read(ch);
    if ch=1 then
    begin
      readln(x,y,z);
      inc(a[x,y],z);
    end
    else begin
      readln(x1,y1,x2,y2);
      ans:=0;
      for i:=x1 to x2 do
       for j:=y1 to y2 do
       inc(ans,a[i,j]);
      writeln(ans);
    end;
  end;
  close(input);
  close(output);
end.