$i+=4*(-1)**$_/(1-$_*2)for 1..1e6;print$i