                                         (take n-test (shuffle input-set))))))
                           domains)))
 
-;;WC test data like this:
+;;Can make 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))))))
-
+; Helper functions for error function
 (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 True to 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)

        clojush.instructions.tag
        clojure.math.numeric-tower
        [clojure.string :only [split trim]]))

; Define new instructions
(define-registered
