 ; Define the argmap
 (def argmap
  {:error-function (make-camel-case-error-function-from-cases (first camel-case-train-and-test-cases)
-                                                                     (second camel-case-train-and-test-cases))
+                                                             (second camel-case-train-and-test-cases))
   :atom-generators camel-case-atom-generators
   :max-points 2000
   :max-genome-size-in-initial-program 250

;; random element of the set.
(def camel-case-data-domains
  [[(list ""
          "oneword"
          "two-words"
          "two-words and-a-space"
          "all separate words"
          "all-one-word-with-th-dash"
          "saaaaaaaaaaaaaaaaaaaaaame") 7 0] ;; "Special" inputs covering some base cases
   [(fn [] (camel-case-input (inc (lrand-int 20)))) 193 2000]
   ])

;;Can make Camel Case test data like this:
;(test-and-train-data-from-domains camel-case-data-domains)

; Helper function for error function
(defn camel-case-test-cases

                                                    [])]
                       (let [final-state (run-push (:program individual)
                                                   (->> (make-push-state)
                                                        (push-item input :input)))
                             result (stack-ref :string 0 final-state)]
                         (when print-outputs
                           (println (format "\n| Correct output: %s\n| Program output: %s" (pr-str correct-output) (pr-str result))))
                         ; Record the behavior
