Как заменить узлы в HXT?

Учитывая образец XML-файла:

  Content
  Content

как мне заменить каждый тег другим тегом, чтобы я получил другой файл:

В документации [1], похоже, используются фильтры, есть ли способ сделать это с помощью одних только стрелок?

Обновление

Теперь я могу заменить узел следующим образом:

runX $ readDocument [] "in.xml" 
       >>> processTopDown( 
               (eelem "tag2" += sattr "attr2" "XXX" ) 
               `when` (isElem >>> hasName "tag") ) 
       >>> writeDocument [] "test.xml"

но я понятия не имею, как получить атрибут правильно.

[1] http://www.haskell.org/haskellwiki/HXT#Transform_external_references_into_absolute_reference