#include <bits/stdc++.h>

#define maxn 1000005
#define mod 998244353

using namespace std;

int n;
char s[maxn];
int a[3][maxn];

int f[maxn];
void $(int &x, int y) {
	if ((x += y) >= mod) x -= mod;
}

unordered_map<int, int> t[3][maxn << 1];
void add(unordered_map<int, int> t[], int x, int k, int f) {
//	cout<<"Add:"<<x<<" "<<k<<" "<<f<<endl;
	x += n;
	for (; x <= n * 2; x += x & -x) $(t[x][k], f);
}
int qry(unordered_map<int, int> t[], int x, int k) {
//	cout<<"Qry:"<<x<<" "<<k<<endl;
	x += n;
	int res = 0;
	for (; x; x -= x & -x) if (t[x].count(k)) $(res, t[x][k]);
	return res;
}

int main() {
	scanf("%s", s + 1);
	n = strlen(s + 1);
	f[0] = 1;
	add(t[0], 0, 0, 1);
	add(t[1], 0, 0, 1);
	add(t[2], 0, 0, 1);
	
	for (int i = 1; i <= n; i++) {
		a[0][i] = a[0][i - 1] + (s[i] == 'C');
		a[1][i] = a[1][i - 1] + (s[i] == 'I');
		a[2][i] = a[2][i - 1] + (s[i] == 'P');
		
//		cout<<a[0][i]<<" "<<a[1][i]<<" "<<a[2][i]<<endl;
		
		$(f[i], qry(t[0], a[0][i] - a[1][i] - 1, a[1][i] - a[2][i]));
		$(f[i], qry(t[1], a[1][i] - a[0][i] - 1, a[0][i] - a[2][i]));
		$(f[i], qry(t[2], a[2][i] - a[0][i] - 1, a[0][i] - a[1][i]));
		
		add(t[0], a[0][i] - a[1][i], a[1][i] - a[2][i], f[i]);
		add(t[1], a[1][i] - a[0][i], a[0][i] - a[2][i], f[i]);
		add(t[2], a[2][i] - a[0][i], a[0][i] - a[1][i], f[i]);
		
//		cout<<f[i]<<endl;
	}
	printf("%d\n", f[n]);
	return 0;
}