var f,g:text;
c:char; k,p,med,i:integer;
s:string;
begin
assign(f,'text.in');
assign(g,'text.out');
reset(f);
rewrite(g); p:=1;
while not eoln(f) do
begin
read(f,c);
s[i]:=c;
i:=i+1;
 end;

 for i:=1 to length(s) do
 if (ord(s[i])>=65) and (ord(s[i])<122) then inc(k);

 if (ord(s[1])>65) and (ord(s[1])<122) then p:=1 ;

 for i:=1 to length(s) do
 if (ord(s[1])>=65) and (ord(s[i])<=122) and (ord(s[i-1])>=32) and (ord(s[i-1])<=64) then inc(p);



 med:=k div p;

 write(g,med);
close(f);
close(g);


end.