var f,g:text;
c:char;
k,ok,n:integer;
begin
        assign (f,'text.in');
        assign (g,'text.out');
        reset(f);rewrite(g);
        k:=0;n:=0;
        while not eof(f) do begin
                read (f,c);
                if (c in ['A'..'Z']) or (c in ['a'..'z']) then begin
                        k:=k+1;
                        if ok=0 then begin
                                n:=n+1;  ok:=1;end;end
                else
                        ok:=0;
        end;
        write (g,k div n);
        close (g);
end.