Shave another

$i+=($_%2*8-4)/($_*2-1)for 1..1e6;print$i
[download]

or equivalently

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