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;
nr:=0;
np:=0;
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);
if (a[1]>='A') and (a[1]<='Z') or (a[1]>='a') and (a[1]<='z')
        then begin
             inc(nr);
             inc(np);
             end;
for i:=2 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;
if np=0 then p:=0;
        else p:=nr div np;
writeln(g,p);
close(g);
end.