use strict;
use warnings;
use bignum accuracy => 30;
use feature 'say';
$/=--$,;say+4*($\+=($/*=-1)/($,+=2))for+1..10;