(define (random-qwantz-quote)
  (and-let* ((x (call-with-input-request "http://www.qwantz.com/index.php" #f html->sxml))
             (x (sxml-zipper x))
             (x (find-first x (equals "randomquote")))
             (x (parent x (tag= 'div)))
             (x (find-all x (tag= 'a))))
    (text (last x))))

(random-qwantz-quote) => "Hey!  That's your cue, readers!"