program txt;
var S : string;
    m,n,i:integer;
    f : text;
begin
assign(f,'text.in');
reset(f);
read(f,S);
close(f);
n := 1;
for i := 1 to length(S) do
if (S[i] = ' ') or (S[i]='-') then n := n+1;

m := 0;
for i := 1 to length(S) do
if ((ord(S[i]) >= ord('A')) and (ord(S[i])<=ord('Z'))) or ((ord(S[i])>=ord('a')) and (ord(S[i])<=ord('z'))) then m := m+1;

assign(f,'text.out');
rewrite(f);

write(f,m div n);
close(f);

end.