program pscpld;
var f,g:text;
        s:ansistring;


procedure iofile;
begin
        assign(f,'pscpld.in');
        reset(f);
        assign(g,'pscpld.out');
        rewrite(g);
        readln(f,s);
        close(f);
end;


procedure prel;
var i,nr,st,dr:longint;
begin
        nr:=length(s);
        for i:=2 to length(s)-1 do
                begin
                        st:=i-1;
                        dr:=i+1;
                        while (st>=1)and(dr<=length(s))and(s[st]=s[dr]) do
                                begin
                                        inc(nr);
                                        dec(st);
                                        inc(dr);
                                end;
                        if (i<length(s))and(s[i]=s[i+1]) then
                                begin
                                        st:=i-1;
                                        dr:=i+2;
                                        inc(nr);
                                        while (st>=1)and(dr<=length(s))and(s[st]=s[dr]) do
                                                begin
                                                        inc(nr);
                                                        dec(st);
                                                        inc(dr);
                                                end;
                                end;
                end;
        writeln(g,nr);
        close(g);
end;


begin
        iofile;
        prel;
end.