#include<bits/stdc++.h>
using namespace std;
int n,m,root,mod;
int dfn,cnt;
int w[500005],rnk[500005],fa[500005],id[500005],head[500005],sz[500005],dep[500005],dson[500005],top[500005];
struct node{
	int to,next;
}e[500005];
struct node2{
	int l,r,sum,tg;
}seg[500005];
void add(int x,int y){
	e[++cnt].next=head[x];
	head[x]=cnt;
	e[cnt].to=y;
}
void dfs1(int u,int f){
	dep[u]=dep[f]+1;
	sz[u]=1;
	fa[u]=f;
	for(int i=head[u];i!=0;i=e[i].next){
		int v=e[i].to;
		if(v==f){
			continue;
		}
		dfs1(v,u);
		sz[u]+=sz[v];
		if(sz[dson[u]]<sz[v]){
			dson[u]=v;
		}
	}
	return ;
}
void dfs2(int u,int _top){
	top[u]=_top;
	id[u]=++dfn;
	rnk[dfn]=u;
	if(dson==0){
		return ;
	}
	dfs2(dson[u],_top);
	for(int i=head[u];i!=0;i=e[i].next){
		int v=e[i].to;
		if(v==fa[u]||v==dson[u]){
			continue;
		}
		dfs2(v,v);
	}
	return ;
}
void build(int p,int l,int r){
	int mid=(l+r)>>1;
	seg[p].l=l;
	seg[p].r=r;
	if(l==r){
		seg[p].tg=seg[p].sum=(w[rnk[l]]);
	}
	build(p<<1,l,mid);
	build(p<<1|1,mid+1,r);
	seg[p].sum=seg[p<<1].sum+seg[p<<1|1].sum;
}
void push_down(int p){
	seg[2*p].tg+=seg[p].tg;
	seg[2*p].tg%=mod;
	seg[2*p].sum+=(seg[2*p].r-seg[2*p].l+1)*seg[2*p].tg;
	seg[2*p].sum%=mod;
	seg[2*p+1].tg+=seg[p].tg;
	seg[2*p+1].tg%=mod;
	seg[2*p+1].sum+=(seg[2*p+1].r-seg[2*p+1].l+1)*seg[2*p+1].tg;
	seg[2*p+1].sum%=mod;
	seg[p].tg=0;
	return ;
}
void update(int p,int l,int r,int val){
	if(seg[p].l>=l&&seg[p].r<=r){
		seg[p].tg+=val;
		seg[p].tg%=mod;
		seg[p].sum=(seg[p].r-seg[p].l+1)*val;
		seg[p].sum%=mod;
		return ;
	}
	if(seg[p].l>r||seg[p].r<l){
		return ;
	}
	push_down(p);
	update(p<<1,l,r,val);
	update(p<<1|1,l,r,val);
	seg[p].sum=seg[p<<1].sum+seg[p<<1|1].sum;
	seg[p].sum%=mod;
	return ;
}
int quary(int p,int l,int r){
	if(seg[p].l>=l&&seg[p].r<=r){
		return seg[p].sum%mod;
	}
	if(seg[p].l>r||seg[p].r<l){
		return 0;
	}
	push_down(p);
	return (quary(p<<1,l,r),quary(p<<1|1,l,r))%mod;
}
void change(int x,int y,int val){
	while(top[x]!=top[y]){
		if(dep[top[x]]<dep[top[y]]){
			swap(x,y);
		}
		update(1,id[top[x]],id[x],val);
		x=fa[top[x]];
	}
	if(dep[x]>dep[y]){
		swap(x,y);
	}
	update(1,id[x],id[y],val);
	return;
}
int get(int x,int y){
	int rel=0;
	while(top[x]!=top[y]){
		if(dep[top[x]]<dep[top[y]]){
			swap(x,y);
		}
		rel+=quary(1,id[x],id[y]);
		rel%=mod;
		x=fa[top[x]];
	}
	if(dep[x]<dep[y]){
		swap(x,y);
	}
	rel+=quary(1,id[x],id[y]);
	rel%=mod;
	return rel;
}
int main(){
	scanf("%d%d%d%d",&n,&m,&root,&mod);
	for(int i=1;i<=n;i++){
		scanf("%d",&w[i]);
	}
	for(int i=1;i<n;i++){
		int x,y;
		scanf("%d%d",&x,&y);
		add(x,y);
		add(y,x);
	}
	dfs1(root,0);
	dfs2(root,root);
	build(1,1,n);
	for(int i=1;i<=m;i++){
		int opt;
		scanf("%d",&opt);
		if(opt==1){
			int x,y,z;
			scanf("%d%d%d",&x,&y,&z);
			change(x,y,z);
		}
		if(opt==2){
			int x,y;
			scanf("%d%d",&x,&y);
			printf("%d\n",get(x,y)); 
		}
		if(opt==3){
			int x,z;
			scanf("%d%d",&x,&z);
			update(1,id[x],id[x]+sz[x]-1,z);
		}
		if(opt==4){
			int x;
			scanf("%d",&x);
            printf("%d\n",quary(1,id[x],id[x]+sz[x]-1));
		}
	}
	return 0;
} 

没过样例。。。