char s[3d5];
ll n,t[2d5],u[2d5],v[2d5],h[128];

ll nib(ll a,ll b){
	ll c=min(a,n-1-b)+1;
	ll d=0;
	while(d<c-1){
		ll e=(c+d)/2;
		if(t[a-e]-u[b+e]==(t[a]-u[b])*v[e]){
			d=e;
		}else{
			c=e;
		}
	}
	return d;
}

{
	rd(s);
	n=strlen(s);
	{
		Rand r;
		h[0..127]=r.get();

		ll d;
		d=0; t[n-(1..n)]=d=d*3+h[s[n-(1..)]];
		d=0; u[0..n-1]=d=d*3+h[s[0..]];
		d=1; (v[0..n-1]=d, d*=3);
	}
	{
		ll r=0;
		rep(i,n*2-1){
			ll a,b,d;
			d=nib(a=(i+1)/2,b=i/2);
			if(a-d>0)   r>?=b+1-a+(d+nib(a-d-1,b+d))*2;
			if(b+d<n-1) r>?=b+1-a+(d+nib(a-d,b+d+1))*2;
		}
		wt(r);
	}
}