var f,g:text;
c,lit:char;
n,l:longint;
begin
assign(f,'text.in');
assign(g,'texc.out');
reset(F);
rewrite(G);
n:=0;
l:=0;
while not eof(F) do
begin
read(C);
if c in(['a'..'z']+['A'..'Z']) then inc(N)
                                else if lit in (['a'..'z']+['A'..'Z']) then inc(L);
lit:=c;
end;
if lit in (['a'..'z']+['A'..'Z']) then inc(L);
writeln(g,n div l);
end.