     (map
       #(map + point %)
       adjacent-transform)))
-(def gen-surrounding-points (memoize gen-surrounding-points))
 
 (defn gen-children-points
   [parent-state grid-w grid-h]

                (<= 4 (+ prev-right-streak-count prev-right-partial-streak-count)) 
                    (+ prev-right-direct-streak prev-right-streak-count)
                :else 1)
            )
        ; Types identiques
          (cond

            (default-assoc h (indexes :h) x)
            (default-assoc v (indexes :v) y)
            (default-assoc d1 (indexes :d1) x)
            (default-assoc d2 (indexes :d2) x)))))))        ; Todo: if it shits bricks, look here closely.

(defn build-all-lines-from-state
  [state grid-w grid-h is-first-player]
