Welcome to the CHICKEN Scheme pasting service

(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!"

(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)))

(define zip (list-zipper '(a (b (c d)))))

(node (down (right (down zip)))) => b

(-> zip down right down node) => b

2> (list-zipper '(a (b (c d))))
#<zip (a (b (c d)))>
3> (down #2)
#<zip a>
4> (right #3)
#<zip (b (c d))>
5> (down #4)
#<zip b>
6> (right #5)
#<zip (c d)>
7> (down #6)
#<zip c>
8> (right #7)
#<zip d>
9> (up (up (up #8)))
#<zip (a (b (c d)))>

2> (list-zipper '(a (b (c d))))
#<zip (a (b (c d)))>
3> (down (right (down #2)))
#<zip b>
4> (replace #3 'XX)
#<zip x>
5> (root #4)
#<zip (a (XX (c d)))>
6> #2
#<zip (a (b (c d)))>