   (.write wkt-writer jts))
 
 (defmulti as-gml (fn [obj] lower-case (get obj "type")))
-(defmethod as-gml "gml" [obj] (get obj "gml"))
+(defmethod as-gml "gml" [obj] (str/replace (get obj "gml") #"<\?[^\?]*\?>" ""))
 (defmethod as-gml :default [obj] nil)
 
 (defmulti as-jts (fn [obj] lower-case (get obj "type")))

  (get obj "jts"))

(defmulti as-simple-gml (fn [obj] lower-case (get obj "type")))
(defmethod as-simple-gml "gml" [obj] 
  (when-let [gml (get obj "gml")]
    (.transform simple-gml-transfomer gml)))
(defmethod as-simple-gml :default [obj] nil)

  #{"Curve" "CompositeCurve" "Arc" "ArcString" "Circle" "LineString"})

(defmethod geometry-group "gml" [obj]
  (let [re-result (re-find #"^(<\?[^\?]*\?>)?<([a-zA-Z0-9]+:)?([^\s]+)" (get obj "gml"))
        type (when re-result (nth re-result 3))]
    (geometry-group* gml-point-types gml-line-types type)))

(def jts-point-types
