(require '[clojure.data.xml :as xml])

(def numbers [2 3 5 7])

(def data-s
  (xml/emit-str
    (xml/element :lst {}
      (for [n numbers]
        (xml/element :i {} (str n))))))
; <lst><i>2</i><i>3</i><i>5</i><i>7</i></lst>

(println data-s)