#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 *, char *);
int /*<<< orphan*/ scanf(char *, char *);
int main() {
  int a = 0;
  char word[100];
  while (1) {
    scanf("%s", word);
    if (word[0] == 'S' && word[1] == 'T' && word[2] == 'O' && word[3] == 'P')
      break;
    else if (word[0] == 's' && word[1] == 't' && word[2] == 'o' &&
             word[3] == 'p')
      break;
    else {
      for (; a < 100; a++) {
        if (word[a] >= 'a' && word[a] <= 'z')
          word[a] -= 32;
      }
      printf("%s\n", word);
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x70,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0x8(%rbp)
lea    -0x70(%rbp),%rsi
lea    0xebf(%rip),%rdi
call   1040 <scanf@plt>
movsbl -0x70(%rbp),%eax
cmp    $0x53,%eax
jne    117f <main+0x5f>
movsbl -0x6f(%rbp),%eax
cmp    $0x54,%eax
jne    117f <main+0x5f>
movsbl -0x6e(%rbp),%eax
cmp    $0x4f,%eax
jne    117f <main+0x5f>
movsbl -0x6d(%rbp),%eax
cmp    $0x50,%eax
jne    117f <main+0x5f>
jmp    1228 <main+0x108>
movsbl -0x70(%rbp),%eax
cmp    $0x73,%eax
jne    11b8 <main+0x98>
movsbl -0x6f(%rbp),%eax
cmp    $0x74,%eax
jne    11b8 <main+0x98>
movsbl -0x6e(%rbp),%eax
cmp    $0x6f,%eax
jne    11b8 <main+0x98>
movsbl -0x6d(%rbp),%eax
cmp    $0x70,%eax
jne    11b8 <main+0x98>
jmp    1228 <main+0x108>
jmp    11bd <main+0x9d>
cmpl   $0x64,-0x8(%rbp)
jge    120e <main+0xee>
movslq -0x8(%rbp),%rax
movsbl -0x70(%rbp,%rax,1),%eax
cmp    $0x61,%eax
jl     11fb <main+0xdb>
movslq -0x8(%rbp),%rax
movsbl -0x70(%rbp,%rax,1),%eax
cmp    $0x7a,%eax
jg     11fb <main+0xdb>
movslq -0x8(%rbp),%rax
movsbl -0x70(%rbp,%rax,1),%ecx
sub    $0x20,%ecx
mov    %cl,-0x70(%rbp,%rax,1)
jmp    1200 <main+0xe0>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    11bd <main+0x9d>
lea    -0x70(%rbp),%rsi
lea    0xdea(%rip),%rdi
call   1030 <printf@plt>
jmp    1223 <main+0x103>
jmp    1136 <main+0x16>
xor    %eax,%eax
add    $0x70,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x70,%rsp
lea    0xeec(%rip),%rdi
mov    %rsp,%rsi
call   1040 <scanf@plt>
mov    (%rsp),%bl
mov    0x1(%rsp),%dl
mov    0x2(%rsp),%cl
mov    0x3(%rsp),%al
cmp    $0x53,%bl
jne    1162 <main+0x42>
cmp    $0x54,%dl
jne    1162 <main+0x42>
cmp    $0x4f,%cl
jne    1162 <main+0x42>
cmp    $0x50,%al
je     13b2 <main+0x292>
xor    %r13d,%r13d
movdqa 0xe93(%rip),%xmm4
movdqa 0xe9b(%rip),%xmm5
pcmpeqd %xmm6,%xmm6
lea    0xea3(%rip),%r14
mov    %rsp,%r12
lea    0xe96(%rip),%r15
nopw   0x0(%rax,%rax,1)
cmp    $0x73,%bl
jne    11a7 <main+0x87>
cmp    $0x74,%dl
jne    11a7 <main+0x87>
cmp    $0x6f,%cl
jne    11a7 <main+0x87>
cmp    $0x70,%al
je     13b2 <main+0x292>
cmp    $0x63,%r13d
jg     1356 <main+0x236>
mov    %r13d,%esi
mov    $0x63,%ecx
sub    %r13d,%ecx
cmp    $0x7,%ecx
jae    11d0 <main+0xb0>
mov    %rsi,%rax
jmp    1339 <main+0x219>
nopl   0x0(%rax)
add    $0x1,%rcx
mov    %rcx,%rdx
and    $0xfffffffffffffff8,%rdx
lea    (%rdx,%rsi,1),%rax
add    %rsp,%rsi
xor    %edi,%edi
jmp    11fd <main+0xdd>
cs nopw 0x0(%rax,%rax,1)
add    $0x8,%rdi
cmp    %rdi,%rdx
je     1320 <main+0x200>
movq   (%rsi,%rdi,1),%xmm0
movdqa %xmm0,%xmm1
paddb  %xmm4,%xmm1
movdqa %xmm1,%xmm2
pmaxub %xmm5,%xmm2
pcmpeqb %xmm1,%xmm2
movd   %xmm2,%ebx
not    %bl
test   $0x1,%bl
je     122b <main+0x10b>
movd   %xmm0,%ebx
add    $0xe0,%bl
mov    %bl,(%rsi,%rdi,1)
movdqa %xmm2,%xmm1
pxor   %xmm6,%xmm1
movdqa %xmm1,%xmm3
pslld  $0x8,%xmm3
movd   %xmm3,%ebx
shr    $0x10,%ebx
test   $0x1,%bl
je     1256 <main+0x136>
movd   %xmm0,%ebx
shr    $0x8,%ebx
add    $0xe0,%bl
mov    %bl,0x1(%rsi,%rdi,1)
pshuflw $0x55,%xmm2,%xmm3
pxor   %xmm6,%xmm3
pextrw $0x2,%xmm3,%ebx
test   $0x1,%bl
je     1277 <main+0x157>
movd   %xmm0,%ebx
shr    $0x10,%ebx
add    $0xe0,%bl
mov    %bl,0x2(%rsi,%rdi,1)
movdqa %xmm1,%xmm3
psllq  $0x18,%xmm3
pextrw $0x3,%xmm3,%ebx
test   $0x1,%bl
je     1298 <main+0x178>
movd   %xmm0,%ebx
shr    $0x18,%ebx
add    $0xe0,%bl
mov    %bl,0x3(%rsi,%rdi,1)
pshufd $0x55,%xmm2,%xmm2
pxor   %xmm6,%xmm2
pextrw $0x4,%xmm2,%ebx
test   $0x1,%bl
je     12b7 <main+0x197>
pextrw $0x2,%xmm0,%ebx
add    $0xe0,%bl
mov    %bl,0x4(%rsi,%rdi,1)
movdqa %xmm1,%xmm2
pslldq $0x5,%xmm2
pextrw $0x5,%xmm2,%ebx
test   $0x1,%bl
je     12d9 <main+0x1b9>
pextrw $0x2,%xmm0,%ebx
shr    $0x8,%ebx
add    $0xe0,%bl
mov    %bl,0x5(%rsi,%rdi,1)
pextrw $0x3,%xmm1,%ebx
test   $0x1,%bl
je     12ef <main+0x1cf>
pextrw $0x3,%xmm0,%ebx
add    $0xe0,%bl
mov    %bl,0x6(%rsi,%rdi,1)
pslldq $0x7,%xmm1
pextrw $0x7,%xmm1,%ebx
test   $0x1,%bl
je     11f0 <main+0xd0>
pextrw $0x3,%xmm0,%ebx
shr    $0x8,%ebx
add    $0xe0,%bl
mov    %bl,0x7(%rsi,%rdi,1)
jmp    11f0 <main+0xd0>
cs nopw 0x0(%rax,%rax,1)
mov    $0x64,%r13d
cmp    %rdx,%rcx
jne    1339 <main+0x219>
jmp    1356 <main+0x236>
nopl   (%rax)
add    $0x1,%rax
cmp    $0x64,%eax
je     1350 <main+0x230>
movzbl (%rsp,%rax,1),%ecx
lea    -0x61(%rcx),%edx
cmp    $0x19,%dl
ja     1330 <main+0x210>
add    $0xe0,%cl
mov    %cl,(%rsp,%rax,1)
jmp    1330 <main+0x210>
nopl   (%rax)
mov    $0x64,%r13d
mov    %r14,%rdi
mov    %r12,%rsi
call   1030 <printf@plt>
mov    %r15,%rdi
mov    %r12,%rsi
call   1040 <scanf@plt>
mov    (%rsp),%bl
mov    0x1(%rsp),%dl
mov    0x2(%rsp),%cl
mov    0x3(%rsp),%al
cmp    $0x53,%bl
movdqa 0xc7a(%rip),%xmm4
movdqa 0xc82(%rip),%xmm5
pcmpeqd %xmm6,%xmm6
jne    1190 <main+0x70>
cmp    $0x54,%dl
jne    1190 <main+0x70>
cmp    $0x4f,%cl
jne    1190 <main+0x70>
cmp    $0x50,%al
jne    1190 <main+0x70>
xor    %eax,%eax
add    $0x70,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
@.str = [3 x i8] c"%s\00"
@.str.1 = [4 x i8] c"%s\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca [100 x i8]
store i32 0, i32* %1
store i32 0, i32* %2
br label %4
4: ; preds = %0, %82
%5 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%6 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i8* %5)
%7 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%8 = load i8, i8* %7
%9 = sext i8 %8 to i32
%10 = icmp eq i32 %9, 83
br i1 %10, label %11, label %27
11: ; preds = %4
%12 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 1
%13 = load i8, i8* %12
%14 = sext i8 %13 to i32
%15 = icmp eq i32 %14, 84
br i1 %15, label %16, label %27
16: ; preds = %11
%17 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 2
%18 = load i8, i8* %17
%19 = sext i8 %18 to i32
%20 = icmp eq i32 %19, 79
br i1 %20, label %21, label %27
21: ; preds = %16
%22 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 3
%23 = load i8, i8* %22
%24 = sext i8 %23 to i32
%25 = icmp eq i32 %24, 80
br i1 %25, label %26, label %27
26: ; preds = %21
br label %83
27: ; preds = %21, %16, %11, %4
%28 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%29 = load i8, i8* %28
%30 = sext i8 %29 to i32
%31 = icmp eq i32 %30, 115
br i1 %31, label %32, label %48
32: ; preds = %27
%33 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 1
%34 = load i8, i8* %33
%35 = sext i8 %34 to i32
%36 = icmp eq i32 %35, 116
br i1 %36, label %37, label %48
37: ; preds = %32
%38 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 2
%39 = load i8, i8* %38
%40 = sext i8 %39 to i32
%41 = icmp eq i32 %40, 111
br i1 %41, label %42, label %48
42: ; preds = %37
%43 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 3
%44 = load i8, i8* %43
%45 = sext i8 %44 to i32
%46 = icmp eq i32 %45, 112
br i1 %46, label %47, label %48
47: ; preds = %42
br label %83
48: ; preds = %42, %37, %32, %27
br label %49
49: ; preds = %75, %48
%50 = load i32, i32* %2
%51 = icmp slt i32 %50, 100
br i1 %51, label %52, label %78
52: ; preds = %49
%53 = load i32, i32* %2
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 %54
%56 = load i8, i8* %55
%57 = sext i8 %56 to i32
%58 = icmp sge i32 %57, 97
br i1 %58, label %59, label %74
59: ; preds = %52
%60 = load i32, i32* %2
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 %61
%63 = load i8, i8* %62
%64 = sext i8 %63 to i32
%65 = icmp sle i32 %64, 122
br i1 %65, label %66, label %74
66: ; preds = %59
%67 = load i32, i32* %2
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 %68
%70 = load i8, i8* %69
%71 = sext i8 %70 to i32
%72 = sub nsw i32 %71, 32
%73 = trunc i32 %72 to i8
store i8 %73, i8* %69
br label %74
74: ; preds = %66, %59, %52
br label %75
75: ; preds = %74
%76 = load i32, i32* %2
%77 = add nsw i32 %76, 1
store i32 %77, i32* %2
br label %49
78: ; preds = %49
%79 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%80 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i8* %79)
br label %81
81: ; preds = %78
br label %82
82: ; preds = %81
br label %4
83: ; preds = %47, %26
ret i32 0
}

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