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