program main
integer,allocatable :: a(:),b(:)
integer :: n,i,ans
read *,n
allocate(a(n),b(n-1))
read *,b

ans = b(1)
do i = 2,n-1
if (b(i)<b(i-1)) then
ans = ans + b(i)
else 
ans = ans + b(i-1)
end if
end do
ans = ans + b(n-1)

print *,ans
end program main