Program zadacha(D);
Var  f1,f2:text ; t,m :array [1..10000000] of integer;  k,n,i,b,q:integer;
Begin
assign (f1,'count.in');
assign (f2,'count.out');
reset (f1);
rewrite(f2);
read(f1,a,n,m );
for i:=1 to (m>0) do
begin
t[i]:=m  mod 10;
m:=m div 10;
end;
i:=1;
q:=2;
for n:=1 to i  do
for
if t[i]=t[q] then
q:=q+1;
writeln (f2,' ');
close(f2);
close(f1);
end.