//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 begin
    if (s[i] in ['a'..'z','A'..'Z'])and not(s[i+1] in['a'..'z','A'..'Z']) then
    inc(nrcuv);
    if s[i] in['a'..'z','A'..'Z'] then inc(nrc);
  end;
end;
  write(trunc(nrc/nrcuv));
  close(input);close(output);
end.