$_=pop;$l^$_?$l=$_:die"$_\n"while$_=($_+$ARGV[0]/$_)/2

##</code><code>##

$_=pop;$l^$_?$l=$_:die"$_\n"while($_+=$ARGV[0]/$_)/=2

##</code><code>##

$_=pop;$l^$_?$l=$_:die$_,$/while($_+=$ARGV[0]/$_)/=2