 
 (defn get-line-length
   [line]
-  (def l' line)
   (->> line (map :length) (apply +)))
 
 (defn buffer-lines-to-width
   [width column]
-  (def w' width)
-  (def c' column)
   (map (fn [line]
          (let [buf-length (->> line (map :length) (apply +) (- width))]
            (if (> buf-length 0)


(defn assoc-tokens-pos
  [tokens]
  (def t' tokens)
  (loop [[{:keys [length line-break line-meta?] :as head} & tail] tokens
         line-meta nil
         pos 0

                  indent
                  (conj (mapv buffer-lines-to-width
                              widths
                              lines')
                        (repeat [(tkn "\n")]))))))

(defn multi-line-indent2
