Вопрос по массивам и хэшу

1. : bypass_mammonexchange
2.         string mammon-items-list swap m@                 прочитаем список параметров
3.         >r                                                                               в стек возвратов его
4.         wtd@ items# 0= if "You have not item " wtd@ i.name@ s+ .rexit then
5.         paa@ 5575 items# > if "Not enough [ paa@ 5575 items# - ] Ancient Adena" .rexit then
6.         1 wtd@  items_remove
7.         paa@ 5575 items_remove
8.         1 wtg@ items_add
9.         rdrop  сохранённый список более не нужен
10.          
11.          тут можно вывести ещё какой-нибудь диалог, например, вернуться к предыдущему
12. ;

string mammon-items-list swap m@