#pragma GCC optimize("Ofast")
#pragma GCC target("avx2")

#define rd_skip_line() while(*rp++!=10)
#define wt(v) {ulong _z=v;do*--wp=_z%10+48;while(_z/=10);}
#define rep(v,e) for(long v=0;v<e;++v)
#define rrep(v,e) for(long v=e;v--;)
#define MD 998244353

typedef unsigned long ulong;

ulong a[3000];

ulong f1(){
	char*mmap();
	char*rp=mmap(0l,1l<<25,1,2,0,0ll);
	rd_skip_line();
	long n=1;
	a[0]=1;
	for(long c;c=*rp++,c>=40;){
		if(c&1){
			rep(i,n){
				ulong x=a[i]+a[i+1];
				a[i]=x-(x<MD?0:MD);
			}
			a[--n]=0;
		}else{
			rrep(i,n){
				ulong x=a[i]+a[i+1];
				a[i+1]=x-(x<MD?0:MD);
			}
			++n;
		}
	}
	return a[0];
}

void f2(ulong z){
	char wbuf[64],*wp=wbuf+sizeof wbuf;
	wt(z);
	write(1,wp,wbuf+sizeof wbuf-wp);
}

int main(){
	f2(f1());
	_exit(0);
}