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>
#define ll long long
#define rep(i,l,r)for(ll i=(l);i<(r);i++)
#define MOD 1000000007

char s[3010];
ll dp[3010][3010];//dp[i][j]=(i番目まで決めて、i番目より大きいものがj個残っている)

int main(){
	ll n;
	scanf("%lld %s",&n,s);
	rep(j,0,n)dp[1][j]=1;
	rep(i,1,n){
		ll temp[3010]={};
		rep(j,0,n-i+1)temp[j+1]=(temp[j]+dp[i][j])%MOD;
		rep(j,0,n-i){
			if(s[i-1]=='<'){
				//大きいものから使うので、jは減る
				//配るDP
				//rep(k,0,j)dp[i+1][k]=(dp[i+1][k]+dp[i][j])%MOD;
				//もらうDPにして累積和で加速
				dp[i+1][j]=(temp[n-i+1]-temp[j+1])%MOD;
			}else{
				//小さいものから使うので、jは増える
				//配るDP
				//rep(k,j,n-i+1)dp[i+1][k]=(dp[i+1][k]+dp[i][j])%MOD;
				//もらうDP
				dp[i+1][j]=temp[j+1];
			}
		}
	}
	printf("%lld\n",(dp[n][0]+MOD)%MOD);
	return 0;
}```

Unoptimized Assembly Code:

```assembly
	.file	"temp.c"
	.text
	.globl	s
	.bss
	.align 32
	.type	s, @object
	.size	s, 3010
s:
	.zero	3010
	.globl	dp
	.align 32
	.type	dp, @object
	.size	dp, 72480800
dp:
	.zero	72480800
	.section	.rodata
.LC0:
	.string	"%lld %s"
.LC1:
	.string	"%lld\n"
	.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
	leaq	-20480(%rsp), %r11
.LPSRL0:
	subq	$4096, %rsp
	orq	$0, (%rsp)
	cmpq	%r11, %rsp
	jne	.LPSRL0
	subq	$3664, %rsp
	movq	%fs:40, %rax
	movq	%rax, -8(%rbp)
	xorl	%eax, %eax
	leaq	-24136(%rbp), %rax
	leaq	s(%rip), %rdx
	movq	%rax, %rsi
	leaq	.LC0(%rip), %rax
	movq	%rax, %rdi
	movl	$0, %eax
	call	__isoc99_scanf@PLT
	movq	$0, -24128(%rbp)
	jmp	.L2
.L3:
	movq	-24128(%rbp), %rax
	addq	$3010, %rax
	leaq	0(,%rax,8), %rdx
	leaq	dp(%rip), %rax
	movq	$1, (%rdx,%rax)
	addq	$1, -24128(%rbp)
.L2:
	movq	-24136(%rbp), %rax
	cmpq	%rax, -24128(%rbp)
	jl	.L3
	movq	$1, -24120(%rbp)
	jmp	.L4
.L11:
	leaq	-24096(%rbp), %rax
	movl	$24080, %edx
	movl	$0, %esi
	movq	%rax, %rdi
	call	memset@PLT
	movq	$0, -24112(%rbp)
	jmp	.L5
.L6:
	movq	-24112(%rbp), %rax
	movq	-24096(%rbp,%rax,8), %rcx
	movq	-24120(%rbp), %rax
	imulq	$3010, %rax, %rdx
	movq	-24112(%rbp), %rax
	addq	%rdx, %rax
	leaq	0(,%rax,8), %rdx
	leaq	dp(%rip), %rax
	movq	(%rdx,%rax), %rax
	addq	%rax, %rcx
	movq	-24112(%rbp), %rax
	leaq	1(%rax), %rsi
	movabsq	$-8543223828751151131, %rdx
	movq	%rcx, %rax
	imulq	%rdx
	leaq	(%rdx,%rcx), %rax
	sarq	$29, %rax
	movq	%rcx, %rdx
	sarq	$63, %rdx
	subq	%rdx, %rax
	imulq	$1000000007, %rax, %rdx
	movq	%rcx, %rax
	subq	%rdx, %rax
	movq	%rax, -24096(%rbp,%rsi,8)
	addq	$1, -24112(%rbp)
.L5:
	movq	-24136(%rbp), %rax
	subq	-24120(%rbp), %rax
	cmpq	%rax, -24112(%rbp)
	jle	.L6
	movq	$0, -24104(%rbp)
	jmp	.L7
