ll b[2d5];
int n,q,a[2d5],x[2d5],y[2d5];
char c[2d5];
fenwick<int>f;
{
	rd(n,q,a(n),(c,x,y)(q));
	f.walloc(n+1,1);
	rrep(i,q){
		if(c[i]=='A')
			b[x[i]-1]+=(ll)y[i]*f.get(x[i]-1);
		else
			f.add(x[i]-1,1),
			f.add(y[i],-1);
	}
	rep(i,n)b[i]+=(ll)a[i]*f.get(i);
	wt(b(n));
}