(use http-client html-parser txpath)

(define wiki/tutorials "http://wiki.call-cc.org/tutorials")

(let ((page (html->sxml (with-input-from-request wiki/tutorials #f read-all))))
  (for-each print ((txpath "//dl/dt/a/text()") page)))