.L10:
	movq	-24120(%rbp), %rax
	leaq	-1(%rax), %rdx
	leaq	s(%rip), %rax
	movzbl	(%rdx,%rax), %eax
	cmpb	$60, %al
	jne	.L8
	movq	-24136(%rbp), %rax
	subq	-24120(%rbp), %rax
	addq	$1, %rax
	movq	-24096(%rbp,%rax,8), %rax
	movq	-24104(%rbp), %rdx
	addq	$1, %rdx
	movq	-24096(%rbp,%rdx,8), %rdx
	subq	%rdx, %rax
	movq	%rax, %rcx
	movq	-24120(%rbp), %rax
	leaq	1(%rax), %rsi
	movabsq	$-8543223828751151131, %rdx
	movq	%rcx, %rax
	imulq	%rdx
	leaq	(%rdx,%rcx), %rax
	sarq	$29, %rax
	movq	%rcx, %rdx
	sarq	$63, %rdx
	subq	%rdx, %rax
	imulq	$1000000007, %rax, %rdx
	movq	%rcx, %rax
	subq	%rdx, %rax
	imulq	$3010, %rsi, %rcx
	movq	-24104(%rbp), %rdx
	addq	%rcx, %rdx
	leaq	0(,%rdx,8), %rcx
	leaq	dp(%rip), %rdx
	movq	%rax, (%rcx,%rdx)
	jmp	.L9
.L8:
	movq	-24104(%rbp), %rax
	addq	$1, %rax
	movq	-24120(%rbp), %rdx
	addq	$1, %rdx
	movq	-24096(%rbp,%rax,8), %rax
	imulq	$3010, %rdx, %rcx
	movq	-24104(%rbp), %rdx
	addq	%rcx, %rdx
	leaq	0(,%rdx,8), %rcx
	leaq	dp(%rip), %rdx
	movq	%rax, (%rcx,%rdx)
.L9:
	addq	$1, -24104(%rbp)
.L7:
	movq	-24136(%rbp), %rax
	subq	-24120(%rbp), %rax
	cmpq	%rax, -24104(%rbp)
	jl	.L10
	addq	$1, -24120(%rbp)
.L4:
	movq	-24136(%rbp), %rax
	cmpq	%rax, -24120(%rbp)
	jl	.L11
	movq	-24136(%rbp), %rax
	imulq	$24080, %rax, %rax
	leaq	dp(%rip), %rdx
	movq	(%rax,%rdx), %rax
	leaq	1000000007(%rax), %rcx
	movabsq	$-8543223828751151131, %rdx
	movq	%rcx, %rax
	imulq	%rdx
	leaq	(%rdx,%rcx), %rax
	sarq	$29, %rax
	movq	%rcx, %rdx
	sarq	$63, %rdx
	subq	%rdx, %rax
	imulq	$1000000007, %rax, %rdx
	movq	%rcx, %rax
	subq	%rdx, %rax
	movq	%rax, %rsi
	leaq	.LC1(%rip), %rax
	movq	%rax, %rdi
	movl	$0, %eax
	call	printf@PLT
	movl	$0, %eax
	movq	-8(%rbp), %rdx
	subq	%fs:40, %rdx
	je	.L13
	call	__stack_chk_fail@PLT
.L13:
	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	"%lld %s"
.LC2:
	.string	"%lld\n"
	.section	.text.startup,"ax",@progbits
	.p2align 4
	.globl	main
	.type	main, @function
main:
.LFB23:
	.cfi_startproc
	endbr64
	pushq	%r15
	.cfi_def_cfa_offset 16
	.cfi_offset 15, -16
	pushq	%r14
	.cfi_def_cfa_offset 24
	.cfi_offset 14, -24
	pushq	%r13
	.cfi_def_cfa_offset 32
	.cfi_offset 13, -32
	pushq	%r12
	.cfi_def_cfa_offset 40
	.cfi_offset 12, -40
	pushq	%rbp
	.cfi_def_cfa_offset 48
	.cfi_offset 6, -48
	pushq	%rbx
	.cfi_def_cfa_offset 56
	.cfi_offset 3, -56
	leaq	-20480(%rsp), %r11
	.cfi_def_cfa 11, 20536
.LPSRL0:
	subq	$4096, %rsp
	orq	$0, (%rsp)
	cmpq	%r11, %rsp
	jne	.LPSRL0
	.cfi_def_cfa_register 7
	subq	$3672, %rsp
	.cfi_def_cfa_offset 24208
	leaq	s(%rip), %rdx
	leaq	.LC0(%rip), %rdi
	movq	%fs:40, %rax
	movq	%rax, 24136(%rsp)
	xorl	%eax, %eax
	leaq	40(%rsp), %rsi
	call	__isoc99_scanf@PLT
	movq	40(%rsp), %rbx
	leaq	dp(%rip), %rax
	movq	%rax, 24(%rsp)
	movq	%rbx, 16(%rsp)
	testq	%rbx, %rbx
	jle	.L11
	cmpq	$1, %rbx
	je	.L16
	shrq	%rbx
	addq	$24080, %rax
	movdqa	.LC1(%rip), %xmm0
	movq	%rbx, %rdx
	salq	$4, %rdx
	addq	%rax, %rdx
	.p2align 4,,10
	.p2align 3
