; your code goes here
(defun list-numbers (&optional(n 100))
  (mapcar #'abs (make-list n :initial-element (- n 1))))
  
  (print (list-numbers))