/* Nats are represented as unstructured blocks with tag Nat_tag. */
#define Nat_tag Abstract_tag /* works OK with equal because no other
object uses that tag yet. */
#define Bignum_val(nat) ((BigNum) nat)