(define (extract)
  ((sxpath '(// lastBuildDate *text*))
   (call-with-input-string *data* (cut ssax:xml->sxml <> '()))))