(var fitness (comp @(map = target) (count val)))
(var perfect-fit? (comp fitness (= tsize)))

(var rand-char #(rand-pick alphabet))
(var mutate (map #(if (< (rand) p) (rand-char) %)))