Given the following C code and unoptimized assembly code, your task is to generate highly optimized x86-64 assembly code.
C Code:

```c
#include <stdio.h>

int main()
{
    int n,red = 0;
    char s[101];
    scanf("%d %s",&n,s);

    for (int i = 0; i < n; i++)
    {
        if(s[i] == 'R')red++;
    }
    printf(red > n - red ? "Yes":"No");
}```

Unoptimized Assembly Code:

```assembly
	.file	"temp.c"
	.text
	.section	.rodata
.LC0:
	.string	"%d %s"
.LC1:
	.string	"Yes"
.LC2:
	.string	"No"
	.text
	.globl	main
	.type	main, @function
main:
.LFB0:
	.cfi_startproc
	endbr64
	pushq	%rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	movq	%rsp, %rbp
	.cfi_def_cfa_register 6
	addq	$-128, %rsp
	movq	%fs:40, %rax
	movq	%rax, -8(%rbp)
	xorl	%eax, %eax
	movl	$0, -120(%rbp)
	leaq	-112(%rbp), %rdx
	leaq	-124(%rbp), %rax
	movq	%rax, %rsi
	leaq	.LC0(%rip), %rax
	movq	%rax, %rdi
	movl	$0, %eax
	call	__isoc99_scanf@PLT
	movl	$0, -116(%rbp)
	jmp	.L2
.L4:
	movl	-116(%rbp), %eax
	cltq
	movzbl	-112(%rbp,%rax), %eax
	cmpb	$82, %al
	jne	.L3
	addl	$1, -120(%rbp)
.L3:
	addl	$1, -116(%rbp)
.L2:
	movl	-124(%rbp), %eax
	cmpl	%eax, -116(%rbp)
	jl	.L4
	movl	-124(%rbp), %eax
	subl	-120(%rbp), %eax
	cmpl	%eax, -120(%rbp)
	jle	.L5
	leaq	.LC1(%rip), %rax
	jmp	.L6
.L5:
	leaq	.LC2(%rip), %rax
.L6:
	movq	%rax, %rdi
	movl	$0, %eax
	call	printf@PLT
	movl	$0, %eax
	movq	-8(%rbp), %rdx
	subq	%fs:40, %rdx
	je	.L8
	call	__stack_chk_fail@PLT
.L8:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE0:
	.size	main, .-main
	.ident	"GCC: (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0"
	.section	.note.GNU-stack,"",@progbits
	.section	.note.gnu.property,"a"
	.align 8
	.long	1f - 0f
	.long	4f - 1f
	.long	5
0:
	.string	"GNU"
1:
	.align 8
	.long	0xc0000002
	.long	3f - 2f
2:
	.long	0x3
3:
	.align 8
4:
```

Only output the optimized assembly code. Do not include any other text. Do not write any comments in the assembly code. Wrap the assembly code in ```assembly``` tags.
user
	.file	"temp.c"
	.text
	.section	.rodata.str1.1,"aMS",@progbits,1
.LC0:
	.string	"Yes"
.LC1:
	.string	"No"
.LC2:
	.string	"%d %s"
	.section	.text.startup,"ax",@progbits
	.p2align 4
	.globl	main
	.type	main, @function
