#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 strlen(char *);
int main() {
  char num[1000000];
  int len, i, n, a, k;
  while (scanf("%s", num) == 1) {
    if (num[0] == '0') {
      break;
    } else {
      n = 0, a = 0;
      len = strlen(num);
      for (i = 0; i < len; i++) {
        a = a + (num[i] - '0');
      }
      k = a % 9;
      if (k == 0) {
        printf("9\n");
      } else if (a >= 10 && k != 9) {
        n = a - 9 * (a / 9);
        printf("%d\n", n);
        n = 0;
      } else {
        printf("%d\n", a);
        a = 0;
      }
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0xf4270,%rsp
movl   $0x0,-0x4(%rbp)
lea    -0xf4250(%rbp),%rsi
lea    0xeb0(%rip),%rdi
call   1050 <scanf@plt>
cmp    $0x1,%eax
jne    12b4 <main+0x184>
movsbl -0xf4250(%rbp),%eax
cmp    $0x30,%eax
jne    1173 <main+0x43>
jmp    12b4 <main+0x184>
movl   $0x0,-0xf425c(%rbp)
movl   $0x0,-0xf4260(%rbp)
lea    -0xf4250(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0xf4254(%rbp)
movl   $0x0,-0xf4258(%rbp)
mov    -0xf4258(%rbp),%eax
cmp    -0xf4254(%rbp),%eax
jge    11e9 <main+0xb9>
mov    -0xf4260(%rbp),%eax
movslq -0xf4258(%rbp),%rcx
movsbl -0xf4250(%rbp,%rcx,1),%ecx
ff
sub    $0x30,%ecx
add    %ecx,%eax
mov    %eax,-0xf4260(%rbp)
mov    -0xf4258(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xf4258(%rbp)
jmp    11a3 <main+0x73>
mov    -0xf4260(%rbp),%eax
mov    $0x9,%ecx
cltd
idiv   %ecx
mov    %edx,-0xf4264(%rbp)
cmpl   $0x0,-0xf4264(%rbp)
jne    121d <main+0xed>
lea    0xdf2(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
jmp    12aa <main+0x17a>
cmpl   $0xa,-0xf4260(%rbp)
jl     1287 <main+0x157>
cmpl   $0x9,-0xf4264(%rbp)
je     1287 <main+0x157>
mov    -0xf4260(%rbp),%eax
mov    %eax,-0xf4268(%rbp)
mov    -0xf4260(%rbp),%eax
mov    $0x9,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0xf4268(%rbp),%eax
imul   $0x9,%ecx,%ecx
sub    %ecx,%eax
mov    %eax,-0xf425c(%rbp)
mov    -0xf425c(%rbp),%esi
lea    0xd95(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
movl   $0x0,-0xf425c(%rbp)
jmp    12a5 <main+0x175>
mov    -0xf4260(%rbp),%esi
lea    0xd72(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
movl   $0x0,-0xf4260(%rbp)
jmp    12aa <main+0x17a>
jmp    12af <main+0x17f>
jmp    1142 <main+0x12>
xor    %eax,%eax
add    $0xf4270,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0xf4248,%rsp
lea    0xecb(%rip),%rdi
mov    %rsp,%rsi
call   1060 <scanf@plt>
cmp    $0x1,%eax
jne    1345 <main+0x205>
cmpb   $0x30,(%rsp)
je     1345 <main+0x205>
mov    %rsp,%rbx
lea    0xea9(%rip),%r14
lea    0xea6(%rip),%r15
lea    0xe98(%rip),%r12
nopl   0x0(%rax,%rax,1)
mov    %rbx,%rdi
call   1040 <strlen@plt>
test   %eax,%eax
jle    1300 <main+0x1c0>
mov    %eax,%ecx
cmp    $0x8,%eax
jae    11b0 <main+0x70>
xor    %eax,%eax
xor    %esi,%esi
jmp    12c0 <main+0x180>
mov    %ecx,%eax
and    $0xfffffff8,%eax
lea    -0x8(%rax),%rsi
mov    %rsi,%rdx
shr    $0x3,%rdx
add    $0x1,%rdx
test   %rsi,%rsi
je     132d <main+0x1ed>
mov    %rdx,%rdi
and    $0xfffffffffffffffe,%rdi
pxor   %xmm0,%xmm0
xor    %esi,%esi
pxor   %xmm1,%xmm1
movdqa 0xe1a(%rip),%xmm4
cs nopw 0x0(%rax,%rax,1)
movd   0x4(%rsp,%rsi,1),%xmm2
punpcklbw %xmm2,%xmm2
punpcklbw (%rsp,%rsi,1),%xmm3
punpcklwd %xmm2,%xmm2
punpcklwd %xmm3,%xmm3
psrad  $0x18,%xmm3
paddd  %xmm0,%xmm3
psrad  $0x18,%xmm2
paddd  %xmm1,%xmm2
movq   0x8(%rsp,%rsi,1),%xmm0
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm0
psrad  $0x18,%xmm0
movd   0xc(%rsp,%rsi,1),%xmm1
punpcklbw %xmm1,%xmm1
punpcklwd %xmm1,%xmm1
psrad  $0x18,%xmm1
paddd  %xmm4,%xmm0
paddd  %xmm3,%xmm0
paddd  %xmm4,%xmm1
paddd  %xmm2,%xmm1
add    $0x10,%rsi
add    $0xfffffffffffffffe,%rdi
jne    11f0 <main+0xb0>
test   $0x1,%dl
je     129b <main+0x15b>
movq   (%rsp,%rsi,1),%xmm2
punpcklbw %xmm2,%xmm2
punpcklwd %xmm2,%xmm2
movd   0x4(%rsp,%rsi,1),%xmm3
punpcklbw %xmm3,%xmm3
punpcklwd %xmm3,%xmm3
psrad  $0x18,%xmm2
paddd  %xmm2,%xmm0
psrad  $0x18,%xmm3
paddd  %xmm3,%xmm1
movdqa 0xd7d(%rip),%xmm2
paddd  %xmm2,%xmm0
paddd  %xmm2,%xmm1
paddd  %xmm1,%xmm0
pshufd $0xee,%xmm0,%xmm1
paddd  %xmm0,%xmm1
pshufd $0x55,%xmm1,%xmm0
paddd  %xmm1,%xmm0
movd   %xmm0,%esi
cmp    %rcx,%rax
je     12d2 <main+0x192>
nopw   0x0(%rax,%rax,1)
movsbl (%rsp,%rax,1),%edx
add    %edx,%esi
add    $0xffffffd0,%esi
add    $0x1,%rax
cmp    %rax,%rcx
jne    12c0 <main+0x180>
movslq %esi,%rax
imul   $0x38e38e39,%rax,%rcx
mov    %rcx,%rdx
shr    $0x3f,%rdx
sar    $0x21,%rcx
add    %edx,%ecx
lea    (%rcx,%rcx,8),%ecx
sub    %ecx,%eax
je     1300 <main+0x1c0>
mov    %r14,%rdi
cmp    $0xa,%esi
jl     130a <main+0x1ca>
mov    %eax,%esi
jmp    130a <main+0x1ca>
nopl   0x0(%rax)
mov    %r15,%rdi
call   1030 <puts@plt>
jmp    1311 <main+0x1d1>
xor    %eax,%eax
call   1050 <printf@plt>
mov    %r12,%rdi
mov    %rbx,%rsi
call   1060 <scanf@plt>
cmp    $0x1,%eax
jne    1345 <main+0x205>
cmpb   $0x30,(%rsp)
jne    1190 <main+0x50>
jmp    1345 <main+0x205>
pxor   %xmm0,%xmm0
xor    %esi,%esi
pxor   %xmm1,%xmm1
test   $0x1,%dl
jne    125e <main+0x11e>
jmp    129b <main+0x15b>
xor    %eax,%eax
add    $0xf4248,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

LLVM IR (-O2):
@.str = [3 x i8] c"%s\00"
@.str.2 = [4 x i8] c"%d\0A\00"
@str = [2 x i8] c"9\00"
define i32 @main() {
%1 = alloca [1000000 x i8]
%2 = getelementptr inbounds [1000000 x i8], [1000000 x i8]* %1, i64 0, i64 0
%3 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i8* %2)
%4 = icmp ne i32 %3, 1
%5 = load i8, i8* %2
%6 = icmp eq i8 %5, 48
%7 = select i1 %4, i1 true, i1 %6
br i1 %7, label %113, label %8
8: ; preds = %0, %107
%9 = call i32 @strlen(i8* %2)
%10 = icmp sgt i32 %9, 0
br i1 %10, label %11, label %99
11: ; preds = %8
%12 = zext i32 %9 to i64
%13 = icmp ult i32 %9, 8
br i1 %13, label %82, label %14
14: ; preds = %11
%15 = and i64 %12, 4294967288
%16 = add nsw i64 %15, -8
%17 = lshr exact i64 %16, 3
%18 = add nuw nsw i64 %17, 1
%19 = and i64 %18, 1
%20 = icmp eq i64 %16, 0
br i1 %20, label %56, label %21
21: ; preds = %14
%22 = and i64 %18, 4611686018427387902
br label %23
23: ; preds = %23, %21
%24 = phi i64 [ 0, %21 ], [ %53, %23 ]
%25 = phi <4 x i32> [ zeroinitializer, %21 ], [ %51, %23 ]
%26 = phi <4 x i32> [ zeroinitializer, %21 ], [ %52, %23 ]
%27 = phi i64 [ 0, %21 ], [ %54, %23 ]
%28 = getelementptr inbounds [1000000 x i8], [1000000 x i8]* %1, i64 0, i64 %24
%29 = bitcast i8* %28 to <4 x i8>*
%30 = load <4 x i8>, <4 x i8>* %29
%31 = getelementptr inbounds i8, i8* %28, i64 4
%32 = bitcast i8* %31 to <4 x i8>*
%33 = load <4 x i8>, <4 x i8>* %32
%34 = sext <4 x i8> %30 to <4 x i32>
%35 = sext <4 x i8> %33 to <4 x i32>
%36 = add <4 x i32> %25, <i32 -48, i32 -48, i32 -48, i32 -48>
%37 = add <4 x i32> %26, <i32 -48, i32 -48, i32 -48, i32 -48>
%38 = add <4 x i32> %36, %34
%39 = add <4 x i32> %37, %35
%40 = or i64 %24, 8
%41 = getelementptr inbounds [1000000 x i8], [1000000 x i8]* %1, i64 0, i64 %40
%42 = bitcast i8* %41 to <4 x i8>*
%43 = load <4 x i8>, <4 x i8>* %42
%44 = getelementptr inbounds i8, i8* %41, i64 4
%45 = bitcast i8* %44 to <4 x i8>*
%46 = load <4 x i8>, <4 x i8>* %45
%47 = sext <4 x i8> %43 to <4 x i32>
%48 = sext <4 x i8> %46 to <4 x i32>
%49 = add <4 x i32> %38, <i32 -48, i32 -48, i32 -48, i32 -48>
%50 = add <4 x i32> %39, <i32 -48, i32 -48, i32 -48, i32 -48>
%51 = add <4 x i32> %49, %47
%52 = add <4 x i32> %50, %48
%53 = add nuw i64 %24, 16
%54 = add i64 %27, 2
%55 = icmp eq i64 %54, %22
br i1 %55, label %56, label %23
56: ; preds = %23, %14
%57 = phi <4 x i32> [ undef, %14 ], [ %51, %23 ]
%58 = phi <4 x i32> [ undef, %14 ], [ %52, %23 ]
%59 = phi i64 [ 0, %14 ], [ %53, %23 ]
%60 = phi <4 x i32> [ zeroinitializer, %14 ], [ %51, %23 ]
%61 = phi <4 x i32> [ zeroinitializer, %14 ], [ %52, %23 ]
%62 = icmp eq i64 %19, 0
br i1 %62, label %76, label %63
63: ; preds = %56
%64 = getelementptr inbounds [1000000 x i8], [1000000 x i8]* %1, i64 0, i64 %59
%65 = bitcast i8* %64 to <4 x i8>*
%66 = load <4 x i8>, <4 x i8>* %65
%67 = getelementptr inbounds i8, i8* %64, i64 4
%68 = bitcast i8* %67 to <4 x i8>*
%69 = load <4 x i8>, <4 x i8>* %68
%70 = sext <4 x i8> %66 to <4 x i32>
%71 = sext <4 x i8> %69 to <4 x i32>
%72 = add <4 x i32> %60, <i32 -48, i32 -48, i32 -48, i32 -48>
%73 = add <4 x i32> %61, <i32 -48, i32 -48, i32 -48, i32 -48>
%74 = add <4 x i32> %72, %70
%75 = add <4 x i32> %73, %71
br label %76
76: ; preds = %56, %63
%77 = phi <4 x i32> [ %57, %56 ], [ %74, %63 ]
%78 = phi <4 x i32> [ %58, %56 ], [ %75, %63 ]
%79 = add <4 x i32> %78, %77
%80 = call i32 @llvm.vector.reduce.add.v4i32(<4 x i32> %79)
%81 = icmp eq i64 %15, %12
br i1 %81, label %95, label %82
82: ; preds = %11, %76
%83 = phi i64 [ 0, %11 ], [ %15, %76 ]
%84 = phi i32 [ 0, %11 ], [ %80, %76 ]
br label %85
85: ; preds = %82, %85
%86 = phi i64 [ %93, %85 ], [ %83, %82 ]
%87 = phi i32 [ %92, %85 ], [ %84, %82 ]
%88 = getelementptr inbounds [1000000 x i8], [1000000 x i8]* %1, i64 0, i64 %86
%89 = load i8, i8* %88
%90 = sext i8 %89 to i32
%91 = add i32 %87, -48
%92 = add i32 %91, %90
%93 = add nuw nsw i64 %86, 1
%94 = icmp eq i64 %93, %12
br i1 %94, label %95, label %85
95: ; preds = %85, %76
%96 = phi i32 [ %80, %76 ], [ %92, %85 ]
%97 = srem i32 %96, 9
%98 = icmp eq i32 %97, 0
br i1 %98, label %99, label %101
99: ; preds = %8, %95
%100 = call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([2 x i8], [2 x i8]* @str, i64 0, i64 0))
br label %107
101: ; preds = %95
%102 = icmp sgt i32 %96, 9
br i1 %102, label %103, label %105
103: ; preds = %101
%104 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0), i32 %97)
br label %107
105: ; preds = %101
%106 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0), i32 %96)
br label %107
107: ; preds = %99, %105, %103
%108 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i8* %2)
%109 = icmp ne i32 %108, 1
%110 = load i8, i8* %2
%111 = icmp eq i8 %110, 48
%112 = select i1 %109, i1 true, i1 %111
br i1 %112, label %113, label %8
113: ; preds = %107, %0
ret i32 0
}