.L4:
	movaps	%xmm0, (%rax)
	addq	$16, %rax
	cmpq	%rdx, %rax
	jne	.L4
	movq	16(%rsp), %rbx
	movq	%rbx, %rax
	andq	$-2, %rax
	cmpq	%rbx, %rax
	je	.L30
.L3:
	leaq	dp(%rip), %rbx
	cmpq	$1, 16(%rsp)
	movq	%rbx, 24(%rsp)
	movq	$1, 24080(%rbx,%rax,8)
	jle	.L11
.L5:
	leaq	s(%rip), %rax
	movq	16(%rsp), %r14
	leaq	48(%rsp), %rbx
	movabsq	$-8543223828751151131, %r15
	movq	%rax, 8(%rsp)
	leaq	48160+dp(%rip), %r13
	leaq	-1(%r14), %rbp
	leaq	-24080(%r13), %r12
	.p2align 4,,10
	.p2align 3
.L10:
	xorl	%esi, %esi
	movl	$24080, %edx
	movq	%rbx, %rdi
	call	memset@PLT
	xorl	%ecx, %ecx
	xorl	%esi, %esi
	testq	%rbp, %rbp
	js	.L13
	.p2align 4,,10
	.p2align 3
.L6:
	movq	(%r12,%rsi,8), %rdi
	addq	$1, %rsi
	addq	%rcx, %rdi
	movq	%rdi, %rax
	imulq	%r15
	movq	%rdi, %rax
	sarq	$63, %rax
	leaq	(%rdx,%rdi), %rcx
	sarq	$29, %rcx
	subq	%rax, %rcx
	imulq	$1000000007, %rcx, %rax
	movq	%rdi, %rcx
	subq	%rax, %rcx
	movq	%rcx, (%rbx,%rsi,8)
	cmpq	%r14, %rsi
	jne	.L6
	testq	%rbp, %rbp
	jle	.L13
	movq	8(%rsp), %rax
	cmpb	$60, (%rax)
	je	.L12
	leaq	0(,%rbp,8), %rdx
	leaq	56(%rsp), %rsi
	movq	%r13, %rdi
	call	memcpy@PLT
.L13:
	subq	$1, %r14
	addq	$1, 8(%rsp)
	subq	$1, %rbp
	addq	$24080, %r13
	addq	$24080, %r12
	cmpq	$1, %r14
	jne	.L10
.L11:
	imulq	$24080, 16(%rsp), %r12
	movq	24(%rsp), %rax
	movabsq	$-8543223828751151131, %rdx
	leaq	.LC2(%rip), %rsi
	movl	$1, %edi
	movq	(%rax,%r12), %rcx
	addq	$1000000007, %rcx
	movq	%rcx, %rax
	imulq	%rdx
	movq	%rcx, %rax
	sarq	$63, %rax
	addq	%rcx, %rdx
	sarq	$29, %rdx
	subq	%rax, %rdx
	xorl	%eax, %eax
	imulq	$1000000007, %rdx, %rdx
	subq	%rdx, %rcx
	movq	%rcx, %rdx
	call	__printf_chk@PLT
	movq	24136(%rsp), %rax
	subq	%fs:40, %rax
	jne	.L31
	addq	$24152, %rsp
	.cfi_remember_state
	.cfi_def_cfa_offset 56
	xorl	%eax, %eax
	popq	%rbx
	.cfi_def_cfa_offset 48
	popq	%rbp
	.cfi_def_cfa_offset 40
	popq	%r12
	.cfi_def_cfa_offset 32
	popq	%r13
	.cfi_def_cfa_offset 24
	popq	%r14
	.cfi_def_cfa_offset 16
	popq	%r15
	.cfi_def_cfa_offset 8
	ret
	.p2align 4,,10
	.p2align 3
.L12:
	.cfi_restore_state
	xorl	%edi, %edi
	.p2align 4,,10
	.p2align 3
.L14:
	addq	$1, %rdi
	movq	%rcx, %rsi
	subq	(%rbx,%rdi,8), %rsi
	movq	%rsi, %rax
	imulq	%r15
	movq	%rsi, %rax
	sarq	$63, %rax
	addq	%rsi, %rdx
	sarq	$29, %rdx
	subq	%rax, %rdx
	imulq	$1000000007, %rdx, %rdx
	subq	%rdx, %rsi
	movq	%rsi, -8(%r13,%rdi,8)
	cmpq	%rbp, %rdi
	jne	.L14
	jmp	.L13
