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

##</code><code>##

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