#include <bits/stdc++.h>
using namespace std;
#define int long long int
#define double long double
inline int power(int a, int b) {
int x = 1;
while (b) {
if (b & 1) x *= a;
a *= a;
b >>= 1;
}
return x;
}
const int M = 1000000007;
const int N = 3e5+9;
const int INF = 2e9+1;
const int LINF = 2000000000000000001;
//_ ***************************** START Below *******************************
vector<int> a;
void consistency(string s) {
int n = s.size();
int l=0, lc=0, lct=0, ct = 0, c=0;
for(int i=0; i<n; i++){
if(s[i] == 'L') l++;
else if(s[i] == 'C'){
lc += l;
c++;
}
else if(s[i] == 'T'){
lct += lc;
ct += c;
}
}
int llct = lct + lc;
int lctt = lct + ct;
vector<int> prefixL(n+1, 0), suffixT(n+1, 0);
for(int i=0; i<n; i++){
prefixL[i+1] = prefixL[i];
if(s[i] == 'L') prefixL[i+1]++;
}
for(int i=n-1; i>=0; i--){
suffixT[i] = suffixT[i+1];
if(s[i] == 'T') suffixT[i]++;
}
int lcct = 0;
for(int i=1; i<n-1; i++){
lcct = max(lcct, prefixL[i] * suffixT[i]);
}
lcct += lct;
int ans = max(lct, lctt);
ans = max(ans, llct);
ans = max(ans, lcct);
cout << ans << endl;
}
void solve() {
string s;
cin >> s;
consistency(s) ;
}
int32_t main() {
ios_base::sync_with_stdio(0); cin.tie(0); cout.tie(0);
int t = 1;
while (t--) {
solve();
}
return 0;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgaW50ICAgICAgICAgICAgICBsb25nIGxvbmcgaW50CiNkZWZpbmUgZG91YmxlICAgICAgICAgICBsb25nIGRvdWJsZQppbmxpbmUgaW50IHBvd2VyKGludCBhLCBpbnQgYikgewogICAgaW50IHggPSAxOwogICAgd2hpbGUgKGIpIHsKICAgICAgICBpZiAoYiAmIDEpIHggKj0gYTsKICAgICAgICBhICo9IGE7CiAgICAgICAgYiA+Pj0gMTsKICAgIH0KICAgIHJldHVybiB4Owp9CgoKY29uc3QgaW50IE0gPSAxMDAwMDAwMDA3Owpjb25zdCBpbnQgTiA9IDNlNSs5Owpjb25zdCBpbnQgSU5GID0gMmU5KzE7CmNvbnN0IGludCBMSU5GID0gMjAwMDAwMDAwMDAwMDAwMDAwMTsKCi8vXyAqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiBTVEFSVCBCZWxvdyAqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqCgoKCnZlY3RvcjxpbnQ+IGE7CnZvaWQgY29uc2lzdGVuY3koc3RyaW5nIHMpIHsKCQoJaW50IG4gPSBzLnNpemUoKTsKCQoJaW50IGw9MCwgbGM9MCwgbGN0PTAsIGN0ID0gMCwgYz0wOwoJZm9yKGludCBpPTA7IGk8bjsgaSsrKXsKCQlpZihzW2ldID09ICdMJykgbCsrOwoJCWVsc2UgaWYoc1tpXSA9PSAnQycpewoJCQlsYyArPSBsOwoJCQljKys7CgkJfQoJCWVsc2UgaWYoc1tpXSA9PSAnVCcpewoJCQlsY3QgKz0gbGM7CgkJCWN0ICs9IGM7CgkJfQoJfQoJCglpbnQgbGxjdCA9IGxjdCArIGxjOwoJaW50IGxjdHQgPSBsY3QgKyBjdDsKCQoJdmVjdG9yPGludD4gcHJlZml4TChuKzEsIDApLCBzdWZmaXhUKG4rMSwgMCk7Cglmb3IoaW50IGk9MDsgaTxuOyBpKyspewoJCXByZWZpeExbaSsxXSA9IHByZWZpeExbaV07CgkJaWYoc1tpXSA9PSAnTCcpIHByZWZpeExbaSsxXSsrOwoJfQoJZm9yKGludCBpPW4tMTsgaT49MDsgaS0tKXsKCQlzdWZmaXhUW2ldID0gc3VmZml4VFtpKzFdOwoJCWlmKHNbaV0gPT0gJ1QnKSBzdWZmaXhUW2ldKys7Cgl9CgkKCWludCBsY2N0ID0gMDsKCWZvcihpbnQgaT0xOyBpPG4tMTsgaSsrKXsKCQlsY2N0ID0gbWF4KGxjY3QsIHByZWZpeExbaV0gKiBzdWZmaXhUW2ldKTsKCX0KCWxjY3QgKz0gbGN0OwoJCglpbnQgYW5zID0gbWF4KGxjdCwgbGN0dCk7CglhbnMgPSBtYXgoYW5zLCBsbGN0KTsKCWFucyA9IG1heChhbnMsIGxjY3QpOwoJCgljb3V0IDw8IGFucyA8PCBlbmRsOwoKfQoKdm9pZCBzb2x2ZSgpIHsKICAgIAoJc3RyaW5nIHM7CgljaW4gPj4gczsKICAgIGNvbnNpc3RlbmN5KHMpIDsKCn0KCgoKCgppbnQzMl90IG1haW4oKSB7CiAgICBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKDApOyBjaW4udGllKDApOyBjb3V0LnRpZSgwKTsKCiAgICBpbnQgdCA9IDE7CiAgICB3aGlsZSAodC0tKSB7CiAgICAgICAgc29sdmUoKTsKICAgIH0KCiAgICByZXR1cm4gMDsKfQ==