sig
type 'a t
val ( %: ) : string -> 'a Command.Arg_type.t -> 'a Command.Anons.t
val sequence : 'a Command.Anons.t -> 'a list Command.Anons.t
val non_empty_sequence :
'a Command.Anons.t -> ('a * 'a list) Command.Anons.t
val maybe : 'a Command.Anons.t -> 'a option Command.Anons.t
val maybe_with_default : 'a -> 'a Command.Anons.t -> 'a Command.Anons.t
val t2 :
'a Command.Anons.t -> 'b Command.Anons.t -> ('a * 'b) Command.Anons.t
val t3 :
'a Command.Anons.t ->
'b Command.Anons.t ->
'c Command.Anons.t -> ('a * 'b * 'c) Command.Anons.t
val t4 :
'a Command.Anons.t ->
'b Command.Anons.t ->
'c Command.Anons.t ->
'd Command.Anons.t -> ('a * 'b * 'c * 'd) Command.Anons.t
end