#define I{long p=0,q=0,r=1;for
#define J if(p=p*m+s[i],q+=r*s[i],r*=m,p==q)
#define K I(j=i;++i<l;)J
char s[5010];b[5010];long c;main(m,i,j,l){m|=time(0);I(i=l=strlen(gets(s));i--;b[i]+=b[i+1])J++b[i];}K K c+=b[i+2];i=j;}}c=!printf("%ld",c);}