created by newLISP v.9995