sig
  val no_arg : hook:(unit -> unit) -> bool Command.Spec.flag
  val escape :
    hook:(string list -> unit) -> string list option Command.Spec.flag
  val ad_hoc : usage_arg:string -> string list Command.Spec.anons
end