 
 (defonce state (atom []))
 
-(defn- set-state [new-state]
-  (swap! state (fn [] new-state)))
-(defn- clear-state [] (set-state []))
-(defn- update-state [new-lines]
-  (set-state (concat @state new-lines)))
-  ; (println "new state" @state))
+(defn- set-state    [new-state] (swap! state (fn [] new-state)))
+(defn- clear-state  [] (set-state []))
+(defn- update-state [new-lines] (set-state (concat @state new-lines)))
 
 
 ;;;;


(enable-console-print!)

;;;; TODO filter out empty words
;;;; TODO precalc badness to hash ?
;;;; TODO remove has-memo?

;;;;
;;;; consts
;;;;
(defonce invisible-char (gstring/unescapeEntities "&nbsp;")) ;; \u00A0 ?



; (prepare-word-test "aaabbbccc111aaabbbccc111")
; (prepare-word-test "aaabbbccc111aaabbbccc111aaabbbccc111")

;;;;
;;;; public interface
;;;;
