   (def ext-handlers
     {Point
      (make-handler (constantly "point")
-                     (fn [p] (com.cognitect.transit.impl.TaggedValue. "array" [(.x p) (.y p)]))
-                     (constantly nil))
+                   (fn [p] [(.x p) (.y p)])
+                   (constantly nil))
      Circle
      (make-handler (constantly "circle")
-                     (fn [c] (com.cognitect.transit.impl.TaggedValue. "array" [(.c c) (.r c)]))
-                     (constantly nil))})
+                   (fn [c] [(.c c) (.r c)])
+                   (constantly nil))})
 
   (def ext-decoders
     {"point"


   clojure.lang.BigInt
   (reify Handler
     (tag [_ _] "i")
     (rep [_ bi] (biginteger bi))
     (stringRep [_ bi] (str bi))
     (verboseHandler [_] nil))

   clojure.lang.Keyword

  (write w [#{1 2} #{1 2}])
  (write w (int-array (range 10)))
  (write w {[:a :b] 2})
  (write w [123N])

  (def in (ByteArrayInputStream. (.toByteArray out)))

