#!/usr/bin/env gosh
(let ((a (read))
      (b (read))
      (x (read))
      (y (read)))
  (if (< (* (/ b a) x) y)
      (display (inexact (+ x (* (/ b a) x))))
      (display (inexact (+ y (* (/ a b) y)))))
  (newline))