1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
#!/usr/local/bin/perl use ExtUtils::testlib; use SSLeay; # 2687145 * 3003 * 10^5072 - 1. $a=SSLeay::BN::set_word(99); $b=SSLeay::BN::set_word(100); $aa=$a->dup; $bb=$b->dup; $c=$a*$b; $bb+=$a; print "$a*$b=$c\n"; print "$bb\n";