map{s/.*,(.*),//;$s=","while(printf"$s%.3f",$_-=$y=$_*(1-$&/$_**$1)/$1-1e-7)/$y<1e3;$s=$/}<>