#include <bits/stdc++.h>
#define ll long long
#define fast ios_base::sync_with_stdio(false);cin.tie(nullptr);cout.tie(nullptr);
#define pii pair<int , int>
#define pli pair<ll , int>
#define pll pair<ll,ll>
#define pil pair<int,ll>
#define MASK(i) (1ll << i)
#define bit(mask , i) ((mask >> i) & 1)
#define debug cout << "NOBUG" << endl;
#define fi first
#define se second
#define i128 __int128
#define ldb long double
#define el "\n"
#define pb push_back
#define ALL(vec) vec.begin(),vec.end()
#define SORT_AND_UNIQUE(vec) sort(ALL(vec)); vec.erase(unique(ALL(vec)) , vec.end())
#define lb(vec , x) lower_bound(ALL(vec) , x)
using namespace std;
const ll oo = 0x3f3f3f3f;
const int mod = 1e9+7 , MOD = 102e6 + 100829;
void File(string NAME) {
freopen((NAME + ".inp").c_str() , "r" , stdin);
freopen((NAME + ".out").c_str() , "w" , stdout);
}
template <class X , class Y>
bool maximize(X &x , Y y) {
if(x < y) {
x = y;
return true;
}
return false;
}
template <class X , class Y>
bool minimize(X &x , Y y) {
if(x > y) {
x = y;
return true;
}
return false;
}
template <class X , class Y>
void add_mod(X &x , Y y , int mod) {
x += y;
if(x >= mod) x -= mod;
if(x < 0) x += mod;
}
const int N = 250+1;
int n;
string s;
int f[N] , nxt[N];
int g[N][2];
int main()
{
fast
//File("TASK");
cin >> s;
int n = s.size();
s = " "+s;
f[0] = 1;
int ans = 0;
for(int i = 1 ; i <= n ; i++) {
bool c = (s[i] == 'F');
for(int sum = 0; sum < i ; sum++) nxt[sum] = f[sum];
for(int sum = 0 ; sum < i ; sum++) {
if(sum+(c?1:-1) < 0) continue;
add_mod(nxt[sum+(c?1:-1)] , f[sum]-g[sum][c] , mod);
g[sum][c] = f[sum];
}
for(int sum = 0; sum <= i ; sum++) {
f[sum] = nxt[sum];
//cout << f[sum] <<' ';
}
//cout << el;
}
cout << (f[0]-1+mod)%mod << el;
return 0;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CiNkZWZpbmUgbGwgbG9uZyBsb25nCiNkZWZpbmUgZmFzdCBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKGZhbHNlKTtjaW4udGllKG51bGxwdHIpO2NvdXQudGllKG51bGxwdHIpOwojZGVmaW5lIHBpaSBwYWlyPGludCAsIGludD4KI2RlZmluZSBwbGkgcGFpcjxsbCAsIGludD4KI2RlZmluZSBwbGwgcGFpcjxsbCxsbD4KI2RlZmluZSBwaWwgcGFpcjxpbnQsbGw+CiNkZWZpbmUgTUFTSyhpKSAoMWxsIDw8IGkpCiNkZWZpbmUgYml0KG1hc2sgLCBpKSAoKG1hc2sgPj4gaSkgJiAxKQojZGVmaW5lIGRlYnVnIGNvdXQgPDwgIk5PQlVHIiA8PCBlbmRsOwojZGVmaW5lIGZpIGZpcnN0CiNkZWZpbmUgc2Ugc2Vjb25kCiNkZWZpbmUgaTEyOCBfX2ludDEyOAojZGVmaW5lIGxkYiBsb25nIGRvdWJsZQojZGVmaW5lIGVsICJcbiIKI2RlZmluZSBwYiBwdXNoX2JhY2sKI2RlZmluZSBBTEwodmVjKSB2ZWMuYmVnaW4oKSx2ZWMuZW5kKCkKI2RlZmluZSBTT1JUX0FORF9VTklRVUUodmVjKSBzb3J0KEFMTCh2ZWMpKTsgdmVjLmVyYXNlKHVuaXF1ZShBTEwodmVjKSkgLCB2ZWMuZW5kKCkpCiNkZWZpbmUgbGIodmVjICwgeCkgbG93ZXJfYm91bmQoQUxMKHZlYykgLCB4KQoKdXNpbmcgbmFtZXNwYWNlIHN0ZDsKY29uc3QgbGwgb28gPSAweDNmM2YzZjNmOwpjb25zdCBpbnQgbW9kID0gMWU5KzcgLCBNT0QgPSAxMDJlNiArIDEwMDgyOTsKCnZvaWQgRmlsZShzdHJpbmcgTkFNRSkgewogICAgZnJlb3BlbigoTkFNRSArICIuaW5wIikuY19zdHIoKSAsICJyIiAsIHN0ZGluKTsKICAgIGZyZW9wZW4oKE5BTUUgKyAiLm91dCIpLmNfc3RyKCkgLCAidyIgLCBzdGRvdXQpOwp9CnRlbXBsYXRlIDxjbGFzcyBYICwgY2xhc3MgWT4KICAgIGJvb2wgbWF4aW1pemUoWCAgJnggLCBZIHkpIHsKICAgICAgICBpZih4IDwgeSkgewogICAgICAgICAgICB4ID0geTsKICAgICAgICAgICAgcmV0dXJuIHRydWU7CiAgICAgICAgfQogICAgICAgIHJldHVybiBmYWxzZTsKICAgIH0KdGVtcGxhdGUgPGNsYXNzIFggLCBjbGFzcyBZPgogICAgYm9vbCBtaW5pbWl6ZShYICAmeCAsIFkgeSkgewogICAgICAgIGlmKHggPiB5KSB7CiAgICAgICAgICAgIHggPSB5OwogICAgICAgICAgICByZXR1cm4gdHJ1ZTsKICAgICAgICB9CiAgICAgICAgcmV0dXJuIGZhbHNlOwogICAgfQp0ZW1wbGF0ZSA8Y2xhc3MgWCAsIGNsYXNzIFk+CiAgICB2b2lkIGFkZF9tb2QoWCAmeCAsIFkgeSAsIGludCBtb2QpIHsKICAgICAgICB4ICs9IHk7CiAgICAgICAgaWYoeCA+PSBtb2QpIHggLT0gbW9kOwogICAgICAgIGlmKHggPCAwKSB4ICs9IG1vZDsKICAgIH0KCmNvbnN0IGludCBOID0gMjUwKzE7CmludCBuOwpzdHJpbmcgczsKaW50IGZbTl0gLCBueHRbTl07CmludCBnW05dWzJdOwoKCmludCBtYWluKCkKewogICAgZmFzdAogICAgLy9GaWxlKCJUQVNLIik7CiAgICBjaW4gPj4gczsKICAgIGludCBuID0gcy5zaXplKCk7CiAgICBzID0gIiAiK3M7CgogICAgZlswXSA9IDE7CgogICAgaW50IGFucyA9IDA7CgogICAgZm9yKGludCBpID0gMSA7IGkgPD0gbiA7IGkrKykgewogICAgICAgIGJvb2wgYyA9IChzW2ldID09ICdGJyk7CgogICAgICAgIGZvcihpbnQgc3VtID0gMDsgc3VtIDwgaSA7IHN1bSsrKSBueHRbc3VtXSA9IGZbc3VtXTsKCiAgICAgICAgZm9yKGludCBzdW0gPSAwIDsgc3VtIDwgaSA7IHN1bSsrKSB7CiAgICAgICAgICAgIGlmKHN1bSsoYz8xOi0xKSA8IDApIGNvbnRpbnVlOwoKICAgICAgICAgICAgYWRkX21vZChueHRbc3VtKyhjPzE6LTEpXSAsIGZbc3VtXS1nW3N1bV1bY10gLCBtb2QpOwogICAgICAgICAgICBnW3N1bV1bY10gPSBmW3N1bV07CiAgICAgICAgfQoKICAgICAgICBmb3IoaW50IHN1bSA9IDA7IHN1bSA8PSBpIDsgc3VtKyspIHsKICAgICAgICAgICAgZltzdW1dID0gbnh0W3N1bV07CiAgICAgICAgICAgIC8vY291dCA8PCBmW3N1bV0gPDwnICc7CiAgICAgICAgfQogICAgICAgIC8vY291dCA8PCBlbDsKICAgIH0KCiAgICBjb3V0IDw8IChmWzBdLTErbW9kKSVtb2QgPDwgZWw7CiAgICByZXR1cm4gMDsKfQo=