program pro;
uses crt;
var s,n:integer;
ok:boolean;
ch:char;
fi,fo:text;
begin
assign(fi,'text.in');
reset(fi);
assign(fo,'text.out');
rewrite(fo);
while not eof(fi) do
begin
read(fi,ch);
if (ch>='a') and (ch<='z') or (ch>='A') and (ch<='Z')
then begin
inc(s);
ok:=true;
end
else if ok then begin inc(n);
ok:=false;
end;
end;
writeln(fo,s div n);
close(fi);
close(fo);
end.