(require '[clojure.math.combinatorics :as comb])

(defn solve [n]
  (->> (comb/selections ["A" "C" "G" "T"] n)
       (map clojure.string/join)
       (filter #(re-find #"AAG" %))))

(defn -main []
  (println (solve 5)))