const litere=['A'..'Z','a'..'z'];
var prop:string;
   i,t,c,l,t2:longint;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
 readln(prop);t2:=length(prop);
 while t2<>0  do begin
  inc(i);
  if ((prop[i]) in litere) then begin t:=0;inc(l);end
                                 else begin t:=1;
                                       while not(prop[i+1] in litere)do
                                        inc(i);
                                       end;
   if t=1 then inc(c);dec(t2);
 end;
writeln(l div c);
close(input);close(output);
end.