         ts-rest (drop (count terms-that-fit) ts)]
    [(insert-spaces terms-that-fit l) ts-rest]))
 
-;; Insert spaces between terms so they occupy exactly l chars
-(defn insert-spaces [terms l]
-  (string/join " " terms))
 
 (defmulti fill-group
   (fn [[result tokens] group]

(defn show-harnocode! [harnocode]
  (let [output-area (dom/getElement "output")]
    (when output-area (set! (.-value output-area) harnocode))))

;; Best try on filling "column" of l subsequent ones with one or more tokens
(defn fill-column [ts l]

    

(let [code      "var a = 42; var b = 'hello';"
      img       [[0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 1 1 1 1]
                 [0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 1 1 1 1]
                 [0 0 0 0 0 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1]
                 [0 0 0 0 0 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1]
                 [0 0 0 0 0 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1]
