program text_infoarena;
var c:char; x,nrc,nrl,aux,i,j:longword;
    intrare,iesire,v:array[1..1 shl 28] of 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);
nrl:=0; nrc:=0; aux:=0; i:=1;
while not eof(f) do
 begin
  read(f,v[i]); inc(i);
 end;
for j:=2 to i do
 begin
  if lit(v[j])then inc(nrl)
              else if (lit(v[j-1]))and(not lit(v[j]))then inc(nrc);
 end;
x:=nrl div nrc;
writeln(g,x);
close(f); close(g);
end.