(use sxml.ssax)
(use sxml.sxpath)
(use rfc.http)
(use util.match)

(define *data* (values-ref (http-get "ja.doukaku.org" "/feeds/comments") 2))

(define (extract)
  (match ((sxpath '(// lastBuildDate))
          (call-with-input-string *data* (cut ssax:xml->sxml <> '())))
    [(('lastBuildDate content) . _) content]
    [else #f]))