index = 0
innerIndex = 0
list
item
itemCategory
roll

(block (innerList)
	(setq innerList (item (categoryListIndex item)))
	(loop (ls innerIndex (count innerList))
		(if (ls roll (item innerIndex innerList)
			(enhance item (item (add 1 innerIndex) innerList)

			;break the inner loop
			(setq innerIndex 50000)

		)
		(setq innerIndex (add 2 innerIndex))
	)
)