#include "bits/stdc++.h"
using namespace std;
typedef long long ll;
typedef long double ld;
typedef pair<int, int> pi;
typedef pair<ll, ll> pl;
typedef pair<ld, ld> pd;

typedef vector<int> vi;
typedef vector<ld> vd;
typedef vector<ll> vl;
typedef vector<pi> vpi;
typedef vector<pl> vpl;

#define FOR(i, a, b) for (int i = a; i < (b); i++)
#define F0R(i, a) for (int i = 0; i < (a); i++)
#define FORd(i, a, b) for (int i = (b) - 1; i >= (a); i--)
#define F0Rd(i, a) for (int i = (a) - 1; i >= 0; i--)
#define trav(a, x) for (auto &a : x)
#define sz(x) (int)(x).size()
#define pb push_back
#define f first
#define s second
#define lb lower_bound
#define ub upper_bound
#define all(x) x.begin(), x.end()
#define ins insert

const char nl = '\n';

void __print(int x) {cerr << x;}
void __print(long x) {cerr << x;}
void __print(long long x) {cerr << x;}
void __print(unsigned x) {cerr << x;}
void __print(unsigned long x) {cerr << x;}
void __print(unsigned long long x) {cerr << x;}
void __print(float x) {cerr << x;}
void __print(double x) {cerr << x;}
void __print(long double x) {cerr << x;}
void __print(char x) {cerr << '\'' << x << '\'';}
void __print(const char *x) {cerr << '\"' << x << '\"';}
void __print(const string &x) {cerr << '\"' << x << '\"';}
void __print(bool x) {cerr << (x ? "true" : "false");}

template<typename T, typename V>
void __print(const pair<T, V> &x);
template<typename T>
void __print(const T &x) {int f = 0; cerr << '{'; for (auto &i: x) cerr << (f++ ? ", " : ""), __print(i); cerr << "}";}
template<typename T, typename V>
void __print(const pair<T, V> &x) {cerr << '{'; __print(x.first); cerr << ", "; __print(x.second); cerr << '}';}
void _print() {cerr << "]\n";}
template <typename T, typename... V>
void _print(T t, V... v) {__print(t); if (sizeof...(v)) cerr << ", "; _print(v...);}
#ifdef DEBUG
#define dbg(x...) cerr << "\e[91m"<<__func__<<":"<<__LINE__<<" [" << #x << "] = ["; _print(x); cerr << "\e[39m" << endl;
#else
#define dbg(x...)
#endif

using cd = complex<double>;
const double PI = acos(-1);

#define uid(a, b) uniform_int_distribution<int>(a, b)(rng)

mt19937 rng(1259);

typedef complex<double> C;
void fft(vector<C>& a) {
	int n = sz(a), L = 31 - __builtin_clz(n);
	static vector<complex<long double>> R(2, 1);
	static vector<C> rt(2, 1);  // (^ 10% faster if double)
	for (static int k = 2; k < n; k *= 2) {
		R.resize(n); rt.resize(n);
		auto x = polar(1.0L, acos(-1.0L) / k);
		FOR(i,k,2*k) rt[i] = R[i] = i&1 ? R[i/2] * x : R[i/2];
	}
	vi rev(n);
	FOR(i,0,n) rev[i] = (rev[i / 2] | (i & 1) << L) / 2;
	FOR(i,0,n) if (i < rev[i]) swap(a[i], a[rev[i]]);
	for (int k = 1; k < n; k *= 2)
		for (int i = 0; i < n; i += 2 * k) FOR(j,0,k) {
			// C z = rt[j+k] * a[i+j+k]; // (25% faster if hand-rolled)  /// include-line
			auto x = (double *)&rt[j+k], y = (double *)&a[i+j+k];        /// exclude-line
			C z(x[0]*y[0] - x[1]*y[1], x[0]*y[1] + x[1]*y[0]);           /// exclude-line
			a[i + j + k] = a[i + j] - z;
			a[i + j] += z;
		}
}
vd conv(const vd& a, const vd& b) {
	if (a.empty() || b.empty()) return {};
	vd res(sz(a) + sz(b) - 1);
	int L = 32 - __builtin_clz(sz(res)), n = 1 << L;
	vector<C> in(n), out(n);
	copy(all(a), begin(in));

	FOR(i,0,sz(b)) in[i].imag(b[i]);
	fft(in);
	for (C& x : in) x *= x;
	FOR(i,0,n) out[i] = in[-i & (n - 1)] - conj(in[i]);
	fft(out);
	FOR(i,0,sz(res)) res[i] = imag(out[i]) / (4 * n);
	return res;
}

