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);
  while not eof do begin
    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;
  end;
  writeln(nrc div nrcuv);
  close(input); close(output);
end.