program bai_giai;
var f,g:text;
    s,P,Q,st1:string;
    i,d,j:byte;
function ktdx(st:string):boolean;
var k:byte;
    str:string;
begin
    str:='';
    for k:=length(st) downto 1 do str:=str+st[k];
    if st=str then exit(true) else exit(false);
end;
BEGIN
    Assign(f,'XKT.INP');  reset(f);
    Assign(g,'XKT.OUT');  rewrite(g);
    readln(f,s);
    d:=0;  P:='';
    for i:=1 to length(s)-1 do
        begin
            P:=s[i]+P;  Q:='';
            for j:=length(s) downto i+1 do
                Q:=Q+s[j];
            st1:=P+Q;
            if ktdx(st1) then
                begin
                    d:=i; break;
                end;
        end;
    write(g,d);
    close(f); close(g);
END.

var s,p,q:string;
    i:byte;
    f1,f2:text;
const fi = 'XKT.INP';
      fo = 'XKT.OUT';
function dx(s:string):boolean;
var i:byte;
begin
    for i:=1 to length(s) div 2 do
        if s[i] <> s[length(s)-i+1] then
            exit(false);
    exit(true);
end;
begin
    assign(f1,fi);reset(f1);
    assign(f2,fo);rewrite(f2);
    readln(f1,s);
    for i:=1 to length(s) do
        begin
            p:=copy(s,1,i);
            q:=s;
            delete(q,1,i);
            if dx(q+p) then
                begin
                    writeln(f2,i);
                    close(f1);close(f2);
                    exit;
                end;
        end;
    writeln(f2,0);
    close(f1);close(f2);
end.