Common Lisp Tips #17 - Mapcar and Defun - applying discount to many values at once!