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