program text2;
var
        c:char;
        f:text;
        nrlit,nrcuv:longint;
        cuv:boolean;
begin
        assign(f,'text.in');
        reset(f);
        repeat
        read(f,c);
        until (upcase(c) in ['A'..'Z']);
        nrlit:=1;
        while not eoln(f) do begin
        cuv:=true;
        read(f,c);
        if upcase(c) in ['A'..'Z'] then inc(nrlit)
                                else cuv:=false;
        if not cuv then inc(nrcuv);
        end;
        close(f);
        dec(nrcuv);
        assign(f,'text.out');
        rewrite(f);
        writeln(f,nrlit div nrcuv);
        close(f);
end.