 (ns acceptance.new-stress-tests
   (:require [push.core :as push]
             [com.climate.claypoole :as cp]
+            [com.climate.claypoole.lazy :as lazy]
             [acceptance.util :as util]
             [push.util.code-wrangling :as fix]
             )

                      (push/get-stack i :error)))
    :stack-points
      (reduce-kv
        (fn [counts stackname stack]
          (assoc counts stackname
            (str (count stack) "(" (fix/count-collection-points stack) " pts)")))
        {}
        (:stacks i))
    :binding-points
      (reduce-kv
        (fn [counts bindingname b]
          (assoc counts bindingname
            (str (count bindingname) " (" (fix/count-collection-points b) " pts)")))
        {}
        (:bindings i))
  })




(defn interpreter-details
  [i]
  { :program-size
      (str
        (count (:program i))
        " (" (fix/count-collection-points (:program i)) ")")
    :steps (:counter i)
    :errors (count (push/get-stack i :error))
    :argument-errors
      (count
