let items_of_xmls xmls =
List.rev
(List.fold_left
(fun acc e ->
match e with
PCData _ -> acc
| Element (s,_,subs) when String.lowercase s = "item" ->
(item_of_xmls subs) :: acc
| Element _ -> acc
)
[]
xmls
)