printf"$e %c ".$/x!($x=$e<=>$_),$x+61while$e=$x?0|$e+.5-$x*($a/=2):($_=<>)?$a=500:0