rInt :: String -> Int
rInt = read

enoutya (a:b:x:y:[]) = min (x + (b / a) * x) (y + (a / b) * y)

main = getLine >>= print . enoutya . map read . words