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