(defun main (&rest argv) (declare (ignorable argv)) (let* ((a (float (read) 0d0)) (b (float (read) 0d0)) (c (float (read) 0d0))) (format t "~f~%" (/ (* a c) b)))) (main)