let opt_element opt s =
  match opt with
    None -> []
  | Some v -> [Element (s, [], [PCData v])]