(use sxml-transforms)

(define test-rules
 `((*text* . ,(lambda (tag str) str))
   (*default* . ,cons)
   (test-tag . ,(lambda (tag body)
		 (newline)
		 (display "Tag: ") (display tag)
		 (newline)
		 (display "Body: ") (display body)
		 (newline)
		 (cons tag body)))))

(pre-post-order* '(test-tag (@ (test-attr "a")) test-content) (append test-rules '()))