use constant PI => 4 * atan2 1, 1;
[download]

I can recall from memory more than 700 digits of pi ;-)