program pscpld;
var f,g:text;
    n,j,i:longint;
    sum:qword;
    a:array[1..1000000] of char;
begin
 assign(f,'pscpld.in'); reset(f);
 assign(g,'pscpld.out'); rewrite(g);
 n:=0;
 while not(eoln(f)) do begin inc(n); read(f,a[n]); end;
 sum:=0;
 for i:=1 to n do begin
   j:=0;
   while (a[i-j]=a[i+j]) and (i>=j) and ((i+j)<=n) do begin
      inc(j); inc(sum);
   end;
   j:=0;
   while (a[i-j]=a[i+j+1]) and (i>=j) and (i+j<n) do begin
      inc(j); inc(sum);
   end;
 end;
 writeln(g,sum);
 close(f); close(g);
end.