         (stack-assoc top-int :auxiliary 4
                      (pop-item :integer state))))))
 
-; Make atom generators
+; Atom generators
 (def wc-atom-generators
   (list
     (fn [] (- (lrand-int 201) 100))

                                        (take n-test (shuffle input-set))))))
                          domains)))

;;WC test data like this:
;(test-and-train-data-from-domains wc-data-domains)

;(defn random-wc-inputs
;  "Returns a list of n random inputs. Each will have size between 0 and 100."
;  [n]
;  (let [chars (map char (range 32 127))
;        max-len 100]
;    (repeatedly n
;                (partial wc-input (lrand-int (inc max-len))))))

(defn wc-char-count
  "Takes a wc input and returns the char count output"
  [input]

  [data-domains]
  (let [[train-cases test-cases] (map wc-test-cases
                                      (test-and-train-data-from-domains data-domains))]
    (when true ;; Change to false to not print test cases
      (doseq [[i [string ch wo li]] (map vector (range) train-cases)]
        (println (str "Train Case " i " | Chars: " ch " Words: " wo " Lines: " li))
        (prn string)
