 
 (fact "I can create and run 1000 random programs without an exception"
   :slow :acceptance
-  (dotimes [n 10000] 
+  (dotimes [n 1000] 
     (let [rando (reset-interpreter (random-program-interpreter 10 200))] 
       (try
         (loop [s rando]


(defn bunch-a-junk
  [interpreter how-much-junk]
  (repeatedly how-much-junk #(condp = (rand-int 10)
                                     0 (random-integer)
                                     1 (random-float)
                                     2 (random-boolean)
                                     3 (any-input interpreter)
                                     4 (random-char)
                                     5 (random-string)
                                     (any-instruction interpreter))))


(defn random-program-interpreter

                                 (.getMessage e)
                                 " running "
                                 (pr-str (:program rando))
                                 "\n" (pr-str (:inputs rando))
                                 )))))))
