import Data.List

main = do
    p1 <- readLn
    p2 <- readLn
    getLine
    r <- map read . lines <$> getContents
    let rsort = sort r
    print $ (p1 + p2) * length (filter (== 0) $ zipWith (-) rsort (tail rsort))