If I understood your correctly ...
(defun foo ( lst )
( (lambda (f) (vl-sort lst '(lambda (a b) (< (f b) (f a)))))
(lambda (x) (strcat (substr x 7 2) (substr x 1 2)(substr x 4 2)))
)
)
Tony is a reference to Tony Tanzillo, who has contributed to the body of knowledge the AutoCAD programming community enjoys to such a degree that any attempt to acknowledge same would fall pathetically short. Regardless, you and I are in his debt.