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