ans :: Integer -> [Integer] -> [Integer]
ans k [] = [k]
ans k (x:y) = min k x : ans x y

main = do
  n <- readLn :: IO Int
  a0:b <- map read . words <$> getLine :: IO [Integer]
  putStrLn . show $ foldl (+) a0 $ ans a0 b
