-- https://atcoder.jp/contests/abc173/tasks/abc173_d
-- 最初に挿入された値は、2番目の値だけで左右を独占するため1度だけ得点になる
-- 2番目以降に挿入された数値は左右にそれぞれ挿入可能なため2度得点にできる
-- 大きい順に挿入することで、常に2回ずつポイントにできる

import Data.List
import Data.Ord

calcPoint :: [Int] -> Int
calcPoint [] = 0
calcPoint vs = (sum . take (length vs) $ concatMap (replicate 2) vs) - head vs

main :: IO ()
main = do
  _ <- getLine
  fs <- sortOn Down . map read . words <$> getLine :: IO [Int]
  print $ calcPoint fs
