var    c:char;
       g,s,u:longint;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
while not eoln(input) do begin
read(c);
if (upcase(c) in['A'..'Z']) then inc(g) else begin
if g<>0 then begin
s:=s+g;
inc(u);
g:=0;
end;
end;
end;
write(s div u);
end.