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

#define getrp() ({char*mmap();mmap(0l,1l<<25,1,2,0,0ll);})
#define rd() ({long _v=0,_c;while(_c=*rp++-48,_c>=0)_v=_v*10+_c;_v;})
#define wt(v) ({ulong _z=v;do*--wp=_z%10+48;while(_z/=10);})

typedef unsigned long ulong;

long f1(){
	char*rp=getrp();
	long n=rd();
	rp+=n-1;
	double g2=0,g1=0,g0=0;
	double f2=0,f1=0,f0=1;
	double e=0;
	for(long c;c=*--rp,c!=10;){
		f2=f1+f0;f1=f0;
		g2=g1+g0;g1=g0;
		if(c=='#'){
			f0=0;
			g0=0;
		}else{
			e=(g2+3)/f2;
			f0=(f2+1)/3;
			g0=(g2+e)/3+1;
		}
	}
	return e*1e6;
}

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

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