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
    )