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

(declare some-codeblock)


(def all-the-letters (map keyword (map str (map char (range 97 123)))))



   :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
