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