let xml_of_enclosure e =
  Element ("enclosure",
           [
             "url", e.encl_url ;
             "length", string_of_int e.encl_length ;
             "type", e.encl_type ;
           ],
           []
          )