   [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
+    (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)

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

; Hand-coded solution for just character count
#_(run-push '(exec_y (string_readchar file_EOF exec_when exec_pop) string_stackdepth output_charcount)
          (->> (make-push-state)
               (push-item nil :auxiliary)
               (push-item nil :auxiliary)
               (push-item nil :auxiliary)
               (push-item "hello\nworld" :auxiliary)
               (push-item "hello\nworld" :auxiliary)))

; Define new instructions
(define-registered

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

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

; Helper functions for error function
(defn wc-char-count
  "Takes a wc input and returns the char count output"
  [input]
