const mod=1000000007;

typedef struct{
	long long a,b,c;
	char o;
}abc;
abc C[1<<18],t,u;

idx[1<<17];
CN;
N,Q,X,Y,x,y;
char T;

abc op(char o,abc A,abc B){
	abc R;
	if(o){
		if(A.b>=0){
			if(B.b>=0){
				R.a=A.a;
				R.b=(A.b+A.c*B.a+B.b)%mod;
				R.c=B.c;
			}else{
				R.a=A.a;
				R.b=A.b;
				R.c=A.c*B.a%mod;
			}
		}else{
			if(B.b>=0){
				R.a=A.c*B.a%mod;
				R.b=B.b;
				R.c=B.c;
			}else{
				R.b=-(R.c=R.a=A.c*B.a%mod);
			}
		}
	}else{
		R.a=A.a;
		R.b=(A.b+A.c+B.a+B.b)%mod;
		R.c=B.c;
	}
	R.o=o;
	return R;
}

d(i){
	if(i<65536){
		d(i*2);
		if(CN<N){
			scanf("%c%*c",&C[i].o);
			C[idx[++CN]=i].o^='+';
			d(i*2+1);
		}
		C[i]=op(C[i].o,C[i*2],C[i*2+1]);
	}else{
		scanf("%lld%*c",&C[i].a);
		C[idx[++CN]=i].b=-(C[i].c=C[i].a);
	}
}

r(i){
	C[i]=op(C[i].o,C[i*2],C[i*2+1]);
	if(i>1)r(i/2);
}

main(){
	d(scanf("%d%*c",&N));
	for(scanf("%d%*c",&Q);~scanf("%c%d%d%*c",&T,&X,&Y);){
		t=C[x=idx[X]];
		u=C[y=idx[Y]];
		if(T=='!'){
			C[x]=u;
			C[y]=t;
			r(x>>X%2);
			r(y>>Y%2);
		}else{
			for(;x/2<y/2;x/=2,y/=2){
				if(x%2==0)t=op(C[x/2].o,t,C[x+1]);
				if(y%2==1)u=op(C[y/2].o,C[y-1],u);
			}
			t=op(C[x/2].o,t,u);
			printf("%lld\n",(t.a+t.b+t.c)%mod);
		}
	}
}