       ))
 
 
-(future-fact "run some workers in parallel"
+(fact "run some workers in parallel"
   :danger :parallel
   (launch-some-workers
     my-interpreter
     sample-bindings
     sample-programs) =not=> (throws))
-
-
-;;;RISKY
-    ; (launch-some-workers
-    ;   my-interpreter
-    ;   sample-bindings
-    ;   sample-programs)

            [com.climate.claypoole.lazy :as lazy]
            [acceptance.util :as util]
            [push.util.code-wrangling :as fix]
            )
  (:use midje.sweet)
  )

;;;; setup

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


;;;;

(defn run-program-in-standardized-interpreter
  [interpreter program bindings]
    (push/run
      interpreter
      program
      20000
      :bindings bindings
      :config {:step-limit 20000
               :lenient true
               :max-collection-size 138072} ;138072
               ))

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