#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*/ gets(char *);
int /*<<< orphan*/ printf(char *, int);
int strlen(char *);
int main() {
  char s[1010];
  gets(s);
  int i = 0, j = 0, count = 0;
  int len = strlen(s);
  int k, l;
  while (j < len) {
    k = i;
    l = j;
    while (k >= 0 && l < len && s[k] == s[l]) {
      count++;
      k--;
      l++;
    }
    i++;
    j++;
  }
  i = 0;
  j = 1;
  while (j < len) {
    k = i;
    l = j;
    while (k >= 0 && l < len && s[k] == s[l]) {
      count++;
      k--;
      l++;
    }
    i++;
    j++;
  }
  printf("%d\n", count);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x420,%rsp
movl   $0x0,-0x4(%rbp)
lea    -0x400(%rbp),%rdi
call   1050 <gets@plt>
movl   $0x0,-0x404(%rbp)
movl   $0x0,-0x408(%rbp)
movl   $0x0,-0x40c(%rbp)
lea    -0x400(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x410(%rbp)
mov    -0x408(%rbp),%eax
cmp    -0x410(%rbp),%eax
jge    1268 <main+0x138>
mov    -0x404(%rbp),%eax
mov    %eax,-0x414(%rbp)
mov    -0x408(%rbp),%eax
mov    %eax,-0x418(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0x414(%rbp)
mov    %al,-0x419(%rbp)
jl     1200 <main+0xd0>
mov    -0x418(%rbp),%ecx
xor    %eax,%eax
cmp    -0x410(%rbp),%ecx
mov    %al,-0x419(%rbp)
jge    1200 <main+0xd0>
movslq -0x414(%rbp),%rax
movsbl -0x400(%rbp,%rax,1),%eax
ff
movslq -0x418(%rbp),%rcx
movsbl -0x400(%rbp,%rcx,1),%ecx
ff
cmp    %ecx,%eax
sete   %al
mov    %al,-0x419(%rbp)
mov    -0x419(%rbp),%al
test   $0x1,%al
jne    1213 <main+0xe3>
jmp    1245 <main+0x115>
mov    -0x40c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40c(%rbp)
mov    -0x414(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x414(%rbp)
mov    -0x418(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x418(%rbp)
jmp    11a8 <main+0x78>
mov    -0x404(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x404(%rbp)
mov    -0x408(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x408(%rbp)
jmp    117e <main+0x4e>
movl   $0x0,-0x404(%rbp)
movl   $0x1,-0x408(%rbp)
mov    -0x408(%rbp),%eax
cmp    -0x410(%rbp),%eax
jge    1366 <main+0x236>
mov    -0x404(%rbp),%eax
mov    %eax,-0x414(%rbp)
mov    -0x408(%rbp),%eax
mov    %eax,-0x418(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0x414(%rbp)
mov    %al,-0x41a(%rbp)
jl     12fe <main+0x1ce>
mov    -0x418(%rbp),%ecx
xor    %eax,%eax
cmp    -0x410(%rbp),%ecx
mov    %al,-0x41a(%rbp)
jge    12fe <main+0x1ce>
movslq -0x414(%rbp),%rax
movsbl -0x400(%rbp,%rax,1),%eax
ff
movslq -0x418(%rbp),%rcx
movsbl -0x400(%rbp,%rcx,1),%ecx
ff
cmp    %ecx,%eax
sete   %al
mov    %al,-0x41a(%rbp)
mov    -0x41a(%rbp),%al
test   $0x1,%al
jne    1311 <main+0x1e1>
jmp    1343 <main+0x213>
mov    -0x40c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40c(%rbp)
mov    -0x414(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x414(%rbp)
mov    -0x418(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x418(%rbp)
jmp    12a6 <main+0x176>
mov    -0x404(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x404(%rbp)
mov    -0x408(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x408(%rbp)
jmp    127c <main+0x14c>
mov    -0x40c(%rbp),%esi
lea    0xc8d(%rip),%rdi
call   1040 <printf@plt>
xor    %eax,%eax
add    $0x420,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r14
push   %rbx
sub    $0x3f8,%rsp
mov    %rsp,%rbx
mov    %rbx,%rdi
call   1050 <gets@plt>
mov    %rbx,%rdi
call   1030 <strlen@plt>
test   %eax,%eax
jle    11d4 <main+0xa4>
mov    %eax,%r8d
movslq %eax,%rcx
cmp    $0x1,%eax
jne    11ef <main+0xbf>
xor    %r14d,%r14d
xor    %esi,%esi
test   $0x1,%r8b
jne    1284 <main+0x154>
cmp    $0x2,%eax
jl     11d6 <main+0xa6>
add    $0xffffffff,%eax
xor    %r9d,%r9d
mov    $0x2,%r8d
jmp    119d <main+0x6d>
cs nopw 0x0(%rax,%rax,1)
add    $0x1,%r9d
add    $0x1,%r8
cmp    %eax,%r9d
je     11d6 <main+0xa6>
mov    %r8,%rdi
mov    %r9d,%edx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %edx,%ebx
movzbl (%rsp,%rbx,1),%ebx
cmp    -0x1(%rsp,%rdi,1),%bl
jne    1190 <main+0x60>
add    $0x1,%esi
test   %edx,%edx
jle    1190 <main+0x60>
add    $0xffffffff,%edx
lea    0x1(%rdi),%rbx
cmp    %rcx,%rdi
mov    %rbx,%rdi
jl     11b0 <main+0x80>
jmp    1190 <main+0x60>
xor    %esi,%esi
lea    0xe23(%rip),%rdi
call   1040 <printf@plt>
xor    %eax,%eax
add    $0x3f8,%rsp
pop    %rbx
pop    %r14
ret
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
xor    %r14d,%r14d
mov    $0x1,%r10d
mov    $0x2,%r11d
xor    %esi,%esi
jmp    1225 <main+0xf5>
nopl   0x0(%rax)
add    $0x2,%r14
add    $0x2,%r10
add    $0x2,%r11
cmp    %r9,%r14
je     1169 <main+0x39>
mov    %r10,%rbx
mov    %r14d,%edi
nopl   0x0(%rax,%rax,1)
mov    %edi,%edx
movzbl (%rsp,%rdx,1),%edx
cmp    -0x1(%rsp,%rbx,1),%dl
jne    1252 <main+0x122>
add    $0x1,%esi
test   %edi,%edi
jle    1252 <main+0x122>
add    $0xffffffff,%edi
lea    0x1(%rbx),%rdx
cmp    %rcx,%rbx
mov    %rdx,%rbx
jl     1230 <main+0x100>
mov    %r14d,%ebx
or     $0x1,%ebx
mov    %r11,%rdi
nopl   0x0(%rax,%rax,1)
mov    %ebx,%edx
movzbl (%rsp,%rdx,1),%edx
cmp    -0x1(%rsp,%rdi,1),%dl
jne    1210 <main+0xe0>
add    $0x1,%esi
test   %ebx,%ebx
jle    1210 <main+0xe0>
add    $0xffffffff,%ebx
lea    0x1(%rdi),%rdx
cmp    %rcx,%rdi
mov    %rdx,%rdi
jl     1260 <main+0x130>
jmp    1210 <main+0xe0>
mov    %r14,%rdi
add    $0x1,%rdi
nopl   0x0(%rax,%rax,1)
mov    %r14d,%ebx
movzbl (%rsp,%rbx,1),%ebx
cmp    -0x1(%rsp,%rdi,1),%bl
jne    1173 <main+0x43>
add    $0x1,%esi
test   %r14d,%r14d
jle    1173 <main+0x43>
add    $0xffffffff,%r14d
lea    0x1(%rdi),%rbx
cmp    %rcx,%rdi
mov    %rbx,%rdi
jl     1290 <main+0x160>
jmp    1173 <main+0x43>

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

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