#pragma GCC optimize(2)
#include<bits/stdc++.h>
using namespace std;
string a;
long long S,T,ans;
int main()
{
	cin>>a;
	ans=a.size();
	for(int s=0;s<a.size();s++)
	{
		if(a[s]=='S')S++;
		else T++;
		while(T>0&&S>0)
		{
			ans-=2;
			T--,S--;
		}
		T=0;
	}
	cout<<ans<<endl;
}