(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read)) (h (read)) (xs (mapcar #'(lambda (x) (+ x h)) (loop repeat n collect (read))))) (format t "~{~d~^ ~}~%" xs))) (main)