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