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

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

   :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 10 (repeatedly #(some-program 1000 10))))


(def sample-bindings
