extern fint nbits_c(fint *);