const int maxn=1e5+10;
struct edge{int next,to;
}e[2*maxn];
struct Node{int sum,lazy,l,r,ls,rs;
}node[2*maxn];
int rt,n,m,r,a[maxn],cnt,head[maxn],f[maxn],d[maxn],size[maxn],son[maxn],rk[maxn],top[maxn],id[maxn];

void dfs1(int u,int fa,int depth)    //当前节点、父节点、层次深度
{f[u]=fa;d[u]=depth;size[u]=1;    //这个点本身size=1for(int i=head[u];i;i=e[i].next){int v=e[i].to;if(v==fa)continue;dfs1(v,u,depth+1);    //层次深度+1size[u]+=size[v];    //子节点的size已被处理，用它来更新父节点的sizeif(size[v]>size[son[u]])son[u]=v;    //选取size最大的作为重儿子}
}
//进入
dfs1(root,0,1);

void dfs2(int u,int t)    //当前节点、重链顶端
{top[u]=t;id[u]=++cnt;    //标记dfs序rk[cnt]=u;    //序号cnt对应节点uif(!son[u])return;dfs2(son[u],t);
/*我们选择优先进入重儿子来保证一条重链上各个节点dfs序连续，
一个点和它的重儿子处于同一条重链，所以重儿子所在重链的顶端还是t*/for(int i=head[u];i;i=e[i].next){int v=e[i].to;if(v!=son[u]&&v!=f[u])dfs2(v,v);    //一个点位于轻链底端，那么它的top必然是它本身}
}

int sum(int x,int y)
{int ans=0,fx=top[x],fy=top[y];while(fx!=fy)    //两点不在同一条重链{if(d[fx]>=d[fy]){ans+=query(id[fx],id[x],rt);    //线段树区间求和，处理这条重链的贡献x=f[fx],fx=top[x];    //将x设置成原链头的父亲结点，走轻边，继续循环}else{ans+=query(id[fy],id[y],rt);y=f[fy],fy=top[y];}}//循环结束，两点位于同一重链上，但两点不一定为同一点，所以我们还要统计这两点之间的贡献if(id[x]<=id[y])ans+=query(id[x],id[y],rt);elseans+=query(id[y],id[x],rt);return ans;
}

#include<iostream>
#include<cstdio>
using namespace std;
const int maxn=1e5+50;
int N,M,R,mod;
int cnt=0;
int v[maxn];
int Size[maxn],deep[maxn],fa[maxn],son[maxn],id[maxn],top[maxn],head[maxn],rk[maxn];//
struct edge
{int to,next;//e[i].to代表第i条边的终点 e[i].next代表与第i条边同起点的下一条边的终点
}e[maxn<<1];
struct node
{int l,r,ls,rs,sum,lazy;
}a[maxn<<1];
void add(int x,int y)//链式前向星存储
{e[++cnt].to=y;e[cnt].next=head[x];head[x]=cnt;
}
int len(int rt)
{return a[rt].r-a[rt].l+1;
}void push_up(int rt)
{a[rt].sum=(a[a[rt].ls].sum+a[a[rt].rs].sum)%mod;
}
void Push_down(int rt)
{a[a[rt].ls].lazy=(a[a[rt].ls].lazy+a[rt].lazy)%mod;a[a[rt].rs].lazy=(a[a[rt].rs].lazy+a[rt].lazy)%mod;a[a[rt].ls].sum=(a[a[rt].ls].sum+len(a[rt].ls)*a[rt].lazy)%mod;a[a[rt].rs].sum=(a[a[rt].rs].sum+len(a[rt].rs)*a[rt].lazy)%mod;a[rt].lazy=0;
}
void dfs1(int rt)
{Size[rt]=1,deep[rt]=deep[fa[rt]]+1;for(int i=head[rt];i;i=e[i].next){int v=e[i].to;if(v!=fa[rt]){fa[v]=rt;dfs1(v);Size[rt]+=Size[v];if(Size[v]>Size[son[rt]]) son[rt]=v;}}
}
void dfs2(int R,int rt)
{id[R]=++cnt;rk[cnt]=R;top[R]=rt;if(son[R])dfs2(son[R],rt);//优先走重儿子for(int i=head[R];i;i=e[i].next){
//        cout<<"***"<<endl;int v=e[i].to;if((v!=son[R])&&(v!=fa[R])) dfs2(v,v);//轻儿子的重儿子就是本身
    }
}
void Build(int l,int r,int rt)
{if(l==r){a[rt].l=l;a[rt].r=r;a[rt].sum=v[rk[l]];return ;}int mid=(l+r)>>1;a[rt].ls=++cnt;a[rt].rs=++cnt;a[rt].l=l,a[rt].r=r;
//    cout<<a[rt].ls<<" "<<a[rt].rs<<endl;
//    cout<<a[rt].l<<" "<<a[rt].r<<endl;
    Build(l,mid,a[rt].ls);Build(mid+1,r,a[rt].rs);push_up(rt);
}void update(int x,int y,int c,int rt)
{
//    cout<<x<<" "<<y<<" "<<rt<<endl;
//    cout<<"*"<<endl;if(x<=a[rt].l&&a[rt].r<=y){a[rt].lazy=(a[rt].lazy+c)%mod;a[rt].sum=(a[rt].sum+len(rt)*c)%mod;return ;}Push_down(rt);int mid=(a[rt].l+a[rt].r)>>1;if(x<=mid) update(x,y,c,a[rt].ls);if(y>mid) update(x,y,c,a[rt].rs);push_up(rt);
}
void updates(int x,int y,int c)
{while(top[x]!=top[y]){if(deep[top[x]]<deep[top[y]]) swap(x,y);//统一跳xupdate(id[top[x]],id[x],c,0);//线段树区间更新x=fa[top[x]];}//在同一条重链上if(id[x]>id[y]) swap(x,y);update(id[x],id[y],c,0);
}
int query(int x,int y,int rt)
{int tot=0;if(x<=a[rt].l&&a[rt].r<=y){return a[rt].sum;}Push_down(rt);int mid=(a[rt].l+a[rt].r)>>1;if(x<=mid) tot+=query(x,y,a[rt].ls);if(y>mid) tot+=query(x,y,a[rt].rs);tot%=mod;
//    push_up(rt);return tot;
}
int sum(int x,int y)
{int ret=0;while(top[x]!=top[y])//不在同一条重链上
    {if(deep[top[x]]<deep[top[y]]) swap(x,y);ret+=query(id[top[x]],id[x],0);ret%=mod;x=fa[top[x]];}if(id[x]>id[y]) swap(x,y);ret+=query(id[x],id[y],0);ret%=mod;return ret;
}
int main()
{cnt=0;scanf("%d%d%d%d",&N,&M,&R,&mod);for(int i=1;i<=N;i++) scanf("%d",&v[i]);for(int i=1;i<N;i++){int x,y;scanf("%d%d",&x,&y);add(x,y);//双向边
        add(y,x);}/**dfs1求出原树中每个结点为根的树大小 原树中每个结点的深度 每个结点的父亲 重儿子*/cnt=0;dfs1(R);//从根节点开始
//    cout<<"**"<<endl;cnt=0;/**dfs2求出新树中每个结点的编号 每个编号对应原树中的值 所在重链的根节点*/dfs2(R,R);cnt=0;
//    cout<<"*"<<endl;Build(1,N,0);//以得到的新编号来建树for(int i=1;i<=M;i++){int op,x,y,z;scanf("%d",&op);if(op==1){scanf("%d%d%d",&x,&y,&z);updates(x,y,z);}else if(op==2){scanf("%d%d",&x,&y);printf("%d\n",sum(x,y));}else if(op==3){scanf("%d%d",&x,&z);update(id[x],id[x]+Size[x]-1,z,0);}else{scanf("%d",&x);printf("%d\n",query(id[x],id[x]+Size[x]-1,0));}}return 0;
}