#435 toXmlをCommon.hsに移動させた