for(@_=map(6/$_,map($_**2,1..1000000))){$s+=$_[$i++]}print sqrt($s);