                              (thread-info-fn) (println)
                              )
                 1000)
-    (run-once (executor) (fn [] (System/exit 0) 120000))))
+    (run-once (executor) (fn [] (System/exit 0)) 120000)))
 

        no-op false
        delta-cntr (delta-counter)
        stats-fn (fn []
                   (println
                     "time-delta:" (delta-cntr :time (System/currentTimeMillis)) "ms;"
                     "in:" (long (/ (delta-cntr :in (.value in-cntr)) 1000)) "k;"
                     "out:" (long (/ (delta-cntr :out (.value out-cntr)) 1000)) "k;"))
        out-fn (fn [_ _]
                 (.inc out-cntr))
;        in-data 24N

          (let [^ThreadInfo t-info (.getThreadInfo tmxb ^long t-id)
                t-name (.getThreadName t-info)
                cpu-time (if cpu-time-supported
                           (double (/ (.getThreadCpuTime tmxb t-id) 1000000000.0))
                           -1)
                user-time (if cpu-time-supported
                            (double (/ (.getThreadUserTime tmxb t-id) 1000000000.0))
                            -1)
                waited (.getWaitedTime t-info)
                blocked (.getBlockedTime t-info)]
