const litere=['A'..'Z'];
var n:ansistring;
    i,l,c:byte;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
 readln(n);n:=n+' ';l:=0;c:=0;
  for i:=1 to length(n) do begin
   if (upcase(n[i]) in litere) and (not(upcase(n[i+1]) in litere)) then inc(c);
   if upcase(n[i]) in litere then inc(l);
  end;
 if c=0 then writeln(l)
        else writeln(l div c);
close(input);close(output);
end.