var
k,j:integer;
f,g:text;
a:char;
ok:boolean;
function litera(var c:char):boolean;
begin
if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) then litera:=true
                                                        else litera:=false;
end;
begin
ok:=false;
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
while not eof(f) do  begin read(f,a);
if litera(a) then begin inc(k); ok:=true;  end;
if (litera(a)=false) and (ok=true) then begin inc(j); ok:=false; end;
end;
write(g,k div j);
close(f);
close(g);
end.