#include <bits/stdc++.h>
using namespace std;
#define pb push_back
#define ll long long

const int mod=1e9+7;
int add(int x,int y){x+=y;return x>=mod?x-mod:x;}
int sub(int x,int y){x-=y;return x<0?x+mod:x;}
int mul(int x,int y){return (ll)x*y%mod;}
void ckadd(int&x,int y){x=add(x,y);}

char rot(char c,int k){
	for(int i=1;i<=k;i++){
		if(c=='A')c='D';
		else if(c=='B')c='A';
		else if(c=='C')c='B';
		else c='C';
	}
	return c;
}

const int M=550;
const int N=2050;
int dpAll[2][M],dpPart[M][2][5];
int dp[N][M];
char s[N];
int main(){
	scanf("%s",s+1);
	int n=strlen(s+1);
	vector<char> stk;
	int m=0;
	for(int i=1;i<=n;i++){
		char c=rot(s[i],i%4);
		stk.pb(c);
		int sz=stk.size();
		if(sz>=4 && stk[sz-4]==stk[sz-3] && stk[sz-3]==stk[sz-2] && stk[sz-2]==stk[sz-1]){
			stk.pop_back();
			stk.pop_back();
			stk.pop_back();
			stk.pop_back();
			m++;
		}
	}

	dpPart[1][0][0]=1;
	dpPart[1][1][0]=1;
	for(int i=1;i<=m;i++){
		for(int t=0;t<2;t++){
			for(int j=1;j<=4;j++){
				dpPart[i][t][j]=dpPart[i][t][j-1];
				for(int k=1;k<i;k++){
					ckadd(dpPart[i][t][j],mul(dpPart[i-k][t][j-1],mul((j==4&&t==1)?4:3,dpAll[(j==4&&t==1)?1:0][k])));
				}
			}
		}
		dpAll[0][i]=dpPart[i][0][4];
		dpAll[1][i]=dpPart[i][1][4];
	}
	dp[0][0]=1;
	for(int i=1;i<=m;i++){
		dp[0][i]=mul(4,dpAll[1][i]);
	}
	n=stk.size();
	for(int i=1;i<=n;i++){
		for(int j=0;j<=m;j++){
			dp[i][j]=dp[i-1][j];
			for(int k=1;k<=j;k++){
				ckadd(dp[i][j],mul(dp[i-1][j-k],mul(3,dpAll[0][k])));
			}
		}
	}
	printf("%i\n",dp[n][m]);
	//printf("%i %i\n",n,m);
	return 0;
}