#pragma GCC optimize(2)
#pragma GCC optimize(3,"Ofast","inline")
#include<bits/stdc++.h>
#define ALL(x) (x).begin(),(x).end()
#define ll long long
#define db double
#define ull unsigned long long
#define pii_ pair<int,int>
#define mp_ make_pair
#define pb push_back
#define fi first
#define se second
#define rep(i,a,b) for(int i=(a);i<=(b);i++)
#define per(i,a,b) for(int i=(a);i>=(b);i--)
#define show1(a) cout<<#a<<" = "<<a<<endl
#define show2(a,b) cout<<#a<<" = "<<a<<"; "<<#b<<" = "<<b<<endl
using namespace std;
const ll INF = 1LL<<60;
const int inf = 1<<30;
const int maxn = 1e6+5;
const int M = 998244353;
inline void fastio() {ios::sync_with_stdio(false);cin.tie(0);cout.tie(0);}
ll qpow(ll a,ll b) {ll s=1;while(b){if(b&1)s=s*a%M;a=a*a%M;b>>=1;}return s;}
int rev[maxn];
ll A[maxn],B[maxn],C[maxn],T4[maxn],val[30],p[30];
char s[maxn],t[maxn];
void trans(ll a[],int lim,int type)
{
rep(i,1,lim-1) if(i<rev[i]) swap(a[i],a[rev[i]]);
for(int mid=1;mid<lim;mid<<=1){
ll wn = qpow(3,(M-1)/mid/2);
if(type==-1) wn = qpow(wn,M-2);
for(int R=mid<<1,j=0;j<lim;j+=R){
ll w = 1;
for(int k=0;k<mid;k++,w=w*wn%M){
ll x=a[j+k],y=w*a[j+mid+k]%M;
a[j+k] = (x+y)%M;
a[j+mid+k] = (x-y+M)%M;
}
}
}
if(type==-1){
ll inv = qpow(lim,M-2);
rep(i,0,lim) a[i] = a[i]*inv%M;
}
}
void add(ll &x,ll y)
{
x += y;
if(x>=M) x-=M;
}
bool check(int k)
{
rep(i,0,k) rep(j,i+1,k) if(val[i]==val[j]) return 0;
return 1;
}
int main()
{
fastio();srand(time(NULL));
rep(i,0,25){ //val[i] = i;
val[i] = rand()%M;
while(!check(i)) add(val[i],1);
}
rep(i,0,25) cin>>p[i],p[i]=val[p[i]-1];
cin>>s>>t;
int m = strlen(s),n = strlen(t);
rep(i,0,m-1) s[i] -= 'a';
rep(i,0,n-1) t[i] -= 'a';
reverse(s,s+m);
int lim = 1,l = 0;
while(lim <= n+m) lim<<=1,l++;
rep(i,1,lim-1) rev[i] = (rev[i>>1]>>1) | ((i&1)<<(l-1));
rep(i,0,m-1) A[i] = (-2LL*val[s[i]]*val[s[i]]%M*p[s[i]]%M - 2LL*val[s[i]]*p[s[i]]%M*p[s[i]]%M)%M;
rep(i,0,n-1) B[i] = val[t[i]];
trans(A,lim,1);trans(B,lim,1);
rep(i,0,lim) add(C[i],A[i]*B[i]%M);
memset(A,0,sizeof(A));memset(B,0,sizeof(B));
rep(i,0,m-1) A[i] = (1LL*val[s[i]]*val[s[i]]%M + 4LL*val[s[i]]*p[s[i]]%M + 1LL*p[s[i]]*p[s[i]]%M)%M;
rep(i,0,n-1) B[i] = val[t[i]] * val[t[i]] % M;
trans(A,lim,1);trans(B,lim,1);
rep(i,0,lim) add(C[i],A[i]*B[i]%M);
memset(A,0,sizeof(A));memset(B,0,sizeof(B));
rep(i,0,m-1) A[i] = (-2LL*val[s[i]] -2LL*p[s[i]])%M;
rep(i,0,n-1) B[i] = val[t[i]] * val[t[i]] %M * val[t[i]] %M;
trans(A,lim,1);trans(B,lim,1);
rep(i,0,lim) add(C[i],A[i]*B[i]%M);
trans(C,lim,-1);
rep(i,0,n-1){
if(i==0) T4[i] = val[t[i]]*val[t[i]]%M*val[t[i]]%M*val[t[i]]%M;
else T4[i] = (T4[i-1] + val[t[i]]*val[t[i]]%M*val[t[i]]%M*val[t[i]]%M)%M;
}
ll sps = 0;
rep(i,0,m-1){
add(sps,val[s[i]] * val[s[i]] %M *p[s[i]]%M *p[s[i]]%M);
}
rep(i,m-1,n-1){
ll res = (T4[i] - (i==m-1?0:T4[i-m]) + C[i] + sps)%M; //show1(res);
if(res==0) cout<<1;
else cout<<0;
}
return 0;
}