var lit,cuv:int64; l:char;
        f:text;
begin
lit:=0;
cuv:=0;
assign (f,'text.in');
reset (f);
while (ord(l)<ord('a')) or (ord(l)>ord('z')) do
read(f,l);
while not eof(f) do
begin
if (ord(l)<ord('a'))or (ord (l)>ord('z')) then
inc(cuv)
else
inc (lit);
read (f,l);
end;
close (f);
assign (f,'text.out');
rewrite (f);
write (f,lit div cuv);
close (f);
end.