char s[],a[1030][11];t,l,r,n;c(a,b){l=strcmp(a,b);}main(i){n=strlen(gets(s));for(;t++<1<<n;l=0)for(i=r=n;i--;a[t][i]=s[t&1<<i?l++:--r]);qsort(a,t,11,c);for(;t--;i+=!!strcmp(a[t+1],a[t]));t=!printf("%d",i);}