#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 getc(int /*<<< orphan*/);
int /*<<< orphan*/ getchar();
int /*<<< orphan*/ gets(char *);
int /*<<< orphan*/ printf(char *, int);
int /*<<< orphan*/ scanf(char *, int *, ...);
int /*<<< orphan*/ stdin;
int main() {
  char input[1000001], chLeft, chRight;
  int query, left, right, i, j, k;
  gets(input);
  scanf("%d", &query);
  while (query--) {
    j = 0;
    getchar();
    chLeft = getc(stdin);
    getchar();
    chRight = getc(stdin);
    scanf("%d%d", &left, &right);
    for (i = (left - 1); i < (right - 1); i++) {
      if (input[i] == chLeft) {
        for (k = (i + 1); k < right; k++) {
          if (input[k] == chRight)
            j++;
        }
      }
    }
    printf("%d\n", j);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0xf4270,%rsp
movl   $0x0,-0x4(%rbp)
lea    -0xf4250(%rbp),%rdi
call   1050 <gets@plt>
lea    0xe8d(%rip),%rdi
lea    -0xf4258(%rbp),%rsi
mov    $0x0,%al
call   1060 <scanf@plt>
mov    -0xf4258(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0xf4258(%rbp)
cmp    $0x0,%eax
je     12d9 <main+0x189>
movl   $0x0,-0xf4268(%rbp)
mov    $0x0,%al
call   1040 <getchar@plt>
mov    0x2e33(%rip),%rax
mov    (%rax),%edi
call   1070 <getc@plt>
mov    %al,-0xf4251(%rbp)
mov    $0x0,%al
call   1040 <getchar@plt>
mov    0x2e18(%rip),%rax
mov    (%rax),%edi
call   1070 <getc@plt>
mov    %al,-0xf4252(%rbp)
lea    0xe1c(%rip),%rdi
lea    -0xf425c(%rbp),%rsi
lea    -0xf4260(%rbp),%rdx
mov    $0x0,%al
call   1060 <scanf@plt>
mov    -0xf425c(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0xf4264(%rbp)
mov    -0xf4264(%rbp),%eax
mov    -0xf4260(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    12c2 <main+0x172>
movslq -0xf4264(%rbp),%rax
movsbl -0xf4250(%rbp,%rax,1),%eax
ff
movsbl -0xf4251(%rbp),%ecx
cmp    %ecx,%eax
jne    12a9 <main+0x159>
mov    -0xf4264(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xf426c(%rbp)
mov    -0xf426c(%rbp),%eax
cmp    -0xf4260(%rbp),%eax
jge    12a4 <main+0x154>
movslq -0xf426c(%rbp),%rax
movsbl -0xf4250(%rbp,%rax,1),%eax
ff
movsbl -0xf4252(%rbp),%ecx
cmp    %ecx,%eax
jne    128b <main+0x13b>
mov    -0xf4268(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xf4268(%rbp)
jmp    1290 <main+0x140>
mov    -0xf426c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xf426c(%rbp)
jmp    124c <main+0xfc>
jmp    12a9 <main+0x159>
jmp    12ae <main+0x15e>
mov    -0xf4264(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xf4264(%rbp)
jmp    1208 <main+0xb8>
mov    -0xf4268(%rbp),%esi
lea    0xd36(%rip),%rdi
call   1030 <printf@plt>
jmp    1183 <main+0x33>
xor    %eax,%eax
add    $0xf4270,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0xf4268,%rsp
lea    0x20(%rsp),%rdi
call   1050 <gets@plt>
lea    0xea0(%rip),%rdi
lea    0x4(%rsp),%rsi
xor    %eax,%eax
call   1060 <scanf@plt>
jmp    118c <main+0x3c>
lea    0xe8e(%rip),%rdi
call   1030 <printf@plt>
subl   $0x1,0x4(%rsp)
jb     1409 <main+0x2b9>
xor    %eax,%eax
call   1040 <getchar@plt>
mov    0x2e43(%rip),%rbx
mov    (%rbx),%edi
call   1070 <getc@plt>
mov    %eax,%r12d
xor    %eax,%eax
call   1040 <getchar@plt>
mov    (%rbx),%edi
call   1070 <getc@plt>
mov    %eax,%ebx
lea    0xe4a(%rip),%rdi
lea    0xc(%rsp),%rsi
lea    0x8(%rsp),%rdx
xor    %eax,%eax
call   1060 <scanf@plt>
movslq 0xc(%rsp),%rcx
movslq 0x8(%rsp),%r15
mov    $0x0,%esi
mov    %rcx,%rax
mov    %rcx,0x10(%rsp)
cmp    %r15d,%ecx
movdqa 0xe07(%rip),%xmm5
jge    1180 <main+0x30>
lea    -0x1(%r15),%r10d
mov    0x10(%rsp),%r8
lea    -0x1(%r8),%eax
movslq %eax,%r11
cmp    %r10d,%r8d
cmovg  %r8d,%r10d
lea    0x1(%r8),%rdi
movzbl %bl,%eax
movd   %eax,%xmm0
punpcklbw %xmm0,%xmm0
pshuflw $0x0,%xmm0,%xmm0
lea    0x2c(%rsp),%rax
lea    (%rax,%r8,1),%rbp
mov    $0xfffffffffffffff8,%r9
sub    %r8,%r9
xor    %edx,%edx
mov    %rdi,0x18(%rsp)
xor    %esi,%esi
mov    %r12b,0x3(%rsp)
jmp    126d <main+0x11d>
nopl   0x0(%rax)
add    $0x1,%r8
add    $0x1,%rdx
add    $0x1,%rbp
add    $0x1,%rdi
add    $0xffffffffffffffff,%r9
cmp    %r11d,%r10d
je     1180 <main+0x30>
cmp    %r15,%rdi
mov    %r15,%rcx
cmovg  %rdi,%rcx
mov    0x18(%rsp),%rax
lea    (%rax,%rdx,1),%r13
cmp    %r15,%r13
mov    %r15,%r14
cmovg  %r13,%r14
cmovle %r15,%r13
mov    %r11,%rax
add    $0x1,%r11
cmp    %r12b,0x20(%rsp,%rax,1)
jne    1250 <main+0x100>
cmp    %r15,%r11
jge    1250 <main+0x100>
mov    0x10(%rsp),%rax
add    %rdx,%rax
sub    %rax,%r13
cmp    $0x8,%r13
jae    12c0 <main+0x170>
mov    %r8,%rcx
jmp    13f0 <main+0x2a0>
nopw   0x0(%rax,%rax,1)
sub    %rax,%r14
add    $0xfffffffffffffff8,%r14
mov    %r14,%r12
shr    $0x3,%r12
add    $0x1,%r12
movd   %esi,%xmm1
cmp    $0x8,%r14
jae    12e7 <main+0x197>
pxor   %xmm2,%xmm2
xor    %esi,%esi
jmp    1372 <main+0x222>
add    %r9,%rcx
shr    $0x3,%rcx
add    $0x1,%rcx
and    $0xfffffffffffffffe,%rcx
pxor   %xmm2,%xmm2
xor    %esi,%esi
nopl   0x0(%rax)
movd   -0xc(%rbp,%rsi,1),%xmm4
movd   -0x8(%rbp,%rsi,1),%xmm3
pcmpeqb %xmm0,%xmm4
punpcklbw %xmm4,%xmm4
punpcklwd %xmm4,%xmm4
pand   %xmm5,%xmm4
paddd  %xmm1,%xmm4
pcmpeqb %xmm0,%xmm3
punpcklbw %xmm3,%xmm3
punpcklwd %xmm3,%xmm3
pand   %xmm5,%xmm3
paddd  %xmm2,%xmm3
movd   -0x4(%rbp,%rsi,1),%xmm1
movd   0x0(%rbp,%rsi,1),%xmm2
pcmpeqb %xmm0,%xmm1
punpcklbw %xmm1,%xmm1
punpcklwd %xmm1,%xmm1
pand   %xmm5,%xmm1
paddd  %xmm4,%xmm1
pcmpeqb %xmm0,%xmm2
punpcklbw %xmm2,%xmm2
punpcklwd %xmm2,%xmm2
pand   %xmm5,%xmm2
paddd  %xmm3,%xmm2
add    $0x10,%rsi
add    $0xfffffffffffffffe,%rcx
jne    1300 <main+0x1b0>
mov    %r13,%rcx
and    $0xfffffffffffffff8,%rcx
test   $0x1,%r12b
je     13b6 <main+0x266>
add    %r8,%rsi
movd   0x20(%rsp,%rsi,1),%xmm3
movd   0x24(%rsp,%rsi,1),%xmm4
pcmpeqb %xmm0,%xmm3
punpcklbw %xmm3,%xmm3
punpcklwd %xmm3,%xmm3
pand   %xmm5,%xmm3
paddd  %xmm3,%xmm1
pcmpeqb %xmm0,%xmm4
punpcklbw %xmm4,%xmm4
punpcklwd %xmm4,%xmm4
pand   %xmm5,%xmm4
paddd  %xmm4,%xmm2
paddd  %xmm2,%xmm1
pshufd $0xee,%xmm1,%xmm2
paddd  %xmm1,%xmm2
pshufd $0x55,%xmm2,%xmm1
paddd  %xmm2,%xmm1
movd   %xmm1,%esi
cmp    %rcx,%r13
mov    0x3(%rsp),%r12b
je     1250 <main+0x100>
add    %r8,%rcx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
xor    %eax,%eax
cmp    %bl,0x20(%rsp,%rcx,1)
sete   %al
add    %eax,%esi
add    $0x1,%rcx
cmp    %r15,%rcx
jl     13f0 <main+0x2a0>
jmp    1250 <main+0x100>
xor    %eax,%eax
add    $0xf4268,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [3 x i8] c"%d\00"
@stdin = global i32 0
@.str.1 = [5 x i8] c"%d%d\00"
@.str.2 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [1000001 x i8]
%3 = alloca i8
%4 = alloca i8
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
store i32 0, i32* %1
%11 = getelementptr inbounds [1000001 x i8], [1000001 x i8]* %2, i64 0, i64 0
%12 = call i32 @gets(i8* %11)
%13 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %5)
br label %14
14: ; preds = %70, %0
%15 = load i32, i32* %5
%16 = add nsw i32 %15, -1
store i32 %16, i32* %5
%17 = icmp ne i32 %15, 0
br i1 %17, label %18, label %73
18: ; preds = %14
store i32 0, i32* %9
%19 = call i32 (...) @getchar()
%20 = load i32, i32* @stdin
%21 = call signext i8 @getc(i32 %20)
store i8 %21, i8* %3
%22 = call i32 (...) @getchar()
%23 = load i32, i32* @stdin
%24 = call signext i8 @getc(i32 %23)
store i8 %24, i8* %4
%25 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i32* %6, i32* %7)
%26 = load i32, i32* %6
%27 = sub nsw i32 %26, 1
store i32 %27, i32* %8
br label %28
28: ; preds = %67, %18
%29 = load i32, i32* %8
%30 = load i32, i32* %7
%31 = sub nsw i32 %30, 1
%32 = icmp slt i32 %29, %31
br i1 %32, label %33, label %70
33: ; preds = %28
%34 = load i32, i32* %8
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds [1000001 x i8], [1000001 x i8]* %2, i64 0, i64 %35
%37 = load i8, i8* %36
%38 = sext i8 %37 to i32
%39 = load i8, i8* %3
%40 = sext i8 %39 to i32
%41 = icmp eq i32 %38, %40
br i1 %41, label %42, label %66
42: ; preds = %33
%43 = load i32, i32* %8
%44 = add nsw i32 %43, 1
store i32 %44, i32* %10
br label %45
45: ; preds = %62, %42
%46 = load i32, i32* %10
%47 = load i32, i32* %7
%48 = icmp slt i32 %46, %47
br i1 %48, label %49, label %65
49: ; preds = %45
%50 = load i32, i32* %10
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds [1000001 x i8], [1000001 x i8]* %2, i64 0, i64 %51
%53 = load i8, i8* %52
%54 = sext i8 %53 to i32
%55 = load i8, i8* %4
%56 = sext i8 %55 to i32
%57 = icmp eq i32 %54, %56
br i1 %57, label %58, label %61
58: ; preds = %49
%59 = load i32, i32* %9
%60 = add nsw i32 %59, 1
store i32 %60, i32* %9
br label %61
61: ; preds = %58, %49
br label %62
62: ; preds = %61
%63 = load i32, i32* %10
%64 = add nsw i32 %63, 1
store i32 %64, i32* %10
br label %45
65: ; preds = %45
br label %66
66: ; preds = %65, %33
br label %67
67: ; preds = %66
%68 = load i32, i32* %8
%69 = add nsw i32 %68, 1
store i32 %69, i32* %8
br label %28
70: ; preds = %28
%71 = load i32, i32* %9
%72 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0), i32 %71)
br label %14
73: ; preds = %14
ret i32 0
}

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
@stdin = global i32 0
@.str.1 = [5 x i8] c"%d%d\00"
@.str.2 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca [1000001 x i8]
%2 = alloca i32
%3 = alloca i32
%4 = alloca i32
%5 = getelementptr inbounds [1000001 x i8], [1000001 x i8]* %1, i64 0, i64 0
%6 = bitcast i32* %2 to i8*
%7 = bitcast i32* %3 to i8*
%8 = bitcast i32* %4 to i8*
%9 = call i32 @gets(i8* %5)
%10 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %2)
%11 = load i32, i32* %2
%12 = add nsw i32 %11, -1
store i32 %12, i32* %2
%13 = icmp eq i32 %11, 0
br i1 %13, label %157, label %14
14: ; preds = %0, %151
%15 = call i32 (...) @getchar()
%16 = load i32, i32* @stdin
%17 = call signext i8 @getc(i32 %16)
%18 = call i32 (...) @getchar()
%19 = load i32, i32* @stdin
%20 = call signext i8 @getc(i32 %19)
%21 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i32* %3, i32* %4)
%22 = load i32, i32* %3
%23 = load i32, i32* %4
%24 = icmp slt i32 %22, %23
br i1 %24, label %25, label %151
25: ; preds = %14
%26 = add nsw i32 %23, -1
%27 = add i32 %22, -1
%28 = sext i32 %22 to i64
%29 = sext i32 %23 to i64
%30 = sext i32 %27 to i64
%31 = call i32 @llvm.smax.i32(i32 %22, i32 %26)
%32 = add nsw i64 %28, 1
%33 = add nsw i64 %28, 1
%34 = insertelement <4 x i8> poison, i8 %20, i64 0
%35 = shufflevector <4 x i8> %34, <4 x i8> poison, <4 x i32> zeroinitializer
%36 = insertelement <4 x i8> poison, i8 %20, i64 0
%37 = shufflevector <4 x i8> %36, <4 x i8> poison, <4 x i32> zeroinitializer
br label %38
38: ; preds = %25, %145
%39 = phi i64 [ 0, %25 ], [ %150, %145 ]
%40 = phi i64 [ %30, %25 ], [ %57, %145 ]
%41 = phi i64 [ %28, %25 ], [ %147, %145 ]
%42 = phi i32 [ 0, %25 ], [ %146, %145 ]
%43 = add i64 %33, %39
%44 = call i64 @llvm.smax.i64(i64 %43, i64 %29)
%45 = add i64 %39, %28
%46 = sub i64 %44, %45
%47 = add i64 %46, -8
%48 = lshr i64 %47, 3
%49 = add nuw nsw i64 %48, 1
%50 = add i64 %32, %39
%51 = call i64 @llvm.smax.i64(i64 %50, i64 %29)
%52 = add i64 %39, %28
%53 = sub i64 %51, %52
%54 = getelementptr inbounds [1000001 x i8], [1000001 x i8]* %1, i64 0, i64 %40
%55 = load i8, i8* %54
%56 = icmp eq i8 %55, %17
%57 = add nsw i64 %40, 1
%58 = icmp slt i64 %57, %29
%59 = select i1 %56, i1 %58, i1 false
br i1 %59, label %60, label %145
60: ; preds = %38
%61 = icmp ult i64 %53, 8
br i1 %61, label %132, label %62
62: ; preds = %60
%63 = and i64 %53, -8
%64 = add i64 %41, %63
%65 = insertelement <4 x i32> <i32 poison, i32 0, i32 0, i32 0>, i32 %42, i64 0
%66 = and i64 %49, 1
%67 = icmp ult i64 %47, 8
br i1 %67, label %105, label %68
68: ; preds = %62
%69 = and i64 %49, 4611686018427387902
br label %70
70: ; preds = %70, %68
%71 = phi i64 [ 0, %68 ], [ %102, %70 ]
%72 = phi <4 x i32> [ %65, %68 ], [ %100, %70 ]
%73 = phi <4 x i32> [ zeroinitializer, %68 ], [ %101, %70 ]
%74 = phi i64 [ 0, %68 ], [ %103, %70 ]
%75 = add i64 %41, %71
%76 = getelementptr inbounds [1000001 x i8], [1000001 x i8]* %1, i64 0, i64 %75
%77 = bitcast i8* %76 to <4 x i8>*
%78 = load <4 x i8>, <4 x i8>* %77
%79 = getelementptr inbounds i8, i8* %76, i64 4
%80 = bitcast i8* %79 to <4 x i8>*
%81 = load <4 x i8>, <4 x i8>* %80
%82 = icmp eq <4 x i8> %78, %35
%83 = icmp eq <4 x i8> %81, %37
%84 = zext <4 x i1> %82 to <4 x i32>
%85 = zext <4 x i1> %83 to <4 x i32>
%86 = add <4 x i32> %72, %84
%87 = add <4 x i32> %73, %85
%88 = or i64 %71, 8
%89 = add i64 %41, %88
%90 = getelementptr inbounds [1000001 x i8], [1000001 x i8]* %1, i64 0, i64 %89
%91 = bitcast i8* %90 to <4 x i8>*
%92 = load <4 x i8>, <4 x i8>* %91
%93 = getelementptr inbounds i8, i8* %90, i64 4
%94 = bitcast i8* %93 to <4 x i8>*
%95 = load <4 x i8>, <4 x i8>* %94
%96 = icmp eq <4 x i8> %92, %35
%97 = icmp eq <4 x i8> %95, %37
%98 = zext <4 x i1> %96 to <4 x i32>
%99 = zext <4 x i1> %97 to <4 x i32>
%100 = add <4 x i32> %86, %98
%101 = add <4 x i32> %87, %99
%102 = add nuw i64 %71, 16
%103 = add i64 %74, 2
%104 = icmp eq i64 %103, %69
br i1 %104, label %105, label %70
105: ; preds = %70, %62
%106 = phi <4 x i32> [ undef, %62 ], [ %100, %70 ]
%107 = phi <4 x i32> [ undef, %62 ], [ %101, %70 ]
%108 = phi i64 [ 0, %62 ], [ %102, %70 ]
%109 = phi <4 x i32> [ %65, %62 ], [ %100, %70 ]
%110 = phi <4 x i32> [ zeroinitializer, %62 ], [ %101, %70 ]
%111 = icmp eq i64 %66, 0
br i1 %111, label %126, label %112
112: ; preds = %105
%113 = add i64 %41, %108
%114 = getelementptr inbounds [1000001 x i8], [1000001 x i8]* %1, i64 0, i64 %113
%115 = bitcast i8* %114 to <4 x i8>*
%116 = load <4 x i8>, <4 x i8>* %115
%117 = getelementptr inbounds i8, i8* %114, i64 4
%118 = bitcast i8* %117 to <4 x i8>*
%119 = load <4 x i8>, <4 x i8>* %118
%120 = icmp eq <4 x i8> %116, %35
%121 = icmp eq <4 x i8> %119, %37
%122 = zext <4 x i1> %120 to <4 x i32>
%123 = zext <4 x i1> %121 to <4 x i32>
%124 = add <4 x i32> %109, %122
%125 = add <4 x i32> %110, %123
br label %126
126: ; preds = %105, %112
%127 = phi <4 x i32> [ %106, %105 ], [ %124, %112 ]
%128 = phi <4 x i32> [ %107, %105 ], [ %125, %112 ]
%129 = add <4 x i32> %128, %127
%130 = call i32 @llvm.vector.reduce.add.v4i32(<4 x i32> %129)
%131 = icmp eq i64 %53, %63
br i1 %131, label %145, label %132
132: ; preds = %60, %126
%133 = phi i64 [ %41, %60 ], [ %64, %126 ]
%134 = phi i32 [ %42, %60 ], [ %130, %126 ]
br label %135
135: ; preds = %132, %135
%136 = phi i64 [ %143, %135 ], [ %133, %132 ]
%137 = phi i32 [ %142, %135 ], [ %134, %132 ]
%138 = getelementptr inbounds [1000001 x i8], [1000001 x i8]* %1, i64 0, i64 %136
%139 = load i8, i8* %138
%140 = icmp eq i8 %139, %20
%141 = zext i1 %140 to i32
%142 = add nsw i32 %137, %141
%143 = add nsw i64 %136, 1
%144 = icmp slt i64 %143, %29
br i1 %144, label %135, label %145
145: ; preds = %135, %126, %38
%146 = phi i32 [ %42, %38 ], [ %130, %126 ], [ %142, %135 ]
%147 = add nsw i64 %41, 1
%148 = trunc i64 %57 to i32
%149 = icmp eq i32 %31, %148
%150 = add i64 %39, 1
br i1 %149, label %151, label %38
151: ; preds = %145, %14
%152 = phi i32 [ 0, %14 ], [ %146, %145 ]
%153 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0), i32 %152)
%154 = load i32, i32* %2
%155 = add nsw i32 %154, -1
store i32 %155, i32* %2
%156 = icmp eq i32 %154, 0
br i1 %156, label %157, label %14
157: ; preds = %151, %0
ret i32 0
}