const litere=['a'..'z','A'..'Z'];
var s:ansistring;
    i,nrc,nrcuv:longint;
begin
  assign(input,'text.in'); reset(input);
  assign(output,'text.out'); rewrite(output);
  readln(s); s:=s+' ';
  for i:=1 to length(s)-1 do
    if s[i] in litere then begin
      inc(nrc);
      if not (s[i+1] in litere) then inc(nrcuv);
    end;
  writeln(nrc div nrcuv);
  close(input); close(output);
end.