       (conj
         acc
         (columnLength (first headersStrings) resultsStrings ind))
-      (+ 1 ind))))
+      (inc ind))))
 
 (defn columnLengths [headersStrings, resultsStrings]
-  (into [] (columnLengthsHelper headersStrings resultsStrings [] 0)))
+  (vec (columnLengthsHelper headersStrings resultsStrings [] 0)))
 
 (defn padStr [s len]
   (if (>= (.length s) len)


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

(defn printSeparator [printer params]

    (subs s 1)
    (= :onEnd cutOn)
    (try
      (subs s 0 (dec (.length s)))
      (catch Exception e (throw (Exception. "Caspita..."))))
    :else
    (throw (Exception. "cutOn should be :onStart or :onEnd"))))
