//#pragma GCC optimize("O3")
// 1200

#include <bits/stdc++.h>
#include <random>
using namespace std;
 
typedef long long ll;
typedef long double ld;
typedef pair<int,int> pi;
typedef vector<int> vi; 
typedef vector<pi> vpi;

#define mp make_pair
#define f first
#define s second
#define sz(x) (int)x.size()
#define all(x) begin(x), end(x)
#define rsz resize
#define bk back()
#define pb push_back

#define FOR(i,a,b) for (int i = (a); i < (b); ++i)
#define For(i,a) FOR(i,0,a)
#define ROF(i,a,b) for (int i = (b)-1; i >= (a); --i)
#define Rof(i,a) ROF(i,0,a)
#define trav(a,x) for (auto& a: x)

const int MOD = 1e9+7;
const ld PI = acos((ld)-1);
mt19937 rng; // or mt19937_64
template<class T> bool ckmin(T& a, const T& b) { 
	return b < a ? a = b, 1 : 0; }

void DBG() { cerr << "]" << endl; }
template<class H, class... T> void DBG(H h, T... t) {
	cerr << h; if (sizeof...(t)) cerr << ", ";
	DBG(t...); }
#ifdef LOCAL // compile with -DLOCAL
#define dbg(...) cerr << "LINE(" << __LINE__ << ") -> [" << #__VA_ARGS__ << "]: [", DBG(__VA_ARGS__)
#else
#define dbg(...) 0
#endif

#define vl vector<ll>

ll p=97;
vl hashstr(string S) {
	vl hsh(sz(S)+1);
	For(i,sz(S)) {
		hsh[i+1] = hsh[i]*p+(S[i]-'a')%MOD;
	}
	return hsh;
}
void solve() {
	string S;cin>>S;
	int n = sz(S);
	string S2 = S+S;
	vector<vl> hsh(2);
	hsh[0] = hashstr(S2);
	reverse(all(S2));
	hsh[1] = hashstr(S2);
	reverse(all(S2));
	vl pows(n+5);
	pows[0] = 1;
	FOR(i,1,n+3) pows[i] = pows[i-1]*p%MOD;

	map<ll, vpi> M;
	For(k,2) For(i,sz(S)) {
		ll tmp = hsh[k][n+i+1] - hsh[k][i];
		tmp = ((tmp%MOD)+MOD)%MOD;
		tmp = (tmp*pows[n-i])%MOD;
		M[tmp].pb({k,i});
	}

	vector<vl> gr(2, vl(n+1));
	int cnt = 0;
	trav(x,M) {
		trav(y,x.s) {
			gr[y.f][y.s] = cnt;
		}
		cnt++;
	}


	int K; cin>>K;
	vpi pre(K+1);
	For(i,K) {
		char c;cin>>c;
		if(c=='I') {
			pre[i+1] = {1^pre[i].f,-pre[i].s};
		} else if(c=='R') {
			int x;cin>>x;
			pre[i+1] = {pre[i].f,pre[i].s+x};
		} else {
			int x;cin>>x;
			pre[i+1] = {pre[i].f,pre[i].s-x};
		}
	}

	ll ans = 0;
	vi grCnt(cnt+5);
	grCnt[gr[0][0]]++;
	For(i,K) {
		int tmp = pre[i].s;
		tmp = (tmp%n+n)%n;
		int grId = gr[pre[i].f][tmp];
		ans += grCnt[grId];

		grCnt[grId]++;
	}
	cout << ans << endl;
}
int main() {
	ios_base::sync_with_stdio(0); cin.tie(0); 
	solve();
}


/* stuff you should look for
	* int overflow, array bounds
	* special cases (n=1?)
	* do smth instead of nothing and stay organized
	* WRITE STUFF DOWN
*/