program text;
var s:string;
    litere:set of char;
  i,j,k,l:integer;


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