var nr1,nr2,l,l2,rez:integer;
f,g:text;
c:char;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
while not eof(f) do begin
read(f,c);
if((c<='z')and(c>='a'))or((c<='Z')AND(c>='A')) then begin l:=1;nr1:=nr1+1;end;
if (l2=0)and(l=1) then nr2:=nr2+1;
l2:=l;
l:=0;
end;
rez:=nr1 div nr2;
write(g,rez);
close(f);
close(g);
readln;
end.