        read-string
        10000]])
 
-(defn- config
+(defn config
+  "Returns runner configuration derived from system properties."
   []
   (reduce
    (fn [m [prop path coerce default]]

                     :seeds (repeatedly nthreads next-seed)})
          tests))

(defn- prf
  "Print and flush."
  [s]
  (print s) (flush))

(defn dir-tests
  "Returns all tests in dirs"

        ret (reduce
             (fn [{:keys [failures iters nresults]} result]
               (when (:exception result)
                 (print-stack-trace (:exception result)))
               (if (:exception result)
                 (sprn result)
                 (progress))
               {:failures (+ failures (if (:exception result) 1 0))
                :iters (+ iters (:iter result))