.L30:
	leaq	dp(%rip), %rax
	movq	%rax, 24(%rsp)
	jmp	.L5
.L16:
	xorl	%eax, %eax
	jmp	.L3
.L31:
	call	__stack_chk_fail@PLT
	.cfi_endproc
.LFE23:
	.size	main, .-main
	.globl	dp
	.bss
	.align 32
	.type	dp, @object
	.size	dp, 72480800
dp:
	.zero	72480800
	.globl	s
	.align 32
	.type	s, @object
	.size	s, 3010
s:
	.zero	3010
	.section	.rodata.cst16,"aM",@progbits,16
	.align 16
.LC1:
	.quad	1
	.quad	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	"%lld %s"
.LC2:
	.string	"%lld\n"
	.section	.text.startup,"ax",@progbits
	.p2align 4
	.globl	main
	.type	main, @function
main:
.LFB23:
	.cfi_startproc
	endbr64
	pushq	%r15
	.cfi_def_cfa_offset 16
	.cfi_offset 15, -16
	pushq	%r14
	.cfi_def_cfa_offset 24
	.cfi_offset 14, -24
	pushq	%r13
	.cfi_def_cfa_offset 32
	.cfi_offset 13, -32
	pushq	%r12
	.cfi_def_cfa_offset 40
	.cfi_offset 12, -40
	pushq	%rbp
	.cfi_def_cfa_offset 48
	.cfi_offset 6, -48
	pushq	%rbx
	.cfi_def_cfa_offset 56
	.cfi_offset 3, -56
	leaq	-20480(%rsp), %r11
	.cfi_def_cfa 11, 20536
.LPSRL0:
	subq	$4096, %rsp
	orq	$0, (%rsp)
	cmpq	%r11, %rsp
	jne	.LPSRL0
	.cfi_def_cfa_register 7
	subq	$3672, %rsp
	.cfi_def_cfa_offset 24208
	leaq	s(%rip), %rdx
	leaq	.LC0(%rip), %rdi
	movq	%fs:40, %rax
	movq	%rax, 24136(%rsp)
	xorl	%eax, %eax
	leaq	40(%rsp), %rsi
	call	__isoc99_scanf@PLT
	movq	40(%rsp), %rbx
	leaq	dp(%rip), %rax
	movq	%rax, 24(%rsp)
	movq	%rbx, 16(%rsp)
	testq	%rbx, %rbx
	jle	.L11
	cmpq	$1, %rbx
	je	.L16
	shrq	%rbx
	addq	$24080, %rax
	movdqa	.LC1(%rip), %xmm0
	movq	%rbx, %rdx
	salq	$4, %rdx
	addq	%rax, %rdx
	.p2align 4,,10
	.p2align 3
.L4:
	movaps	%xmm0, (%rax)
	addq	$16, %rax
	cmpq	%rdx, %rax
	jne	.L4
	movq	16(%rsp), %rbx
	movq	%rbx, %rax
	andq	$-2, %rax
	cmpq	%rbx, %rax
	je	.L30
.L3:
	leaq	dp(%rip), %rbx
	cmpq	$1, 16(%rsp)
	movq	%rbx, 24(%rsp)
	movq	$1, 24080(%rbx,%rax,8)
	jle	.L11
.L5:
	leaq	s(%rip), %rax
	movq	16(%rsp), %r14
	leaq	48(%rsp), %rbx
	movabsq	$-8543223828751151131, %r15
	movq	%rax, 8(%rsp)
	leaq	48160+dp(%rip), %r13
	leaq	-1(%r14), %rbp
	leaq	-24080(%r13), %r12
	.p2align 4,,10
	.p2align 3
.L10:
	xorl	%esi, %esi
	movl	$24080, %edx
	movq	%rbx, %rdi
	call	memset@PLT
	xorl	%ecx, %ecx
	xorl	%esi, %esi
	testq	%rbp, %rbp
	js	.L13
	.p2align 4,,10
	.p2align 3
.L6:
	movq	(%r12,%rsi,8), %rdi
	addq	$1, %rsi
	addq	%rcx, %rdi
	movq	%rdi, %rax
	imulq	%r15
	movq	%rdi, %rax
	sarq	$63, %rax
	leaq	(%rdx,%rdi), %rcx
	sarq	$29, %rcx
	subq	%rax, %rcx
	imulq	$1000000007, %rcx, %rax
	movq	%rdi, %rcx
	subq	%rax, %rcx
	movq	%rcx, (%rbx,%rsi,8)
	cmpq	%r14, %rsi
	jne	.L6
	testq	%rbp, %rbp
	jle	.L13
	movq	8(%rsp), %rax
	cmpb	$60, (%rax)
	je	.L12
	leaq	0(,%rbp,8), %rdx
	leaq	56(%rsp), %rsi
	movq	%r13, %rdi
	call	memcpy@PLT
