         :bindings bindings}
         )))
 
-         ; (try
-         ;   (catch StackOverflowError e
-         ;     (println
-         ;       (str "\n\nSTACK OVERFLOW >>>>>>> "
-         ;            "\n:exec stack: " (push/get-stack interpreter :exec)
-         ;            "\n:log stack:  " (push/get-stack interpreter :log)
-         ;            "\n:counter:    " (:steps interpreter)))
-         ;     (spit-prisoner-file program bindings (.getMessage e))
-         ;     ;(throw (Exception. (.getMessage e)))
-         ;     )
-         ;   (catch Exception e
-         ;     (println (str e))
-         ;     :other-exception
-         ;     )
-         ;   ; (finally
-         ;   ;   (println (str "\n\n running: " program)))
-         ;     ))
 
 (with-handler! #'run-program-in-standardized-interpreter
   "If an interpreter raises an exception, dump a new prisoner file."



(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)
      ))


(fact "run some workers in parallel"

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