Simple (100 line) XML and JSON writing combinators