#include<bits/stdc++.h>
#define N 7500
using namespace std;
int n,p[N+5],cnt[N*2+5],ps1,ss1,x;
long long ps2,ss2;
char s[N+5];
long long ans;
inline void add() {ss1-=cnt[x],ss2-=ss1;ps2+=ps1,ps1+=cnt[++x];}
inline void sub() {ps1-=cnt[x],ps2-=ps1;ss2+=ss1,ss1+=cnt[--x];}
int main()
{
	scanf("%s",s+1);
	for(int i=1;s[i];++i) if(s[i]=='G') p[++n]=i;
	p[0]=0,p[n+1]=strlen(s+1)+1;
	for(int i=1;i<=n;++i) for(int j=i;j<=min(i+1,n);++j)
	{
		memset(cnt,0,sizeof cnt),x=p[i]+p[j],ps1=ss1=0,ps2=ss2=0;
		for(int k=0;i-k && j+k<=n;++k)
		{
			int l1=p[i-k],l2=p[i-k-1],r1=p[j+k],r2=p[j+k+1];
			if(l1!=r1) ++cnt[l1+r1],++ps1,++ss1;
			for(int l=l1;l>l2;--l,sub())
			{
				for(int r=r1;r<r2;++r,add())
					if(i==j) ans+=(r-l)&1?-1:ps2+ss2+abs(p[i]-x/2);
					else ans+=ps2+ss2;
				if(l!=l2+1) for(int r=r2;r>r1;--r,sub());
			}
		}
	}
	printf("%lld\n",ans);
	return 0;
}