toInt :: String -> Int
toInt = read :: String -> Int

main = do
  n <- toInt <$> getLine
  k <- toInt <$> getLine
  x <- toInt <$> getLine
  y <- toInt <$> getLine
  print $ x * (min n k) + y * (max (n-k) 0)
