in reply to Trig in Perl
A better pi yet: use constant PI => 4 * atan2 1, 1;(from Camel 3)
After Compline,Zaxo