(defun main (&rest argv) (declare (ignorable argv)) (let* ((query (read))) (dotimes (_ query) (flet ((f (r) (/ (* 3d0 1.732050807568877d0 (* r r)) 4d0))) (format t "~f~%" (f (read))))))) (main)