#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
scalar_t__ EOF;
int /*<<< orphan*/ printf(char *, int);
scalar_t__ scanf(char *, int *);
int main() {
  int n, m, ar[9999], sum;
  while (scanf("%d", &n) != EOF && n != 0) {
    ar[0] = 0;
    sum = 0;
    for (m = 1; m <= n; m++) {
      scanf("%d", &ar[m]);
      if (ar[m] >= ar[m - 1]) {
        sum += 6 * (ar[m] - ar[m - 1]) + 5;
      } else
        sum += 4 * (ar[m - 1] - ar[m]) + 5;
    }
    printf("%d\n", sum);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x9c60,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xec7(%rip),%rdi
lea    -0x8(%rbp),%rsi
call   1040 <scanf@plt>
mov    %rax,%rcx
xor    %eax,%eax
mov    0x2e9a(%rip),%rdx
cmp    (%rdx),%rcx
mov    %al,-0x9c55(%rbp)
je     116a <main+0x4a>
cmpl   $0x0,-0x8(%rbp)
setne  %al
mov    %al,-0x9c55(%rbp)
mov    -0x9c55(%rbp),%al
test   $0x1,%al
jne    117d <main+0x5d>
jmp    126b <main+0x14b>
movl   $0x0,-0x9c50(%rbp)
movl   $0x0,-0x9c54(%rbp)
movl   $0x1,-0xc(%rbp)
mov    -0xc(%rbp),%eax
cmp    -0x8(%rbp),%eax
jg     1254 <main+0x134>
movslq -0xc(%rbp),%rax
lea    -0x9c50(%rbp),%rsi
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe43(%rip),%rdi
call   1040 <scanf@plt>
movslq -0xc(%rbp),%rax
mov    -0x9c50(%rbp,%rax,4),%eax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
cmp    -0x9c50(%rbp,%rcx,4),%eax
jl     1215 <main+0xf5>
movslq -0xc(%rbp),%rax
mov    -0x9c50(%rbp,%rax,4),%eax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
sub    -0x9c50(%rbp,%rcx,4),%eax
imul   $0x6,%eax,%eax
add    $0x5,%eax
add    -0x9c54(%rbp),%eax
mov    %eax,-0x9c54(%rbp)
jmp    1241 <main+0x121>
mov    -0xc(%rbp),%eax
sub    $0x1,%eax
cltq
mov    -0x9c50(%rbp,%rax,4),%eax
movslq -0xc(%rbp),%rcx
sub    -0x9c50(%rbp,%rcx,4),%eax
shl    $0x2,%eax
add    $0x5,%eax
add    -0x9c54(%rbp),%eax
mov    %eax,-0x9c54(%rbp)
jmp    1246 <main+0x126>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    1198 <main+0x78>
mov    -0x9c54(%rbp),%esi
lea    0xda2(%rip),%rdi
call   1030 <printf@plt>
jmp    1132 <main+0x12>
xor    %eax,%eax
add    $0x9c60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x9c58,%rsp
lea    0xec8(%rip),%rdi
lea    0xc(%rsp),%rsi
call   1040 <scanf@plt>
mov    0x2e9f(%rip),%rcx
cmp    (%rcx),%rax
je     1213 <main+0xf3>
mov    0xc(%rsp),%eax
test   %eax,%eax
je     1213 <main+0xf3>
lea    0x14(%rsp),%rbp
lea    0xe96(%rip),%r12
lea    0xc(%rsp),%r15
nop
movl   $0x0,0x10(%rsp)
test   %eax,%eax
jle    11e0 <main+0xc0>
xor    %r13d,%r13d
xor    %r14d,%r14d
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %rbp,%rsi
add    %r13,%rsi
mov    %r12,%rdi
call   1040 <scanf@plt>
mov    0x14(%rsp,%r14,4),%eax
mov    0x10(%rsp,%r14,4),%ecx
mov    %eax,%edx
sub    %ecx,%edx
mov    %edx,%esi
neg    %esi
add    %edx,%edx
shl    $0x2,%esi
cmp    %ecx,%eax
lea    (%rdx,%rdx,2),%eax
cmovl  %esi,%eax
add    %eax,%ebx
add    $0x5,%ebx
movslq 0xc(%rsp),%rax
add    $0x1,%r14
add    $0x4,%r13
cmp    %rax,%r14
jl     1190 <main+0x70>
jmp    11e2 <main+0xc2>
cs nopw 0x0(%rax,%rax,1)
xor    %ebx,%ebx
lea    0xe1a(%rip),%rdi
mov    %ebx,%esi
call   1030 <printf@plt>
mov    %r12,%rdi
mov    %r15,%rsi
call   1040 <scanf@plt>
mov    0x2de6(%rip),%rcx
cmp    (%rcx),%rax
je     1213 <main+0xf3>
mov    0xc(%rsp),%eax
test   %eax,%eax
jne    1170 <main+0x50>
xor    %eax,%eax
add    $0x9c58,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [3 x i8] c"%d\00"
@EOF = global i64 0
@.str.1 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca [9999 x i32]
%5 = alloca i32
store i32 0, i32* %1
br label %6
6: ; preds = %70, %0
%7 = call i64 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %2)
%8 = load i64, i64* @EOF
%9 = icmp ne i64 %7, %8
br i1 %9, label %10, label %13
10: ; preds = %6
%11 = load i32, i32* %2
%12 = icmp ne i32 %11, 0
br label %13
13: ; preds = %10, %6
%14 = phi i1 [ false, %6 ], [ %12, %10 ]
br i1 %14, label %15, label %73
15: ; preds = %13
%16 = getelementptr inbounds [9999 x i32], [9999 x i32]* %4, i64 0, i64 0
store i32 0, i32* %16
store i32 0, i32* %5
store i32 1, i32* %3
br label %17
17: ; preds = %67, %15
%18 = load i32, i32* %3
%19 = load i32, i32* %2
%20 = icmp sle i32 %18, %19
br i1 %20, label %21, label %70
21: ; preds = %17
%22 = load i32, i32* %3
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds [9999 x i32], [9999 x i32]* %4, i64 0, i64 %23
%25 = call i64 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %24)
%26 = load i32, i32* %3
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds [9999 x i32], [9999 x i32]* %4, i64 0, i64 %27
%29 = load i32, i32* %28
%30 = load i32, i32* %3
%31 = sub nsw i32 %30, 1
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds [9999 x i32], [9999 x i32]* %4, i64 0, i64 %32
%34 = load i32, i32* %33
%35 = icmp sge i32 %29, %34
br i1 %35, label %36, label %51
36: ; preds = %21
%37 = load i32, i32* %3
%38 = sext i32 %37 to i64
%39 = getelementptr inbounds [9999 x i32], [9999 x i32]* %4, i64 0, i64 %38
%40 = load i32, i32* %39
%41 = load i32, i32* %3
%42 = sub nsw i32 %41, 1
%43 = sext i32 %42 to i64
%44 = getelementptr inbounds [9999 x i32], [9999 x i32]* %4, i64 0, i64 %43
%45 = load i32, i32* %44
%46 = sub nsw i32 %40, %45
%47 = mul nsw i32 6, %46
%48 = add nsw i32 %47, 5
%49 = load i32, i32* %5
%50 = add nsw i32 %49, %48
store i32 %50, i32* %5
br label %66
51: ; preds = %21
%52 = load i32, i32* %3
%53 = sub nsw i32 %52, 1
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds [9999 x i32], [9999 x i32]* %4, i64 0, i64 %54
%56 = load i32, i32* %55
%57 = load i32, i32* %3
%58 = sext i32 %57 to i64
%59 = getelementptr inbounds [9999 x i32], [9999 x i32]* %4, i64 0, i64 %58
%60 = load i32, i32* %59
%61 = sub nsw i32 %56, %60
%62 = mul nsw i32 4, %61
%63 = add nsw i32 %62, 5
%64 = load i32, i32* %5
%65 = add nsw i32 %64, %63
store i32 %65, i32* %5
br label %66
66: ; preds = %51, %36
br label %67
67: ; preds = %66
%68 = load i32, i32* %3
%69 = add nsw i32 %68, 1
store i32 %69, i32* %3
br label %17
70: ; preds = %17
%71 = load i32, i32* %5
%72 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32 %71)
br label %6
73: ; preds = %13
ret i32 0
}

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
@EOF = global i64 0
@.str.1 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [9999 x i32]
%3 = bitcast i32* %1 to i8*
%4 = bitcast [9999 x i32]* %2 to i8*
%5 = call i64 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %1)
%6 = load i64, i64* @EOF
%7 = icmp ne i64 %5, %6
%8 = load i32, i32* %1
%9 = icmp ne i32 %8, 0
%10 = select i1 %7, i1 %9, i1 false
br i1 %10, label %11, label %46
11: ; preds = %0
%12 = getelementptr inbounds [9999 x i32], [9999 x i32]* %2, i64 0, i64 0
br label %13
13: ; preds = %11, %37
%14 = phi i32 [ %8, %11 ], [ %43, %37 ]
store i32 0, i32* %12
%15 = icmp slt i32 %14, 1
br i1 %15, label %37, label %16
16: ; preds = %13, %16
%17 = phi i64 [ %33, %16 ], [ 1, %13 ]
%18 = phi i32 [ %32, %16 ], [ 0, %13 ]
%19 = getelementptr inbounds [9999 x i32], [9999 x i32]* %2, i64 0, i64 %17
%20 = call i64 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %19)
%21 = load i32, i32* %19
%22 = add nsw i64 %17, -1
%23 = getelementptr inbounds [9999 x i32], [9999 x i32]* %2, i64 0, i64 %22
%24 = load i32, i32* %23
%25 = icmp slt i32 %21, %24
%26 = sub nsw i32 %21, %24
%27 = mul nsw i32 %26, 6
%28 = sub nsw i32 %24, %21
%29 = shl nsw i32 %28, 2
%30 = select i1 %25, i32 %29, i32 %27
%31 = add i32 %18, 5
%32 = add i32 %31, %30
%33 = add nuw nsw i64 %17, 1
%34 = load i32, i32* %1
%35 = sext i32 %34 to i64
%36 = icmp slt i64 %17, %35
br i1 %36, label %16, label %37
37: ; preds = %16, %13
%38 = phi i32 [ 0, %13 ], [ %32, %16 ]
%39 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32 %38)
%40 = call i64 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %1)
%41 = load i64, i64* @EOF
%42 = icmp ne i64 %40, %41
%43 = load i32, i32* %1
%44 = icmp ne i32 %43, 0
%45 = select i1 %42, i1 %44, i1 false
br i1 %45, label %13, label %46
46: ; preds = %37, %0
ret i32 0
}