vl multiply(const vl& a, const vl &b) {
    vd x(sz(a)), y(sz(b));
    F0R(i, sz(a)) {
        x[i] = a[i];
    }
    F0R(i, sz(b)) {
        y[i] = b[i];
    }
    vd res = conv(x, y);
    vl ans;
    F0R(i, sz(res)) ans.pb(res[i]+0.5);
    return ans;
}

const int MX = 1000010;

ll base1[MX], base2[MX];
int base;
const int MOD = 1000000007;

const ll p1 = MOD;
const ll p2 = MOD+2;

// If you don't need to query arbitrary ranges,
// only maintain val1 and val2 to save space.
// get() = val1 * p2 + val2
struct hsh {
    ll val1, val2;
    vl val1s, val2s;
    vl nums;
    hsh() {
        val1 = 0;
        val2 = 0;
        val1s.pb(0);
        val2s.pb(0);
    }

    void push_back(ll v) {
        v++;
        val1 *= base; val1 += v; val1 %= p1;
        val2 *= base; val2 += v; val2 %= p2;

        val1s.pb(val1);
        val2s.pb(val2);
        nums.pb(v);
    }

    ll get(int L, int R) {
        ll A = (val1s[R+1] - (val1s[L] * base1[R-L+1]) % p1 + p1) % p1;
        ll B = (val2s[R+1] - (val2s[L] * base2[R-L+1]) % p2 + p2) % p2;
        return A*p2+B;
    }
};

void prepHash() {
    base = uid(MOD/5, MOD/2);

    base1[0] = 1; base2[0] = 1;
    FOR(i, 1, MX) {
        base1[i] = (base1[i-1] * base) % p1;
        base2[i] = (base2[i-1] * base) % p2;
    }
}



void solve() {
    prepHash();

    string S; cin >> S;
    int N = sz(S);
    hsh H;
    F0R(iter, 2) {
        trav(a, S) {
            H.pb(a-'a');
        }
    }
    hsh Hr;
    F0R(iter, 2) {
        F0Rd(i, sz(S)) {
            Hr.pb(S[i]-'a');
        }
    }

    bool ok[2][N];
    F0R(i, N) {
        ok[0][i] = H.get(i, i+N-1) == H.get(0, N-1);
        ok[1][i] = Hr.get(i, i+N-1) == H.get(0, N-1);
    }

    int K; cin >> K;
    vl sums(N), negSums(N), revSums(N), negRevSums(N);
    bool fl = false;
    int cur = 0;
    sums[0]++; negSums[0]++;
    F0R(i, K) {
        char C; cin >> C;
        if (C != 'I') {
            int X; cin >> X;
            if (C == 'R') X = N-X;
            cur += X; cur %= N;
        } else { 
            fl = !fl;
            cur = (N-cur)%N;
        }
        if (fl) {
            revSums[cur]++;
            negRevSums[(N-cur)%N]++;
        } else {
            sums[cur]++;
            negSums[(N-cur)%N]++;
        }
    }


    vl poly1 = multiply(negSums, sums);
    //dbg(sums, negSums, revSums, negRevSums);
    ll ans = 0;
    F0R(i, sz(poly1)) {
        if (ok[0][i%N]) ans += poly1[i];
    }
    //dbg(ans);
    vl poly2 = multiply(revSums, sums);
    F0R(i, sz(poly2)) {
        if (ok[1][i%N]) ans += poly2[i] * 2;
    }
    //dbg(ans);
    vl poly3 = multiply(revSums, negRevSums);
    F0R(i, sz(poly3)) {
        if (ok[0][i%N]) ans +=  poly3[i];
    }
    //dbg(ans);
    ans -= K+1;
    ans /= 2;
    cout << ans << nl;

}

int main() {
	ios_base::sync_with_stdio(0); cin.tie(0);
	solve();
	return 0;
}