program ideone;

var slogan, inp : string;
	count, position, len : integer;

function isEqual( {inp,} position, {slogan,} len :integer ):boolean;
begin
	{writeln('Comparing inp[',position,']=',copy(inp,position,len),
			' and slogan[',len,']=',copy(slogan,length(slogan)-len+1,length(slogan)) );}
	while (len>0) and (inp[position+len-1] = slogan[len]) do begin
	  {writeln('	',inp[position+len-1],'=',slogan[len] );}
	  dec(len);
	end;
	isEqual := (len=0);
end;

begin
	{ввести змінні}
	readln(slogan);
	readln(inp);
	count := 0;
	position := 1;
	{поки не скінчився вхідний рядок, шукати в ньому максимальний шмат слогана}
	while position < length(inp) do begin
		len := length(slogan);
		{гарантовано, що знайдеться}
		while not isEqual( {inp,} position, {slogan,} len ) do
			dec(len);
		inc(count);
		inc(position, len);
	end;
	
	{вивести результат}
	writeln(count);
	
end.