4.3BSD/usr/contrib/icon/book/16/visit.icn

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