main:
.LFB23:
	.cfi_startproc
	endbr64
	subq	$136, %rsp
	.cfi_def_cfa_offset 144
	leaq	.LC2(%rip), %rdi
	movq	%fs:40, %rax
	movq	%rax, 120(%rsp)
	xorl	%eax, %eax
	leaq	16(%rsp), %rdx
	leaq	12(%rsp), %rsi
	call	__isoc99_scanf@PLT
	movl	12(%rsp), %edx
	testl	%edx, %edx
	jle	.L24
	leal	-1(%rdx), %eax
	cmpl	$14, %eax
	jbe	.L25
	movdqa	.LC3(%rip), %xmm4
	pxor	%xmm6, %xmm6
	pxor	%xmm3, %xmm3
	movl	%edx, %eax
	movdqa	.LC4(%rip), %xmm5
	movdqa	%xmm6, %xmm0
	movdqa	%xmm3, %xmm7
	shrl	$4, %eax
	movdqa	%xmm4, %xmm1
	pcmpeqb	16(%rsp), %xmm1
	pand	%xmm5, %xmm1
	pcmpgtb	%xmm1, %xmm0
	movdqa	%xmm1, %xmm2
	punpcklbw	%xmm0, %xmm2
	punpckhbw	%xmm0, %xmm1
	pcmpgtw	%xmm2, %xmm7
	movdqa	%xmm2, %xmm8
	movdqa	%xmm2, %xmm0
	movdqa	%xmm3, %xmm2
	pcmpgtw	%xmm1, %xmm2
	punpcklwd	%xmm7, %xmm8
	punpckhwd	%xmm7, %xmm0
	movdqa	%xmm1, %xmm7
	paddd	%xmm8, %xmm0
	punpcklwd	%xmm2, %xmm7
	punpckhwd	%xmm2, %xmm1
	paddd	%xmm7, %xmm0
	paddd	%xmm1, %xmm0
	cmpl	$1, %eax
	je	.L4
	movdqa	%xmm4, %xmm1
	movdqa	%xmm6, %xmm2
	movdqa	%xmm3, %xmm8
	pcmpeqb	32(%rsp), %xmm1
	pand	%xmm5, %xmm1
	pcmpgtb	%xmm1, %xmm2
	movdqa	%xmm1, %xmm7
	punpcklbw	%xmm2, %xmm7
	punpckhbw	%xmm2, %xmm1
	pcmpgtw	%xmm7, %xmm8
	movdqa	%xmm7, %xmm2
	punpcklwd	%xmm8, %xmm2
	punpckhwd	%xmm8, %xmm7
	paddd	%xmm2, %xmm0
	movdqa	%xmm3, %xmm2
	pcmpgtw	%xmm1, %xmm2
	paddd	%xmm7, %xmm0
	movdqa	%xmm1, %xmm7
	punpcklwd	%xmm2, %xmm7
	punpckhwd	%xmm2, %xmm1
	paddd	%xmm7, %xmm0
	paddd	%xmm1, %xmm0
	cmpl	$2, %eax
	je	.L4
	movdqa	%xmm4, %xmm1
	movdqa	%xmm6, %xmm2
	movdqa	%xmm3, %xmm8
	pcmpeqb	48(%rsp), %xmm1
	pand	%xmm5, %xmm1
	pcmpgtb	%xmm1, %xmm2
	movdqa	%xmm1, %xmm7
	punpcklbw	%xmm2, %xmm7
	punpckhbw	%xmm2, %xmm1
	pcmpgtw	%xmm7, %xmm8
	movdqa	%xmm7, %xmm2
	punpcklwd	%xmm8, %xmm2
	punpckhwd	%xmm8, %xmm7
	paddd	%xmm2, %xmm0
	movdqa	%xmm3, %xmm2
	pcmpgtw	%xmm1, %xmm2
	paddd	%xmm7, %xmm0
	movdqa	%xmm1, %xmm7
	punpcklwd	%xmm2, %xmm7
	punpckhwd	%xmm2, %xmm1
	paddd	%xmm7, %xmm0
	paddd	%xmm1, %xmm0
	cmpl	$3, %eax
	je	.L4
	movdqa	%xmm4, %xmm1
	movdqa	%xmm6, %xmm2
	movdqa	%xmm3, %xmm8
	pcmpeqb	64(%rsp), %xmm1
	pand	%xmm5, %xmm1
	pcmpgtb	%xmm1, %xmm2
	movdqa	%xmm1, %xmm7
	punpcklbw	%xmm2, %xmm7
	punpckhbw	%xmm2, %xmm1
	pcmpgtw	%xmm7, %xmm8
	movdqa	%xmm7, %xmm2
	punpcklwd	%xmm8, %xmm2
	punpckhwd	%xmm8, %xmm7
	paddd	%xmm2, %xmm0
	movdqa	%xmm3, %xmm2
	pcmpgtw	%xmm1, %xmm2
	paddd	%xmm7, %xmm0
	movdqa	%xmm1, %xmm7
	punpcklwd	%xmm2, %xmm7
	punpckhwd	%xmm2, %xmm1
	paddd	%xmm7, %xmm0
	paddd	%xmm1, %xmm0
	cmpl	$4, %eax
	je	.L4
	movdqa	%xmm4, %xmm1
	movdqa	%xmm6, %xmm2
	movdqa	%xmm3, %xmm8
	pcmpeqb	80(%rsp), %xmm1
	pand	%xmm5, %xmm1
	pcmpgtb	%xmm1, %xmm2
	movdqa	%xmm1, %xmm7
	punpcklbw	%xmm2, %xmm7
	punpckhbw	%xmm2, %xmm1
	pcmpgtw	%xmm7, %xmm8
	movdqa	%xmm7, %xmm2
	punpcklwd	%xmm8, %xmm2
	punpckhwd	%xmm8, %xmm7
	paddd	%xmm2, %xmm0
	movdqa	%xmm3, %xmm2
	pcmpgtw	%xmm1, %xmm2
	paddd	%xmm7, %xmm0
	movdqa	%xmm1, %xmm7
	punpcklwd	%xmm2, %xmm7
	punpckhwd	%xmm2, %xmm1
	paddd	%xmm7, %xmm0
	paddd	%xmm1, %xmm0
	cmpl	$5, %eax
	je	.L4
	pcmpeqb	96(%rsp), %xmm4
	pand	%xmm5, %xmm4
	movdqa	%xmm3, %xmm5
	pcmpgtb	%xmm4, %xmm6
	movdqa	%xmm4, %xmm2
	punpcklbw	%xmm6, %xmm2
	punpckhbw	%xmm6, %xmm4
	pcmpgtw	%xmm2, %xmm5
	pcmpgtw	%xmm4, %xmm3
	movdqa	%xmm2, %xmm1
	punpcklwd	%xmm5, %xmm1
	punpckhwd	%xmm5, %xmm2
	paddd	%xmm0, %xmm1
	paddd	%xmm2, %xmm1
	movdqa	%xmm4, %xmm2
	punpckhwd	%xmm3, %xmm4
	punpcklwd	%xmm3, %xmm2
	paddd	%xmm2, %xmm1
	movdqa	%xmm1, %xmm0
	paddd	%xmm4, %xmm0
