Const Fi='XAU.INP';
      Fo='XAU.OUT';
Var f,g: text;
    S,St: String;
    i,d1,d2: longint;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);

        Readln(f,S);
        Readln(f,St);

        For i:=1 to length(St) do
                St[i]:=Upcase(St[i]);
        For i:=1 to length(S) do
                S[i]:=Upcase(S[i]);

        While St[1]=#32 do Delete(St,1,1);
        While St[length(St)]=#32 do Delete(St,length(St),1);
        While pos(#32#32,St)>0 do Delete(St,pos(#32#32,S),1);

        While S[1]=#32 do Delete(S,1,1);
        While S[length(S)]=#32 do Delete(S,length(St),1);
        While pos(#32#32,S)>0 do Delete(S,pos(#32#32,S),1);

        d1:=1;
        For i:=1 to length(St) do
                If St[i]=' ' then inc(d1);
        Writeln(g,d1);

        d2:=0;
        While Pos(S,St)>0 do
        Begin
                inc(d2);
                Delete(St,Pos(S,St),length(S));
        End;

        Write(g,d2);
        Close(f);
        Close(g);
End.