#include <bits/stdc++.h>

 using namespace std;

 const int N=6e5+,base =;

 typedef unsigned long long ull;

 char str[N];

 ull hl[N],hr[N],p[N];

 int mark[N][];

 ull get(ull h[],int l,int r)

 {

     return h[r]-h[l-]*p[r-l+];

 }

 int k=;

 long long getval(int l,int r)

 {

     if(l==r&&str[r]=='z'+)

         return ;

     long long sum=;

     if(str[l]=='z'+)

         l++;

     for(int i=;i<=;++i)

     {

         int temp=(mark[r][i]-l+)/;

         if(temp<)

             continue;

         sum+=temp;

     }

     return sum;

 }

 int main()

 {

     cin>>(str+);

     int n=strlen(str+);

     for(int i=n*;i>;i-=)//重点i-=2 模拟kmp添加一个字符

     {

         str[i]=str[i/];

         str[i-]='z'+;

         //中间插一个不需要的数

     }

     n=*n;

     p[]=;

     for(int i=;i<=n;++i)

     {

         for(int j=;j<=;++j)

         {

             mark[i][j]=mark[i-][j];

             if(str[i]!='z'+)

                 mark[i][str[i]-'a'+]=i;

         }

     }

     for(int  i=,j=n;i<=n;i++,j--)

     {

         hl[i]=hl[i-]*base+str[i]-'a'+;//正序的哈希值 ->

         hr[i]=hr[i-]*base+str[j]-'a'+;//逆序的哈希值 -> 这个是必要的

         p[i]=p[i-]*base;

     }

     long long ans=;

     for(int i=;i<=n;i++)//枚举每一个字符作为中点

     {

         int l=,r=min(i-,n-i);

         while(l<r)

         {

             int mid=l+r+>>;//半径长度

             //if(get(hl,i-mid,i-1) != get(hl,i+1,i+mid) )

             //判读的确是左右区间的判断 但是 值却都是->方向的

             //所以这个就是必须要有逆序的原因

             if(get(hl,i-mid,i-) !=get(hr,n-(i+mid)+,n-(i+)+))

             {

                 //如果不符合 肯定是缩小半径

                 r=mid-;

             }

             else l=mid;

         }

         ans+=getval(i-l,i);

     }

     printf("%lld\n",ans);

     return ;

 }