         vs (for [d docs]
              (mapcat (fn [& x] (apply vector x)) max-cols d))]
     (doseq [v vs]
-      (pp/cl-format true "~{ ~vA  ~vA  ~vA ~}" v)
+      (let [fmt (make-format (take-nth 2 v))]
+        (print (apply format fmt (take-nth 2 (rest v)))))
       (prn))))
 
 (defn- name-for [k]

            (recur opts (conj argv car) cdr)))
        [opts argv]))))

;;
;; Legacy API
;;

(ns ^{:author "Gareth Jones, Sung Pae, Sean Corfield"
      :doc "Tools for working with command line arguments."}
  clojure.tools.cli
  (:require [clojure.string :as s]))

(defn- tokenize-args
  "Reduce arguments sequence into [opt-type opt ?optarg?] vectors and a vector
