program ex(f1,f2);
 type
  zn=array [1..50000] of char;
 var
  a:zn; f1,f2:text; flag:boolean;
  i,j,m,n,k,p:longint;
 begin
  assign(f1,'palin.in'); reset(f1);
  assign(f2,'palin.out'); rewrite(f2);
  readln(f1,n);
  flag:=true;
  for i:=1 to n do
   begin
    read(f1,a[i]);
    if a[i]<>a[i-1] then flag:=false;
   end;
  if flag then writeln(f2,0)
               else writeln(f2,1);
   close(f1);
   close(f2);
 end.