.L4:
	movdqa	%xmm0, %xmm1
	movl	%edx, %ecx
	psrldq	$8, %xmm1
	andl	$-16, %ecx
	paddd	%xmm1, %xmm0
	movdqa	%xmm0, %xmm1
	psrldq	$4, %xmm1
	paddd	%xmm1, %xmm0
	movd	%xmm0, %eax
	testb	$15, %dl
	je	.L2
.L3:
	movslq	%ecx, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L6
	addl	$1, %eax
.L6:
	leal	1(%rcx), %esi
	cmpl	%edx, %esi
	jge	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L44
.L7:
	leal	2(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L45
.L8:
	leal	3(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L46
.L9:
	leal	4(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L47
.L10:
	leal	5(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L11
	addl	$1, %eax
.L11:
	leal	6(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L12
	addl	$1, %eax
.L12:
	leal	7(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L13
	addl	$1, %eax
.L13:
	leal	8(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L14
	addl	$1, %eax
.L14:
	leal	9(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L48
.L15:
	leal	10(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L49
.L16:
	leal	11(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L50
.L17:
	leal	12(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L51
.L18:
	leal	13(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L19
	addl	$1, %eax
.L19:
	addl	$14, %ecx
	cmpl	%ecx, %edx
	jle	.L2
	movslq	%ecx, %rcx
	cmpb	$82, 16(%rsp,%rcx)
	jne	.L2
	addl	$1, %eax
	.p2align 4,,10
	.p2align 3
.L2:
	subl	%eax, %edx
	leaq	.LC0(%rip), %rsi
	movl	$1, %edi
	cmpl	%eax, %edx
	leaq	.LC1(%rip), %rax
	cmovge	%rax, %rsi
	xorl	%eax, %eax
	call	__printf_chk@PLT
	movq	120(%rsp), %rax
	subq	%fs:40, %rax
	jne	.L52
	xorl	%eax, %eax
	addq	$136, %rsp
	.cfi_remember_state
	.cfi_def_cfa_offset 8
	ret
.L44:
	.cfi_restore_state
	addl	$1, %eax
	jmp	.L7
.L45:
	addl	$1, %eax
	jmp	.L8
.L46:
	addl	$1, %eax
	jmp	.L9
.L47:
	addl	$1, %eax
	jmp	.L10
.L48:
	addl	$1, %eax
	jmp	.L15
.L49:
	addl	$1, %eax
	jmp	.L16
.L50:
	addl	$1, %eax
	jmp	.L17
.L51:
	addl	$1, %eax
	jmp	.L18
.L24:
	xorl	%eax, %eax
	jmp	.L2
.L25:
	xorl	%ecx, %ecx
	xorl	%eax, %eax
	jmp	.L3
.L52:
	call	__stack_chk_fail@PLT
	.cfi_endproc
.LFE23:
	.size	main, .-main
	.section	.rodata.cst16,"aM",@progbits,16
	.align 16
.LC3:
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.align 16
.LC4:
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.ident	"GCC: (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0"
	.section	.note.GNU-stack,"",@progbits
	.section	.note.gnu.property,"a"
	.align 8
	.long	1f - 0f
	.long	4f - 1f
	.long	5
0:
	.string	"GNU"
1:
	.align 8
	.long	0xc0000002
	.long	3f - 2f
2:
	.long	0x3
3:
	.align 8
4:

rule
	.file	"temp.c"
	.text
	.section	.rodata.str1.1,"aMS",@progbits,1
.LC0:
	.string	"Yes"
.LC1:
	.string	"No"
.LC2:
	.string	"%d %s"
	.section	.text.startup,"ax",@progbits
	.p2align 4
	.globl	main
	.type	main, @function
main:
.LFB23:
	.cfi_startproc
	endbr64
	subq	$136, %rsp
	.cfi_def_cfa_offset 144
	leaq	.LC2(%rip), %rdi
	movq	%fs:40, %rax
	movq	%rax, 120(%rsp)
	xorl	%eax, %eax
	leaq	16(%rsp), %rdx
	leaq	12(%rsp), %rsi
	call	__isoc99_scanf@PLT
	movl	12(%rsp), %edx
	testl	%edx, %edx
	jle	.L24
	leal	-1(%rdx), %eax
	cmpl	$14, %eax
	jbe	.L25
	movdqa	.LC3(%rip), %xmm4
	pxor	%xmm6, %xmm6
	pxor	%xmm3, %xmm3
	movl	%edx, %eax
	movdqa	.LC4(%rip), %xmm5
	movdqa	%xmm6, %xmm0
	movdqa	%xmm3, %xmm7
	shrl	$4, %eax
	movdqa	%xmm4, %xmm1
	pcmpeqb	16(%rsp), %xmm1
	pand	%xmm5, %xmm1
	pcmpgtb	%xmm1, %xmm0
	movdqa	%xmm1, %xmm2
	punpcklbw	%xmm0, %xmm2
	punpckhbw	%xmm0, %xmm1
	pcmpgtw	%xmm2, %xmm7
	movdqa	%xmm2, %xmm8
	movdqa	%xmm2, %xmm0
	movdqa	%xmm3, %xmm2
	pcmpgtw	%xmm1, %xmm2
	punpcklwd	%xmm7, %xmm8
	punpckhwd	%xmm7, %xmm0
	movdqa	%xmm1, %xmm7
	paddd	%xmm8, %xmm0
	punpcklwd	%xmm2, %xmm7
	punpckhwd	%xmm2, %xmm1
	paddd	%xmm7, %xmm0
	paddd	%xmm1, %xmm0
	cmpl	$1, %eax
	je	.L4
	movdqa	%xmm4, %xmm1
	movdqa	%xmm6, %xmm2
	movdqa	%xmm3, %xmm8
	pcmpeqb	32(%rsp), %xmm1
	pand	%xmm5, %xmm1
	pcmpgtb	%xmm1, %xmm2
	movdqa	%xmm1, %xmm7
	punpcklbw	%xmm2, %xmm7
	punpckhbw	%xmm2, %xmm1
	pcmpgtw	%xmm7, %xmm8
	movdqa	%xmm7, %xmm2
	punpcklwd	%xmm8, %xmm2
	punpckhwd	%xmm8, %xmm7
	paddd	%xmm2, %xmm0
	movdqa	%xmm3, %xmm2
	pcmpgtw	%xmm1, %xmm2
	paddd	%xmm7, %xmm0
	movdqa	%xmm1, %xmm7
	punpcklwd	%xmm2, %xmm7
	punpckhwd	%xmm2, %xmm1
	paddd	%xmm7, %xmm0
	paddd	%xmm1, %xmm0
	cmpl	$2, %eax
	je	.L4
	movdqa	%xmm4, %xmm1
	movdqa	%xmm6, %xmm2
	movdqa	%xmm3, %xmm8
	pcmpeqb	48(%rsp), %xmm1
	pand	%xmm5, %xmm1
	pcmpgtb	%xmm1, %xmm2
	movdqa	%xmm1, %xmm7
	punpcklbw	%xmm2, %xmm7
	punpckhbw	%xmm2, %xmm1
	pcmpgtw	%xmm7, %xmm8
	movdqa	%xmm7, %xmm2
	punpcklwd	%xmm8, %xmm2
	punpckhwd	%xmm8, %xmm7
	paddd	%xmm2, %xmm0
	movdqa	%xmm3, %xmm2
	pcmpgtw	%xmm1, %xmm2
	paddd	%xmm7, %xmm0
	movdqa	%xmm1, %xmm7
	punpcklwd	%xmm2, %xmm7
	punpckhwd	%xmm2, %xmm1
	paddd	%xmm7, %xmm0
	paddd	%xmm1, %xmm0
	cmpl	$3, %eax
	je	.L4
	movdqa	%xmm4, %xmm1
	movdqa	%xmm6, %xmm2
	movdqa	%xmm3, %xmm8
	pcmpeqb	64(%rsp), %xmm1
	pand	%xmm5, %xmm1
	pcmpgtb	%xmm1, %xmm2
	movdqa	%xmm1, %xmm7
	punpcklbw	%xmm2, %xmm7
	punpckhbw	%xmm2, %xmm1
	pcmpgtw	%xmm7, %xmm8
	movdqa	%xmm7, %xmm2
	punpcklwd	%xmm8, %xmm2
	punpckhwd	%xmm8, %xmm7
	paddd	%xmm2, %xmm0
	movdqa	%xmm3, %xmm2
	pcmpgtw	%xmm1, %xmm2
	paddd	%xmm7, %xmm0
	movdqa	%xmm1, %xmm7
	punpcklwd	%xmm2, %xmm7
	punpckhwd	%xmm2, %xmm1
	paddd	%xmm7, %xmm0
	paddd	%xmm1, %xmm0
	cmpl	$4, %eax
	je	.L4
	movdqa	%xmm4, %xmm1
	movdqa	%xmm6, %xmm2
	movdqa	%xmm3, %xmm8
	pcmpeqb	80(%rsp), %xmm1
	pand	%xmm5, %xmm1
	pcmpgtb	%xmm1, %xmm2
	movdqa	%xmm1, %xmm7
	punpcklbw	%xmm2, %xmm7
	punpckhbw	%xmm2, %xmm1
	pcmpgtw	%xmm7, %xmm8
	movdqa	%xmm7, %xmm2
	punpcklwd	%xmm8, %xmm2
	punpckhwd	%xmm8, %xmm7
	paddd	%xmm2, %xmm0
	movdqa	%xmm3, %xmm2
	pcmpgtw	%xmm1, %xmm2
	paddd	%xmm7, %xmm0
	movdqa	%xmm1, %xmm7
	punpcklwd	%xmm2, %xmm7
	punpckhwd	%xmm2, %xmm1
	paddd	%xmm7, %xmm0
	paddd	%xmm1, %xmm0
	cmpl	$5, %eax
	je	.L4
	pcmpeqb	96(%rsp), %xmm4
	pand	%xmm5, %xmm4
	movdqa	%xmm3, %xmm5
	pcmpgtb	%xmm4, %xmm6
	movdqa	%xmm4, %xmm2
	punpcklbw	%xmm6, %xmm2
	punpckhbw	%xmm6, %xmm4
	pcmpgtw	%xmm2, %xmm5
	pcmpgtw	%xmm4, %xmm3
	movdqa	%xmm2, %xmm1
	punpcklwd	%xmm5, %xmm1
	punpckhwd	%xmm5, %xmm2
	paddd	%xmm0, %xmm1
	paddd	%xmm2, %xmm1
	movdqa	%xmm4, %xmm2
	punpckhwd	%xmm3, %xmm4
	punpcklwd	%xmm3, %xmm2
	paddd	%xmm2, %xmm1
	movdqa	%xmm1, %xmm0
	paddd	%xmm4, %xmm0
.L4:
	movdqa	%xmm0, %xmm1
	movl	%edx, %ecx
	psrldq	$8, %xmm1
	andl	$-16, %ecx
	paddd	%xmm1, %xmm0
	movdqa	%xmm0, %xmm1
	psrldq	$4, %xmm1
	paddd	%xmm1, %xmm0
	movd	%xmm0, %eax
	testb	$15, %dl
	je	.L2
.L3:
	movslq	%ecx, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L6
	addl	$1, %eax
.L6:
	leal	1(%rcx), %esi
	cmpl	%edx, %esi
	jge	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L44
.L7:
	leal	2(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L45
.L8:
	leal	3(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L46
.L9:
	leal	4(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L47
.L10:
	leal	5(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L11
	addl	$1, %eax
.L11:
	leal	6(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L12
	addl	$1, %eax
.L12:
	leal	7(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L13
	addl	$1, %eax
.L13:
	leal	8(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L14
	addl	$1, %eax
.L14:
	leal	9(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L48
.L15:
	leal	10(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L49
.L16:
	leal	11(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L50
.L17:
	leal	12(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	je	.L51
.L18:
	leal	13(%rcx), %esi
	cmpl	%esi, %edx
	jle	.L2
	movslq	%esi, %rsi
	cmpb	$82, 16(%rsp,%rsi)
	jne	.L19
	addl	$1, %eax
.L19:
	addl	$14, %ecx
	cmpl	%ecx, %edx
	jle	.L2
	movslq	%ecx, %rcx
	cmpb	$82, 16(%rsp,%rcx)
	jne	.L2
	addl	$1, %eax
	.p2align 4,,10
	.p2align 3
.L2:
	subl	%eax, %edx
	leaq	.LC0(%rip), %rsi
	movl	$1, %edi
	cmpl	%eax, %edx
	leaq	.LC1(%rip), %rax
	cmovge	%rax, %rsi
	xorl	%eax, %eax
	call	__printf_chk@PLT
	movq	120(%rsp), %rax
	subq	%fs:40, %rax
	jne	.L52
	xorl	%eax, %eax
	addq	$136, %rsp
	.cfi_remember_state
	.cfi_def_cfa_offset 8
	ret
.L44:
	.cfi_restore_state
	addl	$1, %eax
	jmp	.L7
.L45:
	addl	$1, %eax
	jmp	.L8
.L46:
	addl	$1, %eax
	jmp	.L9
.L47:
	addl	$1, %eax
	jmp	.L10
.L48:
	addl	$1, %eax
	jmp	.L15
.L49:
	addl	$1, %eax
	jmp	.L16
.L50:
	addl	$1, %eax
	jmp	.L17
.L51:
	addl	$1, %eax
	jmp	.L18
.L24:
	xorl	%eax, %eax
	jmp	.L2
.L25:
	xorl	%ecx, %ecx
	xorl	%eax, %eax
	jmp	.L3
.L52:
	call	__stack_chk_fail@PLT
	.cfi_endproc
.LFE23:
	.size	main, .-main
	.section	.rodata.cst16,"aM",@progbits,16
	.align 16
.LC3:
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.byte	82
	.align 16
.LC4:
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.byte	1
	.ident	"GCC: (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0"
	.section	.note.GNU-stack,"",@progbits
	.section	.note.gnu.property,"a"
	.align 8
	.long	1f - 0f
	.long	4f - 1f
	.long	5
0:
	.string	"GNU"
1:
	.align 8
	.long	0xc0000002
	.long	3f - 2f
2:
	.long	0x3
3:
	.align 8
4:

#include <stdio.h>

int main()
{
    int n,red = 0;
    char s[101];
    scanf("%d %s",&n,s);

    for (int i = 0; i < n; i++)
    {
        if(s[i] == 'R')red++;
    }
    printf(red > n - red ? "Yes":"No");
}
4
RBRR
 4
BBRR
 4
RRCR
 4
RRAR
 4
RARR
 4
BQBR
 4
RCRR
 4
BPBR
 4
RRRC
 4
AQBR

Yes No Yes Yes Yes No Yes No Yes No
Given the following C code and unoptimized assembly code, your task is to generate highly optimized x86-64 assembly code.
C Code:

```c
#include <stdio.h>

int main()
{
    int n,red = 0;
    char s[101];
    scanf("%d %s",&n,s);

    for (int i = 0; i < n; i++)
    {
        if(s[i] == 'R')red++;
    }
    printf(red > n - red ? "Yes":"No");
}```

Unoptimized Assembly Code:

```assembly
	.file	"temp.c"
	.text
	.section	.rodata
.LC0:
	.string	"%d %s"
.LC1:
	.string	"Yes"
.LC2:
	.string	"No"
	.text
	.globl	main
	.type	main, @function
main:
.LFB0:
	.cfi_startproc
	endbr64
	pushq	%rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	movq	%rsp, %rbp
	.cfi_def_cfa_register 6
	addq	$-128, %rsp
	movq	%fs:40, %rax
	movq	%rax, -8(%rbp)
	xorl	%eax, %eax
	movl	$0, -120(%rbp)
	leaq	-112(%rbp), %rdx
	leaq	-124(%rbp), %rax
	movq	%rax, %rsi
	leaq	.LC0(%rip), %rax
	movq	%rax, %rdi
	movl	$0, %eax
	call	__isoc99_scanf@PLT
	movl	$0, -116(%rbp)
	jmp	.L2
.L4:
	movl	-116(%rbp), %eax
	cltq
	movzbl	-112(%rbp,%rax), %eax
	cmpb	$82, %al
	jne	.L3
	addl	$1, -120(%rbp)
.L3:
	addl	$1, -116(%rbp)
.L2:
	movl	-124(%rbp), %eax
	cmpl	%eax, -116(%rbp)
	jl	.L4
	movl	-124(%rbp), %eax
	subl	-120(%rbp), %eax
	cmpl	%eax, -120(%rbp)
	jle	.L5
	leaq	.LC1(%rip), %rax
	jmp	.L6
.L5:
	leaq	.LC2(%rip), %rax
.L6:
	movq	%rax, %rdi
	movl	$0, %eax
	call	printf@PLT
	movl	$0, %eax
	movq	-8(%rbp), %rdx
	subq	%fs:40, %rdx
	je	.L8
	call	__stack_chk_fail@PLT
.L8:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE0:
	.size	main, .-main
	.ident	"GCC: (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0"
	.section	.note.GNU-stack,"",@progbits
	.section	.note.gnu.property,"a"
	.align 8
	.long	1f - 0f
	.long	4f - 1f
	.long	5
0:
	.string	"GNU"
1:
	.align 8
	.long	0xc0000002
	.long	3f - 2f
2:
	.long	0x3
3:
	.align 8
4:
```

Only output the optimized assembly code. Do not include any other text. Do not write any comments in the assembly code. Wrap the assembly code in ```assembly``` tags.
val
	.file	"temp.c"
	.text
	.section	.rodata
.LC0:
	.string	"%d %s"
.LC1:
	.string	"Yes"
.LC2:
	.string	"No"
	.text
	.globl	main
	.type	main, @function
main:
.LFB0:
	.cfi_startproc
	endbr64
	pushq	%rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	movq	%rsp, %rbp
	.cfi_def_cfa_register 6
	addq	$-128, %rsp
	movq	%fs:40, %rax
	movq	%rax, -8(%rbp)
	xorl	%eax, %eax
	movl	$0, -120(%rbp)
	leaq	-112(%rbp), %rdx
	leaq	-124(%rbp), %rax
	movq	%rax, %rsi
	leaq	.LC0(%rip), %rax
	movq	%rax, %rdi
	movl	$0, %eax
	call	__isoc99_scanf@PLT
	movl	$0, -116(%rbp)
	jmp	.L2
.L4:
	movl	-116(%rbp), %eax
	cltq
	movzbl	-112(%rbp,%rax), %eax
	cmpb	$82, %al
	jne	.L3
	addl	$1, -120(%rbp)
.L3:
	addl	$1, -116(%rbp)
.L2:
	movl	-124(%rbp), %eax
	cmpl	%eax, -116(%rbp)
	jl	.L4
	movl	-124(%rbp), %eax
	subl	-120(%rbp), %eax
	cmpl	%eax, -120(%rbp)
	jle	.L5
	leaq	.LC1(%rip), %rax
	jmp	.L6
.L5:
	leaq	.LC2(%rip), %rax
.L6:
	movq	%rax, %rdi
	movl	$0, %eax
	call	printf@PLT
	movl	$0, %eax
	movq	-8(%rbp), %rdx
	subq	%fs:40, %rdx
	je	.L8
	call	__stack_chk_fail@PLT
.L8:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE0:
	.size	main, .-main
	.ident	"GCC: (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0"
	.section	.note.GNU-stack,"",@progbits
	.section	.note.gnu.property,"a"
	.align 8
	.long	1f - 0f
	.long	4f - 1f
	.long	5
0:
	.string	"GNU"
1:
	.align 8
	.long	0xc0000002
	.long	3f - 2f
2:
	.long	0x3
3:
	.align 8
4:
