program texte;
const litera=['q','Q','W','w','E','e','R','r','T','t','y','Y','U','u','i','o','I','O','p','P',
'A','a','S','s','d','D','f','F','g','G','h','H','j','J','k','K','l','L',
'z','Z','X','x','c','C','v','V','B','b','n','N','m','M'];
var f,g:text;
s,prec:string[1];
lit,cuv:longint;
begin
  assign(f,'text.in'); assign(g,'text.out');
  reset(f); rewrite(g);
  s[1]:=' '; prec[1]:=' ';
  lit:=0; cuv:=0;
  while not eoln(f) do
  begin
    read(f,s[1]);
    if s[1] in litera then
    begin
      lit:=lit+1;
      if not(prec[1] in litera) then cuv:=cuv+1;
    end;
    prec[1]:=s[1];
  end;
  if lit=0 then witeln(g,'0') else writeln(g,lit div cuv);
  close(f); close(g);
end.