            (str "\n"
                 (indent-line-breaks (str s "\n")
                                     indent-base
-                                    :override [:end "   "]))
-           (str s))
-         "\n")))
+                                    :override [:end (apply str
+                                                           (repeat indent-offset
+                                                                   " "))]))
+           (str s "\n")))))
 
 (defn return-str
   [tree & {pos :pos}]

                                   " => ")
                       :value  return
                       :indent-base (:depth tree)
                       :indent-offset  2)))

(defn args-map-str
  [tree]

  [trees]
  (doall (map print-tree
              trees)))
