Pretty print clojure code

test.clj

(use 'clojure.pprint)
(require ' [clojure.edn :as edn])

 (let [file-contents (slurp "clojure_test2.clj")
       process-file (with-out-str
                      (clojure.pprint/write
                        (edn/read-string (str "[" file-contents "]"))
                        :dispatch
                        clojure.pprint/code-dispatch))]
   (println (subs process-file 1 (- (.length process-file) 1))))