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