 
 
 (defn launch-some-workers
-  [interpreter bindings numbered-programs]
-  (doall
-    (cp/upmap 2
-      #(.write *out*
-        (str "\n\n"
-          (first %) ": "
-          (interpreter-details
-            (run-program-in-standardized-interpreter
-              interpreter
-              (second %)
-              bindings))))
-      numbered-programs)
-      ))
+  [interpreter bindings how-many]
+  (cp/with-shutdown! [net-pool (cp/threadpool 100)]
+    (doall
+      (lazy/upmap net-pool
+        #(.write *out*
+          (str "\n\n"
+            (first %) ": "
+            (interpreter-details
+              (run-program-in-standardized-interpreter
+                interpreter
+                (second %)
+                bindings))))
+        (map sample-program (range how-many))
+        ))))
 
 
 (fact "run some workers in parallel"

  (launch-some-workers
    my-interpreter
    sample-bindings
    sample-programs) =not=> (throws))


;; setup for stress test

(defn sample-program
  [i]
  [i (util/some-program
      program-size
      erc-scale
      erc-prob
      my-interpreter)])



(def sample-bindings
