]> (element book (process-node-list (select-elements (descendants (current-node)) (normalize "programlisting")))) (element programlisting (if (equal? (attribute-string (normalize "role")) "pgpkey") (make sequence (process-children) (literal " ")) (empty-sosofo)))