    :errors (count (push/get-stack i :error))
    :items (frequencies (map :item (push/get-stack i :error)))
    :scalar (push/get-stack i :scalar)
+   :bindings (:bindings i)
   })
 
 
 (def many-programs
-  (take 100 (repeatedly #(some-program 100 10))))
+  (take 10 (repeatedly #(some-program 1000 10))))
 
 
 (def sample-bindings

(ns acceptance.new-stress-tests
  (:require [push.core :as push]
            [push.type.definitions.quoted :as qc]
            [com.climate.claypoole :as cp]
            )
  (:use midje.sweet))

      (some-bigdec 10000000)
      (some-ascii 1)
      (some-string 10)
      (some-interval 100)
      (vector-of-stuff some-long 100 i)
      (vector-of-stuff some-double 100 i)
      (rand-nth all-the-letters)
