#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 */
int /*<<< orphan*/ printf(char *, long);
int /*<<< orphan*/ scanf(char *, long *);
int main() {
  long k, i, x, t[7990] = {}, p;
  scanf("%ld", &k);
  for (i = 0; i < k; i++) {
    scanf("%ld", &x);
    t[x - 10102010]++;
  }
  x = 0;
  for (i = 0; i < 7990; i++) {
    p = t[i];
    if (p) {
      x += 100;
      if (p > 5)
        x += p - 5;
    }
  }
  printf("%ld\n", x);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0xf9e0,%rsp
movl   $0x0,-0x4(%rbp)
lea    -0xf9d0(%rbp),%rdi
xor    %esi,%esi
mov    $0xf9b0,%edx
call   1040 <memset@plt>
lea    0xea4(%rip),%rdi
lea    -0x10(%rbp),%rsi
call   1050 <scanf@plt>
movq   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    11ba <main+0x8a>
lea    0xe7e(%rip),%rdi
lea    -0x20(%rbp),%rsi
call   1050 <scanf@plt>
mov    -0x20(%rbp),%rax
sub    $0x9a24fa,%rax
mov    -0xf9d0(%rbp,%rax,8),%rcx
ff
add    $0x1,%rcx
mov    %rcx,-0xf9d0(%rbp,%rax,8)
ff
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    116d <main+0x3d>
movq   $0x0,-0x20(%rbp)
movq   $0x0,-0x18(%rbp)
cmpq   $0x1f36,-0x18(%rbp)
jge    1241 <main+0x111>
mov    -0x18(%rbp),%rax
mov    -0xf9d0(%rbp,%rax,8),%rax
ff
mov    %rax,-0xf9d8(%rbp)
cmpq   $0x0,-0xf9d8(%rbp)
je     122b <main+0xfb>
mov    -0x20(%rbp),%rax
add    $0x64,%rax
mov    %rax,-0x20(%rbp)
cmpq   $0x5,-0xf9d8(%rbp)
05
jle    1226 <main+0xf6>
mov    -0xf9d8(%rbp),%rax
sub    $0x5,%rax
add    -0x20(%rbp),%rax
mov    %rax,-0x20(%rbp)
jmp    122b <main+0xfb>
jmp    1230 <main+0x100>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    11ca <main+0x9a>
mov    -0x20(%rbp),%rsi
lea    0xdb8(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0xf9e0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r15
push   %r14
push   %rbx
sub    $0xf9c0,%rsp
lea    0x10(%rsp),%rdi
mov    $0xf9b0,%edx
xor    %esi,%esi
call   1040 <memset@plt>
lea    0xeac(%rip),%rdi
lea    0x8(%rsp),%rsi
call   1050 <scanf@plt>
cmpq   $0x0,0x8(%rsp)
jle    11a3 <main+0x73>
xor    %ebx,%ebx
lea    0xe91(%rip),%r14
mov    %rsp,%r15
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    %r14,%rdi
mov    %r15,%rsi
call   1050 <scanf@plt>
mov    (%rsp),%rax
addq   $0x1,-0x4d127c0(%rsp,%rax,8)
fb 01
add    $0x1,%rbx
cmp    0x8(%rsp),%rbx
jl     1180 <main+0x50>
movq   $0x0,(%rsp)
mov    $0x1,%eax
xor    %esi,%esi
jmp    11cc <main+0x9c>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
add    $0x2,%rax
cmp    $0x1f37,%rax
je     1214 <main+0xe4>
mov    0x8(%rsp,%rax,8),%rcx
test   %rcx,%rcx
je     11ef <main+0xbf>
add    $0x64,%rsi
mov    %rsi,(%rsp)
cmp    $0x6,%rcx
jl     11ef <main+0xbf>
add    %rcx,%rsi
add    $0xfffffffffffffffb,%rsi
mov    %rsi,(%rsp)
mov    0x10(%rsp,%rax,8),%rcx
test   %rcx,%rcx
je     11c0 <main+0x90>
add    $0x64,%rsi
mov    %rsi,(%rsp)
cmp    $0x6,%rcx
jl     11c0 <main+0x90>
add    %rcx,%rsi
add    $0xfffffffffffffffb,%rsi
mov    %rsi,(%rsp)
jmp    11c0 <main+0x90>
lea    0xde9(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0xf9c0,%rsp
pop    %rbx
pop    %r14
pop    %r15
ret

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

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