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.
