var a:array[1..1000] of char;
    i,n,nr,np,p:integer;
    f,g:text;
    c:char;
begin
assign(f,'text.in');
reset(f);
i:=1;
while not eof(f) do
      begin
      read(f,c);
      a[i]:=c;
      inc(i);
      end;
n:=i-1;
close(f);
assign(g,'text.out');
rewrite(g);
for i:=1 to n do
    begin
    if (a[i]>='A') and (a[i]<='Z') or (a[i]>='a') and (a[i]<='z')
        then inc(nr);
    if ((a[i]<'A') or (a[i]>'Z') and (a[i]<'a') or (a[i]>'z')) and
    ((a[i+1]>='A') and (a[i+1]<='Z') or (a[i+1]>='a') and (a[i+1]<='z'))
    then inc(np);
    end;
p:=nr div np;
writeln(g,p);
close(g);
end.