let xml_of_guid g = Element ("guid", ["isPermaLink", (if g.guid_permalink then "true" else "false") ], [PCData g.guid_name] )