   (let [resultsStrings (resultsToStrings results),
         headersStrings (resultToStrings headers),
         colLengths (columnLengths headersStrings resultsStrings)]
-    (do
       (println (rowStr colLengths headersStrings))
       (println (separatorStr colLengths))
       (doall (for [r resultsStrings]
-        (println (rowStr colLengths r)))))))
+        (println (rowStr colLengths r))))))
 
 (defn printOperation [operation cus threshold]
   (let [headers (.headers operation),

  (getQName x))

(defn resultToStrings [resultRow]
  (into [] (map toString resultRow)))

(defn resultsToStrings [results]
  (map resultToStrings results))

(defn getN [l ind]
  (if (= ind 0)
    (first l)
    (getN (rest l) (- ind 1))))

(def columnSeparator " | ")


      (conj
        acc
        (columnLength (first headersStrings) resultsStrings ind))
      (inc ind))))

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

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