N = gets.to_i
ans = 0
b = gets.split.map &:to_i
N.times do |i|
  if i == 0
    ans += b[i]
    next
  end
  if i == N-1
    ans += b[N-2]
    next
  end
  if b[i-1] <= b[i]
    ans += b[i-1]
  else
    ans += b[i]
  end
end
puts ans