var s:string;
    i,j,n,k:longint;
begin
 assign(input,'text.in');
 reset(input);
 read(s);
 close(input);

 n:=0;
 k:=0;
 if s[1]in ['a'..'z','A'..'Z'] then k:=k+1;
 for i:=2 to length(s) do
  begin
   if s[i] in ['a'..'z','A'..'Z'] then k:=k+1
  else n:=n+1;

  end;

  assign(output,'text.out');
  rewrite(output);
  write(k div n);
  close(output);
end.