AutoLISP

From Rosetta Code