sig
  val no_arg : hook:(unit -> unit) -> bool Core_command.Spec.flag
  val escape :
    hook:(string list -> unit) -> string list option Core_command.Spec.flag
end