#include<cstdio>
#include<map>
#include<cstring>
#include<cstdlib>
#define MAX_PRIMES 120
#define MAX_VAR 26
#define MAX_LEN 1500
#define MAX_EXPR 100005
#define FIN "eval.in"
#define FOUT "eval.out"
#define ll long long
using namespace std;
int N, P[MAX_PRIMES], R[MAX_PRIMES], V[MAX_VAR], p, MOD, p1[MAX_LEN], r1[MAX_LEN], p2[MAX_LEN], r2[MAX_LEN];
char var[MAX_VAR][MAX_LEN], expr[MAX_EXPR];
map<int, bool> H;
inline int is_prime(int n)
{   if(!(n%2)) return 0;
    for(int i=3; i*i<=n; i+=2)
        if(!(n%i)) return 0;
    return 1;
}
int mod_var(char str[], int mod)
{   int i,ret=0;
    for(i=str[0]=='-'; str[i]; i++)
        ret=((ll) ret*10 + str[i]-'0') % mod;
    return str[0] == '-' ? (mod-ret)%mod : ret;
}
inline void add(int &a, int b) {a=((ll)a+b)%MOD;}
inline void mul(int &a, int b) {a=((ll)a*b)%MOD;}
int eval(void);
int term(void);
int factor(void);
int eval(void)
{   int ret = term();
    while(expr[p]=='+'||expr[p]=='-')
        if(expr[p]=='+') {p++; add(ret,term());}
            else {p++;add(ret, MOD-term());}
    return ret;
}
int term(void)
{   int ret=factor();
    while(expr[p]=='*') {p++; mul(ret,factor());}
    return ret;
}
int factor(void)
{   int ret;
    if(expr[p]=='(') {p++; ret=eval(); p++;}
    else if(expr[p]=='[') {p++; ret=eval(); mul(ret,ret); p++;}
            else if(expr[p]=='-') {p++; ret = -eval(); add(ret, MOD);}
                    else if(expr[p]=='+') {p++; ret=eval();}
                            else
    if(expr[p]>='a'&&expr[p]<='z') {ret=V[expr[p]-'a']; p++;}
    return ret;
}
inline void init(int a[], int b)
{   memset(a,0,MAX_LEN*sizeof(int));
    for(;b;b/=10) a[++a[0]]=b%10;
}
int big_mod(int a[], int b)
{   int i,ret=0;
    for(i=a[0];i;i--) ret=((ll)ret*10+a[i])%b;
    return ret;
}
void big_add(int a[], int b[])
{   int i,t=0;
    for(i=1;i<=a[0] || i<=b[0] || t; i++,t/=10)
        a[i]=(t+=a[i]+b[i])%10;
    a[0]=i-1;
}
void big_sub(int a[], int b[])
{   int i,t=0;
    for(i=1;i<=a[0];i++)
    {   a[i]-=b[i]+t;
        a[i]+=(t=a[i]<0)*10;
    }
    for(;a[0] && !a[a[0]]; a[0]--);
}
void big_mul(int a[], int b)
{   int i; ll t=0;
    for(i=1;i<=a[0] || t; i++,t/=10)
        a[i]=(t+=(ll)a[i]*b)%10;
    a[0]=i-1;
}
void big_mul(int a[], int b[])
{   int i,j,c[MAX_LEN]; ll t;
    memset(c, 0, sizeof(c));
    for(i=1; i<=a[0]; i++)
    {   for(j=1,t=0; j<= b[0]||t; j++, t/=10)
            c[i+j-1]=(t+=c[i+j-1]+(ll)a[i]*b[j])%10;
        if(c[0]<i+j-2) c[0]=i+j-2;
    }
    memcpy(a,c,sizeof(c));
}
int pow(int a, int b, int mod)
{   int t;
    if(b==0) return 1;
    t=pow(a,b>>1,mod);
    t=((ll)t*t)%mod;
    if(b&1) t=((ll)t*a)%mod;
    return t;
}
int main(void)
{   int i,j,k,n,a,b,t[MAX_LEN];
    freopen(FIN,"r",stdin);
    freopen(FOUT,"w",stdout);
    scanf("%d\n",&N);
    for(i=0;i<N;i++) scanf("%s\n",var[i]);
    fgets(expr,sizeof(expr),stdin);
    for(i=0;i<MAX_PRIMES;i++)
    {   do n=1000000000+(rand()>>1); while(H[n] || !is_prime(n));
        H[n]=true; P[i]=n;
        for(j=0; j<N; j++) V[j]=mod_var(var[j],P[i]);
        p=0; MOD=P[i];
        R[i]=eval();
        add(R[i],pow(10,1000,MOD));
    }
    init(p1,P[0]); init(r1,R[0]);
    for(i=1; i<MAX_PRIMES; i++)
    {   init(p2,P[i]); init(r2,R[i]);
        a=big_mod(r2,P[i])-big_mod(r1,P[i]);
        while(a<0) a+=P[i];
        b=pow(big_mod(p1,P[i]),P[i]-2,P[i]);
        k=((ll)a*b)%P[i];
        if (k)
        {   memcpy(t,p1,sizeof(p1));
            big_mul(t,k); big_add(r1,t);
        }
        big_mul(p1,p2);
    }
    memset(t,0,sizeof(t));
    t[0]=1001; t[1001]=1;
    if(r1[0]<1001)
    {   big_sub(t,r1);
        memcpy(r1,t,sizeof(t));
        printf("-");
    } else big_sub(r1,t);
    for(i=r1[0];i;i--) printf("%d",r1[i]);
    printf("\n");
    return 0;
}