Select Code to Download

use bigrat;
use strict;
...
print "cross-check of series, plus one more term:\n";
for my $v (@exvals) {print polyeval($v, $P), " ";}
print "\n";

perl -pe'$\=($\*32768.5+ord)%4**8 .$/for/./gs}{'