Trying to code my own regexp generator using the wonderfulesque [frak](https://github.com/noprompt/frak) lib

frak command-line attempts

(ns regard.core)

(require 'frak)

(defn -main
  "I don't do a whole lot."
  [& args])

(defn print-prompt []
  (print "patterns to search> ")
  (flush))

(defn ask-for-input []
    (print-prompt)
    (let [x (str (read-line))]
      (println (str "User input: " x))
      (println "vector output : %s" (frak/pattern (vector x)))
      (println "hard-coded output : %s" (frak/pattern ["foo" "bar" "baz" "quux"]))))

(ask-for-input)

Yields the following output :

$ lein trampoline run
patterns to search> "foo" "bar" "baz" "quux"
User input: "foo" "bar" "baz" "quux"
vector output : %s #""foo" "bar" "baz" "quux""
hard-coded output : %s #"(?:ba[rz]|foo|quux)"