type t
val equal : t -> t -> bool
val div : t -> t -> t
val add : t -> t -> t
val sub : t -> t -> t
val of_int : int -> t
