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

char*mmap();

char wbuf[1100000];

#define RD(v) int v=0;{int c;while(c=*r++-48,c>=0)v=v*10+c;}

#define m 1000000007

int f[2000000],v[1000001];

main(){
	f[0]=1;
	for(int i=1;i<2000000;++i){
		f[i]=(long)f[i-1]*i%m;
	}
	v[1000000]=397802501;
	for(int i=1000000;i;--i){
		v[i-1]=(long)v[i]*i%m;
	}

	char*r=mmap(0l,2l*1024*1024,1,2,0,0l);
	char*w=wbuf;
	while(*r++>=48);
	int c;
	while(c=*r){
		r+=2;
		RD(n);RD(k);
		r+=1;
		int z;
		if(c=='C'){
			z=n<k?0:(int)((long)f[n]*v[k]%m*v[n-k]%m);
		}
		if(c=='P'){
			z=n<k?0:(int)((long)f[n]*v[n-k]%m);
		}
		if(c=='H'){
			z=n==0?k==0:(int)((long)f[n+k-1]*v[k]%m*v[n-1]%m);
		}
		w+=11;
		*--w=10;
		*--w=0x30|z%10; z/=10;
		*--w=z?0x30|z%10:0x20; z/=10;
		*--w=z?0x30|z%10:0x20; z/=10;
		*--w=z?0x30|z%10:0x20; z/=10;
		*--w=z?0x30|z%10:0x20; z/=10;
		*--w=z?0x30|z%10:0x20; z/=10;
		*--w=z?0x30|z%10:0x20; z/=10;
		*--w=z?0x30|z%10:0x20; z/=10;
		*--w=z?0x30|z%10:0x20; z/=10;
		*--w=z?0x30|z%10:0x20; z/=10;
		w+=11;
	}
	write(1,wbuf,w-wbuf);
	_exit(0);
}