var u,cuv:longint;
    ch:char;
    lit:set of char;
    cuvant:byte;

begin
assign(input,'text.in');
assign(output,'text.out');
reset(input);
rewrite(output);
lit:=['A'..'Z','a'..'z'];
while not eoln do
  begin
   read(ch);
   if ch in lit then
     begin
      cuvant:=1;
      inc(u);
     end;
   if (not (ch in lit)) and (cuvant=1) then
     begin
      cuvant:=0;
      inc(cuv);
     end;
  end;
if cuvant=1 then
  begin
   inc(cuv);
  end;
write(u div cuv);
close(input);
close(output);
end.