   [inputs]
   (map (fn [[in1 in2]]
           (vector [in1 in2]
-                  (apply * 
-                         (first 
-                          (all-pairs-sum-to-target in1 in2)))))
+                  (first (all-pairs-sum-to-target in1 in2))))
        inputs))
 
 (defn make-error-function-from-cases

   :problem-specific-initial-report initial-report
   :report-simplifications 0
   :final-report-simplifications 5000
   :max-error max-number-magnitude})

        [clojush pushstate interpreter random util globals]
        clojush.instructions.tag)
  (:require [clojure.math.numeric-tower :as nt]))

(define-registered
  output_integer1
  ^{:stack-types [:integer]}
  (fn [state]
    (if (empty? (:integer state))
      state
      (let [top-int (top-item :integer state)]
        (stack-assoc top-int :output 0 state)))))

(define-registered
  output_integer2
  ^{:stack-types [:integer]}
  (fn [state]
    (if (empty? (:integer state))
      state
      (let [top-int (top-item :integer state)]
        (stack-assoc top-int :output 1 state)))))

; Atom generators
(def atom-generators
