(use sxml-transforms)

(define test-rules 
  `((test-tag . ,(lambda (tag body)
		   (newline)
		   (display "Tag: ") (display tag)
		   (newline)
		   (display "Body: ") (display body)
		   (newline)))))


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


=>

Tag: test-tag
Body: ((@ ((  test-attr =" ((a)) "))) test-content)