(thread-name)
(defn thread-name [] (let [name (.getName (Thread/currentThread))] (if (string/starts-with? name "nREPL") "main" name)))