new subroutine mpz_zero_upper()