sub f{my($_,$i)=@_;$i-5?f($_,$i+1)+f($_/(2**2**$i+1)|0,$i+1):$_&&0|1+log()/log 2}print-2+f<>