    'push.type.definitions.quoted.QuotedCode map->QuotedCode
     })
 
+(def prisoner-names
+  (file-seq (clojure.java.io/file "test/acceptance/prisoners")))
+
+
 (def prisoners
   [
-    (edn/read-string {:readers edn-readers}
-                     (slurp "test/acceptance/prisoners/e445321c-22bf-45b2-acce-3aac6acffe61.txt"))
+    ; (edn/read-string {:readers edn-readers}
+    ;                  (slurp "test/acceptance/prisoners/0d18a279-1a6b-4585-b239-3c9c927d2023.txt"))
+    ; (edn/read-string {:readers edn-readers}
+    ;                  (slurp  "test/acceptance/prisoners/e445321c-22bf-45b2-acce-3aac6acffe61.txt"))
   ])
-
 
 (fact "no exceptions are raised when I step through any of these problematic programs"
   :debug :acceptance

          (if (is-done? s)
            (println "DONE")
            (recur (do
              (println (str "\n>>> " (:counter s)
                            "\nstacks (pts): " (fix/count-collection-points (:stacks s))
                            "\nbindings (pts): " (fix/count-collection-points (:bindings s))
                            "\nall items in :log (sum of chars): "
                            (apply (juxt max +')
                              (into '(0)
                                (map
                                  #(count (str (:item %)))
                                  (u/get-stack s :log))))
                            ; "\n items on :exec " (u/get-stack s :exec)
                            ; "\n>>> ATTEMPTING " (pr-str (first (u/get-stack s :exec)))
                            ; "\n items on :OUTPUT " (get-in s [:bindings :OUTPUT] '())

  (-> (make-everything-interpreter
        :config {:step-limit 20000
                 :lenient true
                 :max-collection-size 131072}
        :bindings (:bindings prisoner)
        :program (:program prisoner))
      reset-interpreter))
