rewrite lisp version
rewrite lisp version

ccqpein/Arithmetic-Exercises,ccqpein/Arithmetic-Exercises,ccqpein/Arithmetic-Exercises,ccqpein/Arithmetic-Exercises,ccqpein/Arithmetic-Exercises,ccqpein/Arithmetic-Exercises,ccqpein/Arithmetic-Exercises