let bool_of_xml = function
    Xml.Element ("True",_,_) -> true
  | _ -> false