program text15;
var f,g:Text;
    i,s,nr,t:longint;
    stop:boolean;
    c:char;
begin
    assign(f,'text.in');
    assign(g,'text.out');
    reset(f);
    rewrite(g);
    s:=0;
    nr:=0;
    stop:=false;
    while not eof(f) do
        begin
        read(f,c);
        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;
    writeln(g,t);
    close(f);
    close(g);
end.