У меня есть такая структура данных data ShoppingList a = Empty | Item a | Listofitems [ShoppingList...