(display (let* ((xa (read))
       (ya (read))
       (xb (read))
       (yb (read)))
       (exact->inexact  (/ (+ (* yb xa ) (* ya xb))
          (+ xa xb ) ) ) ))
(newline)