Grade School exercise for Common Lisp