sig
  val clear : Sig_pack.S.t -> unit
  val get : Sig_pack.S.V.t -> int
  val set : Sig_pack.S.V.t -> int -> unit
end