Fix XML output from stanza which had multiple roots + add a demonstrator...

Fix XML output from stanza which had multiple roots + add a demonstrator haskell script that was used to fix the problem in place