#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 */
char getchar();
int /*<<< orphan*/ printf(char *, ...);
int main() {
  int l, i, p;
  char s[1000];
  for (i = 0; i < 1000; i++) {
    s[i] = getchar();
    if (s[i] == 'S') {
      p = i;
      p++;
      s[p] = getchar();
      if (s[p] == 'T') {
        p++;
        s[p] = getchar();
      }
      if (s[p] == 'O') {
        p++;
        s[p] = getchar();
      }
      if (s[p] == 'P')
        break;
    }
  }
  for (l = i, i = 0; i < l; i++) {
    if (s[i] >= 'a' && s[i] <= 'z')
      s[i] = s[i] - 32;
    printf("%c", s[i]);
  }
  printf("\n");
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x400,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0xc(%rbp)
cmpl   $0x3e8,-0xc(%rbp)
jge    1228 <main+0x108>
mov    $0x0,%al
call   1040 <getchar@plt>
mov    %al,%cl
movslq -0xc(%rbp),%rax
mov    %cl,-0x400(%rbp,%rax,1)
movslq -0xc(%rbp),%rax
movsbl -0x400(%rbp,%rax,1),%eax
ff
cmp    $0x53,%eax
jne    1215 <main+0xf5>
mov    -0xc(%rbp),%eax
mov    %eax,-0x10(%rbp)
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
mov    $0x0,%al
call   1040 <getchar@plt>
mov    %al,%cl
movslq -0x10(%rbp),%rax
mov    %cl,-0x400(%rbp,%rax,1)
movslq -0x10(%rbp),%rax
movsbl -0x400(%rbp,%rax,1),%eax
ff
cmp    $0x54,%eax
jne    11c4 <main+0xa4>
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
mov    $0x0,%al
call   1040 <getchar@plt>
mov    %al,%cl
movslq -0x10(%rbp),%rax
mov    %cl,-0x400(%rbp,%rax,1)
movslq -0x10(%rbp),%rax
movsbl -0x400(%rbp,%rax,1),%eax
ff
cmp    $0x4f,%eax
jne    11f6 <main+0xd6>
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
mov    $0x0,%al
call   1040 <getchar@plt>
mov    %al,%cl
movslq -0x10(%rbp),%rax
mov    %cl,-0x400(%rbp,%rax,1)
movslq -0x10(%rbp),%rax
movsbl -0x400(%rbp,%rax,1),%eax
ff
cmp    $0x50,%eax
jne    1210 <main+0xf0>
jmp    1228 <main+0x108>
jmp    1215 <main+0xf5>
jmp    121a <main+0xfa>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    1139 <main+0x19>
mov    -0xc(%rbp),%eax
mov    %eax,-0x8(%rbp)
movl   $0x0,-0xc(%rbp)
mov    -0xc(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    12af <main+0x18f>
movslq -0xc(%rbp),%rax
movsbl -0x400(%rbp,%rax,1),%eax
ff
cmp    $0x61,%eax
jl     1287 <main+0x167>
movslq -0xc(%rbp),%rax
movsbl -0x400(%rbp,%rax,1),%eax
ff
cmp    $0x7a,%eax
jg     1287 <main+0x167>
movslq -0xc(%rbp),%rax
movsbl -0x400(%rbp,%rax,1),%eax
ff
sub    $0x20,%eax
mov    %al,%cl
movslq -0xc(%rbp),%rax
mov    %cl,-0x400(%rbp,%rax,1)
movslq -0xc(%rbp),%rax
movsbl -0x400(%rbp,%rax,1),%esi
ff
lea    0xd66(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    1235 <main+0x115>
lea    0xd4d(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x400,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r15
push   %r14
push   %rbx
sub    $0x3f0,%rsp
mov    %rsp,%r14
xor    %r15d,%r15d
jmp    1151 <main+0x31>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
cmp    $0x50,%al
je     11b4 <main+0x94>
add    $0x1,%r15
cmp    $0x3e8,%r15
je     11ac <main+0x8c>
xor    %eax,%eax
call   1040 <getchar@plt>
mov    %al,(%rsp,%r15,1)
cmp    $0x53,%al
jne    1144 <main+0x24>
xor    %eax,%eax
call   1040 <getchar@plt>
mov    %al,0x1(%rsp,%r15,1)
cmp    $0x54,%al
jne    1190 <main+0x70>
lea    0x2(%r15),%ebx
xor    %eax,%eax
call   1040 <getchar@plt>
mov    %al,0x2(%rsp,%r15,1)
jmp    1194 <main+0x74>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
lea    0x1(%r15),%rbx
mov    %ebx,%ebx
movzbl (%rsp,%rbx,1),%eax
cmp    $0x4f,%al
jne    1140 <main+0x20>
xor    %eax,%eax
call   1040 <getchar@plt>
mov    %al,0x1(%rbx,%r14,1)
jmp    1140 <main+0x20>
mov    $0x3e8,%r15d
jmp    11b9 <main+0x99>
test   %r15d,%r15d
je     11e4 <main+0xc4>
xor    %ebx,%ebx
jmp    11d1 <main+0xb1>
nopl   (%rax)
movsbl %al,%edi
call   1030 <putchar@plt>
add    $0x1,%rbx
cmp    %rbx,%r15
je     11e4 <main+0xc4>
movzbl (%rsp,%rbx,1),%eax
lea    -0x61(%rax),%ecx
cmp    $0x19,%cl
ja     11c0 <main+0xa0>
add    $0xe0,%al
mov    %al,(%rsp,%rbx,1)
jmp    11c0 <main+0xa0>
mov    $0xa,%edi
call   1030 <putchar@plt>
xor    %eax,%eax
add    $0x3f0,%rsp
pop    %rbx
pop    %r14
pop    %r15
ret

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

LLVM IR (-O2):
define i32 @main() {
%1 = alloca [1000 x i8]
%2 = getelementptr inbounds [1000 x i8], [1000 x i8]* %1, i64 0, i64 0
br label %3
3: ; preds = %0, %34
%4 = phi i64 [ 0, %0 ], [ %8, %34 ]
%5 = tail call signext i8 (...) @getchar()
%6 = getelementptr inbounds [1000 x i8], [1000 x i8]* %1, i64 0, i64 %4
store i8 %5, i8* %6
%7 = icmp eq i8 %5, 83
%8 = add nuw nsw i64 %4, 1
br i1 %7, label %9, label %34
9: ; preds = %3
%10 = trunc i64 %4 to i32
%11 = add nuw nsw i32 %10, 1
%12 = tail call signext i8 (...) @getchar()
%13 = getelementptr inbounds [1000 x i8], [1000 x i8]* %1, i64 0, i64 %8
store i8 %12, i8* %13
%14 = icmp eq i8 %12, 84
br i1 %14, label %15, label %20
15: ; preds = %9
%16 = add nuw nsw i64 %4, 2
%17 = tail call signext i8 (...) @getchar()
%18 = getelementptr inbounds [1000 x i8], [1000 x i8]* %1, i64 0, i64 %16
store i8 %17, i8* %18
%19 = trunc i64 %16 to i32
br label %20
20: ; preds = %15, %9
%21 = phi i32 [ %19, %15 ], [ %11, %9 ]
%22 = zext i32 %21 to i64
%23 = getelementptr inbounds [1000 x i8], [1000 x i8]* %1, i64 0, i64 %22
%24 = load i8, i8* %23
%25 = icmp eq i8 %24, 79
br i1 %25, label %26, label %31
26: ; preds = %20
%27 = add nuw nsw i32 %21, 1
%28 = tail call signext i8 (...) @getchar()
%29 = zext i32 %27 to i64
%30 = getelementptr inbounds [1000 x i8], [1000 x i8]* %1, i64 0, i64 %29
store i8 %28, i8* %30
br label %31
31: ; preds = %26, %20
%32 = phi i8 [ %28, %26 ], [ %24, %20 ]
%33 = icmp eq i8 %32, 80
br i1 %33, label %36, label %34
34: ; preds = %3, %31
%35 = icmp eq i64 %8, 1000
br i1 %35, label %39, label %3
36: ; preds = %31
%37 = trunc i64 %4 to i32
%38 = icmp eq i32 %37, 0
br i1 %38, label %56, label %39
39: ; preds = %34, %36
%40 = phi i64 [ %4, %36 ], [ 1000, %34 ]
%41 = and i64 %40, 4294967295
br label %42
42: ; preds = %39, %50
%43 = phi i64 [ 0, %39 ], [ %54, %50 ]
%44 = getelementptr inbounds [1000 x i8], [1000 x i8]* %1, i64 0, i64 %43
%45 = load i8, i8* %44
%46 = add i8 %45, -97
%47 = icmp ult i8 %46, 26
br i1 %47, label %48, label %50
48: ; preds = %42
%49 = add nsw i8 %45, -32
store i8 %49, i8* %44
br label %50
50: ; preds = %48, %42
%51 = phi i8 [ %49, %48 ], [ %45, %42 ]
%52 = sext i8 %51 to i32
%53 = tail call i32 @putchar(i32 %52)
%54 = add nuw nsw i64 %43, 1
%55 = icmp eq i64 %54, %41
br i1 %55, label %56, label %42
56: ; preds = %50, %36
%57 = tail call i32 @putchar(i32 10)
ret i32 0
}