Commen Lisp

100 to 10000
setf to defparameter
sum to *sum*