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

        (stack-assoc top-int :auxiliary 4
                     (pop-item :integer state))))))

; Make atom generators
(def wc-atom-generators
  (list
    (fn [] (- (lrand-int 201) 100))

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

; Define new instructions
(define-registered
