#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);
int /*<<< orphan*/ scanf(char *, char *);
int strlen(char *);
int main() {
  char str[100000];
  scanf("%s", str);
  int ans = 0, i, count;
  int n = strlen(str);
  i = 0;
  while (i < n) {
    count = 0;
    while (str[i] != 'C' && i < n)
      i++;
    if (i < n)
      count++;
    while (str[i] != 'H' && i < n)
      i++;
    if (i < n)
      count++;
    while (str[i] != 'E' && i < n)
      i++;
    if (i < n)
      count++;
    while (str[i] != 'F' && i < n)
      i++;
    if (i < n)
      count++;
    if (count == 4)
      ans++;
  }
  printf("%d\n", ans);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x186d0,%rsp
movl   $0x0,-0x4(%rbp)
lea    -0x186b0(%rbp),%rsi
lea    0xeb0(%rip),%rdi
call   1050 <scanf@plt>
movl   $0x0,-0x186b4(%rbp)
lea    -0x186b0(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x186c0(%rbp)
movl   $0x0,-0x186b8(%rbp)
mov    -0x186b8(%rbp),%eax
cmp    -0x186c0(%rbp),%eax
jge    13bb <main+0x28b>
movl   $0x0,-0x186bc(%rbp)
movslq -0x186b8(%rbp),%rax
movsbl -0x186b0(%rbp,%rax,1),%ecx
ff
xor    %eax,%eax
cmp    $0x43,%ecx
mov    %al,-0x186c1(%rbp)
je     11cc <main+0x9c>
mov    -0x186b8(%rbp),%eax
cmp    -0x186c0(%rbp),%eax
setl   %al
mov    %al,-0x186c1(%rbp)
mov    -0x186c1(%rbp),%al
test   $0x1,%al
jne    11df <main+0xaf>
jmp    11f3 <main+0xc3>
mov    -0x186b8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x186b8(%rbp)
jmp    1197 <main+0x67>
mov    -0x186b8(%rbp),%eax
cmp    -0x186c0(%rbp),%eax
jge    1214 <main+0xe4>
mov    -0x186bc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x186bc(%rbp)
jmp    1219 <main+0xe9>
movslq -0x186b8(%rbp),%rax
movsbl -0x186b0(%rbp,%rax,1),%ecx
ff
xor    %eax,%eax
cmp    $0x48,%ecx
mov    %al,-0x186c2(%rbp)
je     124e <main+0x11e>
mov    -0x186b8(%rbp),%eax
cmp    -0x186c0(%rbp),%eax
setl   %al
mov    %al,-0x186c2(%rbp)
mov    -0x186c2(%rbp),%al
test   $0x1,%al
jne    1261 <main+0x131>
jmp    1275 <main+0x145>
mov    -0x186b8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x186b8(%rbp)
jmp    1219 <main+0xe9>
mov    -0x186b8(%rbp),%eax
cmp    -0x186c0(%rbp),%eax
jge    1296 <main+0x166>
mov    -0x186bc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x186bc(%rbp)
jmp    129b <main+0x16b>
movslq -0x186b8(%rbp),%rax
movsbl -0x186b0(%rbp,%rax,1),%ecx
ff
xor    %eax,%eax
cmp    $0x45,%ecx
mov    %al,-0x186c3(%rbp)
je     12d0 <main+0x1a0>
mov    -0x186b8(%rbp),%eax
cmp    -0x186c0(%rbp),%eax
setl   %al
mov    %al,-0x186c3(%rbp)
mov    -0x186c3(%rbp),%al
test   $0x1,%al
jne    12e3 <main+0x1b3>
jmp    12f7 <main+0x1c7>
mov    -0x186b8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x186b8(%rbp)
jmp    129b <main+0x16b>
mov    -0x186b8(%rbp),%eax
cmp    -0x186c0(%rbp),%eax
jge    1318 <main+0x1e8>
mov    -0x186bc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x186bc(%rbp)
jmp    131d <main+0x1ed>
movslq -0x186b8(%rbp),%rax
movsbl -0x186b0(%rbp,%rax,1),%ecx
ff
xor    %eax,%eax
cmp    $0x46,%ecx
mov    %al,-0x186c4(%rbp)
je     1352 <main+0x222>
mov    -0x186b8(%rbp),%eax
cmp    -0x186c0(%rbp),%eax
setl   %al
mov    %al,-0x186c4(%rbp)
mov    -0x186c4(%rbp),%al
test   $0x1,%al
jne    1365 <main+0x235>
jmp    1379 <main+0x249>
mov    -0x186b8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x186b8(%rbp)
jmp    131d <main+0x1ed>
mov    -0x186b8(%rbp),%eax
cmp    -0x186c0(%rbp),%eax
jge    139a <main+0x26a>
mov    -0x186bc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x186bc(%rbp)
cmpl   $0x4,-0x186bc(%rbp)
jne    13b6 <main+0x286>
mov    -0x186b4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x186b4(%rbp)
jmp    117b <main+0x4b>
mov    -0x186b4(%rbp),%esi
lea    0xc3b(%rip),%rdi
call   1040 <printf@plt>
xor    %eax,%eax
add    $0x186d0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x186a8,%rsp
lea    0xeb8(%rip),%rdi
mov    %rsp,%rbx
mov    %rbx,%rsi
call   1050 <scanf@plt>
mov    %rbx,%rdi
call   1030 <strlen@plt>
test   %eax,%eax
jle    128e <main+0x15e>
movabs $0xffffffff00000000,%r8
ff ff ff
movabs $0x100000000,%r9
mov    %eax,%r11d
xor    %esi,%esi
xor    %r13d,%r13d
jmp    11ba <main+0x8a>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
xor    %ebp,%ebp
cmp    %r11,%rdx
setl   %bpl
cmp    %r11,%r14
cmovl  %r10d,%ecx
add    %ebx,%ecx
add    %ecx,%ebp
xor    %ecx,%ecx
cmp    $0x4,%ebp
sete   %cl
add    %ecx,%esi
add    $0xffffffffffffffff,%r13
cmp    %edi,%eax
jle    1290 <main+0x160>
mov    %r13,%rdi
shl    $0x20,%rdi
movslq %r13d,%rcx
add    %r8,%rdi
lea    -0x1(%rcx),%ebx
nopw   0x0(%rax,%rax,1)
mov    %rcx,%r15
mov    %ebx,%edx
add    %r9,%rdi
cmpb   $0x43,(%rsp,%rcx,1)
je     11ea <main+0xba>
lea    0x1(%r15),%rcx
lea    0x1(%rdx),%ebx
cmp    %r11,%r15
jl     11d0 <main+0xa0>
sar    $0x20,%rdi
mov    %r15,%rbx
shl    $0x20,%rbx
add    %r8,%rbx
nopl   0x0(%rax,%rax,1)
mov    %rdi,%r14
mov    %edx,%r12d
add    %r9,%rbx
cmpb   $0x48,(%rsp,%rdi,1)
je     121d <main+0xed>
lea    0x1(%r14),%rdi
lea    0x1(%r12),%edx
cmp    %r11,%r14
jl     1200 <main+0xd0>
xor    %r10d,%r10d
cmp    %r11,%r15
setl   %r10b
add    $0x1,%r10d
sar    $0x20,%rbx
mov    %r14,%r13
shl    $0x20,%r13
add    %r8,%r13
nopl   0x0(%rax)
mov    %rbx,%rcx
mov    %r12d,%edi
add    %r9,%r13
cmpb   $0x45,(%rsp,%rbx,1)
je     125c <main+0x12c>
lea    0x1(%rcx),%rbx
lea    0x1(%rdi),%r12d
cmp    %r11,%rcx
jl     1240 <main+0x110>
xor    %ebx,%ebx
cmp    %r11,%rcx
setl   %bl
xor    %ecx,%ecx
cmp    %r11,%r15
setl   %cl
sar    $0x20,%r13
mov    %r13,%rdx
add    $0x1,%r13
add    $0x1,%edi
cmpb   $0x46,(%rsp,%rdx,1)
je     1190 <main+0x60>
cmp    %r11,%rdx
jl     1270 <main+0x140>
jmp    1190 <main+0x60>
xor    %esi,%esi
lea    0xd6c(%rip),%rdi
call   1040 <printf@plt>
xor    %eax,%eax
add    $0x186a8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [3 x i8] c"%s\00"
@.str.1 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca [100000 x i8]
%2 = getelementptr inbounds [100000 x i8], [100000 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 = call i32 @strlen(i8* %2)
%5 = icmp sgt i32 %4, 0
br i1 %5, label %6, label %67
6: ; preds = %0
%7 = zext i32 %4 to i64
br label %8
8: ; preds = %6, %57
%9 = phi i32 [ %65, %57 ], [ 0, %6 ]
%10 = phi i64 [ %50, %57 ], [ 0, %6 ]
%11 = shl i64 %10, 32
%12 = ashr exact i64 %11, 32
br label %13
13: ; preds = %13, %8
%14 = phi i64 [ %20, %13 ], [ %12, %8 ]
%15 = getelementptr inbounds [100000 x i8], [100000 x i8]* %1, i64 0, i64 %14
%16 = load i8, i8* %15
%17 = icmp ne i8 %16, 67
%18 = icmp slt i64 %14, %7
%19 = select i1 %17, i1 %18, i1 false
%20 = add nsw i64 %14, 1
br i1 %19, label %13, label %21
21: ; preds = %13
%22 = shl i64 %14, 32
%23 = ashr exact i64 %22, 32
br label %24
24: ; preds = %24, %21
%25 = phi i64 [ %31, %24 ], [ %23, %21 ]
%26 = getelementptr inbounds [100000 x i8], [100000 x i8]* %1, i64 0, i64 %25
%27 = load i8, i8* %26
%28 = icmp ne i8 %27, 72
%29 = icmp slt i64 %25, %7
%30 = select i1 %28, i1 %29, i1 false
%31 = add nsw i64 %25, 1
br i1 %30, label %24, label %32
32: ; preds = %24
%33 = select i1 %18, i32 2, i32 1
%34 = shl i64 %25, 32
%35 = ashr exact i64 %34, 32
br label %36
36: ; preds = %36, %32
%37 = phi i64 [ %43, %36 ], [ %35, %32 ]
%38 = getelementptr inbounds [100000 x i8], [100000 x i8]* %1, i64 0, i64 %37
%39 = load i8, i8* %38
%40 = icmp ne i8 %39, 69
%41 = icmp slt i64 %37, %7
%42 = select i1 %40, i1 %41, i1 false
%43 = add nsw i64 %37, 1
br i1 %42, label %36, label %44
44: ; preds = %36
%45 = zext i1 %18 to i32
%46 = zext i1 %41 to i32
%47 = shl i64 %37, 32
%48 = ashr exact i64 %47, 32
br label %49
49: ; preds = %49, %44
%50 = phi i64 [ %56, %49 ], [ %48, %44 ]
%51 = getelementptr inbounds [100000 x i8], [100000 x i8]* %1, i64 0, i64 %50
%52 = load i8, i8* %51
%53 = icmp ne i8 %52, 70
%54 = icmp slt i64 %50, %7
%55 = select i1 %53, i1 %54, i1 false
%56 = add nsw i64 %50, 1
br i1 %55, label %49, label %57
57: ; preds = %49
%58 = select i1 %29, i32 %33, i32 %45
%59 = add nuw nsw i32 %58, %46
%60 = trunc i64 %50 to i32
%61 = zext i1 %54 to i32
%62 = add nuw nsw i32 %59, %61
%63 = icmp eq i32 %62, 4
%64 = zext i1 %63 to i32
%65 = add nuw nsw i32 %9, %64
%66 = icmp sgt i32 %4, %60
br i1 %66, label %8, label %67
67: ; preds = %57, %0
%68 = phi i32 [ 0, %0 ], [ %65, %57 ]
%69 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32 %68)
ret i32 0
}