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