var
  d1,d2 : longint;
  c1 : char;
  s1 : string;
begin
  readln(s1);
  readln(d1);
  s1[d1]:=c1;
  d2:=pos(c1,s1);
  s1[d2]:='_';
  d2:=pos(c1,s1);
  writeln(d2);
end.