#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 *);
int scanf(char *, char *);
int /*<<< orphan*/ sprintf(char *, char *, int);
int strtod(char *, int /*<<< orphan*/ *);
int main(int argc, const char *argv[]) {
  int l = 0, e, n, i;
  char num[10000], temp[3], new[4];
  while (scanf("%s\n", num), num[0] != '0') {
    while (num[l] != '\0') {
      l++;
    }
    while (l > 4) {
      e = strtod(&(num[l - 1]), NULL);
      num[--l] = '\0';
      n = strtod(&(num[l - 3]), NULL);
      n = n - (e * 5);
      if (n < 0) {
        n = 1000 + n;
        i = l - 4;
        while (num[i] == '0') {
          num[i] = '9';
          i--;
        }
        num[i] = num[i] - 1;
      }
      sprintf(new, "%03d", n);
      num[l - 3] = new[0];
      num[l - 2] = new[1];
      num[l - 1] = new[2];
    }
    int result = (int)(strtod(num, NULL));
    if (!(result % 17))
      printf("1\n");
    else
      printf("0\n");
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x2740,%rsp
movl   $0x0,-0x4(%rbp)
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
lea    -0x2730(%rbp),%rsi
lea    0xe92(%rip),%rdi
call   1050 <scanf@plt>
movsbl -0x2730(%rbp),%eax
cmp    $0x30,%eax
je     1327 <main+0x1e7>
jmp    1188 <main+0x48>
movslq -0x14(%rbp),%rax
movsbl -0x2730(%rbp,%rax,1),%eax
ff
cmp    $0x0,%eax
je     11ab <main+0x6b>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    1188 <main+0x48>
jmp    11b0 <main+0x70>
cmpl   $0x4,-0x14(%rbp)
jle    12d8 <main+0x198>
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
cltq
lea    -0x2730(%rbp),%rdi
add    %rax,%rdi
xor    %eax,%eax
mov    %eax,%esi
call   1030 <strtod@plt>
mov    %eax,-0x18(%rbp)
mov    -0x14(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x14(%rbp)
cltq
movb   $0x0,-0x2730(%rbp,%rax,1)
mov    -0x14(%rbp),%eax
sub    $0x3,%eax
cltq
lea    -0x2730(%rbp),%rdi
add    %rax,%rdi
xor    %eax,%eax
mov    %eax,%esi
call   1030 <strtod@plt>
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
imul   $0x5,-0x18(%rbp),%ecx
sub    %ecx,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x1c(%rbp)
jge    127e <main+0x13e>
mov    -0x1c(%rbp),%eax
add    $0x3e8,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x4,%eax
mov    %eax,-0x20(%rbp)
movslq -0x20(%rbp),%rax
movsbl -0x2730(%rbp,%rax,1),%eax
ff
cmp    $0x30,%eax
jne    1262 <main+0x122>
movslq -0x20(%rbp),%rax
movb   $0x39,-0x2730(%rbp,%rax,1)
39
mov    -0x20(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x20(%rbp)
jmp    1233 <main+0xf3>
movslq -0x20(%rbp),%rax
movsbl -0x2730(%rbp,%rax,1),%eax
ff
sub    $0x1,%eax
mov    %al,%cl
movslq -0x20(%rbp),%rax
mov    %cl,-0x2730(%rbp,%rax,1)
lea    -0x2737(%rbp),%rdi
mov    -0x1c(%rbp),%edx
lea    0xd75(%rip),%rsi
call   1060 <sprintf@plt>
mov    -0x2737(%rbp),%cl
mov    -0x14(%rbp),%eax
sub    $0x3,%eax
cltq
mov    %cl,-0x2730(%rbp,%rax,1)
mov    -0x2736(%rbp),%cl
mov    -0x14(%rbp),%eax
sub    $0x2,%eax
cltq
mov    %cl,-0x2730(%rbp,%rax,1)
mov    -0x2735(%rbp),%cl
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
cltq
mov    %cl,-0x2730(%rbp,%rax,1)
jmp    11b0 <main+0x70>
lea    -0x2730(%rbp),%rdi
xor    %eax,%eax
mov    %eax,%esi
call   1030 <strtod@plt>
mov    %eax,-0x273c(%rbp)
mov    -0x273c(%rbp),%eax
mov    $0x11,%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
jne    1316 <main+0x1d6>
lea    0xcfd(%rip),%rdi
call   1040 <printf@plt>
jmp    1322 <main+0x1e2>
lea    0xcef(%rip),%rdi
call   1040 <printf@plt>
jmp    1160 <main+0x20>
xor    %eax,%eax
add    $0x2740,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x2728,%rsp
lea    0xea8(%rip),%rdi
lea    0x10(%rsp),%r13
mov    %r13,%rsi
call   1050 <scanf@plt>
cmpb   $0x30,0x10(%rsp)
jne    1180 <main+0x40>
xor    %eax,%eax
add    $0x2728,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
movabs $0x100000000,%rbp
xor    %ebx,%ebx
lea    0xc(%rsp),%r15
jmp    11e7 <main+0xa7>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %r13,%rdi
xor    %esi,%esi
call   1040 <strtod@plt>
imul   $0xf0f0f0f1,%eax,%eax
add    $0x7878787,%eax
cmp    $0xf0f0f0f,%eax
lea    0xe4a(%rip),%rdi
lea    0xe41(%rip),%rax
cmovb  %rax,%rdi
call   1030 <puts@plt>
lea    0xe28(%rip),%rdi
mov    %r13,%rsi
call   1050 <scanf@plt>
cmpb   $0x30,0x10(%rsp)
je     116c <main+0x2c>
mov    %rbx,%r12
shl    $0x20,%r12
movslq %ebx,%rbx
movabs $0xffffffff00000000,%rax
ff ff ff
lea    (%r12,%rax,1),%r14
movabs $0xfffffffa00000000,%rax
ff ff ff
add    %rax,%r12
add    $0xffffffffffffffff,%rbx
add    %rbp,%r14
add    %rbp,%r12
cmpb   $0x0,0x11(%rsp,%rbx,1)
lea    0x1(%rbx),%rbx
jne    1210 <main+0xd0>
cmp    $0x5,%ebx
jl     11a0 <main+0x60>
sar    $0x20,%r12
lea    0xf(%rsp),%rax
add    %rax,%r12
sar    $0x20,%r14
jmp    1284 <main+0x144>
nopl   0x0(%rax)
add    $0x3e8,%eax
add    $0xff,%dl
mov    %dl,(%rcx)
lea    -0x1(%r14),%rbx
mov    %r15,%rdi
lea    0xdac(%rip),%rsi
mov    %eax,%edx
call   1060 <sprintf@plt>
mov    0xc(%rsp),%al
mov    %al,0xc(%rsp,%r14,1)
movzwl 0xd(%rsp),%eax
mov    %ax,0xd(%rsp,%r14,1)
add    $0xffffffffffffffff,%r12
cmp    $0x5,%r14
mov    %rbx,%r14
jle    11a0 <main+0x60>
lea    (%rsp,%r14,1),%rdi
add    $0xf,%rdi
xor    %esi,%esi
call   1040 <strtod@plt>
mov    %eax,%ebx
movb   $0x0,0xf(%rsp,%r14,1)
lea    (%r14,%r13,1),%rdi
add    $0xfffffffffffffffc,%rdi
xor    %esi,%esi
call   1040 <strtod@plt>
lea    (%rbx,%rbx,4),%ecx
sub    %ecx,%eax
jns    124a <main+0x10a>
lea    (%r14,%r13,1),%rcx
add    $0xfffffffffffffffb,%rcx
mov    -0x5(%r14,%r13,1),%dl
cmp    $0x30,%dl
jne    1240 <main+0x100>
mov    %r12,%rsi
nopw   0x0(%rax,%rax,1)
movb   $0x39,(%rcx)
mov    %rsi,%rcx
movzbl (%rsi),%edx
add    $0xffffffffffffffff,%rsi
cmp    $0x30,%dl
je     12d0 <main+0x190>
add    $0x1,%rsi
mov    %rsi,%rcx
jmp    1240 <main+0x100>

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

LLVM IR (-O2):
@.str = [4 x i8] c"%s\0A\00"
@.str.1 = [5 x i8] c"%03d\00"
@str = [2 x i8] c"1\00"
@str.4 = [2 x i8] c"0\00"
define i32 @main(i32 %0, i8** nocapture readnone %1) {
%3 = alloca [10000 x i8]
%4 = alloca [4 x i8]
%5 = getelementptr inbounds [10000 x i8], [10000 x i8]* %3, i64 0, i64 0
%6 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 0
%7 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i8* %5)
%8 = load i8, i8* %5
%9 = icmp eq i8 %8, 48
br i1 %9, label %83, label %10
10: ; preds = %2
%11 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 1
%12 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 2
br label %13
13: ; preds = %10, %73
%14 = phi i64 [ 0, %10 ], [ %74, %73 ]
%15 = shl i64 %14, 32
%16 = ashr exact i64 %15, 32
br label %17
17: ; preds = %17, %13
%18 = phi i64 [ %22, %17 ], [ %16, %13 ]
%19 = getelementptr inbounds [10000 x i8], [10000 x i8]* %3, i64 0, i64 %18
%20 = load i8, i8* %19
%21 = icmp eq i8 %20, 0
%22 = add i64 %18, 1
br i1 %21, label %23, label %17
23: ; preds = %17
%24 = trunc i64 %18 to i32
%25 = icmp sgt i32 %24, 4
br i1 %25, label %26, label %73
26: ; preds = %23
%27 = shl i64 %18, 32
%28 = add i64 %27, -21474836480
%29 = ashr exact i64 %28, 32
%30 = shl i64 %18, 32
%31 = ashr exact i64 %30, 32
br label %32
32: ; preds = %26, %61
%33 = phi i64 [ %31, %26 ], [ %35, %61 ]
%34 = phi i64 [ %29, %26 ], [ %72, %61 ]
%35 = add nsw i64 %33, -1
%36 = getelementptr inbounds [10000 x i8], [10000 x i8]* %3, i64 0, i64 %35
%37 = call i32 @strtod(i8* nocapture %36, i32* null)
store i8 0, i8* %36
%38 = add nsw i64 %33, -4
%39 = getelementptr inbounds [10000 x i8], [10000 x i8]* %3, i64 0, i64 %38
%40 = call i32 @strtod(i8* nocapture %39, i32* null)
%41 = mul i32 %37, -5
%42 = add i32 %40, %41
%43 = icmp slt i32 %42, 0
br i1 %43, label %44, label %61
44: ; preds = %32
%45 = add nsw i32 %42, 1000
%46 = add nsw i64 %33, -5
%47 = getelementptr inbounds [10000 x i8], [10000 x i8]* %3, i64 0, i64 %46
%48 = load i8, i8* %47
%49 = icmp eq i8 %48, 48
br i1 %49, label %50, label %57
50: ; preds = %44, %50
%51 = phi i64 [ %53, %50 ], [ %34, %44 ]
%52 = phi i8* [ %54, %50 ], [ %47, %44 ]
store i8 57, i8* %52
%53 = add i64 %51, -1
%54 = getelementptr inbounds [10000 x i8], [10000 x i8]* %3, i64 0, i64 %53
%55 = load i8, i8* %54
%56 = icmp eq i8 %55, 48
br i1 %56, label %50, label %57
57: ; preds = %50, %44
%58 = phi i8* [ %47, %44 ], [ %54, %50 ]
%59 = phi i8 [ %48, %44 ], [ %55, %50 ]
%60 = add i8 %59, -1
store i8 %60, i8* %58
br label %61
61: ; preds = %57, %32
%62 = phi i32 [ %45, %57 ], [ %42, %32 ]
%63 = call i32 @sprintf(i8* %6, i8* dereferenceable(1) getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i32 %62)
%64 = load i8, i8* %6
store i8 %64, i8* %39
%65 = load i8, i8* %11
%66 = add nsw i64 %33, -3
%67 = getelementptr inbounds [10000 x i8], [10000 x i8]* %3, i64 0, i64 %66
store i8 %65, i8* %67
%68 = load i8, i8* %12
%69 = add nsw i64 %33, -2
%70 = getelementptr inbounds [10000 x i8], [10000 x i8]* %3, i64 0, i64 %69
store i8 %68, i8* %70
%71 = icmp sgt i64 %33, 5
%72 = add nsw i64 %34, -1
br i1 %71, label %32, label %73
73: ; preds = %61, %23
%74 = phi i64 [ %18, %23 ], [ %35, %61 ]
%75 = call i32 @strtod(i8* nocapture %5, i32* null)
%76 = srem i32 %75, 17
%77 = icmp eq i32 %76, 0
%78 = select i1 %77, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @str, i64 0, i64 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @str.4, i64 0, i64 0)
%79 = call i32 @puts(i8* dereferenceable(1) %78)
%80 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i8* %5)
%81 = load i8, i8* %5
%82 = icmp eq i8 %81, 48
br i1 %82, label %83, label %13
83: ; preds = %73, %2
ret i32 0
}