program texte_stringoase;
var f,g:text;
    a,b:array[1..1000] of char;
    n,i:integer;
begin
assign(f,'asterix.in');reset(f);
assign(g,'asterix.and');rewrite(g);
readln(f,n);
for i:=1 to n do
    read(f,a[i]);
ok:=0;
i:=1;
{WHILE i<=n do
      begin
       if n mod i=0 then
          while a[i+1]=a[i-(i-1)] do begin
                                    nr:=nr+1;
                                    i:=i+1;
                                    ok:=2;
                                    end;
       if (n mod i=0) and (a[i+1]<>a[i-(i-1)]) then ok:=1;
       if ok=1 then break;
       if ok=2 then k:=n;
       if ok=2 then break;
       i:=i+1;
       end;
}

end.