   "Returns the train and test cases."
   [data-domains]
   (map snow-day-test-cases
-          (test-and-train-data-from-domains data-domains)))
+       (test-and-train-data-from-domains data-domains)))
 
 ; Define train and test cases
 (def snow-day-train-and-test-cases

                                                                               [])]
                         (let [final-state (run-push (:program individual)
                                                     (->> (make-push-state)
                                                       (push-item input4 :input)
                                                       (push-item input3 :input)
                                                       (push-item input2 :input)
                                                       (push-item input1 :input)))
                               result (top-item :float final-state)]
                           (when print-outputs
                             (let [res-str (if (float? result)


; Atom generators
(def snow-day-atom-generators
  (make-proportional-atom-generators
   (concat
    (registered-for-stacks [:integer :float :boolean :exec])
    (list (tag-instruction-erc [:integer :float :boolean :exec] 1000) ; tags
          (tagged-instruction-erc 1000)))
   (list 'in1
         'in2
         'in3
         'in4) ; inputs
   (list 0
         0.0
         1
         1.0
         -1
         -1.0) ; constants
   {:proportion-inputs 0.15
    :proportion-constants 0.05}))


;; A list of data domains for the problem. Each domain is a vector containing
