program p1;
const bk=['A'..'Z','a'..'z'];
procedure Litera(i:byte;s:string;var k:byte);
begin
if s[i] in bk then inc(k);
if i<length(s) then Litera(i+1,s,k);
end;
 
var s:string;
    i,k:byte;
    h:integer;
    z:integer;
    f1,f2:text;
begin
assign(f1,'text.in');
assign(f2,'text.out');
reset(f1);
rewrite(f2);
readln(f1,s);
i:=1;k:=0;
Litera(i,s,k);
h:=1;
for i:=1 to length(s) do
  if s[i]=' ' then
h:=h+1;
z:=k div h;
writeln(f2,z);
close(f1);
close(f2);
end.