sig
  type 'accum t
  val noarg : ('accum -> unit) -> 'accum Deprecated_command.Flag.Action.t
  val arg :
    ('accum -> string -> unit) -> 'accum Deprecated_command.Flag.Action.t
  val rest :
    ('accum -> string list -> unit) ->
    'accum Deprecated_command.Flag.Action.t
  val int :
    ('accum -> int -> unit) -> 'accum Deprecated_command.Flag.Action.t
  val bool :
    ('accum -> bool -> unit) -> 'accum Deprecated_command.Flag.Action.t
  val float :
    ('accum -> float -> unit) -> 'accum Deprecated_command.Flag.Action.t
end