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