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


; Atom generators
(def substitution-cipher-atom-generators
  (concat (list
            ;;; end constants
            ;;; end ERCs
            (tag-instruction-erc [:integer :boolean :exec :string :char] 1000)
            (tagged-instruction-erc 1000)
            ;;; end tag ERCs
            'in1
            'in2
            'in3
            ;;; end input instructions
            )
          (registered-for-stacks [:integer :boolean :exec :char :string])))

;; Define test cases
(defn substitution-cipher-input

  [inputs]
  (map (fn [[in1 in2 in3]]
         (vector [in1 in2 in3]
           (apply str (map (zipmap in1 in2)
                           (map char in3)))))
       inputs))

(defn make-substitution-cipher-error-function-from-cases
