sub z{printf"%.1f\n",$n;}$n=<>;z;while($n>1){$n/=2;$w=$n-int$n;$n=$w>.3?int($n)+($w<.7?.5:1):int$n;z;}