sub pack64bit {
    my $i = new Math::BigInt shift();
    my $j = new Math::BigInt $i->brsft(32);
    my $k = $i - $j->blsft(32);
    return pack('NN', $j, $k);
}