(define (xml-identity xml)
  (pre-post-order-splice*
   xml
   `((*default* . ,(lambda (tag elements) (cons tag elements)))
     (*text* . ,(lambda (_ text) text)))))