$i=1;map$@+=4/($i+=4)-4/($i-2),0..99999;print$@+4