(defun main (&rest argv) (declare (ignorable argv)) (let* ((w (read)) (d (read))) (dotimes (_ (1- d)) (decf w (floor w (* d d))) (decf d)) (format t "~d~%" w))) (main)