+ val badArgs : string * Ast.exp list -> 'a
+ val badArg : string * string * Ast.exp -> 'a
+
+ type 'a arg = Ast.exp -> 'a option
+
+ val int : int arg
+ val string : string arg
+ val list : 'a arg -> 'a list arg
+
+ val none : string -> (unit -> unit) -> action
+ val one : string -> string * 'a arg -> ('a -> unit) -> action
+ val two : string -> string * 'a arg * string * 'b arg -> ('a * 'b -> unit) -> action
+
+ val oneV : string -> string * 'a arg -> (env_vars * 'a -> unit) -> action
+
+ val env : 'a arg -> env_vars * string -> 'a
+
+ val type_one : string -> 'a arg -> ('a -> bool) -> unit
+
+ val action_none : string -> (unit -> unit) -> unit
+ val action_one : string -> string * 'a arg -> ('a -> unit) -> unit
+ val action_two : string -> string * 'a arg * string * 'b arg -> ('a * 'b -> unit) -> unit
+
+ val actionV_one : string -> string * 'a arg -> (env_vars * 'a -> unit) -> unit
+
+ val container_none : string -> (unit -> unit) * (unit -> unit) -> unit
+ val container_one : string -> string * 'a arg -> ('a -> unit) * (unit -> unit) -> unit
+
+ val containerV_one : string -> string * 'a arg -> (env_vars * 'a -> unit) * (unit -> unit) -> unit