{
TASK:balls
LANG:PASCAL
}

var
  balls,kosh: String;
  f: array[0..100] of Integer;
  enda: array[0..100] of Integer;
  n,m,i,j,k,en: Integer;
  fl: Boolean;

begin
  readln(balls);
  readln(kosh);
  n:= length(balls);
  m:= length(kosh);

  f[0]:= 0; enda[0]:= 0;
  for i:= 1 to m do
  begin
    en:= 0; fl:= false;
    for j:= enda[i-1] to n do
      if (balls[j]=kosh[i]) and (not fl) then
      begin
        fl:= true;
        en:= j;
      end;
    if fl then
    begin
      f[i]:= f[i-1]+1;
      enda[i]:= en;
    end
    else
    begin
      f[i]:= f[i-1];
      enda[i]:= enda[i-1];
    end;
  end;
  writeln(f[m]+1);
end.