                       [:config :step-limit] 5000)] 
           (try
             (timeout 10000 #(do
-              ; (println (str "\n\n" n " : " (pr-str (:program rando)) "\n" (pr-str (:inputs rando))))
+              (println (str "\n\n" n " : " (pr-str (:program rando)) "\n" (pr-str (:inputs rando))))
               (loop [s rando]
                 (if (is-done? s)
                   (println (str n "  " (:counter s)))

                                     4 (random-char)
                                     5 (random-string)
                                     6 (into '() (bunch-a-junk interpreter 5))
                                     (any-instruction interpreter)))))



  ([range] (rand-int range)))


(defn random-integers
  ([] (random-integers 1000000000))
  ([range] (into [] (repeatedly (random-integer 10) #(random-integer range)))))



(defn random-boolean
  []
  (> 0.5 (rand)))


(defn random-booleans
  [] (into [] (repeatedly (random-integer 10) #(random-boolean))))



(defn random-float
