program text_cuv;
const
lit=['a'..'z','A'..'Z'];
 var
    f:text;
    s:string;
    n,i,l:byte;
begin
 assign(f,'text.in');
 reset(f);
  read(f,s);
 close(f);
 i:=1;
  while i<=length(s) do
   begin
  while (not( s[i] in lit)) and (i<=length(s)) do
   inc(i);
  if i<=length(s) then
   inc(n);
  while (s[i] in lit) and (i<=length(s)) do
   begin
    if (s[i] in lit) then
    inc(i);
    inc(l);
   end;
  end;
 assign(f,'text.out');
 rewrite(f);
  write(f,l div n);
 close(f);
end.