sig
  type t
  val mk : 'a -> Camlp4.Sig.Grammar.Action.t
  val get : Camlp4.Sig.Grammar.Action.t -> 'a
  val getf : Camlp4.Sig.Grammar.Action.t -> 'a -> 'b
  val getf2 : Camlp4.Sig.Grammar.Action.t -> 'a -> 'b -> 'c
end