 (defn harnify [code img w]
   (let [tokens (js->clj (js/esprima.tokenize code) :keywordize-keys true)
         ts (map token-to-text tokens)]
-    (string/join "\n" (reverse (arrange-tokens ts img)))              ; img must be resized by now, no need in w
+    (string/join "\n" (reverse (arrange-tokens ts (invert-image img))))              ; img must be resized by now, no need in w
     ))
 
 (let [code      "function skipComment() {

   (str (:value token))
   (str (:value token) " ")))

;; Tries hard to make piece of code look like img
;; code -- string
;; img  -- 2d matrix of 0's and 1's

      (let [l                (count group)
            [column rest-ts] (fill-column tokens l)
            extra-len (- (count column) l)]
        [(conj result column) rest-ts extra-len]))

(defn arrange-tokens-line [ts line]
