do
input""a$
if"4"<a$end
b=!split(a$,docu$(),".")
for i=0to 4b=b+instr(bin$(val(docu$(i))*2),"0")-1next
?b
loop