program olymp;
var
  s1,s2,s3 : string;
  e1,e2,e3 : char;
  p1,p2,p3,p4 : longint;

begin
  readln(s1);
  readln(e1);
  s2:=s1;
  s3:=s2;
  p1:=pos(e1,s1);
  delete(s1,p1,1);
  p4:=pos(e1,s1);
  delete(s1,p4,1);
  p3:=pos(e1,s1);
  writeln(p3);
end.