PROGRAM Xaucon;
USES crt;
VAR s,s1,s2 : STRING;
i,j,dem: BYTE;
f1,f2:TEXT;
BEGIN
assign(f1,'XAU.INP');
assign(f2,'XAU.OUT');
reset(f1);
rewrite(f2);
Readln(f1,S1);
Readln(f1,s2);
FOR i:=1 TO length(s2)-length(S1)+1 DO   
BEGIN
s:='';    
FOR j:=i TO length(s1) + i -1 DO
s:=s+s2[j];
IF s= s1 THEN dem:=dem+1;
END;
Write(f2,dem);
close(f2);
END.