program text1;
var a,b:char;
    nrc,lg,nr:longint;
    f,g:text;
function litera(x:char):boolean;
begin
litera:=false;
if (x>='a')and(x<='z')or(x>='A')and(x<='Z') then litera:=true;
end;

begin
 assign(f,'text.in');
 reset(f);

 assign(g,'text.out');
 rewrite(g);

 read(f,b);
 lg:=0;
 if litera(b) then lg:=1;
 while not eof(f) do
    begin
    a:=b;
    read(f,b);
    if litera(b) then lg:=lg+1;
    if litera(a) and not litera(b) then nrc:=nrc+1;
    end;
    if litera(b) then nrc:=nrc+1;
    nr:=trunc(lg/nrc);
 writeln(g,nr);
 close(f); close(g);
end.