program textu;
var fi,fo:text;
   c:char;
   s1,s2:longint;
begin
assign(fi,'text.in');reset(fi);
assign(fo,'text.out');rewrite(fo);
while not eof(fi) do begin
read(fi,c);
if (c>='a') and(c<='z') or (c>='A') and (c<='Z') then begin inc(s1);
 while (c>='a') and (c<='z') or (c>='A') and (c<='Z') do begin
                                                        inc(s2);
                                                        read(fi,c);
                                                        end;
                                    end;

end;
writeln(fo,s2 div s1);
close(fi);close(fo);
end.