#include <bits/stdc++.h>

/*
	Oce nas,
	koji si na nebesima,
	da se sveti ime Tvoje,
	da dodje carstvo Tvoje,
	da bude volja Tvoja,
	i na zemlji, kao i na nebu.
	
	Hleb nas nasusni daj nam danas,
	i oprosti nam dugove nase,
	kao sto i mi oprastamo duznicima svojim,
	i ne uvedi nas u iskusenje,
	no izbavi nas od zloga.
	
	Jer je Tvoje Carstvo,
	i sila, i slava,
	u vekove vekova.
	
	Amin.
*/

using namespace std;
typedef vector<int> vc;
typedef vector<vector<int>> vvc;
using ll = long long;
using ld = long double;
#define yes cout << "YES\n"
#define no cout << "NO\n"
#define F first
#define S second
#define pb push_back
#define pf push_front
#define all(x) (x).begin(), (x).end()
#define int long long

const int mod = 998244353;

struct Fenwick{
	int sz;
	vector<int> f;
	void Build(int n){
		f.resize(n+5);
		sz=n+5;
	}
	int Get(int l){
		int ret=0;
		for(int i=l; i>0; i-=i&-i){
			ret+=f[i];	
		}
		return ret%mod;
	}
	void Update(int ind, int val){
		for(int i=ind; i<sz; i+=i&-i){
			f[i]+=val;
			f[i]%=mod;
		}
	}
};

struct slovo{
	int index, grupa, cnt; 
};

const int N = 1e6+3;

bool cmp(slovo A, slovo B){
	if(A.grupa==B.grupa)return A.cnt<B.cnt;
	return A.grupa<B.grupa;
}

bool cmp2(slovo A, slovo B){
	return A.index<B.index;
}

vector<Fenwick> A[3];
slovo a[3][N];
int pa[N], pb[N], pc[N], dp[N];
vector<set<pair<int, int>>> grupe[3];
map<int, int> compress;
map<int, int> comp[3];
vector<int> indcomp;

void solve(){
	string s;
	cin >> s;
	int n=s.size();
	for(int i=0; i< n; i++){
		pa[i+1]=pa[i];
		pb[i+1]=pb[i];
		pc[i+1]=pc[i];
		if(s[i]=='I')pa[i+1]++;
		if(s[i]=='C')pb[i+1]++;
		if(s[i]=='P')pc[i+1]++;
	}
	for(int i=0; i<=n; i++){
		a[0][i]={i, pb[i]-pc[i], 3*pa[i]-i};
		a[1][i]={i, pa[i]-pc[i], 3*pb[i]-i};
		a[2][i]={i, pa[i]-pb[i], 3*pc[i]-i};
	}
	for(int i=0; i< 3; i++)sort(a[i], a[i]+n+1, cmp);
	for(int i=0; i< 3; i++){	
		set<pair<int, int>> grupa;
		int ind=0;
		int f=a[i][0].grupa;
		compress[f]=ind++;
		grupa.insert({a[i][0].cnt, a[i][0].index});
		for(int j=1; j<=n; j++){
			if(a[i][j].grupa!=f){
				grupe[i].pb(grupa);
				grupa.clear();
				f=a[i][j].grupa;
				compress[f]=ind++;
			}
			grupa.insert({a[i][j].cnt, a[i][j].index});
		}
		grupe[i].pb(grupa);
		for(int j=0; j<=n; j++){
			a[i][j].grupa=compress[a[i][j].grupa];
		}
		compress.clear();
	}
	for(int i=0; i< 3; i++)sort(a[i], a[i]+n+1, cmp2);
	for(int i=0; i< 3; i++){
		for(auto & grupa : grupe[i]){
			for(auto p : grupa){
				indcomp.pb(p.S);	
			}
			int ind=1;
			for(auto p : indcomp){
				comp[i][p]=ind++;
			}
			vector<pair<int, int>> compressed;
			for(auto p : grupa)compressed.pb(p);
			for(auto & p : compressed)p.S=comp[i][p.S];
			grupa.clear();
			for(auto p : compressed)grupa.insert(p);
			indcomp.clear();
			A[i].pb({0, {}});
			A[i].back().Build(grupa.size());
		}
	}
	dp[0]=1;
	for(int i=1; i<=n; i++){
		A[0][a[0][i-1].grupa].Update(comp[0][i-1], dp[i-1]);
		A[1][a[1][i-1].grupa].Update(comp[1][i-1], dp[i-1]);
		A[2][a[2][i-1].grupa].Update(comp[2][i-1], dp[i-1]);
		int grupa1=a[0][i].grupa;
		int grupa2=a[1][i].grupa;
		int grupa3=a[2][i].grupa;
 		int gta, gtb, gtc, r1, r2, r3;
		auto ptr1 = grupe[0][grupa1].lower_bound({3*pa[i]-i, -1});
		auto ptr2 = grupe[1][grupa2].lower_bound({3*pb[i]-i, -1});
		auto ptr3 = grupe[2][grupa3].lower_bound({3*pc[i]-i, -1});
		if(ptr1==grupe[0][grupa1].begin())r1=0;
		else{
			ptr1--; 
			r1=(*ptr1).S;
		}
		if(ptr2==grupe[1][grupa2].begin())r2=0;
		else{
			ptr2--; 
			r2=(*ptr2).S;
		}
		if(ptr3==grupe[2][grupa3].begin())r3=0;
		else{
			ptr3--; 
			r3=(*ptr3).S;
		}
		gta=A[0][grupa1].Get(r1);
		gtb=A[1][grupa2].Get(r2);
		gtc=A[2][grupa3].Get(r3);
		dp[i]=gta+gtb+gtc;
		dp[i]%=mod;
	}
	cout << dp[n]%mod << '\n';
}

signed main(){
	ios_base::sync_with_stdio(false);
	cin.tie(0);
	solve();
}