(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read)) (d (read)) (x (read-line)) (v (loop repeat n sum (read)))) (declare (ignore x)) (format t "~d~%" (ceiling d v)))) (main)