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