use Math::Trig;
pi;

PS C:\Tools\Scripts\golfing> "{0:R}"-f[math]::PI
3.1415926535897931

$ echo "#include <math.h>
#include <stdio.h>
int main(){printf(\"%f\",M_PI);}"|gcc -x c - -o pi && ./pi
3.141593
$ grep PI /usr/include/math.h
# define M_PI           3.14159265358979323846  /* pi */

$ echo "#include <math.h>
#include <stdio.h>
int main(){printf(\"%.15f\",M_PI);}"|gcc -x c - -o pi && ./pi
3.141592653589793

a='A:[]:'Zeach n=0:[]:25console:log(a[n]*n+a:slice(n):fuse());

{:type=>:Root,
 :parent=>nil,
 :childs=>
  [{:type=>:Call,
    :parent=>{...},
    :childs=>
     [{:type=>:Name, :parent=>{...}, :value=>"puts"},
      {:type=>:String, :parent=>{...}, :value=>"Hello, World!"}]}]}

<root xmlns:json="...">
    <json:object>
        <json:item>
            <json:key>
                <json:string>
                    <json:quote>Yo!</json:quote>
                </json:string>
            </json:key>
            <json:value>
                <json:float>
                    0
                </json:float>
            </json:value>
        </json:item>
    </json:object>
</root>

>>> a = copy.deepcopy(basestring)
>>> a is basestring
True

>>> a = copy.deepcopy(basestring)
>>> a is basestring
True

var n=217623950511702;do{n=+(p=n[q=
"toString"](4+(2<<(2<<n>>~-(2<<2<<2
)&1^(2<<2))>>4)))}while(n==+n);n=([
m="(\"",25[q](a=7<<2),a&&m.replace(
/[(](.)/gim,"$1)")]);n.unshift((+"\
8680439")[q](a+~[~2]))&&eval(n.join
("").replace(/"/g,[]+[]))