//const f='text.in'; g='text.out';
var
    i,s,nr,t:longint;
    stop:boolean;
    c:char;
    buf:array[1..1 shl 17] of char;

begin
    assign(input,'text.in');reset(input);
    assign(output,'text.out');rewrite(output);
    settextbuf(input,buf);
    s:=0;nr:=0;
    stop:=false;
    while not eof(input) do
        begin
        if (c>='a') and (c<='z') or (c>='A') and (c<='Z') then
            begin
            inc(s);
            stop:=true;
            end
                else
                    if stop then
                        begin
                        stop:=false;
                        inc(nr);
                        end;
        end;
    if stop then inc(nr);
    t:=s div nr;
    write(t);
    close(input);close(output);
end.