#lang racket
(require "xexprs/xexprs.rkt")

(define (sitemap urls)
  (string-append
   "<?xml version="1.0" encoding="UTF-8"?>"
   (xexprs
    `(urlset #:xmlns "http://www.sitemaps.org/schemas/sitemap/0.9" ,@urls))))