program text_infoarena;
type vector=array[1..1 shl 28] of char;
     vect=array[1..200000000] of char;
var intrare,iesire:vector; v:vect;
    i,j,nrl,nrc:longint; c:char;
    f,g:text;

function lit(c:char):boolean;
begin
lit:=false;
if ((c>='a')and(c<='z'))or((c>='A')and(c<='Z'))then lit:=true;
end;

begin
assign(f,'text.in');reset(f); settextbuf(f,intrare);
assign(g,'text.out');rewrite(g); settextbuf(g,iesire);
i:=1;
while not eoln(f) do
 begin
  read(f,v[i]);
  if lit(v[i])then inc(nrl);
  inc(i);
 end;
for j:=1 to i do
 if lit(v[j])and(not lit(v[j+1])) then inc(nrc);
//writeln(g,nrl,'  ',nrc);
writeln(g,nrl div nrc);
close(f); close(g);
end.