.L13:
	subq	$1, %r14
	addq	$1, 8(%rsp)
	subq	$1, %rbp
	addq	$24080, %r13
	addq	$24080, %r12
	cmpq	$1, %r14
	jne	.L10
.L11:
	imulq	$24080, 16(%rsp), %r12
	movq	24(%rsp), %rax
	movabsq	$-8543223828751151131, %rdx
	leaq	.LC2(%rip), %rsi
	movl	$1, %edi
	movq	(%rax,%r12), %rcx
	addq	$1000000007, %rcx
	movq	%rcx, %rax
	imulq	%rdx
	movq	%rcx, %rax
	sarq	$63, %rax
	addq	%rcx, %rdx
	sarq	$29, %rdx
	subq	%rax, %rdx
	xorl	%eax, %eax
	imulq	$1000000007, %rdx, %rdx
	subq	%rdx, %rcx
	movq	%rcx, %rdx
	call	__printf_chk@PLT
	movq	24136(%rsp), %rax
	subq	%fs:40, %rax
	jne	.L31
	addq	$24152, %rsp
	.cfi_remember_state
	.cfi_def_cfa_offset 56
	xorl	%eax, %eax
	popq	%rbx
	.cfi_def_cfa_offset 48
	popq	%rbp
	.cfi_def_cfa_offset 40
	popq	%r12
	.cfi_def_cfa_offset 32
	popq	%r13
	.cfi_def_cfa_offset 24
	popq	%r14
	.cfi_def_cfa_offset 16
	popq	%r15
	.cfi_def_cfa_offset 8
	ret
	.p2align 4,,10
	.p2align 3
.L12:
	.cfi_restore_state
	xorl	%edi, %edi
	.p2align 4,,10
	.p2align 3
.L14:
	addq	$1, %rdi
	movq	%rcx, %rsi
	subq	(%rbx,%rdi,8), %rsi
	movq	%rsi, %rax
	imulq	%r15
	movq	%rsi, %rax
	sarq	$63, %rax
	addq	%rsi, %rdx
	sarq	$29, %rdx
	subq	%rax, %rdx
	imulq	$1000000007, %rdx, %rdx
	subq	%rdx, %rsi
	movq	%rsi, -8(%r13,%rdi,8)
	cmpq	%rbp, %rdi
	jne	.L14
	jmp	.L13
.L30:
	leaq	dp(%rip), %rax
	movq	%rax, 24(%rsp)
	jmp	.L5
.L16:
	xorl	%eax, %eax
	jmp	.L3
.L31:
	call	__stack_chk_fail@PLT
	.cfi_endproc
.LFE23:
	.size	main, .-main
	.globl	dp
	.bss
	.align 32
	.type	dp, @object
	.size	dp, 72480800
dp:
	.zero	72480800
	.globl	s
	.align 32
	.type	s, @object
	.size	s, 3010
s:
	.zero	3010
	.section	.rodata.cst16,"aM",@progbits,16
	.align 16
.LC1:
	.quad	1
	.quad	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>
#define ll long long
#define rep(i,l,r)for(ll i=(l);i<(r);i++)
#define MOD 1000000007

char s[3010];
ll dp[3010][3010];//dp[i][j]=(i番目まで決めて、i番目より大きいものがj個残っている)

int main(){
	ll n;
	scanf("%lld %s",&n,s);
	rep(j,0,n)dp[1][j]=1;
	rep(i,1,n){
		ll temp[3010]={};
		rep(j,0,n-i+1)temp[j+1]=(temp[j]+dp[i][j])%MOD;
		rep(j,0,n-i){
			if(s[i-1]=='<'){
				//大きいものから使うので、jは減る
				//配るDP
				//rep(k,0,j)dp[i+1][k]=(dp[i+1][k]+dp[i][j])%MOD;
				//もらうDPにして累積和で加速
				dp[i+1][j]=(temp[n-i+1]-temp[j+1])%MOD;
			}else{
				//小さいものから使うので、jは増える
				//配るDP
				//rep(k,j,n-i+1)dp[i+1][k]=(dp[i+1][k]+dp[i][j])%MOD;
				//もらうDP
				dp[i+1][j]=temp[j+1];
			}
		}
	}
	printf("%lld\n",(dp[n][0]+MOD)%MOD);
	return 0;
}
20
>><<>>><>><>>><>>>>
 20
>><<>>><>>>>>><>>><
 4
<<>
 20
>>>><>>>>><<>>><<>>
 20
<>>><>>><>>>>>><<>>
 20
>><<>>><>>>><>>>>><
 20
<>>><>>>>>><<>>><>>
 20
>>>><>>><>>>>>><<<>
 20
