Autocad layer lisp. It's a renamer for blocks and layers.