let _, rev_items = X.list_rev_map_filter_fold filter [] items in
let items = List.rev rev_items in
let local_items, global_items = List.partition partition items in
let comment = T.Line (Printf.sprintf "From %s" name) in
if global_items <> [] then
set_items st st.input_package (comment :: global_items);
let _, rev_items = X.list_rev_map_filter_fold filter [] items in
let items = List.rev rev_items in
let local_items, global_items = List.partition partition items in
let comment = T.Line (Printf.sprintf "From %s" name) in
if global_items <> [] then
set_items st st.input_package (comment :: global_items);