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