 (defn launch-some-workers
   [interpreter bindings numbered-programs]
   (doall
-    (map
+    (cp/upmap 2
       #(.write *out*
         (str "\n\n"
           (first %) ": "

;;;; setup

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


;;;;

(defn spit-prisoner-file
  [program bindings exception-message]

            [com.climate.claypoole.lazy :as lazy]
            [acceptance.util :as util]
            [push.util.code-wrangling :as fix]
            [dire.core :refer [with-handler!]]
            )
  (:use midje.sweet)
  )
