import Control.Applicative

main = do
  (n:a:b:_) <- (map (read::String->Int)) . words <$> getLine
  xs <- (map (read::String->Int)) . words <$> getLine

  let
    func (x:[]) = []
    func (x:y:ys) = minimum [(y-x)*a, b] : (func (y:ys))

  print $ sum $ func xs
