program Project2;

{$APPTYPE CONSOLE}
uses
 SysUtils;

var s1,s2:string;
   p:boolean;
   i,k:integer;
begin
readln(s1);

p:=false;k:=0;
while not(p) do begin
k:=k+1;
s2:=copy(s1,1,k);
i:=1;p:=true;
while (i<=length(s1))and p do
begin
if (copy(s1,i,k)<>s2)and (i<=length(s1)-k+1) then p:=false;
if (i>length(s1)-k+1)and(copy(s1,i,k)<>copy(s2,1,length(copy(s1,i,k)))) then p:=false;
//writeln(copy(s1,i,k), ' --- ',copy(s2,1,length(copy(s1,i,k))),' ',i);readln;
i:=i+k;
end;

//writeln(s2,' ',k);readln;
end;

writeln(k);
//readln;

end.