procedure visit(ltree)
   suspend ltree | visit(ltree[2 to *ltree])
end