var f,g:text;
c,lit:char;
n,l:longint;
begin
assign(f,'text.in');
assign(g,'text.out');
reset(F);
rewrite(G);
n:=0;
l:=0;   lit:=' ';
while not eof(F) do
begin
read(f,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 (c in(['a'..'z']+['A'..'Z'])) then l:=l+1;
writeln(g,n div l);
close(F);
close(G);
end.