推推公式，最后变成四个东西的前缀和
然后不知道为什么一直wa，数据在本地测是没有错的&
好心的管理员还给了某位p党大神a了的代码，感人肺腑（虽然还是没发现到底我的程序是问题）
var
f1,f2,f3,f4:array[..,..]of longint;
x1,y1,x2,y2,n,m,j:longint;
ch:char; function lowbit(x:longint):longint;
begin
exit(x and (-x));
end; procedure add(x,y,z:longint);
var
i,j:longint;
begin
if (x=) or (y=) then exit;
i:=x;
while i<=n do begin
j:=y;
while j<=m do begin
inc(f1[i,j],z);
inc(f2[i,j],z*y);
inc(f3[i,j],z*x);
inc(f4[i,j],z*x*y);
inc(j,lowbit(j));
end;
inc(i,lowbit(i));
end;
end; function askans(x,y:longint):longint;
var
ans,i,j:longint;
begin
ans:=;
i:=x;
while i>= do begin
j:=y;
while j>= do begin
ans:=ans+f1[i,j]*(x+)*(y+);
ans:=ans-f2[i,j]*(x+);
ans:=ans-f3[i,j]*(y+);
ans:=ans+f4[i,j];
dec(j,lowbit(j));
end;
dec(i,lowbit(i));
end;
//writeln(x,' ',y,' ',ans);
exit(ans);
end; begin
readln(ch,n,m);
fillchar(f1,sizeof(f1),);
fillchar(f2,sizeof(f2),);
fillchar(f3,sizeof(f3),);
fillchar(f4,sizeof(f4),);
while not eof do begin
read(ch);
if ch='L' then begin
readln(x1,y1,x2,y2,j);
add(x1,y1,j);
add(x1,y2+,-j);
add(x2+,y1,-j);
add(x2+,y2+,j);
end
else
if ch='k' then begin
readln(x1,y1,x2,y2);
writeln(askans(x2,y2)+askans(x1-,y1-)-askans(x1-,y2)-askans(x2,y1-));
end;
end;
end.