Итератор дерева для обхода в ширину

getBParent=function(node)
  local father=node
  local i=0 -- на сколько уровней поднялись
  repeat
    father=father.parent
    i=i+1
  until (not father) or nextBrother(father)
  if not father then
    return -- нет такого
  else
    return father,i
  end
end

getChild=function(node,i)
  repeat
    local n=node.sons.first  -- node.sons[0]
    if not n then  -- у node детей нет
      local b=nextBrother(node)
      if b then  -- заменим его на следующего брата
        node=b
      else  -- нет брата, обратимся к предкам
        local father,k=getBParent(node)
        if not father then  -- у предков нет братьев
          return  -- значит и нет подходящего ребёнка
        end
        node=father  -- теперь будем искать ребёнка у этого предка
        i=i+k  -- на этом уровне
      end
    else
      node=n
      i=i-1
    end
  until i==0 or not node
  return node
end

next=function(node)
  local i=0
  repeat
    if i==0 then
      local br=nextNode(node)
      if br then
        return br
      end
    else
      local ch=getChild(node,i)
      if ch then
        return ch
      end
    end
    local father,k=getBParent(node)
    if not father then
      return
    end
    i=i+k
    node=father
  until false  
end

next=function(node)
  local i=0
  repeat
    local br=nextNode(node)
    if br then
      if i==0 then
        return br
			else
				local ch=getChild(node,i)
				if ch then
					return ch
				end
      end
    end
    local father,k=getBParent(node)
    if not father then
      return
    end
    i=i+k
    node=father
  until false  
end

next=function(node)
  local i=0
  repeat
    local br=nextNode(node)
    if br then
      if i==0 then
        return br
      else
        local ch=getChild(br,i)  -- тут была ошибка
        if ch then
          return ch
        end
      end
    end
    local father,k=getBParent(node)
    if not father then
      return
    end
    i=i+k
    node=father
  until false  
end