 (ns clojush.examples.factorial
   (:use [clojush.pushgp.pushgp]
         [clojush.pushstate]
-        [clojush.random]
         [clojush.interpreter]
         [clojure.math.numeric-tower]))
-
-;;;;;;;;;;;;
-;; Integer symbolic regression of factorial, using an input instruction and 
-;; lots of other instructions, a fairly large population (5000), and trivial
-;; geography. Hard but solvable.
 
 (define-registered 
   in 

                           (if (number? top-int)
                             (abs (- top-int (factorial input)))
                             1000000000))))) ;; big penalty, since errors can be big
   :atom-generators (concat (registered-for-type :integer)
                            (registered-for-type :exec)
                            (registered-for-type :boolean)
                            (list (fn [] (lrand-int 100))
                                  'in))
   :max-points 100
   :max-points-in-initial-program 100
   :population-size 5000
   :trivial-geography-radius 10
   })
(def argmap
  {:error-function (fn [program]
                     (doall
                       (for [input (range 1 11)]
                         (let [state (run-push program
                                               (push-item input :auxiliary
                                                          (push-item input :integer
