gistfile1.txt

(defn FieldXML [field]
  (str "<field>"
       (str "<id>" (calc-pos (:x field) (:y field))  "</id>")
       (str "<team>"  (:color (:token field))  "</team>")
       (str "<token>" (:val (:token field))  "</token>")
       "</field>"))

(defn BoardXML [board]
  (str "<stratego>"
       (doall (for [field board]
          (FieldXML field)))
       "</stratego>"))