                       [: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)))

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


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


(defn random-float

                                     4 (random-char)
                                     5 (random-string)
                                     6 (into '() (bunch-a-junk interpreter 5))
                                     7 (random-integers 5000)
                                     8 (random-booleans)
                                     9 (random-floats 40)
                                     10  (random-chars)
                                     11 (random-strings)

                                     (any-instruction interpreter)))))


