vb new_items = list:map (items, (p_item _) {
                                             if (item->weight > level) return 1;
                                             else return 0;
                                           }, (p_item -&w new_item) {
                                                                      new_item->selected = 1;
                                                                    });

