my $prod = Math::BigInt->new( 1 ); $prod->bmul( $_ ) for split m{}, $nVal->bstr();