#pragma GCC optimize("-Ofast","-funroll-all-loops","-ffast-math")
#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
typedef unsigned long long ull;
#define SZ 666666
#define pb push_back
#define fi first
#define se second
#define mp make_pair
const int MOD=998244353;
int n,dwn[SZ];
char a[SZ];
int ea[SZ],eb[SZ];
vector<int> adj[SZ];
int dp[2][SZ],fe[SZ];
typedef vector<int> vi;

int pool[262144*8+3],*w0[2333],*w1[2333];
ll qp(ll a,ll b) {
    ll x=1; a%=MOD;
    while(b) {
        if(b&1) x=x*a%MOD;
        a=a*a%MOD; b>>=1;
    }
    return x;
}
int getK(int n) {
    int s=1;while(s<n)s<<=1;return s;
}
void prep(int K) {
    static int i=1,j=1;
    static int* p=pool;
    for(;j<=K;++i,j<<=1) {
        w0[i]=p; w1[i]=p+=j; p+=j;
        ll g=qp(3,(MOD-1)>>i),ig=qp(g,MOD-2);
        w0[i][0]=w1[i][0]=1;
        for(int k=1;k<j;++k)
            w0[i][k]=w0[i][k-1]*g%MOD,
            w1[i][k]=w1[i][k-1]*ig%MOD;
    }
}
void fft(int*x,int K,int v) {
    for(int i=0,j=0;i<K;++i) {
        if(i>j) swap(x[i],x[j]);
        for(int l=K>>1;(j^=l)<l;l>>=1);
    }
    for(int i=2,c=1;i<=K;i<<=1,++c)
        for(int*w=v?w1[c]:w0[c],j=0;j<K;j+=i)
            for(int h=i>>1,a,b,l=0;l<h;++l) {
                a=x[j+l]; if(a>=MOD) a-=MOD;
                b=(ll)x[j+h+l]*w[l]%MOD;
                x[j+h+l]=a-b+MOD,x[j+l]=a+b;
            }
    for(int i=0;i<K;++i) x[i]=(x[i]%MOD+MOD)%MOD;
    if(!v) return;
    ll rv=qp(K,MOD-2);
    for(int i=0;i<K;++i) x[i]=x[i]*rv%MOD;
}
int aa[SZ],bb[SZ];
vi operator * (vi a,vi b) {
    if(a.empty()) return a;
    if(b.empty()) return b;
    int N=a.size(),M=b.size();
    int K=getK(N+M-1); prep(K);
    for(int i=0;i<K;++i) aa[i]=bb[i]=0;
    for(int i=0;i<N;++i) aa[i]=(a[i]%MOD+MOD)%MOD;
    for(int i=0;i<M;++i) bb[i]=(b[i]%MOD+MOD)%MOD;
    fft(aa,K,0); fft(bb,K,0);
    for(int i=0;i<K;++i) aa[i]=(ll)aa[i]*bb[i]%MOD;
    fft(aa,K,1);
    vi c; c.resize(N+M-1);
    for(int i=0;i<c.size();++i) c[i]=aa[i];
    return c;
}
vector<vector<int>> tx;
vi prod(int l,int r) {
    if(l==r) return tx[l];
    if(l>r) return {1};
    int m=(l+r)>>1;
    return prod(l,m)*prod(m+1,r);
}
void dfs(int x,int fa=-1) {
    int dt=0;
    vector<vector<int>> tt;
    tt.pb({1,1});
    if(a[x]=='F') ++dt;
    for(auto e:adj[x]) {
        int b=ea[e]^eb[e]^x;
        if(b==fa) continue;
        fe[b]=e;
        dwn[e]=(b==eb[e]);
        dfs(b,x);
        if(dwn[e]) {
            tt.pb({dp[1][b],dp[0][b]}); ++dt;
        }
        else {
            tt.pb({dp[0][b],dp[1][b]});
        }
    }
    tx=tt;
    vector<int> rst=prod(0,int(tx.size())-1);
    ++dt; rst.insert(rst.begin(),0);
    while(rst.size()<dt+2) rst.pb(0);
    dp[0][x]=rst[dt];
    if(dwn[fe[x]]) {
        dp[1][x]=rst[dt-1];
    }
    else {
        dp[1][x]=rst[dt+1];
    }
}
int main() {
    // vi va{1,2,3},vb{1,0,3};
    // auto tt=va*vb;
    // for(auto s:tt)
    //     cout<<s<<",";cout<<"\n";
    cin>>n>>a;
    for(int i=1;i<n;++i) {
        cin>>ea[i]>>eb[i];
        --ea[i],--eb[i];
        adj[ea[i]].pb(i);
        adj[eb[i]].pb(i);
    }
    dfs(0);
    cout<<(dp[0][0]%MOD+MOD)%MOD<<"\n";
}