var c:char;
f,g:text;
k,i,n:integer;
begin
assign (f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
  k:=0;
while not eoln(f) do begin
read(f,c);

 if((ORD(c)>=65) and (ORD(c)<=90))or((ORD(c)>=97) and (ORD(c)<=122)) then  begin
n:=n+1;

      if k=0 then begin i:=i+1; k:=1; end; end

else k:=0;
end;

write(g,n div i);
close(f);
close(g);
readln;
end.