val no_arg : hook:(Base.Unit.t -> Base.Unit.t) -> Base.Bool.t Core_kernel.Command.Spec.flagval escape : hook:(Base.String.t Base.List.t -> Base.Unit.t) -> Base.String.t Base.List.t Base.Option.t Core_kernel.Command.Spec.flagval ad_hoc : usage_arg:Base.String.t -> Base.String.t Base.List.t Core_kernel.Command.Spec.anons