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