(def out (ByteArrayOutputStream. 2000))
(def w (transit/writer out :json-verbose))
(transit/write w result)

out
;; => #<ByteArrayOutputStream {"~#sorted-set":[1,2,3,4]}>