(defun main (&rest argv) (declare (ignorable argv)) (let* ((query (read)) (res 0d0)) (dotimes (_ query) (let* ((x (read)) (a (float (read) 0d0))) (declare (ignore x)) (incf res a pi))) (format t "~f~%" (* res 3.14159265358979323846)))) (main)