(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))) (main)