#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() {
  char arr[1000];
  int i, l, n;
  scanf("%[^\n]s", arr);
  l = strlen(arr);
  for (i = 3; i < l; i++) {
    if (arr[i] == 'P' || arr[i] == 'p' && arr[i - 1] == 'O' ||
        arr[i - 1] == 'o' && arr[i - 2] == 'T' ||
        arr[i - 2] == 't' && arr[i - 3] == 'S' || arr[i - 3] == 's') {
      l = i;
      break;
    }
  }
  printf("\n");
  for (i = 0; i < l - 1; i++) {
    printf("%c", arr[i]);
  }
  printf("\n");
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x400,%rsp
movl   $0x0,-0x4(%rbp)
lea    -0x3f0(%rbp),%rsi
lea    0xeb0(%rip),%rdi
call   1050 <scanf@plt>
lea    -0x3f0(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x3f8(%rbp)
movl   $0x3,-0x3f4(%rbp)
mov    -0x3f4(%rbp),%eax
cmp    -0x3f8(%rbp),%eax
jge    1285 <main+0x155>
movslq -0x3f4(%rbp),%rax
movsbl -0x3f0(%rbp,%rax,1),%eax
ff
cmp    $0x50,%eax
je     125b <main+0x12b>
movslq -0x3f4(%rbp),%rax
movsbl -0x3f0(%rbp,%rax,1),%eax
ff
cmp    $0x70,%eax
jne    11cf <main+0x9f>
mov    -0x3f4(%rbp),%eax
sub    $0x1,%eax
cltq
movsbl -0x3f0(%rbp,%rax,1),%eax
ff
cmp    $0x4f,%eax
je     125b <main+0x12b>
mov    -0x3f4(%rbp),%eax
sub    $0x1,%eax
cltq
movsbl -0x3f0(%rbp,%rax,1),%eax
ff
cmp    $0x6f,%eax
jne    1207 <main+0xd7>
mov    -0x3f4(%rbp),%eax
sub    $0x2,%eax
cltq
movsbl -0x3f0(%rbp,%rax,1),%eax
ff
cmp    $0x54,%eax
je     125b <main+0x12b>
mov    -0x3f4(%rbp),%eax
sub    $0x2,%eax
cltq
movsbl -0x3f0(%rbp,%rax,1),%eax
ff
cmp    $0x74,%eax
jne    123f <main+0x10f>
mov    -0x3f4(%rbp),%eax
sub    $0x3,%eax
cltq
movsbl -0x3f0(%rbp,%rax,1),%eax
ff
cmp    $0x53,%eax
je     125b <main+0x12b>
mov    -0x3f4(%rbp),%eax
sub    $0x3,%eax
cltq
movsbl -0x3f0(%rbp,%rax,1),%eax
ff
cmp    $0x73,%eax
jne    126c <main+0x13c>
mov    -0x3f4(%rbp),%eax
mov    %eax,-0x3f8(%rbp)
jmp    1285 <main+0x155>
jmp    1271 <main+0x141>
mov    -0x3f4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3f4(%rbp)
jmp    1171 <main+0x41>
lea    0xd7b(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
movl   $0x0,-0x3f4(%rbp)
mov    -0x3f4(%rbp),%eax
mov    -0x3f8(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    12e5 <main+0x1b5>
movslq -0x3f4(%rbp),%rax
movsbl -0x3f0(%rbp,%rax,1),%esi
ff
lea    0xd3f(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
mov    -0x3f4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3f4(%rbp)
jmp    129d <main+0x16d>
lea    0xd1b(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
xor    %eax,%eax
add    $0x400,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r14
push   %rbx
sub    $0x3e8,%rsp
lea    0xebf(%rip),%rdi
mov    %rsp,%rbx
mov    %rbx,%rsi
call   1050 <scanf@plt>
mov    %rbx,%rdi
call   1040 <strlen@plt>
mov    %eax,%r14d
cmp    $0x3,%eax
jle    11cb <main+0x9b>
mov    $0x3,%eax
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movzbl (%rsp,%rax,1),%ecx
cmp    $0x70,%cl
je     1190 <main+0x60>
cmp    $0x50,%cl
je     11c8 <main+0x98>
movzbl -0x1(%rsp,%rax,1),%ecx
jmp    119a <main+0x6a>
cs nopw 0x0(%rax,%rax,1)
nop
movzbl -0x1(%rsp,%rax,1),%ecx
cmp    $0x4f,%cl
je     11c8 <main+0x98>
movzbl -0x2(%rsp,%rax,1),%edx
cmp    $0x6f,%cl
jne    11a9 <main+0x79>
cmp    $0x54,%dl
je     11c8 <main+0x98>
movzbl -0x3(%rsp,%rax,1),%ecx
cmp    $0x74,%dl
jne    11b8 <main+0x88>
cmp    $0x53,%cl
je     11c8 <main+0x98>
cmp    $0x73,%cl
je     11c8 <main+0x98>
add    $0x1,%rax
cmp    %rax,%r14
jne    1170 <main+0x40>
jmp    11cb <main+0x9b>
mov    %eax,%r14d
mov    $0xa,%edi
call   1030 <putchar@plt>
cmp    $0x2,%r14d
jl     1202 <main+0xd2>
add    $0xffffffff,%r14d
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsbl (%rsp,%rbx,1),%edi
call   1030 <putchar@plt>
add    $0x1,%rbx
cmp    %rbx,%r14
jne    11f0 <main+0xc0>
mov    $0xa,%edi
call   1030 <putchar@plt>
xor    %eax,%eax
add    $0x3e8,%rsp
pop    %rbx
pop    %r14
ret

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