   (repeat (count cmds) true))
 
 (defn mutate [bitmap pct]
+  ;(println "bitmap is " bitmap)
   (update bitmap 
           :phases 
           (fn [phases]


(defn mutate-bitmap [bitmap pct]
  (map (fn [bit]
         (if (and (> (rand-int 100) (- 100 pct)) bit)
           (not bit)
           bit))
       bitmap))

          (map list phase bitmap))))

(defn filter-generated [generated bitmaps]
  ;(println "Phases " (:phases generated))
  (update generated 
          :phases 
          (fn [phases]
