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

(declare some-codeblock)


(defn some-interval
  [i]
  (iv/make-interval (some-long 100) (some-double 100)))



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


