 
 (defn interpreter-details
   [i]
-  { :steps (:counter 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

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

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

  })


