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