Select Code to Download

use Math::Int128 qw(int128 :op);
...
die "Error 4:\n$ri\n$mpz_ret\n$i_ret\n" if $ri != int128("$mpz_ret") 
 || $ri != int128('457611325781455127825205517363509632') || $ri != $i
+_ret;

******************
**MULTIPLICATION**
...
sub_M::G2 1997468/s      544%       79%        --      -43%
sub_M::I2 3495253/s     1028%      214%       75%        --