#pragma comment(linker,"/STACK:1024000000,1024000000")

#include <cstdio>

#include <cstring>

#include <string>

#include <cmath>

#include <limits.h>

#include <iostream>

#include <algorithm>

#include <queue>

#include <cstdlib>

#include <stack>

#include <vector>

#include <set>

#include <map>

#define LL long long

#define mod 1000000007

#define inf 0x3f3f3f3f

#define eps 1e-6

#define N 1000010

#define lson l,m,rt<<1

#define rson m+1,r,rt<<1|1

#define PII pair<int,int>

using namespace std;

inline LL read()

{

    char ch=getchar();LL x=,f=;

    while(ch>''||ch<''){if(ch=='-')f=-;ch=getchar();}

    while(ch<=''&&ch>=''){x=x*+ch-'';ch=getchar();}

    return x*f;

}

int p[N<<],len,num,mx,id;

char s[N],str[N<<];

void build()

{

    len=strlen(s);num=;

    str[num++]='@';str[num++]='#';

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

    {

        str[num++]=s[i];

        str[num++]='#';

    }

    str[num]=;

}

void manacher()

{

    mx=;

    memset(p,,sizeof(p));

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

    {

        if(mx>i)p[i]=min(p[*id-i],mx-i);

        else p[i]=;

        while(str[i-p[i]]==str[i+p[i]])p[i]++;

        if(p[i]+i>mx)mx=p[i]+i,id=i;

    }

}

int a[N<<],sum[N<<][];

void solve()

{

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

    {

        a[i]=a[i-];//前缀和

        if(str[i]!='#')a[i]=(a[i]+str[i]-'')%;

        for(int j=;j<;j++)sum[i][j]=sum[i-][j];

        if(str[i]!='#'&&str[i]!='')

        sum[i][a[i]]++;

    }

    LL ans=;

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

    {

        int t=(str[i]-'')%;

        if(str[i]=='#')t=;

        if(str[i]!='#'&&t==)ans++;

        int k=(t+a[i])%;//由于sum[i+p[i]-1][k]~sum[i][k]都多了a[i]，因此补回来防止误差

        ans+=sum[i+p[i]-][k]-sum[i][k];

    }

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

}

int main()

{

    while(scanf("%s",s)>)

    {

        build();

        manacher();

        solve();

    }

}