4.3BSD/usr/contrib/icon/book/f/tcopy.icn
procedure tcopy(ltree) local a a := [ltree[1]] every put(a,tcopy(ltree[2 to *ltree])) return a end