>><<>>><>>><>><>>>>
 20
>><>>><><>>>>><>>><

217136290
 415929071
 3
 784400335
 586939232
 704760317
 789425989
 939449690
 418243919
 729939877

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>
#define ll long long
#define rep(i,l,r)for(ll i=(l);i<(r);i++)
#define MOD 1000000007

char s[3010];
ll dp[3010][3010];//dp[i][j]=(i番目まで決めて、i番目より大きいものがj個残っている)

int main(){
	ll n;
	scanf("%lld %s",&n,s);
	rep(j,0,n)dp[1][j]=1;
	rep(i,1,n){
		ll temp[3010]={};
		rep(j,0,n-i+1)temp[j+1]=(temp[j]+dp[i][j])%MOD;
		rep(j,0,n-i){
			if(s[i-1]=='<'){
				//大きいものから使うので、jは減る
				//配るDP
				//rep(k,0,j)dp[i+1][k]=(dp[i+1][k]+dp[i][j])%MOD;
				//もらうDPにして累積和で加速
				dp[i+1][j]=(temp[n-i+1]-temp[j+1])%MOD;
			}else{
				//小さいものから使うので、jは増える
				//配るDP
				//rep(k,j,n-i+1)dp[i+1][k]=(dp[i+1][k]+dp[i][j])%MOD;
				//もらうDP
				dp[i+1][j]=temp[j+1];
			}
		}
	}
	printf("%lld\n",(dp[n][0]+MOD)%MOD);
	return 0;
}```

Unoptimized Assembly Code:

```assembly
	.file	"temp.c"
	.text
	.globl	s
	.bss
	.align 32
	.type	s, @object
	.size	s, 3010
s:
	.zero	3010
	.globl	dp
	.align 32
	.type	dp, @object
	.size	dp, 72480800
dp:
	.zero	72480800
	.section	.rodata
.LC0:
	.string	"%lld %s"
.LC1:
	.string	"%lld\n"
	.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
	leaq	-20480(%rsp), %r11
.LPSRL0:
	subq	$4096, %rsp
	orq	$0, (%rsp)
	cmpq	%r11, %rsp
	jne	.LPSRL0
	subq	$3664, %rsp
	movq	%fs:40, %rax
	movq	%rax, -8(%rbp)
	xorl	%eax, %eax
	leaq	-24136(%rbp), %rax
	leaq	s(%rip), %rdx
	movq	%rax, %rsi
	leaq	.LC0(%rip), %rax
	movq	%rax, %rdi
	movl	$0, %eax
	call	__isoc99_scanf@PLT
	movq	$0, -24128(%rbp)
	jmp	.L2
.L3:
	movq	-24128(%rbp), %rax
	addq	$3010, %rax
	leaq	0(,%rax,8), %rdx
	leaq	dp(%rip), %rax
	movq	$1, (%rdx,%rax)
	addq	$1, -24128(%rbp)
.L2:
	movq	-24136(%rbp), %rax
	cmpq	%rax, -24128(%rbp)
	jl	.L3
	movq	$1, -24120(%rbp)
	jmp	.L4
.L11:
	leaq	-24096(%rbp), %rax
	movl	$24080, %edx
	movl	$0, %esi
	movq	%rax, %rdi
	call	memset@PLT
	movq	$0, -24112(%rbp)
	jmp	.L5
.L6:
	movq	-24112(%rbp), %rax
	movq	-24096(%rbp,%rax,8), %rcx
	movq	-24120(%rbp), %rax
	imulq	$3010, %rax, %rdx
	movq	-24112(%rbp), %rax
	addq	%rdx, %rax
	leaq	0(,%rax,8), %rdx
	leaq	dp(%rip), %rax
	movq	(%rdx,%rax), %rax
	addq	%rax, %rcx
	movq	-24112(%rbp), %rax
	leaq	1(%rax), %rsi
	movabsq	$-8543223828751151131, %rdx
	movq	%rcx, %rax
	imulq	%rdx
	leaq	(%rdx,%rcx), %rax
	sarq	$29, %rax
	movq	%rcx, %rdx
	sarq	$63, %rdx
	subq	%rdx, %rax
	imulq	$1000000007, %rax, %rdx
	movq	%rcx, %rax
	subq	%rdx, %rax
	movq	%rax, -24096(%rbp,%rsi,8)
	addq	$1, -24112(%rbp)
.L5:
	movq	-24136(%rbp), %rax
	subq	-24120(%rbp), %rax
	cmpq	%rax, -24112(%rbp)
	jle	.L6
	movq	$0, -24104(%rbp)
	jmp	.L7
