XML-Serialisierung

...für algebraische Datentypen

data Tree 
    = Branch { left :: Tree, right :: Tree }
    | Leaf { key :: Int }
x = Branch { left = Leaf { key = 2 }
           , right = Leaf { key = 3 } }

Wie sollte das als XML aussehen? -- So:

<tree><branch>
  <left><tree><leaf><key><int val="2"/>
        </key></leaf></tree></left> .. 
</branch></tree>