{
    Problema text
}

Program text;

Const multime = ['a'..'z','A'..'Z'];

Var k : char;
    lt, nrc : int64;

Begin
    Assign( input, 'text.in' );
    Reset( input );
        read( k );
        While not (k in multime) do read( k );
        nrc := 0;
        lt := 0;
        While not eof do
            Begin
                While (k in multime) and (not eof) do
                    Begin
                        read( k );
                        lt := lt+1;
                    End;
                if not eof then nrc := nrc+1;
                While not ( k in multime ) and (not eof) do read( k );
            End;
    Close( input );

    If nrc =1 then lt := lt+1;

    Assign( output, 'text.out' );
    Rewrite( output );
        If nrc > 0 then Writeln( lt div nrc ) else Writeln( 0 );
    Close( output );
End.