let
xmls_of_opt_f f v_opt =
match
v_opt
with
None
->
[]
|
Some
v
->
[f v]