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