             ; Let's make sure about the last
             last-what (nth (last element) 2)
             comment? (or (= last-what :comment) (= last-what :comment-inline))]
-        (prn "precede-w-nl: element:" element
+        #_(prn "precede-w-nl: element:" element
                "what:" what
                "comment?:" comment?)
         (recur (next coll)

        (concat-no-nil
          l-str-vec
          pre-arg-1-style-vec
	  (do (prn "pre-arg-1-style-vec:" pre-arg-1-style-vec "r-str-vec:" r-str-vec) :noseq)
	  (if arg-1-zloc
	  (do
          (fzprint* loptions (+ l-str-len ind) arg-1-zloc)
          (let [zloc-seq-right-first (get-zloc-seq-right first-data)]
            (if zloc-seq-right-first
              ; We have something else to format after arg-1-zloc

         previous-comment? nil]
    (if (empty? coll)
      (let [result (persistent! out)]
        #_(prn "precede-w-nl: exit:" result)
        (if previous-comment? (butlast result) result))
      (let [[[s color what] :as element] (first coll)
            ; This element may have many things in it, or sometimes
