#!/usr/bin/perl -w

use strict;

{(redo)while(printf"%.16f\n",$,+=((-1/++$_/(($a||=1)*=($_-$_++)*-1)))*4)}