#pragma GCC optimize("Ofast")
#pragma GCC target("avx2")

#define rd_init() char*rp=({char*mmap();mmap(0l,1l<<25,1,2,0,0ll);})
#define wt(v) ({ulong _z=v;do*--wp=_z%10+48;while(_z/=10);})
#define wt1(v) ({char wbuf[64],*wp=wbuf+sizeof wbuf;wt(v);write(1,wp,wbuf+sizeof wbuf-wp);})

typedef unsigned long ulong;

long a[26],b[26];

int main(){
	rd_init();
	long z=0;
	long y=0;
	for(int c;c=*rp++-'A',c>=0;){
		y+=a[c];
		b[c]+=a[c];
		z+=y-b[c];
		a[c]+=1;
	}
	wt1(z);
}