int main() {
  char egn[12];
  int l, egn_control, months, i;
  scanf("%s", egn);
  l = strlen(egn);
  if (l != 10) {
    printf("0");
    return 0;
  }
  for (i = 0; i < l; i++) {
    egn[i] = (egn[i] - 48);
  }
  months = (egn[2]) * 10 + (egn[3]);
  if (months < 1 && months > 12) {
    printf("0");
    return 0;
  }
  if (months < 1 + 20 && months > 12 + 20) {
    printf("0");
    return 0;
  }
  if (months < 1 + 40 && months > 12 + 40) {
    printf("0");
    return 0;
  }
  egn_control = (egn[0] * 2) + (egn[1] * 4) + (egn[2] * 8) + (egn[3] * 5) +
                (egn[4] * 10) + (egn[5] * 9) + (egn[6] * 7) + (egn[7] * 3) +
                (egn[8] * 6);
  egn_control = egn_control % 11;
  if (egn_control == 10) {
    egn_control = 0;
  }
  if (egn[9] != egn_control) {
    printf("0");
  } else {
    printf("1");
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
movl   $0x0,-0x4(%rbp)
lea    -0x10(%rbp),%rsi
lea    0xeb6(%rip),%rdi
mov    $0x0,%al
call   1050 <scanf@plt>
lea    -0x10(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x14(%rbp)
cmpl   $0xa,-0x14(%rbp)
je     1181 <main+0x51>
lea    0xe95(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
movl   $0x0,-0x4(%rbp)
jmp    12f8 <main+0x1c8>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11b8 <main+0x88>
movslq -0x20(%rbp),%rax
movsbl -0x10(%rbp,%rax,1),%eax
sub    $0x30,%eax
mov    %al,%cl
movslq -0x20(%rbp),%rax
mov    %cl,-0x10(%rbp,%rax,1)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1188 <main+0x58>
movsbl -0xe(%rbp),%eax
imul   $0xa,%eax,%eax
movsbl -0xd(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x1,-0x1c(%rbp)
jge    11f6 <main+0xc6>
cmpl   $0xc,-0x1c(%rbp)
jle    11f6 <main+0xc6>
lea    0xe20(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
movl   $0x0,-0x4(%rbp)
jmp    12f8 <main+0x1c8>
cmpl   $0x15,-0x1c(%rbp)
jge    1224 <main+0xf4>
cmpl   $0x20,-0x1c(%rbp)
jle    1224 <main+0xf4>
lea    0xdf2(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
movl   $0x0,-0x4(%rbp)
jmp    12f8 <main+0x1c8>
cmpl   $0x29,-0x1c(%rbp)
jge    1252 <main+0x122>
cmpl   $0x34,-0x1c(%rbp)
jle    1252 <main+0x122>
lea    0xdc4(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
movl   $0x0,-0x4(%rbp)
jmp    12f8 <main+0x1c8>
movsbl -0x10(%rbp),%eax
shl    $0x1,%eax
movsbl -0xf(%rbp),%ecx
shl    $0x2,%ecx
add    %ecx,%eax
movsbl -0xe(%rbp),%ecx
shl    $0x3,%ecx
add    %ecx,%eax
movsbl -0xd(%rbp),%ecx
imul   $0x5,%ecx,%ecx
add    %ecx,%eax
movsbl -0xc(%rbp),%ecx
imul   $0xa,%ecx,%ecx
add    %ecx,%eax
movsbl -0xb(%rbp),%ecx
imul   $0x9,%ecx,%ecx
add    %ecx,%eax
movsbl -0xa(%rbp),%ecx
imul   $0x7,%ecx,%ecx
add    %ecx,%eax
movsbl -0x9(%rbp),%ecx
imul   $0x3,%ecx,%ecx
add    %ecx,%eax
movsbl -0x8(%rbp),%ecx
imul   $0x6,%ecx,%ecx
add    %ecx,%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%eax
mov    $0xb,%ecx
cltd
idiv   %ecx
mov    %edx,-0x18(%rbp)
cmpl   $0xa,-0x18(%rbp)
jne    12c3 <main+0x193>
movl   $0x0,-0x18(%rbp)
movsbl -0x7(%rbp),%eax
cmp    -0x18(%rbp),%eax
je     12e3 <main+0x1b3>
lea    0xd2c(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
jmp    12f1 <main+0x1c1>
lea    0xd1b(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r14
push   %rbx
sub    $0x20,%rsp
lea    0xee1(%rip),%rdi
xor    %r14d,%r14d
lea    0x4(%rsp),%rbx
mov    %rbx,%rsi
xor    %eax,%eax
call   1050 <scanf@plt>
mov    %rbx,%rdi
call   1040 <strlen@plt>
mov    $0x30,%edi
cmp    $0xa,%eax
jne    124e <main+0x11e>
mov    0x4(%rsp),%sil
mov    0x5(%rsp),%dl
add    $0xd0,%sil
mov    %sil,0x4(%rsp)
add    $0xd0,%dl
mov    %dl,0x5(%rsp)
mov    0x6(%rsp),%bl
add    $0xd0,%bl
mov    %bl,0x6(%rsp)
movd   0x7(%rsp),%xmm0
paddb  0xe67(%rip),%xmm0
movdqa %xmm0,0x10(%rsp)
mov    0x10(%rsp),%eax
mov    %eax,0x7(%rsp)
mov    0xb(%rsp),%al
add    $0xd0,%al
mov    %al,0xb(%rsp)
mov    0xc(%rsp),%cl
add    $0xd0,%cl
mov    %cl,0xc(%rsp)
mov    0xd(%rsp),%dil
add    $0xd0,%dil
mov    %dil,0xd(%rsp)
movsbl %bl,%ebx
movsbl %sil,%esi
movsbl %dl,%edx
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm0
psrad  $0x18,%xmm0
pmaddwd 0xe27(%rip),%xmm0
movsbl %al,%eax
lea    (%rax,%rax,2),%eax
movsbl %cl,%ecx
lea    (%rcx,%rcx,2),%ecx
pshufd $0xee,%xmm0,%xmm1
paddd  %xmm0,%xmm1
pshufd $0x55,%xmm1,%xmm0
paddd  %xmm1,%xmm0
movd   %xmm0,%ebp
add    %eax,%ebp
lea    0x0(%rbp,%rcx,2),%eax
lea    (%rax,%rbx,8),%eax
lea    (%rax,%rsi,2),%eax
lea    (%rax,%rdx,4),%eax
cltq
imul   $0x2e8ba2e9,%rax,%rcx
mov    %rcx,%rdx
shr    $0x3f,%rdx
sar    $0x21,%rcx
add    %edx,%ecx
lea    (%rcx,%rcx,4),%edx
lea    (%rcx,%rdx,2),%ecx
sub    %ecx,%eax
cmp    $0xa,%eax
cmove  %r14d,%eax
movsbl %dil,%ecx
xor    %edi,%edi
cmp    %ecx,%eax
sete   %dil
or     $0x30,%edi
call   1030 <putchar@plt>
xor    %eax,%eax
add    $0x20,%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
@.str = [3 x i8] c"%s\00"
@.str.1 = [2 x i8] c"0\00"
@.str.2 = [2 x i8] c"1\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [12 x i8]
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
store i32 0, i32* %1
%7 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 0
%8 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i8* %7)
%9 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 0
%10 = call i64 @strlen(i8* %9)
%11 = trunc i64 %10 to i32
store i32 %11, i32* %3
%12 = load i32, i32* %3
%13 = icmp ne i32 %12, 10
br i1 %13, label %14, label %16
14: ; preds = %0
%15 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
store i32 0, i32* %1
br label %128
16: ; preds = %0
store i32 0, i32* %6
br label %17
17: ; preds = %32, %16
%18 = load i32, i32* %6
%19 = load i32, i32* %3
%20 = icmp slt i32 %18, %19
br i1 %20, label %21, label %35
21: ; preds = %17
%22 = load i32, i32* %6
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 %23
%25 = load i8, i8* %24
%26 = sext i8 %25 to i32
%27 = sub nsw i32 %26, 48
%28 = trunc i32 %27 to i8
%29 = load i32, i32* %6
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 %30
store i8 %28, i8* %31
br label %32
32: ; preds = %21
%33 = load i32, i32* %6
%34 = add nsw i32 %33, 1
store i32 %34, i32* %6
br label %17
35: ; preds = %17
%36 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 2
%37 = load i8, i8* %36
%38 = sext i8 %37 to i32
%39 = mul nsw i32 %38, 10
%40 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 3
%41 = load i8, i8* %40
%42 = sext i8 %41 to i32
%43 = add nsw i32 %39, %42
store i32 %43, i32* %5
%44 = load i32, i32* %5
%45 = icmp slt i32 %44, 1
br i1 %45, label %46, label %51
46: ; preds = %35
%47 = load i32, i32* %5
%48 = icmp sgt i32 %47, 12
br i1 %48, label %49, label %51
49: ; preds = %46
%50 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
store i32 0, i32* %1
br label %128
51: ; preds = %46, %35
%52 = load i32, i32* %5
%53 = icmp slt i32 %52, 21
br i1 %53, label %54, label %59
54: ; preds = %51
%55 = load i32, i32* %5
%56 = icmp sgt i32 %55, 32
br i1 %56, label %57, label %59
57: ; preds = %54
%58 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
store i32 0, i32* %1
br label %128
59: ; preds = %54, %51
%60 = load i32, i32* %5
%61 = icmp slt i32 %60, 41
br i1 %61, label %62, label %67
62: ; preds = %59
%63 = load i32, i32* %5
%64 = icmp sgt i32 %63, 52
br i1 %64, label %65, label %67
65: ; preds = %62
%66 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
store i32 0, i32* %1
br label %128
67: ; preds = %62, %59
%68 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 0
%69 = load i8, i8* %68
%70 = sext i8 %69 to i32
%71 = mul nsw i32 %70, 2
%72 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 1
%73 = load i8, i8* %72
%74 = sext i8 %73 to i32
%75 = mul nsw i32 %74, 4
%76 = add nsw i32 %71, %75
%77 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 2
%78 = load i8, i8* %77
%79 = sext i8 %78 to i32
%80 = mul nsw i32 %79, 8
%81 = add nsw i32 %76, %80
%82 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 3
%83 = load i8, i8* %82
%84 = sext i8 %83 to i32
%85 = mul nsw i32 %84, 5
%86 = add nsw i32 %81, %85
%87 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 4
%88 = load i8, i8* %87
%89 = sext i8 %88 to i32
%90 = mul nsw i32 %89, 10
%91 = add nsw i32 %86, %90
%92 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 5
%93 = load i8, i8* %92
%94 = sext i8 %93 to i32
%95 = mul nsw i32 %94, 9
%96 = add nsw i32 %91, %95
%97 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 6
%98 = load i8, i8* %97
%99 = sext i8 %98 to i32
%100 = mul nsw i32 %99, 7
%101 = add nsw i32 %96, %100
%102 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 7
%103 = load i8, i8* %102
%104 = sext i8 %103 to i32
%105 = mul nsw i32 %104, 3
%106 = add nsw i32 %101, %105
%107 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 8
%108 = load i8, i8* %107
%109 = sext i8 %108 to i32
%110 = mul nsw i32 %109, 6
%111 = add nsw i32 %106, %110
store i32 %111, i32* %4
%112 = load i32, i32* %4
%113 = srem i32 %112, 11
store i32 %113, i32* %4
%114 = load i32, i32* %4
%115 = icmp eq i32 %114, 10
br i1 %115, label %116, label %117
116: ; preds = %67
store i32 0, i32* %4
br label %117
117: ; preds = %116, %67
%118 = getelementptr inbounds [12 x i8], [12 x i8]* %2, i64 0, i64 9
%119 = load i8, i8* %118
%120 = sext i8 %119 to i32
%121 = load i32, i32* %4
%122 = icmp ne i32 %120, %121
br i1 %122, label %123, label %125
123: ; preds = %117
%124 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
br label %127
125: ; preds = %117
%126 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.2, i64 0, i64 0))
br label %127
127: ; preds = %125, %123
store i32 0, i32* %1
br label %128
128: ; preds = %127, %65, %57, %49, %14
%129 = load i32, i32* %1
ret i32 %129
}

LLVM IR (-O2):
@.str = [3 x i8] c"%s\00"
define i32 @main() {
%1 = alloca [12 x i8]
%2 = getelementptr inbounds [12 x i8], [12 x i8]* %1, i64 0, i64 0
%3 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i8* %2)
%4 = call i64 @strlen(i8* %2)
%5 = trunc i64 %4 to i32
%6 = icmp eq i32 %5, 10
br i1 %6, label %7, label %60
7: ; preds = %0
%8 = load i8, i8* %2
%9 = add i8 %8, -48
store i8 %9, i8* %2
%10 = getelementptr inbounds [12 x i8], [12 x i8]* %1, i64 0, i64 1
%11 = load i8, i8* %10
%12 = add i8 %11, -48
store i8 %12, i8* %10
%13 = getelementptr inbounds [12 x i8], [12 x i8]* %1, i64 0, i64 2
%14 = load i8, i8* %13
%15 = add i8 %14, -48
store i8 %15, i8* %13
%16 = getelementptr inbounds [12 x i8], [12 x i8]* %1, i64 0, i64 3
%17 = getelementptr inbounds [12 x i8], [12 x i8]* %1, i64 0, i64 4
%18 = getelementptr inbounds [12 x i8], [12 x i8]* %1, i64 0, i64 5
%19 = getelementptr inbounds [12 x i8], [12 x i8]* %1, i64 0, i64 6
%20 = bitcast i8* %16 to <4 x i8>*
%21 = load <4 x i8>, <4 x i8>* %20
%22 = add <4 x i8> %21, <i8 -48, i8 -48, i8 -48, i8 -48>
%23 = extractelement <4 x i8> %22, i64 0
store i8 %23, i8* %16
%24 = extractelement <4 x i8> %22, i64 1
store i8 %24, i8* %17
%25 = extractelement <4 x i8> %22, i64 2
store i8 %25, i8* %18
%26 = extractelement <4 x i8> %22, i64 3
store i8 %26, i8* %19
%27 = getelementptr inbounds [12 x i8], [12 x i8]* %1, i64 0, i64 7
%28 = load i8, i8* %27
%29 = add i8 %28, -48
store i8 %29, i8* %27
%30 = getelementptr inbounds [12 x i8], [12 x i8]* %1, i64 0, i64 8
%31 = load i8, i8* %30
%32 = add i8 %31, -48
store i8 %32, i8* %30
%33 = getelementptr inbounds [12 x i8], [12 x i8]* %1, i64 0, i64 9
%34 = load i8, i8* %33
%35 = add i8 %34, -48
store i8 %35, i8* %33
%36 = sext i8 %15 to i32
%37 = sext i8 %9 to i32
%38 = shl nsw i32 %37, 1
%39 = sext i8 %12 to i32
%40 = shl nsw i32 %39, 2
%41 = shl nsw i32 %36, 3
%42 = sext <4 x i8> %22 to <4 x i32>
%43 = mul nsw <4 x i32> %42, <i32 5, i32 10, i32 9, i32 7>
%44 = sext i8 %29 to i32
%45 = mul nsw i32 %44, 3
%46 = sext i8 %32 to i32
%47 = mul nsw i32 %46, 6
%48 = call i32 @llvm.vector.reduce.add.v4i32(<4 x i32> %43)
%49 = add i32 %48, %45
%50 = add i32 %49, %47
%51 = add nsw i32 %50, %41
%52 = add nsw i32 %51, %38
%53 = add nsw i32 %52, %40
%54 = srem i32 %53, 11
%55 = icmp eq i32 %54, 10
%56 = select i1 %55, i32 0, i32 %54
%57 = sext i8 %35 to i32
%58 = icmp eq i32 %56, %57
%59 = select i1 %58, i32 49, i32 48
br label %60
60: ; preds = %0, %7
%61 = phi i32 [ %59, %7 ], [ 48, %0 ]
%62 = call i32 @putchar(i32 %61)
ret i32 0
}