#include <bits/stdc++.h>
#pragma GCC optimize("O3")
using namespace std;
const long long llnrm = LLONG_MAX;
const int nrm = INT_MAX;
const int nrn = INT_MIN;
const int nmax = 1e5 + 5;
const int mod = 1e9 + 7;
const long long llim = 1e18;
const int lim = 1e8;
int ans, a[101];
string s;
int main() {
  ios_base::sync_with_stdio(false);
  cin.tie(0);
  cerr.tie(0);
  cout.tie(0);
  cin >> s;
  for (int i = 0; i < s.size() - 1; i++) {
    if (s[i] == 'S' && s[i + 1] == 'T') {
      s.erase(s.begin() + i, s.begin() + i + 2);
      i -= 2;
    }
  }
  if (s.size() == 2 && s[0] == 'S' && s[1] == 'T')
    cout << 0 << endl;
  else
    cout << s.size() << endl;
  return 0;
}
