{PROGRAMA.: motifs.pas                                        }
{ALUNO....: Gustavo Sverzut Barbieri               RA: 008849 }
{LAB......: 03                                                }
{PROFESSOR: Arnaldo                                           }
program motifs;

var
   motif    : array[1..5] of char; {recebe os motifs}
   entrada  : char;    {recebe a sequencia}
   i,j	    : integer; {para contadores}
   pos	    : integer; {a posicao do motif na sequencia} 
   continua : boolean; {para controle do while}
   
begin

   readln(motif);
   i:=1;
   j:=1;
   pos:=0;
   read(entrada);
   
   while entrada <> '*' do begin    {faca enquanto for diferente de *}

      continua:=true;
      
      if j <= 5 then begin
         if entrada = motif[j] then begin
	    if j=5 then pos:=i-4; { leu ultimo char do motif, portanto define a posicao }
	    j:=j+1;
	 end  else
	    if j > 1 then {esta 'dentro' do motif}
	       continua:=false
	    else
	       j:=1;
      end;
      if continua then begin
	 i:=i+1;
	 read(entrada);
      end else j:=1; {pulou o read e inc(i)}
      
   end;
   writeln(pos);
end.