sub fact7b {
    my @factor = map Math::BigInt->new($_), (2 .. shift);
    while(@factor > 1) {
        my @pair = splice @factor, 0, @factor / 2;
        $_ = $_ * pop @pair for @factor[0..$#pair];
    }
    return shift @factor;
}