include Natexternal create_nat : int ‑> nat = val make_nat : int ‑> natexternal set_to_zero_nat : nat ‑> int ‑> int ‑> unit = external set_digit_nat : nat ‑> int ‑> int ‑> unit = external nth_digit_nat : nat ‑> int ‑> int = external set_digit_nat_native : nat ‑> int ‑> nativeint ‑> unit = external nth_digit_nat_native : nat ‑> int ‑> nativeint = val length_nat : nat ‑> intexternal num_digits_nat : nat ‑> int ‑> int ‑> int = external num_leading_zero_bits_in_digit : nat ‑> int ‑> int = external is_digit_int : nat ‑> int ‑> bool = external is_digit_zero : nat ‑> int ‑> bool = external is_digit_normalized : nat ‑> int ‑> bool = external is_digit_odd : nat ‑> int ‑> bool = val is_zero_nat : nat ‑> int ‑> int ‑> boolval is_nat_int : nat ‑> int ‑> int ‑> boolval int_of_nat : nat ‑> intval nat_of_int : int ‑> natexternal incr_nat : nat ‑> int ‑> int ‑> int ‑> int = external complement_nat : nat ‑> int ‑> int ‑> unit = external decr_nat : nat ‑> int ‑> int ‑> int ‑> int = val string_of_nat : nat ‑> stringval nat_of_string : string ‑> natval sys_nat_of_string : int ‑> string ‑> int ‑> int ‑> natval float_of_nat : nat ‑> floatval make_power_base : int ‑> nat ‑> int * intval power_base_int : int ‑> int ‑> natval sexp_of_nat : Nat.nat ‑> Sexplib.Sexp.tval nat_of_sexp : Sexplib.Sexp.t ‑> Nat.nat