(use (only http-client with-input-from-request)
     (only html-parser html->sxml)
     sxpath)

(define (fact)
  (let* ((base-url "http://www.schneierfacts.com/")
         (document (with-input-from-request base-url #f html->sxml)))
    ((sxpath "string(//p[@class=\"fact\"])") document)))

(print (fact))