(use clojurian-syntax)

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