#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 /*<<< orphan*/ scanf(char *, char *);
int strlen(char *);
int main() {
  int n, l, b, a;
  char s[100];
  scanf("%[^\n]s", s);
  l = strlen(s);
  for (n = 0; n < l; n++) {
    if (s[n] == ' ')
      a = 0;
    if (s[n + 1] == 'S')
      a++;
    if (s[n + 2] == 'T')
      a++;
    if (s[n + 3] == 'O')
      a++;
    if (s[n + 4] == 'P')
      a++;
    if (s[n + 5] == ' ')
      a++;
    if (a == 5) {
      b = n;
      break;
    }
  }
  for (n = 0; n < b; n++)
    printf("%c", s[n]);
  printf("\n");
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
movl   $0x0,-0x4(%rbp)
lea    -0x80(%rbp),%rsi
lea    0xeb3(%rip),%rdi
call   1050 <scanf@plt>
lea    -0x80(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0xc(%rbp)
movl   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    124d <main+0x11d>
movslq -0x8(%rbp),%rax
movsbl -0x80(%rbp,%rax,1),%eax
cmp    $0x20,%eax
jne    118a <main+0x5a>
movl   $0x0,-0x14(%rbp)
mov    -0x8(%rbp),%eax
add    $0x1,%eax
cltq
movsbl -0x80(%rbp,%rax,1),%eax
cmp    $0x53,%eax
jne    11a9 <main+0x79>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x8(%rbp),%eax
add    $0x2,%eax
cltq
movsbl -0x80(%rbp,%rax,1),%eax
cmp    $0x54,%eax
jne    11c8 <main+0x98>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x8(%rbp),%eax
add    $0x3,%eax
cltq
movsbl -0x80(%rbp,%rax,1),%eax
cmp    $0x4f,%eax
jne    11e7 <main+0xb7>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x8(%rbp),%eax
add    $0x4,%eax
cltq
movsbl -0x80(%rbp,%rax,1),%eax
cmp    $0x50,%eax
jne    1206 <main+0xd6>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x8(%rbp),%eax
add    $0x5,%eax
cltq
movsbl -0x80(%rbp,%rax,1),%eax
cmp    $0x20,%eax
jne    1225 <main+0xf5>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
cmpl   $0x5,-0x14(%rbp)
jne    123a <main+0x10a>
mov    -0x8(%rbp),%eax
mov    %eax,-0x10(%rbp)
jmp    124d <main+0x11d>
jmp    123f <main+0x10f>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    1165 <main+0x35>
movl   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    1285 <main+0x155>
movslq -0x8(%rbp),%rax
movsbl -0x80(%rbp,%rax,1),%esi
lea    0xd97(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    1254 <main+0x124>
lea    0xd7e(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
xor    %eax,%eax
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r14
push   %rbx
sub    $0x68,%rsp
lea    0xec2(%rip),%rdi
mov    %rsp,%rbx
mov    %rbx,%rsi
call   1050 <scanf@plt>
mov    %rbx,%rdi
call   1040 <strlen@plt>
xor    %ecx,%ecx
test   %eax,%eax
cmovle %ecx,%eax
xor    %edx,%edx
nopw   0x0(%rax,%rax,1)
cmp    %rdx,%rax
je     11bd <main+0x8d>
cmpb   $0x20,(%rsp,%rdx,1)
cmove  %ecx,%esi
xor    %edi,%edi
cmpb   $0x53,0x1(%rsp,%rdx,1)
sete   %dil
add    %esi,%edi
xor    %esi,%esi
cmpb   $0x54,0x2(%rsp,%rdx,1)
sete   %sil
add    %edi,%esi
xor    %edi,%edi
cmpb   $0x4f,0x3(%rsp,%rdx,1)
sete   %dil
add    %esi,%edi
xor    %ebx,%ebx
cmpb   $0x50,0x4(%rsp,%rdx,1)
sete   %bl
add    %edi,%ebx
xor    %esi,%esi
cmpb   $0x20,0x5(%rsp,%rdx,1)
lea    0x1(%rdx),%rdi
sete   %sil
add    %ebx,%esi
mov    %rdi,%rdx
cmp    $0x5,%esi
jne    1160 <main+0x30>
add    $0xffffffff,%edi
mov    %edi,%eax
test   %eax,%eax
je     11e2 <main+0xb2>
mov    %eax,%r14d
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
movsbl (%rsp,%rbx,1),%edi
call   1030 <putchar@plt>
add    $0x1,%rbx
cmp    %rbx,%r14
jne    11d0 <main+0xa0>
mov    $0xa,%edi
call   1030 <putchar@plt>
xor    %eax,%eax
add    $0x68,%rsp
pop    %rbx
pop    %r14
ret

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

LLVM IR (-O2):
@.str = [7 x i8] c"%[^\0A]s\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 ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i8* %2)
%4 = call i32 @strlen(i8* %2)
%5 = call i32 @llvm.smax.i32(i32 %4, i32 0)
%6 = zext i32 %5 to i64
br label %7
7: ; preds = %11, %0
%8 = phi i64 [ %16, %11 ], [ 0, %0 ]
%9 = phi i32 [ %45, %11 ], [ undef, %0 ]
%10 = icmp eq i64 %8, %6
br i1 %10, label %49, label %11
11: ; preds = %7
%12 = getelementptr inbounds [100 x i8], [100 x i8]* %1, i64 0, i64 %8
%13 = load i8, i8* %12
%14 = icmp eq i8 %13, 32
%15 = select i1 %14, i32 0, i32 %9
%16 = add nuw nsw i64 %8, 1
%17 = getelementptr inbounds [100 x i8], [100 x i8]* %1, i64 0, i64 %16
%18 = load i8, i8* %17
%19 = icmp eq i8 %18, 83
%20 = zext i1 %19 to i32
%21 = add nsw i32 %15, %20
%22 = add nuw nsw i64 %8, 2
%23 = getelementptr inbounds [100 x i8], [100 x i8]* %1, i64 0, i64 %22
%24 = load i8, i8* %23
%25 = icmp eq i8 %24, 84
%26 = zext i1 %25 to i32
%27 = add nsw i32 %21, %26
%28 = add nuw nsw i64 %8, 3
%29 = getelementptr inbounds [100 x i8], [100 x i8]* %1, i64 0, i64 %28
%30 = load i8, i8* %29
%31 = icmp eq i8 %30, 79
%32 = zext i1 %31 to i32
%33 = add nsw i32 %27, %32
%34 = add nuw nsw i64 %8, 4
%35 = getelementptr inbounds [100 x i8], [100 x i8]* %1, i64 0, i64 %34
%36 = load i8, i8* %35
%37 = icmp eq i8 %36, 80
%38 = zext i1 %37 to i32
%39 = add nsw i32 %33, %38
%40 = add nuw nsw i64 %8, 5
%41 = getelementptr inbounds [100 x i8], [100 x i8]* %1, i64 0, i64 %40
%42 = load i8, i8* %41
%43 = icmp eq i8 %42, 32
%44 = zext i1 %43 to i32
%45 = add nsw i32 %39, %44
%46 = icmp eq i32 %45, 5
br i1 %46, label %47, label %7
47: ; preds = %11
%48 = trunc i64 %8 to i32
br label %49
49: ; preds = %7, %47
%50 = phi i32 [ %48, %47 ], [ %5, %7 ]
%51 = icmp eq i32 %50, 0
br i1 %51, label %62, label %52
52: ; preds = %49
%53 = zext i32 %50 to i64
br label %54
54: ; preds = %52, %54
%55 = phi i64 [ 0, %52 ], [ %60, %54 ]
%56 = getelementptr inbounds [100 x i8], [100 x i8]* %1, i64 0, i64 %55
%57 = load i8, i8* %56
%58 = sext i8 %57 to i32
%59 = call i32 @putchar(i32 %58)
%60 = add nuw nsw i64 %55, 1
%61 = icmp eq i64 %60, %53
br i1 %61, label %62, label %54
62: ; preds = %54, %49
%63 = call i32 @putchar(i32 10)
ret i32 0
}