#include<cstdio>
#include<cstring>
#include<cmath>
using namespace std;
const int o=1e5;
int n,st[o],tp,b1[o],b2[o],s1,s2;long long ans;char s[o];
inline void clear(){
	s1=s2=0;
	for(int i=1;i<=n*2;++i) b1[i]=b2[i]=0;
}
inline int lowbit(int x){return x&-x;}
inline void modify(int pos,int v1,int v2){s1+=v1;s2+=v2;for(;pos<=n*2;pos+=lowbit(pos)) b1[pos]+=v1,b2[pos]+=v2;}
inline int query(int pos){
	int res1=0,res2=0,t=pos;
	for(;pos;pos-=lowbit(pos)) res1+=b1[pos],res2+=b2[pos];
	return res1*t-res2+s2-res2-(s1-res1)*t;
}
int main(){
	scanf("%s",s+1);n=strlen(s+1);
	for(int i=1;i<=n;++i) if(s[i]=='G') st[++tp]=i;
	st[tp+1]=n+1;
	for(int i=1;i<=tp;++i){
		clear();
		for(int L=i,R=i;L&&R<=tp;--L,++R){
			if(L<R) modify(st[L]+st[R],1,st[L]+st[R]);
			for(int l=st[L];l>st[L-1];--l) for(int r=st[R];r<st[R+1];++r)
				if((r-l+1)&1) ans+=query(l+r)+abs((l+r)/2-st[i]);else --ans;
		}
	}
	for(int i=1;i<tp;++i){
		clear();
		for(int L=i,R=i+1;L&&R<=tp;--L,++R){
			modify(st[L]+st[R],1,st[L]+st[R]);
			for(int l=st[L];l>st[L-1];--l) for(int r=st[R];r<st[R+1];++r) ans+=query(l+r);
		}
	}
	printf("%lld",ans);
	return 0;
}