Fix.ONGOING_NUMBERING
type t
val encode : t -> int
val current : unit -> int
val has_been_encoded : t -> bool