const litere=['a'..'z','A'..'Z'];
var s:ansistring;
    i,n:longint;
    nrl,nrc:longint;
begin
  assign(input,'text.in'); reset(input);
  assign(output,'text.out'); rewrite(output);
  readln(s);
  s:=s+' ';
  repeat
    while not (s[1] in litere)and(s<>'') do delete(s,1,1);
    if s='' then break;
    i:=1; while s[i] in litere do inc(i);
    inc(nrl,i-1); inc(nrc); delete(s,1,i);
  until s='';
  write(nrl div nrc);
  close(input); close(output);
end.