 
 (defn launch-some-workers
   [interpreter bindings how-many]
-  (cp/with-shutdown! [net-pool (cp/threadpool 100)]
+  (cp/with-shutdown! [net-pool (cp/threadpool 16)]
     (doall
       (lazy/upmap net-pool
         #(.write *out*

;;;; setup

(def my-interpreter (push/interpreter))
(def cohort-size 100)
(def program-size 1000)
(def erc-scale 10)
(def erc-prob 3/5)

(with-handler! #'run-program-in-standardized-interpreter
  "If an interpreter raises an exception, dump a new prisoner file."
  [java.lang.StackOverflowError, java.lang.NullPointerException]
  (fn [e interpreter program bindings]
    (do
      (println
        (str "\n\nWRITING FILE >>>>>>> " (str e)))
      (println "\n\n saving prisoner: ")
      (spit-prisoner-file
        program
        bindings
        (.getMessage e)))
        ))

