-- инициализация -----------------------------------

Array = {1,2," три ",4,5," шесть ",7,8,9}

-- свойство таблицы --------------------------------

function Array:EnumeratorEven(Idx)
  return Idx*2 > #self and nil or Idx*2
end	

-- печать таблицы по определенному свойству  -------

function PrintEven(Container)
  local I,R = 0,''
  repeat
    I = I + 1	
    local T = Array[Array:EnumeratorEven(I)]
    if T then R = R .. T else break end
  until (false)
  print("Res: " .. R)	
end	

-- точка начала исполнения -------------------------

PrintEven(Array)