 (defn run-program-in-standardized-interpreter
   [id interpreter program bindings]
   (do
-    (println (str "\n\n\nrunning " id " : " ))
     (push/run
       interpreter
       program

    :argument-errors
      (count
        (filter
          #(.contains (:item %)
                      "missing arguments")
                      (push/get-stack i :error)))
    ; :stack-points
    ;   (reduce-kv
    ;     (fn [counts key value]


(defn launch-some-workers
  [interpreter bindings how-many]
  (cp/with-shutdown! [net-pool (cp/threadpool 8)]
    (dorun
      (lazy/upmap net-pool
        #(time
          (println (str "\n"
            (first %) ": "
            (interpreter-details
              (run-program-in-standardized-interpreter
                (first %)
                interpreter
                (second %)
                bindings)))))
        (map sample-program (range how-many))
        ))))

