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