sig
type !'a t
val make : 'a -> 'a CamlinternalAtomic.t
val get : 'a CamlinternalAtomic.t -> 'a
val set : 'a CamlinternalAtomic.t -> 'a -> unit
val exchange : 'a CamlinternalAtomic.t -> 'a -> 'a
val compare_and_set : 'a CamlinternalAtomic.t -> 'a -> 'a -> bool
val fetch_and_add : int CamlinternalAtomic.t -> int -> int
val incr : int CamlinternalAtomic.t -> unit
val decr : int CamlinternalAtomic.t -> unit
end