long f[1<<20];P=1e9+7;i,c,r;p(long a,int i){r=i?p(a*a%P,i/2)*(i%2?a:1)%P:1;}main(n){for(gets(f),*f=n;r++<1e6;f[r]=f[r-1]*r%P);for(;i=~scanf(" %c(%d,%d)",&c,&n,&r);printf("%d\n",n<r?0:f[n]*p(f[n-r]*(c%5?f[r]:1),P-2)%P))c&8&&(n+=r)&&n--;}