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