[Mr_F_]

ищи рекурсивно типа

function r(e)
проверяем
на все чайлды вызываем r(чайлд)
end function