   (getQName x))
 
 (defn resultToStrings [resultRow]
-  (into [] (map toString resultRow)))
+  (vec (map toString resultRow)))
 
 (defn resultsToStrings [results]
   (map resultToStrings results))
 
 (defn getN [l ind]
-  (if (= ind 0)
+  (if (zero? ind)
     (first l)
-    (getN (rest l) (- ind 1))))
+    (getN (rest l) (dec ind))))
 
 (def columnSeparator " | ")
 

      (conj
        acc
        (columnLength (first headersStrings) resultsStrings ind))
      (+ 1 ind))))

(defn columnLengths [headersStrings, resultsStrings]
  (into [] (columnLengthsHelper headersStrings resultsStrings [] 0)))

(defn padStr [s len]
  (if (>= (.length s) len)


(defn printParam [printer p]
  (let
    [fmtStr (str "%-" (dec (:len p)) "s")]
    (print (format fmtStr (:name p)) " | ")))

(defn printSeparator [printer params]