.L10:
	movq	-24120(%rbp), %rax
	leaq	-1(%rax), %rdx
	leaq	s(%rip), %rax
	movzbl	(%rdx,%rax), %eax
	cmpb	$60, %al
	jne	.L8
	movq	-24136(%rbp), %rax
	subq	-24120(%rbp), %rax
	addq	$1, %rax
	movq	-24096(%rbp,%rax,8), %rax
	movq	-24104(%rbp), %rdx
	addq	$1, %rdx
	movq	-24096(%rbp,%rdx,8), %rdx
	subq	%rdx, %rax
	movq	%rax, %rcx
	movq	-24120(%rbp), %rax
	leaq	1(%rax), %rsi
	movabsq	$-8543223828751151131, %rdx
	movq	%rcx, %rax
	imulq	%rdx
	leaq	(%rdx,%rcx), %rax
	sarq	$29, %rax
	movq	%rcx, %rdx
	sarq	$63, %rdx
	subq	%rdx, %rax
	imulq	$1000000007, %rax, %rdx
	movq	%rcx, %rax
	subq	%rdx, %rax
	imulq	$3010, %rsi, %rcx
	movq	-24104(%rbp), %rdx
	addq	%rcx, %rdx
	leaq	0(,%rdx,8), %rcx
	leaq	dp(%rip), %rdx
	movq	%rax, (%rcx,%rdx)
	jmp	.L9
.L8:
	movq	-24104(%rbp), %rax
	addq	$1, %rax
	movq	-24120(%rbp), %rdx
	addq	$1, %rdx
	movq	-24096(%rbp,%rax,8), %rax
	imulq	$3010, %rdx, %rcx
	movq	-24104(%rbp), %rdx
	addq	%rcx, %rdx
	leaq	0(,%rdx,8), %rcx
	leaq	dp(%rip), %rdx
	movq	%rax, (%rcx,%rdx)
.L9:
	addq	$1, -24104(%rbp)
.L7:
	movq	-24136(%rbp), %rax
	subq	-24120(%rbp), %rax
	cmpq	%rax, -24104(%rbp)
	jl	.L10
	addq	$1, -24120(%rbp)
.L4:
	movq	-24136(%rbp), %rax
	cmpq	%rax, -24120(%rbp)
	jl	.L11
	movq	-24136(%rbp), %rax
	imulq	$24080, %rax, %rax
	leaq	dp(%rip), %rdx
	movq	(%rax,%rdx), %rax
	leaq	1000000007(%rax), %rcx
	movabsq	$-8543223828751151131, %rdx
	movq	%rcx, %rax
	imulq	%rdx
	leaq	(%rdx,%rcx), %rax
	sarq	$29, %rax
	movq	%rcx, %rdx
	sarq	$63, %rdx
	subq	%rdx, %rax
	imulq	$1000000007, %rax, %rdx
	movq	%rcx, %rax
	subq	%rdx, %rax
	movq	%rax, %rsi
	leaq	.LC1(%rip), %rax
	movq	%rax, %rdi
	movl	$0, %eax
	call	printf@PLT
	movl	$0, %eax
	movq	-8(%rbp), %rdx
	subq	%fs:40, %rdx
	je	.L13
	call	__stack_chk_fail@PLT
.L13:
	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.
train
	.file	"temp.c"
	.text
	.globl	s
	.bss
	.align 32
	.type	s, @object
	.size	s, 3010
s:
	.zero	3010
	.globl	dp
	.align 32
	.type	dp, @object
	.size	dp, 72480800
dp:
	.zero	72480800
	.section	.rodata
.LC0:
	.string	"%lld %s"
.LC1:
	.string	"%lld\n"
	.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
	leaq	-20480(%rsp), %r11
.LPSRL0:
	subq	$4096, %rsp
	orq	$0, (%rsp)
	cmpq	%r11, %rsp
	jne	.LPSRL0
	subq	$3664, %rsp
	movq	%fs:40, %rax
	movq	%rax, -8(%rbp)
	xorl	%eax, %eax
	leaq	-24136(%rbp), %rax
	leaq	s(%rip), %rdx
	movq	%rax, %rsi
	leaq	.LC0(%rip), %rax
	movq	%rax, %rdi
	movl	$0, %eax
	call	__isoc99_scanf@PLT
	movq	$0, -24128(%rbp)
	jmp	.L2
.L3:
	movq	-24128(%rbp), %rax
	addq	$3010, %rax
	leaq	0(,%rax,8), %rdx
	leaq	dp(%rip), %rax
	movq	$1, (%rdx,%rax)
	addq	$1, -24128(%rbp)
.L2:
	movq	-24136(%rbp), %rax
	cmpq	%rax, -24128(%rbp)
	jl	.L3
	movq	$1, -24120(%rbp)
	jmp	.L4
