Writing a working swap in newlisp.