#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);
int /*<<< orphan*/ scanf(char *, char **);
int strlen(char *);
int main() {
  int total = 0, j, i, fact = 0;
  int are[10] = {1, 1, 2, 6, 24, 120, 720, 5040, 40320, 362880};
  char ama[30];
  scanf(" %s", &ama);
  while (ama[0] != '0') {
    for (j = strlen(ama), i = 0; j > 0; i++, j--) {
      fact = are[j];
      if (ama[i] == '1') {
        total += (1 * fact);
      } else if (ama[i] == '2') {
        total += (2 * fact);
      } else if (ama[i] == '3') {
        total += (3 * fact);
      } else if (ama[i] == '4') {
        total += (4 * fact);
      } else if (ama[i] == '5') {
        total += (5 * fact);
      } else if (ama[i] == '6') {
        total += (6 * fact);
      } else if (ama[i] == '8') {
        total += (8 * fact);
      } else if (ama[i] == '7') {
        total += (7 * fact);
      } else if (ama[i] == '9') {
        total += (9 * fact);
      }
    }
    printf("%d\n", total);
    total = 0;
    scanf(" %s", &ama);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0x8(%rbp)
movl   $0x0,-0x14(%rbp)
lea    -0x40(%rbp),%rdi
lea    0xe98(%rip),%rsi
mov    $0x28,%edx
call   1050 <memcpy@plt>
lea    -0x60(%rbp),%rsi
lea    0xeab(%rip),%rdi
call   1060 <scanf@plt>
movsbl -0x60(%rbp),%eax
cmp    $0x30,%eax
je     1352 <main+0x212>
lea    -0x60(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0xc(%rbp)
movl   $0x0,-0x10(%rbp)
cmpl   $0x0,-0xc(%rbp)
jle    1327 <main+0x1e7>
movslq -0xc(%rbp),%rax
mov    -0x40(%rbp,%rax,4),%eax
mov    %eax,-0x14(%rbp)
movslq -0x10(%rbp),%rax
movsbl -0x60(%rbp,%rax,1),%eax
cmp    $0x31,%eax
jne    11da <main+0x9a>
mov    -0x14(%rbp),%eax
shl    $0x0,%eax
add    -0x8(%rbp),%eax
mov    %eax,-0x8(%rbp)
jmp    130b <main+0x1cb>
movslq -0x10(%rbp),%rax
movsbl -0x60(%rbp,%rax,1),%eax
cmp    $0x32,%eax
jne    11fd <main+0xbd>
mov    -0x14(%rbp),%eax
shl    $0x1,%eax
add    -0x8(%rbp),%eax
mov    %eax,-0x8(%rbp)
jmp    1306 <main+0x1c6>
movslq -0x10(%rbp),%rax
movsbl -0x60(%rbp,%rax,1),%eax
cmp    $0x33,%eax
jne    121e <main+0xde>
imul   $0x3,-0x14(%rbp),%eax
add    -0x8(%rbp),%eax
mov    %eax,-0x8(%rbp)
jmp    1301 <main+0x1c1>
movslq -0x10(%rbp),%rax
movsbl -0x60(%rbp,%rax,1),%eax
cmp    $0x34,%eax
jne    1241 <main+0x101>
mov    -0x14(%rbp),%eax
shl    $0x2,%eax
add    -0x8(%rbp),%eax
mov    %eax,-0x8(%rbp)
jmp    12fc <main+0x1bc>
movslq -0x10(%rbp),%rax
movsbl -0x60(%rbp,%rax,1),%eax
cmp    $0x35,%eax
jne    1262 <main+0x122>
imul   $0x5,-0x14(%rbp),%eax
add    -0x8(%rbp),%eax
mov    %eax,-0x8(%rbp)
jmp    12f7 <main+0x1b7>
movslq -0x10(%rbp),%rax
movsbl -0x60(%rbp,%rax,1),%eax
cmp    $0x36,%eax
jne    1283 <main+0x143>
imul   $0x6,-0x14(%rbp),%eax
add    -0x8(%rbp),%eax
mov    %eax,-0x8(%rbp)
jmp    12f2 <main+0x1b2>
movslq -0x10(%rbp),%rax
movsbl -0x60(%rbp,%rax,1),%eax
cmp    $0x38,%eax
jne    12a6 <main+0x166>
mov    -0x14(%rbp),%eax
shl    $0x3,%eax
add    -0x8(%rbp),%eax
mov    %eax,-0x8(%rbp)
jmp    12ed <main+0x1ad>
movslq -0x10(%rbp),%rax
movsbl -0x60(%rbp,%rax,1),%eax
cmp    $0x37,%eax
jne    12c7 <main+0x187>
imul   $0x7,-0x14(%rbp),%eax
add    -0x8(%rbp),%eax
mov    %eax,-0x8(%rbp)
jmp    12e8 <main+0x1a8>
movslq -0x10(%rbp),%rax
movsbl -0x60(%rbp,%rax,1),%eax
cmp    $0x39,%eax
jne    12e3 <main+0x1a3>
imul   $0x9,-0x14(%rbp),%eax
add    -0x8(%rbp),%eax
mov    %eax,-0x8(%rbp)
jmp    12e8 <main+0x1a8>
jmp    12ed <main+0x1ad>
jmp    12f2 <main+0x1b2>
jmp    12f7 <main+0x1b7>
jmp    12fc <main+0x1bc>
jmp    1301 <main+0x1c1>
jmp    1306 <main+0x1c6>
jmp    130b <main+0x1cb>
jmp    1310 <main+0x1d0>
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
mov    -0xc(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0xc(%rbp)
jmp    11a2 <main+0x62>
mov    -0x8(%rbp),%esi
lea    0xcfb(%rip),%rdi
call   1040 <printf@plt>
movl   $0x0,-0x8(%rbp)
lea    -0x60(%rbp),%rsi
lea    0xce0(%rip),%rdi
call   1060 <scanf@plt>
jmp    1182 <main+0x42>
xor    %eax,%eax
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
lea    0xf13(%rip),%rdi
mov    %rsp,%r12
mov    %r12,%rsi
call   1050 <scanf@plt>
cmpb   $0x30,(%rsp)
jne    1167 <main+0x37>
xor    %eax,%eax
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
lea    0xec2(%rip),%r13
lea    0xe8b(%rip),%rbp
lea    0xee0(%rip),%r14
lea    0xed5(%rip),%r15
jmp    11ab <main+0x7b>
cs nopw 0x0(%rax,%rax,1)
nop
xor    %esi,%esi
mov    %r14,%rdi
call   1040 <printf@plt>
mov    %r15,%rdi
mov    %r12,%rsi
call   1050 <scanf@plt>
cmpb   $0x30,(%rsp)
je     1156 <main+0x26>
mov    %r12,%rdi
call   1030 <strlen@plt>
test   %eax,%eax
jle    1190 <main+0x60>
mov    %eax,%eax
shl    $0x2,%rax
xor    %esi,%esi
mov    %r12,%rcx
jmp    11d5 <main+0xa5>
lea    (%rdx,%rdx,4),%edx
add    %esi,%edx
mov    %edx,%esi
add    $0x1,%rcx
add    $0xfffffffffffffffc,%rax
je     1192 <main+0x62>
movzbl (%rcx),%ebx
add    $0xcf,%bl
cmp    $0x8,%bl
ja     11cb <main+0x9b>
mov    (%rax,%r13,1),%edx
movzbl %bl,%edi
movslq 0x0(%rbp,%rdi,4),%rdi
add    %rbp,%rdi
jmp    *%rdi
add    %edx,%esi
jmp    11cb <main+0x9b>
lea    (%rsi,%rdx,2),%esi
jmp    11cb <main+0x9b>
lea    (%rdx,%rdx,2),%edx
jmp    11c7 <main+0x97>
lea    (%rsi,%rdx,4),%esi
jmp    11cb <main+0x9b>
lea    (%rdx,%rdx,2),%edx
lea    (%rsi,%rdx,2),%esi
jmp    11cb <main+0x9b>
lea    0x0(,%rdx,8),%edi
sub    %edx,%edi
add    %esi,%edi
mov    %edi,%esi
jmp    11cb <main+0x9b>
lea    (%rsi,%rdx,8),%esi
jmp    11cb <main+0x9b>
lea    (%rdx,%rdx,8),%edx
jmp    11c7 <main+0x97>

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

LLVM IR (-O2):
@__const.main.are = [10 x i32] [i32 1, i32 1, i32 2, i32 6, i32 24, i32 120, i32 720, i32 5040, i32 40320, i32 362880]
@.str = [4 x i8] c" %s\00"
@.str.1 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca [30 x i8]
%2 = getelementptr inbounds [30 x i8], [30 x i8]* %1, i64 0, i64 0
%3 = bitcast [30 x i8]* %1 to i8**
%4 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i8** %3)
%5 = load i8, i8* %2
%6 = icmp eq i8 %5, 48
br i1 %6, label %57, label %7
7: ; preds = %0, %51
%8 = call i32 @strlen(i8* %2)
%9 = icmp sgt i32 %8, 0
br i1 %9, label %10, label %51
10: ; preds = %7
%11 = zext i32 %8 to i64
br label %12
12: ; preds = %10, %46
%13 = phi i64 [ %11, %10 ], [ %49, %46 ]
%14 = phi i64 [ 0, %10 ], [ %48, %46 ]
%15 = phi i32 [ 0, %10 ], [ %47, %46 ]
%16 = getelementptr inbounds [10 x i32], [10 x i32]* @__const.main.are, i64 0, i64 %13
%17 = load i32, i32* %16
%18 = getelementptr inbounds [30 x i8], [30 x i8]* %1, i64 0, i64 %14
%19 = load i8, i8* %18
switch i8 %19, label %46 [
i8 49, label %20
i8 50, label %22
i8 51, label %25
i8 52, label %28
i8 53, label %31
i8 54, label %34
i8 56, label %37
i8 55, label %40
i8 57, label %43
]
20: ; preds = %12
%21 = add nsw i32 %17, %15
br label %46
22: ; preds = %12
%23 = shl nsw i32 %17, 1
%24 = add nsw i32 %23, %15
br label %46
25: ; preds = %12
%26 = mul nsw i32 %17, 3
%27 = add nsw i32 %26, %15
br label %46
28: ; preds = %12
%29 = shl nsw i32 %17, 2
%30 = add nsw i32 %29, %15
br label %46
31: ; preds = %12
%32 = mul nsw i32 %17, 5
%33 = add nsw i32 %32, %15
br label %46
34: ; preds = %12
%35 = mul nsw i32 %17, 6
%36 = add nsw i32 %35, %15
br label %46
37: ; preds = %12
%38 = shl nsw i32 %17, 3
%39 = add nsw i32 %38, %15
br label %46
40: ; preds = %12
%41 = mul nsw i32 %17, 7
%42 = add nsw i32 %41, %15
br label %46
43: ; preds = %12
%44 = mul nsw i32 %17, 9
%45 = add nsw i32 %44, %15
br label %46
46: ; preds = %12, %20, %25, %31, %37, %43, %40, %34, %28, %22
%47 = phi i32 [ %21, %20 ], [ %24, %22 ], [ %27, %25 ], [ %30, %28 ], [ %33, %31 ], [ %36, %34 ], [ %39, %37 ], [ %42, %40 ], [ %45, %43 ], [ %15, %12 ]
%48 = add nuw nsw i64 %14, 1
%49 = add nsw i64 %13, -1
%50 = icmp eq i64 %48, %11
br i1 %50, label %51, label %12
51: ; preds = %46, %7
%52 = phi i32 [ 0, %7 ], [ %47, %46 ]
%53 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32 %52)
%54 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i8** %3)
%55 = load i8, i8* %2
%56 = icmp eq i8 %55, 48
br i1 %56, label %57, label %7
57: ; preds = %51, %0
ret i32 0
}