.L11:
	leaq	-24096(%rbp), %rax
	movl	$24080, %edx
	movl	$0, %esi
	movq	%rax, %rdi
	call	memset@PLT
	movq	$0, -24112(%rbp)
	jmp	.L5
.L6:
	movq	-24112(%rbp), %rax
	movq	-24096(%rbp,%rax,8), %rcx
	movq	-24120(%rbp), %rax
	imulq	$3010, %rax, %rdx
	movq	-24112(%rbp), %rax
	addq	%rdx, %rax
	leaq	0(,%rax,8), %rdx
	leaq	dp(%rip), %rax
	movq	(%rdx,%rax), %rax
	addq	%rax, %rcx
	movq	-24112(%rbp), %rax
	leaq	1(%rax), %rsi
	movabsq	$-8543223828751151131, %rdx
	movq	%rcx, %rax
	imulq	%rdx
	leaq	(%rdx,%rcx), %rax
	sarq	$29, %rax
	movq	%rcx, %rdx
	sarq	$63, %rdx
	subq	%rdx, %rax
	imulq	$1000000007, %rax, %rdx
	movq	%rcx, %rax
	subq	%rdx, %rax
	movq	%rax, -24096(%rbp,%rsi,8)
	addq	$1, -24112(%rbp)
.L5:
	movq	-24136(%rbp), %rax
	subq	-24120(%rbp), %rax
	cmpq	%rax, -24112(%rbp)
	jle	.L6
	movq	$0, -24104(%rbp)
	jmp	.L7
.L10:
	movq	-24120(%rbp), %rax
	leaq	-1(%rax), %rdx
	leaq	s(%rip), %rax
	movzbl	(%rdx,%rax), %eax
	cmpb	$60, %al
	jne	.L8
	movq	-24136(%rbp), %rax
	subq	-24120(%rbp), %rax
	addq	$1, %rax
	movq	-24096(%rbp,%rax,8), %rax
	movq	-24104(%rbp), %rdx
	addq	$1, %rdx
	movq	-24096(%rbp,%rdx,8), %rdx
	subq	%rdx, %rax
	movq	%rax, %rcx
	movq	-24120(%rbp), %rax
	leaq	1(%rax), %rsi
	movabsq	$-8543223828751151131, %rdx
	movq	%rcx, %rax
	imulq	%rdx
	leaq	(%rdx,%rcx), %rax
	sarq	$29, %rax
	movq	%rcx, %rdx
	sarq	$63, %rdx
	subq	%rdx, %rax
	imulq	$1000000007, %rax, %rdx
	movq	%rcx, %rax
	subq	%rdx, %rax
	imulq	$3010, %rsi, %rcx
	movq	-24104(%rbp), %rdx
	addq	%rcx, %rdx
	leaq	0(,%rdx,8), %rcx
	leaq	dp(%rip), %rdx
	movq	%rax, (%rcx,%rdx)
	jmp	.L9
.L8:
	movq	-24104(%rbp), %rax
	addq	$1, %rax
	movq	-24120(%rbp), %rdx
	addq	$1, %rdx
	movq	-24096(%rbp,%rax,8), %rax
	imulq	$3010, %rdx, %rcx
	movq	-24104(%rbp), %rdx
	addq	%rcx, %rdx
	leaq	0(,%rdx,8), %rcx
	leaq	dp(%rip), %rdx
	movq	%rax, (%rcx,%rdx)
.L9:
	addq	$1, -24104(%rbp)
.L7:
	movq	-24136(%rbp), %rax
	subq	-24120(%rbp), %rax
	cmpq	%rax, -24104(%rbp)
	jl	.L10
	addq	$1, -24120(%rbp)
.L4:
	movq	-24136(%rbp), %rax
	cmpq	%rax, -24120(%rbp)
	jl	.L11
	movq	-24136(%rbp), %rax
	imulq	$24080, %rax, %rax
	leaq	dp(%rip), %rdx
	movq	(%rax,%rdx), %rax
	leaq	1000000007(%rax), %rcx
	movabsq	$-8543223828751151131, %rdx
	movq	%rcx, %rax
	imulq	%rdx
	leaq	(%rdx,%rcx), %rax
	sarq	$29, %rax
	movq	%rcx, %rdx
	sarq	$63, %rdx
	subq	%rdx, %rax
	imulq	$1000000007, %rax, %rdx
	movq	%rcx, %rax
	subq	%rdx, %rax
	movq	%rax, %rsi
	leaq	.LC1(%rip), %rax
	movq	%rax, %rdi
	movl	$0, %eax
	call	printf@PLT
	movl	$0, %eax
	movq	-8(%rbp), %rdx
	subq	%fs:40, %rdx
	je	.L13
	call	__stack_chk_fail@PLT
.L13:
	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:
