	.file	"171855.c"
	.intel_syntax noprefix
	.text
	.section	.rodata
.LC0:
	.string	"integer"
.LC1:
	.string	"string"
.LC2:
	.string	"char"
.LC3:
	.string	"nil"
.LC4:
	.string	"bool"
.LC5:
	.string	"conscell"
.LC6:
	.string	"procedure"
.LC7:
	.string	"unkown_type"
	.text
	.globl	type_to_string
	.type	type_to_string, @function
type_to_string:
.LFB6:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	mov	DWORD PTR -4[rbp], edi
	cmp	DWORD PTR -4[rbp], 1
	jne	.L2
	lea	rax, .LC0[rip]
	jmp	.L3
.L2:
	cmp	DWORD PTR -4[rbp], 2
	jne	.L4
	lea	rax, .LC1[rip]
	jmp	.L3
.L4:
	cmp	DWORD PTR -4[rbp], 3
	jne	.L5
	lea	rax, .LC2[rip]
	jmp	.L3
.L5:
	cmp	DWORD PTR -4[rbp], 4
	jne	.L6
	lea	rax, .LC3[rip]
	jmp	.L3
.L6:
	cmp	DWORD PTR -4[rbp], 5
	jne	.L7
	lea	rax, .LC4[rip]
	jmp	.L3
.L7:
	cmp	DWORD PTR -4[rbp], 6
	jne	.L8
	lea	rax, .LC5[rip]
	jmp	.L3
.L8:
	cmp	DWORD PTR -4[rbp], 7
	jne	.L9
	lea	rax, .LC6[rip]
	jmp	.L3
.L9:
	lea	rax, .LC7[rip]
.L3:
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE6:
	.size	type_to_string, .-type_to_string
	.section	.rodata
	.align 8
.LC8:
	.string	"runtime error: unkown data type found"
	.text
	.globl	get_memory_size
	.type	get_memory_size, @function
get_memory_size:
.LFB7:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 16
	mov	QWORD PTR -8[rbp], rdi
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 1
	jne	.L11
	mov	eax, 8
	jmp	.L12
.L11:
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 2
	jne	.L13
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdi, rax
	call	strlen@PLT
	add	rax, 1
	jmp	.L12
.L13:
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 3
	jne	.L14
	mov	eax, 1
	jmp	.L12
.L14:
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 4
	jne	.L15
	mov	eax, 1
	jmp	.L12
.L15:
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 5
	jne	.L16
	mov	eax, 1
	jmp	.L12
.L16:
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 6
	jne	.L17
	mov	eax, 16
	jmp	.L12
.L17:
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 7
	jne	.L18
	mov	eax, 16
	jmp	.L12
.L18:
	lea	rdi, .LC8[rip]
	call	puts@PLT
	mov	edi, 1
	call	exit@PLT
.L12:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE7:
	.size	get_memory_size, .-get_memory_size
	.globl	create_integer
	.type	create_integer, @function
create_integer:
.LFB8:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 32
	mov	QWORD PTR -24[rbp], rdi
	mov	edi, 8
	call	malloc@PLT
	mov	QWORD PTR -16[rbp], rax
	mov	rax, QWORD PTR -16[rbp]
	mov	rdx, QWORD PTR -24[rbp]
	mov	QWORD PTR [rax], rdx
	mov	edi, 16
	call	malloc@PLT
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	DWORD PTR [rax], 1
	mov	rax, QWORD PTR -8[rbp]
	mov	rdx, QWORD PTR -16[rbp]
	mov	QWORD PTR 8[rax], rdx
	mov	rax, QWORD PTR -8[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE8:
	.size	create_integer, .-create_integer
	.globl	create_bool
	.type	create_bool, @function
create_bool:
.LFB9:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 32
	mov	eax, edi
	mov	BYTE PTR -20[rbp], al
	mov	edi, 1
	call	malloc@PLT
	mov	QWORD PTR -16[rbp], rax
	mov	rax, QWORD PTR -16[rbp]
	movzx	edx, BYTE PTR -20[rbp]
	mov	BYTE PTR [rax], dl
	mov	edi, 16
	call	malloc@PLT
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	DWORD PTR [rax], 5
	mov	rax, QWORD PTR -8[rbp]
	mov	rdx, QWORD PTR -16[rbp]
	mov	QWORD PTR 8[rax], rdx
	mov	rax, QWORD PTR -8[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE9:
	.size	create_bool, .-create_bool
	.globl	create_cons
	.type	create_cons, @function
create_cons:
.LFB10:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 16
	mov	edi, 16
	call	malloc@PLT
	mov	QWORD PTR -16[rbp], rax
	mov	edi, 16
	call	malloc@PLT
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	DWORD PTR [rax], 6
	mov	rax, QWORD PTR -8[rbp]
	mov	rdx, QWORD PTR -16[rbp]
	mov	QWORD PTR 8[rax], rdx
	mov	rax, QWORD PTR -8[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE10:
	.size	create_cons, .-create_cons
	.globl	create_nil
	.type	create_nil, @function
create_nil:
.LFB11:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 16
	mov	edi, 1
	call	malloc@PLT
	mov	QWORD PTR -16[rbp], rax
	mov	edi, 16
	call	malloc@PLT
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	DWORD PTR [rax], 4
	mov	rax, QWORD PTR -8[rbp]
	mov	rdx, QWORD PTR -16[rbp]
	mov	QWORD PTR 8[rax], rdx
	mov	rax, QWORD PTR -8[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE11:
	.size	create_nil, .-create_nil
	.globl	create_list
	.type	create_list, @function
create_list:
.LFB12:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 48
	mov	QWORD PTR -40[rbp], rdi
	mov	QWORD PTR -48[rbp], rsi
	cmp	QWORD PTR -48[rbp], 0
	jne	.L28
	mov	eax, 0
	call	create_nil
	jmp	.L29
.L28:
	mov	eax, 0
	call	create_cons
	mov	QWORD PTR -16[rbp], rax
	mov	rax, QWORD PTR -16[rbp]
	mov	QWORD PTR -24[rbp], rax
	mov	DWORD PTR -28[rbp], 0
	jmp	.L30
.L33:
	mov	eax, DWORD PTR -28[rbp]
	cdqe
	mov	rdx, QWORD PTR -48[rbp]
	sub	rdx, 1
	cmp	rax, rdx
	jne	.L31
	mov	eax, 0
	call	create_nil
	jmp	.L32
.L31:
	mov	eax, 0
	call	create_cons
.L32:
	mov	QWORD PTR -8[rbp], rax
	mov	eax, DWORD PTR -28[rbp]
	cdqe
	lea	rdx, 0[0+rax*8]
	mov	rax, QWORD PTR -40[rbp]
	add	rdx, rax
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR [rdx]
	mov	QWORD PTR [rax], rdx
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -8[rbp]
	mov	QWORD PTR 8[rax], rdx
	mov	rax, QWORD PTR -8[rbp]
	mov	QWORD PTR -24[rbp], rax
	add	DWORD PTR -28[rbp], 1
.L30:
	mov	eax, DWORD PTR -28[rbp]
	cdqe
	cmp	QWORD PTR -48[rbp], rax
	ja	.L33
	mov	rax, QWORD PTR -16[rbp]
.L29:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE12:
	.size	create_list, .-create_list
	.globl	create_func
	.type	create_func, @function
create_func:
.LFB13:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 32
	mov	QWORD PTR -24[rbp], rdi
	mov	QWORD PTR -32[rbp], rsi
	mov	edi, 16
	call	malloc@PLT
	mov	QWORD PTR -16[rbp], rax
	mov	edi, 16
	call	malloc@PLT
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	rdx, QWORD PTR -24[rbp]
	mov	QWORD PTR 8[rax], rdx
	mov	rax, QWORD PTR -32[rbp]
	mov	rdi, rax
	call	strlen@PLT
	add	rax, 1
	mov	rdi, rax
	call	malloc@PLT
	mov	rdx, rax
	mov	rax, QWORD PTR -8[rbp]
	mov	QWORD PTR [rax], rdx
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR [rax]
	mov	rdx, QWORD PTR -32[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	strcpy@PLT
	mov	rax, QWORD PTR -16[rbp]
	mov	DWORD PTR [rax], 7
	mov	rax, QWORD PTR -16[rbp]
	mov	rdx, QWORD PTR -8[rbp]
	mov	QWORD PTR 8[rax], rdx
	mov	rax, QWORD PTR -16[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE13:
	.size	create_func, .-create_func
	.globl	copy_data
	.type	copy_data, @function
copy_data:
.LFB14:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 32
	mov	QWORD PTR -24[rbp], rdi
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	get_memory_size
	mov	QWORD PTR -16[rbp], rax
	mov	edi, 16
	call	malloc@PLT
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -16[rbp]
	mov	rdi, rax
	call	malloc@PLT
	mov	rdx, rax
	mov	rax, QWORD PTR -8[rbp]
	mov	QWORD PTR 8[rax], rdx
	mov	rax, QWORD PTR -24[rbp]
	mov	rcx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -16[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	memcpy@PLT
	mov	rax, QWORD PTR -8[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE14:
	.size	copy_data, .-copy_data
	.section	.rodata
	.align 8
.LC9:
	.string	"runtime error: the argument of list_length is not list(found type %s in argument)\n"
	.text
	.globl	list_length
	.type	list_length, @function
list_length:
.LFB15:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 48
	mov	QWORD PTR -40[rbp], rdi
	mov	rax, QWORD PTR -40[rbp]
	mov	QWORD PTR -24[rbp], rax
	mov	QWORD PTR -16[rbp], 0
	jmp	.L39
.L41:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 6
	jne	.L40
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -24[rbp], rax
	add	QWORD PTR -16[rbp], 1
	jmp	.L39
.L40:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	mov	edi, eax
	call	type_to_string
	mov	rsi, rax
	lea	rdi, .LC9[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L39:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 4
	jne	.L41
	mov	rax, QWORD PTR -16[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE15:
	.size	list_length, .-list_length
	.section	.rodata
	.align 8
.LC10:
	.string	"runtime error: invalid number of argument(try to fetch %zu argument, but we got %zu arguments).\n"
	.align 8
.LC11:
	.string	"runtime error: the function's argument is not list.(found type %s in cdr)\n"
	.text
	.globl	fetch_nth_arg
	.type	fetch_nth_arg, @function
fetch_nth_arg:
.LFB16:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 48
	mov	QWORD PTR -40[rbp], rdi
	mov	QWORD PTR -48[rbp], rsi
	mov	rax, QWORD PTR -40[rbp]
	mov	QWORD PTR -24[rbp], rax
	mov	QWORD PTR -16[rbp], 0
.L49:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 4
	jne	.L44
	mov	rdx, QWORD PTR -16[rbp]
	mov	rax, QWORD PTR -48[rbp]
	mov	rsi, rax
	lea	rdi, .LC10[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L44:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 6
	jne	.L45
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -16[rbp]
	cmp	rax, QWORD PTR -48[rbp]
	jne	.L46
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR [rax]
	mov	QWORD PTR -24[rbp], rax
	jmp	.L51
.L46:
	add	QWORD PTR -16[rbp], 1
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -24[rbp], rax
	jmp	.L49
.L45:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	mov	edi, eax
	call	type_to_string
	mov	rsi, rax
	lea	rdi, .LC11[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L51:
	mov	rax, QWORD PTR -24[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE16:
	.size	fetch_nth_arg, .-fetch_nth_arg
	.section	.rodata
	.align 8
.LC12:
	.string	"runtime error: invalid number of argument(expected 1, we got %zu in function car)"
	.align 8
.LC13:
	.string	"runtime error: the argument of car is not list(found type %s)\n"
	.text
	.globl	lisp_car
	.type	lisp_car, @function
lisp_car:
.LFB17:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 32
	mov	QWORD PTR -24[rbp], rdi
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	list_length
	cdqe
	mov	QWORD PTR -16[rbp], rax
	cmp	QWORD PTR -16[rbp], 1
	je	.L54
	mov	rax, QWORD PTR -16[rbp]
	mov	rsi, rax
	lea	rdi, .LC12[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L54:
	mov	rax, QWORD PTR -24[rbp]
	mov	esi, 0
	mov	rdi, rax
	call	fetch_nth_arg
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 6
	jne	.L55
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR 8[rax]
	jmp	.L57
.L55:
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	mov	edi, eax
	call	type_to_string
	mov	rsi, rax
	lea	rdi, .LC13[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L57:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE17:
	.size	lisp_car, .-lisp_car
	.section	.rodata
	.align 8
.LC14:
	.string	"runtime error: invalid number of argument(we need at lest 1, we got 0 in function =)"
	.align 8
.LC15:
	.string	"runtime error: invalid type of argument(all element should be integer in =, but we got %s)"
	.text
	.globl	lisp_number_equal
	.type	lisp_number_equal, @function
lisp_number_equal:
.LFB18:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 48
	mov	QWORD PTR -40[rbp], rdi
	mov	rax, QWORD PTR -40[rbp]
	mov	rdi, rax
	call	list_length
	cdqe
	mov	QWORD PTR -24[rbp], rax
	cmp	QWORD PTR -24[rbp], 0
	jne	.L59
	lea	rdi, .LC14[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L59:
	mov	rax, QWORD PTR -40[rbp]
	mov	esi, 0
	mov	rdi, rax
	call	fetch_nth_arg
	mov	QWORD PTR -16[rbp], rax
	mov	BYTE PTR -29[rbp], 1
	mov	DWORD PTR -28[rbp], 0
	jmp	.L60
.L62:
	mov	eax, DWORD PTR -28[rbp]
	movsx	rdx, eax
	mov	rax, QWORD PTR -40[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	fetch_nth_arg
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 1
	je	.L61
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	mov	edi, eax
	call	type_to_string
	mov	rsi, rax
	lea	rdi, .LC15[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L61:
	movzx	ecx, BYTE PTR -29[rbp]
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	edx, DWORD PTR [rax]
	mov	rax, QWORD PTR -16[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	eax, DWORD PTR [rax]
	cmp	edx, eax
	sete	al
	movzx	eax, al
	and	eax, ecx
	test	eax, eax
	setne	al
	mov	BYTE PTR -29[rbp], al
	add	DWORD PTR -28[rbp], 1
.L60:
	mov	eax, DWORD PTR -28[rbp]
	cdqe
	cmp	QWORD PTR -24[rbp], rax
	ja	.L62
	movzx	eax, BYTE PTR -29[rbp]
	mov	edi, eax
	call	create_bool
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE18:
	.size	lisp_number_equal, .-lisp_number_equal
	.section	.rodata
	.align 8
.LC16:
	.string	"runtime error: invalid type of argument(all element should be integer in +, but we got %s)"
	.text
	.globl	lisp_number_add
	.type	lisp_number_add, @function
lisp_number_add:
.LFB19:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 48
	mov	QWORD PTR -40[rbp], rdi
	mov	rax, QWORD PTR -40[rbp]
	mov	rdi, rax
	call	list_length
	cdqe
	mov	QWORD PTR -16[rbp], rax
	mov	QWORD PTR -24[rbp], 0
	mov	DWORD PTR -28[rbp], 0
	jmp	.L65
.L67:
	mov	eax, DWORD PTR -28[rbp]
	movsx	rdx, eax
	mov	rax, QWORD PTR -40[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	fetch_nth_arg
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 1
	je	.L66
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	mov	edi, eax
	call	type_to_string
	mov	rsi, rax
	lea	rdi, .LC16[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L66:
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	eax, DWORD PTR [rax]
	cdqe
	add	QWORD PTR -24[rbp], rax
	add	DWORD PTR -28[rbp], 1
.L65:
	mov	eax, DWORD PTR -28[rbp]
	cdqe
	cmp	QWORD PTR -16[rbp], rax
	ja	.L67
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	create_integer
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE19:
	.size	lisp_number_add, .-lisp_number_add
	.section	.rodata
	.align 8
.LC17:
	.string	"runtime error: invalid type of argument(all element should be integer in -, but we got %s)"
	.text
	.globl	lisp_number_sub
	.type	lisp_number_sub, @function
lisp_number_sub:
.LFB20:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 48
	mov	QWORD PTR -40[rbp], rdi
	mov	rax, QWORD PTR -40[rbp]
	mov	rdi, rax
	call	list_length
	cdqe
	mov	QWORD PTR -16[rbp], rax
	cmp	QWORD PTR -16[rbp], 0
	jne	.L70
	lea	rdi, .LC14[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L70:
	mov	QWORD PTR -24[rbp], 0
	mov	DWORD PTR -32[rbp], 0
	jmp	.L71
.L75:
	mov	eax, DWORD PTR -32[rbp]
	movsx	rdx, eax
	mov	rax, QWORD PTR -40[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	fetch_nth_arg
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 1
	je	.L72
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	mov	edi, eax
	call	type_to_string
	mov	rsi, rax
	lea	rdi, .LC17[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L72:
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	eax, DWORD PTR [rax]
	mov	DWORD PTR -28[rbp], eax
	cmp	DWORD PTR -32[rbp], 0
	jne	.L73
	mov	eax, DWORD PTR -28[rbp]
	cdqe
	jmp	.L74
.L73:
	mov	eax, DWORD PTR -28[rbp]
	movsx	rdx, eax
	mov	rax, QWORD PTR -24[rbp]
	sub	rax, rdx
.L74:
	mov	QWORD PTR -24[rbp], rax
	add	DWORD PTR -32[rbp], 1
.L71:
	mov	eax, DWORD PTR -32[rbp]
	cdqe
	cmp	QWORD PTR -16[rbp], rax
	ja	.L75
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	create_integer
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE20:
	.size	lisp_number_sub, .-lisp_number_sub
	.section	.rodata
	.align 8
.LC18:
	.string	"runtime error: invalid type of argument(all element should be bool in or, but we got %s)"
	.text
	.globl	lisp_bool_or
	.type	lisp_bool_or, @function
lisp_bool_or:
.LFB21:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 48
	mov	QWORD PTR -40[rbp], rdi
	mov	rax, QWORD PTR -40[rbp]
	mov	rdi, rax
	call	list_length
	cdqe
	mov	QWORD PTR -16[rbp], rax
	mov	BYTE PTR -21[rbp], 0
	mov	DWORD PTR -20[rbp], 0
	jmp	.L78
.L80:
	mov	eax, DWORD PTR -20[rbp]
	movsx	rdx, eax
	mov	rax, QWORD PTR -40[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	fetch_nth_arg
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 5
	je	.L79
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	mov	edi, eax
	call	type_to_string
	mov	rsi, rax
	lea	rdi, .LC18[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L79:
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	movzx	eax, BYTE PTR [rax]
	or	al, BYTE PTR -21[rbp]
	movzx	eax, al
	test	eax, eax
	setne	al
	mov	BYTE PTR -21[rbp], al
	add	DWORD PTR -20[rbp], 1
.L78:
	mov	eax, DWORD PTR -20[rbp]
	cdqe
	cmp	QWORD PTR -16[rbp], rax
	ja	.L80
	movzx	eax, BYTE PTR -21[rbp]
	mov	edi, eax
	call	create_bool
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE21:
	.size	lisp_bool_or, .-lisp_bool_or
	.section	.rodata
.LC19:
	.string	"%ld"
.LC20:
	.string	"%s"
.LC21:
	.string	"()"
.LC22:
	.string	")"
.LC23:
	.string	"#t"
.LC24:
	.string	"#f"
.LC25:
	.string	". "
.LC26:
	.string	"#<procedure:%s>"
	.align 8
.LC27:
	.string	"runtime error: unknown data type"
	.text
	.globl	display_core
	.type	display_core, @function
display_core:
.LFB22:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 32
	mov	QWORD PTR -24[rbp], rdi
	mov	eax, esi
	mov	BYTE PTR -28[rbp], al
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 1
	jne	.L83
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR [rax]
	mov	rsi, rax
	lea	rdi, .LC19[rip]
	mov	eax, 0
	call	printf@PLT
	jmp	.L82
.L83:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 2
	jne	.L85
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rsi, rax
	lea	rdi, .LC20[rip]
	mov	eax, 0
	call	printf@PLT
	jmp	.L82
.L85:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 3
	jne	.L86
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	movzx	eax, BYTE PTR [rax]
	movsx	eax, al
	mov	edi, eax
	call	putchar@PLT
	jmp	.L82
.L86:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 4
	jne	.L87
	cmp	BYTE PTR -28[rbp], 0
	je	.L88
	lea	rax, .LC21[rip]
	jmp	.L89
.L88:
	lea	rax, .LC22[rip]
.L89:
	mov	rsi, rax
	lea	rdi, .LC20[rip]
	mov	eax, 0
	call	printf@PLT
	jmp	.L82
.L87:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 5
	jne	.L90
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	movzx	eax, BYTE PTR [rax]
	test	al, al
	je	.L91
	lea	rax, .LC23[rip]
	jmp	.L92
.L91:
	lea	rax, .LC24[rip]
.L92:
	mov	rsi, rax
	lea	rdi, .LC20[rip]
	mov	eax, 0
	call	printf@PLT
	jmp	.L82
.L90:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 6
	jne	.L93
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 4
	je	.L94
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 6
	je	.L94
	mov	eax, 1
	jmp	.L95
.L94:
	mov	eax, 0
.L95:
	mov	BYTE PTR -9[rbp], al
	and	BYTE PTR -9[rbp], 1
	cmp	BYTE PTR -28[rbp], 0
	jne	.L96
	cmp	BYTE PTR -9[rbp], 0
	je	.L97
.L96:
	mov	edi, 40
	call	putchar@PLT
.L97:
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR [rax]
	mov	esi, 1
	mov	rdi, rax
	call	display_core
	cmp	BYTE PTR -9[rbp], 0
	je	.L98
	lea	rdi, .LC25[rip]
	mov	eax, 0
	call	printf@PLT
	jmp	.L99
.L98:
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 4
	je	.L99
	mov	edi, 32
	call	putchar@PLT
.L99:
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	esi, 0
	mov	rdi, rax
	call	display_core
	jmp	.L82
.L93:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 7
	jne	.L100
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR [rax]
	mov	rsi, rax
	lea	rdi, .LC26[rip]
	mov	eax, 0
	call	printf@PLT
	jmp	.L82
.L100:
	lea	rdi, .LC27[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L82:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE22:
	.size	display_core, .-display_core
	.section	.rodata
	.align 8
.LC28:
	.string	"runtime error: invalid number of argument(we need exactly 1, we got %zu in function display)"
	.text
	.globl	lisp_display
	.type	lisp_display, @function
lisp_display:
.LFB23:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 32
	mov	QWORD PTR -24[rbp], rdi
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	list_length
	cdqe
	mov	QWORD PTR -16[rbp], rax
	cmp	QWORD PTR -16[rbp], 1
	je	.L102
	mov	rax, QWORD PTR -16[rbp]
	mov	rsi, rax
	lea	rdi, .LC28[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 0
	call	exit@PLT
.L102:
	mov	rax, QWORD PTR -24[rbp]
	mov	esi, 0
	mov	rdi, rax
	call	fetch_nth_arg
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	esi, 1
	mov	rdi, rax
	call	display_core
	mov	edi, 0
	call	create_bool
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE23:
	.size	lisp_display, .-lisp_display
	.section	.rodata
.LC29:
	.string	"display"
	.text
	.globl	main
	.type	main, @function
main:
.LFB24:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 144
	mov	rax, QWORD PTR fs:40
	mov	QWORD PTR -8[rbp], rax
	xor	eax, eax
	mov	edi, 1
	call	create_integer
	mov	QWORD PTR -144[rbp], rax
	mov	rax, QWORD PTR -144[rbp]
	mov	QWORD PTR -88[rbp], rax
	lea	rax, -88[rbp]
	mov	esi, 1
	mov	rdi, rax
	call	create_list
	mov	rdi, rax
	call	lisp_display
	mov	edi, 2
	call	create_integer
	mov	QWORD PTR -136[rbp], rax
	mov	rax, QWORD PTR -136[rbp]
	mov	QWORD PTR -80[rbp], rax
	lea	rax, -80[rbp]
	mov	esi, 1
	mov	rdi, rax
	call	create_list
	mov	rdi, rax
	call	lisp_display
	mov	rax, QWORD PTR -144[rbp]
	mov	QWORD PTR -32[rbp], rax
	mov	rax, QWORD PTR -136[rbp]
	mov	QWORD PTR -24[rbp], rax
	lea	rax, -32[rbp]
	mov	esi, 2
	mov	rdi, rax
	call	create_list
	mov	QWORD PTR -128[rbp], rax
	mov	rax, QWORD PTR -128[rbp]
	mov	QWORD PTR -72[rbp], rax
	lea	rax, -72[rbp]
	mov	esi, 1
	mov	rdi, rax
	call	create_list
	mov	rdi, rax
	call	lisp_display
	mov	rax, QWORD PTR -128[rbp]
	mov	rdi, rax
	call	lisp_number_equal
	mov	QWORD PTR -120[rbp], rax
	mov	rax, QWORD PTR -120[rbp]
	mov	QWORD PTR -64[rbp], rax
	lea	rax, -64[rbp]
	mov	esi, 1
	mov	rdi, rax
	call	create_list
	mov	rdi, rax
	call	lisp_display
	mov	rax, QWORD PTR -128[rbp]
	mov	rdi, rax
	call	lisp_number_add
	mov	QWORD PTR -112[rbp], rax
	mov	rax, QWORD PTR -112[rbp]
	mov	QWORD PTR -56[rbp], rax
	lea	rax, -56[rbp]
	mov	esi, 1
	mov	rdi, rax
	call	create_list
	mov	rdi, rax
	call	lisp_display
	mov	rax, QWORD PTR -128[rbp]
	mov	rdi, rax
	call	lisp_number_sub
	mov	QWORD PTR -104[rbp], rax
	mov	rax, QWORD PTR -104[rbp]
	mov	QWORD PTR -48[rbp], rax
	lea	rax, -48[rbp]
	mov	esi, 1
	mov	rdi, rax
	call	create_list
	mov	rdi, rax
	call	lisp_display
	lea	rsi, .LC29[rip]
	lea	rdi, lisp_display[rip]
	call	create_func
	mov	QWORD PTR -96[rbp], rax
	mov	rax, QWORD PTR -96[rbp]
	mov	QWORD PTR -40[rbp], rax
	lea	rax, -40[rbp]
	mov	esi, 1
	mov	rdi, rax
	call	create_list
	mov	rdi, rax
	call	lisp_display
	mov	eax, 0
	mov	rdx, QWORD PTR -8[rbp]
	sub	rdx, QWORD PTR fs:40
	je	.L106
	call	__stack_chk_fail@PLT
.L106:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE24:
	.size	main, .-main
	.ident	"GCC: (Ubuntu 10.5.0-1ubuntu1~20.04) 10.5.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:

	.arch armv5t
	.eabi_attribute 20, 1
	.eabi_attribute 21, 1
	.eabi_attribute 23, 3
	.eabi_attribute 24, 1
	.eabi_attribute 25, 1
	.eabi_attribute 26, 2
	.eabi_attribute 30, 6
	.eabi_attribute 34, 0
	.eabi_attribute 18, 4
	.file	"171855.c"
	.text
	.section	.rodata
	.align	2
.LC0:
	.ascii	"integer\000"
	.align	2
.LC1:
	.ascii	"string\000"
	.align	2
.LC2:
	.ascii	"char\000"
	.align	2
.LC3:
	.ascii	"nil\000"
	.align	2
.LC4:
	.ascii	"bool\000"
	.align	2
.LC5:
	.ascii	"conscell\000"
	.align	2
.LC6:
	.ascii	"procedure\000"
	.align	2
.LC7:
	.ascii	"unkown_type\000"
	.text
	.align	2
	.global	type_to_string
	.syntax unified
	.arm
	.fpu softvfp
	.type	type_to_string, %function
type_to_string:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	@ link register save eliminated.
	str	fp, [sp, #-4]!
	add	fp, sp, #0
	sub	sp, sp, #12
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	cmp	r3, #1
	bne	.L2
	ldr	r3, .L10
	b	.L3
.L2:
	ldr	r3, [fp, #-8]
	cmp	r3, #2
	bne	.L4
	ldr	r3, .L10+4
	b	.L3
.L4:
	ldr	r3, [fp, #-8]
	cmp	r3, #3
	bne	.L5
	ldr	r3, .L10+8
	b	.L3
.L5:
	ldr	r3, [fp, #-8]
	cmp	r3, #4
	bne	.L6
	ldr	r3, .L10+12
	b	.L3
.L6:
	ldr	r3, [fp, #-8]
	cmp	r3, #5
	bne	.L7
	ldr	r3, .L10+16
	b	.L3
.L7:
	ldr	r3, [fp, #-8]
	cmp	r3, #6
	bne	.L8
	ldr	r3, .L10+20
	b	.L3
.L8:
	ldr	r3, [fp, #-8]
	cmp	r3, #7
	bne	.L9
	ldr	r3, .L10+24
	b	.L3
.L9:
	ldr	r3, .L10+28
.L3:
	mov	r0, r3
	add	sp, fp, #0
	@ sp needed
	ldr	fp, [sp], #4
	bx	lr
.L11:
	.align	2
.L10:
	.word	.LC0
	.word	.LC1
	.word	.LC2
	.word	.LC3
	.word	.LC4
	.word	.LC5
	.word	.LC6
	.word	.LC7
	.size	type_to_string, .-type_to_string
	.section	.rodata
	.align	2
.LC8:
	.ascii	"runtime error: unkown data type found\000"
	.text
	.align	2
	.global	get_memory_size
	.syntax unified
	.arm
	.fpu softvfp
	.type	get_memory_size, %function
get_memory_size:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #8
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	cmp	r3, #1
	bne	.L13
	mov	r3, #8
	b	.L14
.L13:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	cmp	r3, #2
	bne	.L15
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	mov	r0, r3
	bl	strlen
	mov	r3, r0
	add	r3, r3, #1
	b	.L14
.L15:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	cmp	r3, #3
	bne	.L16
	mov	r3, #1
	b	.L14
.L16:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	cmp	r3, #4
	bne	.L17
	mov	r3, #1
	b	.L14
.L17:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	cmp	r3, #5
	bne	.L18
	mov	r3, #1
	b	.L14
.L18:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	cmp	r3, #6
	bne	.L19
	mov	r3, #8
	b	.L14
.L19:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	cmp	r3, #7
	bne	.L20
	mov	r3, #8
	b	.L14
.L20:
	ldr	r0, .L21
	bl	puts
	mov	r0, #1
	bl	exit
.L14:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L22:
	.align	2
.L21:
	.word	.LC8
	.size	get_memory_size, .-get_memory_size
	.align	2
	.global	create_integer
	.syntax unified
	.arm
	.fpu softvfp
	.type	create_integer, %function
create_integer:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	str	r0, [fp, #-20]
	str	r1, [fp, #-16]
	mov	r0, #8
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-12]
	ldr	r1, [fp, #-12]
	sub	r3, fp, #20
	ldmia	r3, {r2-r3}
	stm	r1, {r2-r3}
	mov	r0, #8
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-8]
	mov	r2, #1
	str	r2, [r3]
	ldr	r3, [fp, #-8]
	ldr	r2, [fp, #-12]
	str	r2, [r3, #4]
	ldr	r3, [fp, #-8]
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	create_integer, .-create_integer
	.align	2
	.global	create_bool
	.syntax unified
	.arm
	.fpu softvfp
	.type	create_bool, %function
create_bool:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	mov	r3, r0
	strb	r3, [fp, #-13]
	mov	r0, #1
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-12]
	ldr	r3, [fp, #-12]
	ldrb	r2, [fp, #-13]
	strb	r2, [r3]
	mov	r0, #8
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-8]
	mov	r2, #5
	str	r2, [r3]
	ldr	r3, [fp, #-8]
	ldr	r2, [fp, #-12]
	str	r2, [r3, #4]
	ldr	r3, [fp, #-8]
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	create_bool, .-create_bool
	.align	2
	.global	create_cons
	.syntax unified
	.arm
	.fpu softvfp
	.type	create_cons, %function
create_cons:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #8
	mov	r0, #8
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-12]
	mov	r0, #8
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-8]
	mov	r2, #6
	str	r2, [r3]
	ldr	r3, [fp, #-8]
	ldr	r2, [fp, #-12]
	str	r2, [r3, #4]
	ldr	r3, [fp, #-8]
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	create_cons, .-create_cons
	.align	2
	.global	create_nil
	.syntax unified
	.arm
	.fpu softvfp
	.type	create_nil, %function
create_nil:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #8
	mov	r0, #1
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-12]
	mov	r0, #8
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-8]
	mov	r2, #4
	str	r2, [r3]
	ldr	r3, [fp, #-8]
	ldr	r2, [fp, #-12]
	str	r2, [r3, #4]
	ldr	r3, [fp, #-8]
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	create_nil, .-create_nil
	.align	2
	.global	create_list
	.syntax unified
	.arm
	.fpu softvfp
	.type	create_list, %function
create_list:
	@ args = 0, pretend = 0, frame = 24
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #24
	str	r0, [fp, #-24]
	str	r1, [fp, #-28]
	ldr	r3, [fp, #-28]
	cmp	r3, #0
	bne	.L32
	bl	create_nil
	mov	r3, r0
	b	.L33
.L32:
	bl	create_cons
	str	r0, [fp, #-12]
	ldr	r3, [fp, #-12]
	str	r3, [fp, #-20]
	mov	r3, #0
	str	r3, [fp, #-16]
	b	.L34
.L37:
	ldr	r3, [fp, #-28]
	sub	r2, r3, #1
	ldr	r3, [fp, #-16]
	cmp	r2, r3
	bne	.L35
	bl	create_nil
	mov	r3, r0
	b	.L36
.L35:
	bl	create_cons
	mov	r3, r0
.L36:
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-16]
	lsl	r3, r3, #2
	ldr	r2, [fp, #-24]
	add	r2, r2, r3
	ldr	r3, [fp, #-20]
	ldr	r3, [r3, #4]
	ldr	r2, [r2]
	str	r2, [r3]
	ldr	r3, [fp, #-20]
	ldr	r3, [r3, #4]
	ldr	r2, [fp, #-8]
	str	r2, [r3, #4]
	ldr	r3, [fp, #-8]
	str	r3, [fp, #-20]
	ldr	r3, [fp, #-16]
	add	r3, r3, #1
	str	r3, [fp, #-16]
.L34:
	ldr	r3, [fp, #-16]
	ldr	r2, [fp, #-28]
	cmp	r2, r3
	bhi	.L37
	ldr	r3, [fp, #-12]
.L33:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	create_list, .-create_list
	.align	2
	.global	create_func
	.syntax unified
	.arm
	.fpu softvfp
	.type	create_func, %function
create_func:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	str	r0, [fp, #-16]
	str	r1, [fp, #-20]
	mov	r0, #8
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-12]
	mov	r0, #8
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-8]
	ldr	r2, [fp, #-16]
	str	r2, [r3, #4]
	ldr	r0, [fp, #-20]
	bl	strlen
	mov	r3, r0
	add	r3, r3, #1
	mov	r0, r3
	bl	malloc
	mov	r3, r0
	mov	r2, r3
	ldr	r3, [fp, #-8]
	str	r2, [r3]
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	ldr	r1, [fp, #-20]
	mov	r0, r3
	bl	strcpy
	ldr	r3, [fp, #-12]
	mov	r2, #7
	str	r2, [r3]
	ldr	r3, [fp, #-12]
	ldr	r2, [fp, #-8]
	str	r2, [r3, #4]
	ldr	r3, [fp, #-12]
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	create_func, .-create_func
	.align	2
	.global	copy_data
	.syntax unified
	.arm
	.fpu softvfp
	.type	copy_data, %function
copy_data:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	str	r0, [fp, #-16]
	ldr	r0, [fp, #-16]
	bl	get_memory_size
	str	r0, [fp, #-12]
	mov	r0, #8
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-8]
	ldr	r0, [fp, #-12]
	bl	malloc
	mov	r3, r0
	mov	r2, r3
	ldr	r3, [fp, #-8]
	str	r2, [r3, #4]
	ldr	r3, [fp, #-8]
	ldr	r0, [r3, #4]
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	ldr	r2, [fp, #-12]
	mov	r1, r3
	bl	memcpy
	ldr	r3, [fp, #-8]
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	copy_data, .-copy_data
	.section	.rodata
	.align	2
.LC9:
	.ascii	"runtime error: the argument of list_length is not l"
	.ascii	"ist(found type %s in argument)\012\000"
	.text
	.align	2
	.global	list_length
	.syntax unified
	.arm
	.fpu softvfp
	.type	list_length, %function
list_length:
	@ args = 0, pretend = 0, frame = 24
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #24
	str	r0, [fp, #-24]
	ldr	r3, [fp, #-24]
	str	r3, [fp, #-16]
	mov	r3, #0
	str	r3, [fp, #-12]
	b	.L43
.L45:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	cmp	r3, #6
	bne	.L44
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-16]
	ldr	r3, [fp, #-12]
	add	r3, r3, #1
	str	r3, [fp, #-12]
	b	.L43
.L44:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	mov	r0, r3
	bl	type_to_string
	mov	r3, r0
	mov	r1, r3
	ldr	r0, .L47
	bl	printf
	mov	r0, #0
	bl	exit
.L43:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	cmp	r3, #4
	bne	.L45
	ldr	r3, [fp, #-12]
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L48:
	.align	2
.L47:
	.word	.LC9
	.size	list_length, .-list_length
	.section	.rodata
	.align	2
.LC10:
	.ascii	"runtime error: invalid number of argument(try to fe"
	.ascii	"tch %zu argument, but we got %zu arguments).\012\000"
	.align	2
.LC11:
	.ascii	"runtime error: the function's argument is not list."
	.ascii	"(found type %s in cdr)\012\000"
	.text
	.align	2
	.global	fetch_nth_arg
	.syntax unified
	.arm
	.fpu softvfp
	.type	fetch_nth_arg, %function
fetch_nth_arg:
	@ args = 0, pretend = 0, frame = 24
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #24
	str	r0, [fp, #-24]
	str	r1, [fp, #-28]
	ldr	r3, [fp, #-24]
	str	r3, [fp, #-16]
	mov	r3, #0
	str	r3, [fp, #-12]
.L55:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	cmp	r3, #4
	bne	.L50
	ldr	r2, [fp, #-12]
	ldr	r1, [fp, #-28]
	ldr	r0, .L59
	bl	printf
	mov	r0, #0
	bl	exit
.L50:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	cmp	r3, #6
	bne	.L51
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-8]
	ldr	r2, [fp, #-12]
	ldr	r3, [fp, #-28]
	cmp	r2, r3
	bne	.L52
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	str	r3, [fp, #-16]
	b	.L57
.L52:
	ldr	r3, [fp, #-12]
	add	r3, r3, #1
	str	r3, [fp, #-12]
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-16]
	b	.L55
.L51:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	mov	r0, r3
	bl	type_to_string
	mov	r3, r0
	mov	r1, r3
	ldr	r0, .L59+4
	bl	printf
	mov	r0, #0
	bl	exit
.L57:
	ldr	r3, [fp, #-16]
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L60:
	.align	2
.L59:
	.word	.LC10
	.word	.LC11
	.size	fetch_nth_arg, .-fetch_nth_arg
	.section	.rodata
	.align	2
.LC12:
	.ascii	"runtime error: invalid number of argument(expected "
	.ascii	"1, we got %zu in function car)\000"
	.align	2
.LC13:
	.ascii	"runtime error: the argument of car is not list(foun"
	.ascii	"d type %s)\012\000"
	.text
	.align	2
	.global	lisp_car
	.syntax unified
	.arm
	.fpu softvfp
	.type	lisp_car, %function
lisp_car:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	str	r0, [fp, #-16]
	ldr	r0, [fp, #-16]
	bl	list_length
	mov	r3, r0
	str	r3, [fp, #-12]
	ldr	r3, [fp, #-12]
	cmp	r3, #1
	beq	.L62
	ldr	r1, [fp, #-12]
	ldr	r0, .L66
	bl	printf
	mov	r0, #0
	bl	exit
.L62:
	mov	r1, #0
	ldr	r0, [fp, #-16]
	bl	fetch_nth_arg
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	cmp	r3, #6
	bne	.L63
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	ldr	r3, [r3, #4]
	b	.L65
.L63:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	mov	r0, r3
	bl	type_to_string
	mov	r3, r0
	mov	r1, r3
	ldr	r0, .L66+4
	bl	printf
	mov	r0, #0
	bl	exit
.L65:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L67:
	.align	2
.L66:
	.word	.LC12
	.word	.LC13
	.size	lisp_car, .-lisp_car
	.section	.rodata
	.align	2
.LC14:
	.ascii	"runtime error: invalid number of argument(we need a"
	.ascii	"t lest 1, we got 0 in function =)\000"
	.align	2
.LC15:
	.ascii	"runtime error: invalid type of argument(all element"
	.ascii	" should be integer in =, but we got %s)\000"
	.text
	.align	2
	.global	lisp_number_equal
	.syntax unified
	.arm
	.fpu softvfp
	.type	lisp_number_equal, %function
lisp_number_equal:
	@ args = 0, pretend = 0, frame = 32
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #32
	str	r0, [fp, #-32]
	ldr	r0, [fp, #-32]
	bl	list_length
	mov	r3, r0
	str	r3, [fp, #-16]
	ldr	r3, [fp, #-16]
	cmp	r3, #0
	bne	.L69
	ldr	r0, .L74
	bl	printf
	mov	r0, #0
	bl	exit
.L69:
	mov	r1, #0
	ldr	r0, [fp, #-32]
	bl	fetch_nth_arg
	str	r0, [fp, #-12]
	mov	r3, #1
	strb	r3, [fp, #-21]
	mov	r3, #0
	str	r3, [fp, #-20]
	b	.L70
.L72:
	ldr	r3, [fp, #-20]
	mov	r1, r3
	ldr	r0, [fp, #-32]
	bl	fetch_nth_arg
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	cmp	r3, #1
	beq	.L71
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	mov	r0, r3
	bl	type_to_string
	mov	r3, r0
	mov	r1, r3
	ldr	r0, .L74+4
	bl	printf
	mov	r0, #0
	bl	exit
.L71:
	ldrb	r3, [fp, #-21]	@ zero_extendqisi2
	ldr	r2, [fp, #-8]
	ldr	r2, [r2, #4]
	ldr	r1, [r2]
	ldr	r2, [fp, #-12]
	ldr	r2, [r2, #4]
	ldr	r2, [r2]
	cmp	r1, r2
	moveq	r2, #1
	movne	r2, #0
	and	r2, r2, #255
	and	r3, r3, r2
	cmp	r3, #0
	movne	r3, #1
	moveq	r3, #0
	strb	r3, [fp, #-21]
	ldr	r3, [fp, #-20]
	add	r3, r3, #1
	str	r3, [fp, #-20]
.L70:
	ldr	r3, [fp, #-20]
	ldr	r2, [fp, #-16]
	cmp	r2, r3
	bhi	.L72
	ldrb	r3, [fp, #-21]	@ zero_extendqisi2
	mov	r0, r3
	bl	create_bool
	mov	r3, r0
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L75:
	.align	2
.L74:
	.word	.LC14
	.word	.LC15
	.size	lisp_number_equal, .-lisp_number_equal
	.section	.rodata
	.align	2
.LC16:
	.ascii	"runtime error: invalid type of argument(all element"
	.ascii	" should be integer in +, but we got %s)\000"
	.text
	.align	2
	.global	lisp_number_add
	.syntax unified
	.arm
	.fpu softvfp
	.type	lisp_number_add, %function
lisp_number_add:
	@ args = 0, pretend = 0, frame = 32
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{r4, r5, fp, lr}
	add	fp, sp, #12
	sub	sp, sp, #32
	str	r0, [fp, #-40]
	ldr	r0, [fp, #-40]
	bl	list_length
	mov	r3, r0
	str	r3, [fp, #-28]
	mov	r2, #0
	mov	r3, #0
	str	r2, [fp, #-20]
	str	r3, [fp, #-16]
	mov	r3, #0
	str	r3, [fp, #-32]
	b	.L77
.L79:
	ldr	r3, [fp, #-32]
	mov	r1, r3
	ldr	r0, [fp, #-40]
	bl	fetch_nth_arg
	str	r0, [fp, #-24]
	ldr	r3, [fp, #-24]
	ldr	r3, [r3]
	cmp	r3, #1
	beq	.L78
	ldr	r3, [fp, #-24]
	ldr	r3, [r3]
	mov	r0, r3
	bl	type_to_string
	mov	r3, r0
	mov	r1, r3
	ldr	r0, .L81
	bl	printf
	mov	r0, #0
	bl	exit
.L78:
	ldr	r3, [fp, #-24]
	ldr	r3, [r3, #4]
	ldr	r3, [r3]
	mov	r2, r3
	asr	r3, r2, #31
	sub	r1, fp, #20
	ldmia	r1, {r0-r1}
	adds	r4, r0, r2
	adc	r5, r1, r3
	str	r4, [fp, #-20]
	str	r5, [fp, #-16]
	ldr	r3, [fp, #-32]
	add	r3, r3, #1
	str	r3, [fp, #-32]
.L77:
	ldr	r3, [fp, #-32]
	ldr	r2, [fp, #-28]
	cmp	r2, r3
	bhi	.L79
	sub	r1, fp, #20
	ldmia	r1, {r0-r1}
	bl	create_integer
	mov	r3, r0
	mov	r0, r3
	sub	sp, fp, #12
	@ sp needed
	pop	{r4, r5, fp, pc}
.L82:
	.align	2
.L81:
	.word	.LC16
	.size	lisp_number_add, .-lisp_number_add
	.section	.rodata
	.align	2
.LC17:
	.ascii	"runtime error: invalid type of argument(all element"
	.ascii	" should be integer in -, but we got %s)\000"
	.text
	.align	2
	.global	lisp_number_sub
	.syntax unified
	.arm
	.fpu softvfp
	.type	lisp_number_sub, %function
lisp_number_sub:
	@ args = 0, pretend = 0, frame = 32
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{r4, r5, fp, lr}
	add	fp, sp, #12
	sub	sp, sp, #32
	str	r0, [fp, #-40]
	ldr	r0, [fp, #-40]
	bl	list_length
	mov	r3, r0
	str	r3, [fp, #-32]
	ldr	r3, [fp, #-32]
	cmp	r3, #0
	bne	.L84
	ldr	r0, .L91
	bl	printf
	mov	r0, #0
	bl	exit
.L84:
	mov	r2, #0
	mov	r3, #0
	str	r2, [fp, #-20]
	str	r3, [fp, #-16]
	mov	r3, #0
	str	r3, [fp, #-36]
	b	.L85
.L89:
	ldr	r3, [fp, #-36]
	mov	r1, r3
	ldr	r0, [fp, #-40]
	bl	fetch_nth_arg
	str	r0, [fp, #-28]
	ldr	r3, [fp, #-28]
	ldr	r3, [r3]
	cmp	r3, #1
	beq	.L86
	ldr	r3, [fp, #-28]
	ldr	r3, [r3]
	mov	r0, r3
	bl	type_to_string
	mov	r3, r0
	mov	r1, r3
	ldr	r0, .L91+4
	bl	printf
	mov	r0, #0
	bl	exit
.L86:
	ldr	r3, [fp, #-28]
	ldr	r3, [r3, #4]
	ldr	r3, [r3]
	str	r3, [fp, #-24]
	ldr	r3, [fp, #-36]
	cmp	r3, #0
	bne	.L87
	ldr	r3, [fp, #-24]
	mov	r4, r3
	asr	r5, r4, #31
	b	.L88
.L87:
	ldr	r3, [fp, #-24]
	mov	r2, r3
	asr	r3, r2, #31
	sub	r1, fp, #20
	ldmia	r1, {r0-r1}
	subs	r4, r0, r2
	sbc	r5, r1, r3
.L88:
	str	r4, [fp, #-20]
	str	r5, [fp, #-16]
	ldr	r3, [fp, #-36]
	add	r3, r3, #1
	str	r3, [fp, #-36]
.L85:
	ldr	r3, [fp, #-36]
	ldr	r2, [fp, #-32]
	cmp	r2, r3
	bhi	.L89
	sub	r1, fp, #20
	ldmia	r1, {r0-r1}
	bl	create_integer
	mov	r3, r0
	mov	r0, r3
	sub	sp, fp, #12
	@ sp needed
	pop	{r4, r5, fp, pc}
.L92:
	.align	2
.L91:
	.word	.LC14
	.word	.LC17
	.size	lisp_number_sub, .-lisp_number_sub
	.section	.rodata
	.align	2
.LC18:
	.ascii	"runtime error: invalid type of argument(all element"
	.ascii	" should be bool in or, but we got %s)\000"
	.text
	.align	2
	.global	lisp_bool_or
	.syntax unified
	.arm
	.fpu softvfp
	.type	lisp_bool_or, %function
lisp_bool_or:
	@ args = 0, pretend = 0, frame = 24
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #24
	str	r0, [fp, #-24]
	ldr	r0, [fp, #-24]
	bl	list_length
	mov	r3, r0
	str	r3, [fp, #-12]
	mov	r3, #0
	strb	r3, [fp, #-17]
	mov	r3, #0
	str	r3, [fp, #-16]
	b	.L94
.L96:
	ldr	r3, [fp, #-16]
	mov	r1, r3
	ldr	r0, [fp, #-24]
	bl	fetch_nth_arg
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	cmp	r3, #5
	beq	.L95
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	mov	r0, r3
	bl	type_to_string
	mov	r3, r0
	mov	r1, r3
	ldr	r0, .L98
	bl	printf
	mov	r0, #0
	bl	exit
.L95:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	ldrb	r2, [r3]	@ zero_extendqisi2
	ldrb	r3, [fp, #-17]
	orr	r3, r2, r3
	and	r3, r3, #255
	cmp	r3, #0
	movne	r3, #1
	moveq	r3, #0
	strb	r3, [fp, #-17]
	ldr	r3, [fp, #-16]
	add	r3, r3, #1
	str	r3, [fp, #-16]
.L94:
	ldr	r3, [fp, #-16]
	ldr	r2, [fp, #-12]
	cmp	r2, r3
	bhi	.L96
	ldrb	r3, [fp, #-17]	@ zero_extendqisi2
	mov	r0, r3
	bl	create_bool
	mov	r3, r0
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L99:
	.align	2
.L98:
	.word	.LC18
	.size	lisp_bool_or, .-lisp_bool_or
	.section	.rodata
	.align	2
.LC19:
	.ascii	"%lld\000"
	.align	2
.LC20:
	.ascii	"%s\000"
	.align	2
.LC21:
	.ascii	"()\000"
	.align	2
.LC22:
	.ascii	")\000"
	.align	2
.LC23:
	.ascii	"#t\000"
	.align	2
.LC24:
	.ascii	"#f\000"
	.align	2
.LC25:
	.ascii	". \000"
	.align	2
.LC26:
	.ascii	"#<procedure:%s>\000"
	.align	2
.LC27:
	.ascii	"runtime error: unknown data type\000"
	.text
	.align	2
	.global	display_core
	.syntax unified
	.arm
	.fpu softvfp
	.type	display_core, %function
display_core:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	str	r0, [fp, #-16]
	mov	r3, r1
	strb	r3, [fp, #-17]
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	cmp	r3, #1
	bne	.L101
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	ldmia	r3, {r2-r3}
	ldr	r0, .L119
	bl	printf
	b	.L100
.L101:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	cmp	r3, #2
	bne	.L103
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	mov	r1, r3
	ldr	r0, .L119+4
	bl	printf
	b	.L100
.L103:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	cmp	r3, #3
	bne	.L104
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	ldrb	r3, [r3]	@ zero_extendqisi2
	mov	r0, r3
	bl	putchar
	b	.L100
.L104:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	cmp	r3, #4
	bne	.L105
	ldrb	r3, [fp, #-17]	@ zero_extendqisi2
	cmp	r3, #0
	beq	.L106
	ldr	r3, .L119+8
	b	.L107
.L106:
	ldr	r3, .L119+12
.L107:
	mov	r1, r3
	ldr	r0, .L119+4
	bl	printf
	b	.L100
.L105:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	cmp	r3, #5
	bne	.L108
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	ldrb	r3, [r3]	@ zero_extendqisi2
	cmp	r3, #0
	beq	.L109
	ldr	r3, .L119+16
	b	.L110
.L109:
	ldr	r3, .L119+20
.L110:
	mov	r1, r3
	ldr	r0, .L119+4
	bl	printf
	b	.L100
.L108:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	cmp	r3, #6
	bne	.L111
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	ldr	r3, [r3]
	cmp	r3, #4
	beq	.L112
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	ldr	r3, [r3]
	cmp	r3, #6
	beq	.L112
	mov	r3, #1
	b	.L113
.L112:
	mov	r3, #0
.L113:
	strb	r3, [fp, #-9]
	ldrb	r3, [fp, #-9]
	and	r3, r3, #1
	strb	r3, [fp, #-9]
	ldrb	r3, [fp, #-17]	@ zero_extendqisi2
	cmp	r3, #0
	bne	.L114
	ldrb	r3, [fp, #-9]	@ zero_extendqisi2
	cmp	r3, #0
	beq	.L115
.L114:
	mov	r0, #40
	bl	putchar
.L115:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	mov	r1, #1
	mov	r0, r3
	bl	display_core
	ldrb	r3, [fp, #-9]	@ zero_extendqisi2
	cmp	r3, #0
	beq	.L116
	ldr	r0, .L119+24
	bl	printf
	b	.L117
.L116:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	ldr	r3, [r3]
	cmp	r3, #4
	beq	.L117
	mov	r0, #32
	bl	putchar
.L117:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	mov	r1, #0
	mov	r0, r3
	bl	display_core
	b	.L100
.L111:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	cmp	r3, #7
	bne	.L118
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	ldr	r3, [r3]
	mov	r1, r3
	ldr	r0, .L119+28
	bl	printf
	b	.L100
.L118:
	ldr	r0, .L119+32
	bl	printf
	mov	r0, #0
	bl	exit
.L100:
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L120:
	.align	2
.L119:
	.word	.LC19
	.word	.LC20
	.word	.LC21
	.word	.LC22
	.word	.LC23
	.word	.LC24
	.word	.LC25
	.word	.LC26
	.word	.LC27
	.size	display_core, .-display_core
	.section	.rodata
	.align	2
.LC28:
	.ascii	"runtime error: invalid number of argument(we need e"
	.ascii	"xactly 1, we got %zu in function display)\000"
	.text
	.align	2
	.global	lisp_display
	.syntax unified
	.arm
	.fpu softvfp
	.type	lisp_display, %function
lisp_display:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	str	r0, [fp, #-16]
	ldr	r0, [fp, #-16]
	bl	list_length
	mov	r3, r0
	str	r3, [fp, #-12]
	ldr	r3, [fp, #-12]
	cmp	r3, #1
	beq	.L122
	ldr	r1, [fp, #-12]
	ldr	r0, .L124
	bl	printf
	mov	r0, #0
	bl	exit
.L122:
	mov	r1, #0
	ldr	r0, [fp, #-16]
	bl	fetch_nth_arg
	str	r0, [fp, #-8]
	mov	r1, #1
	ldr	r0, [fp, #-8]
	bl	display_core
	mov	r0, #0
	bl	create_bool
	mov	r3, r0
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L125:
	.align	2
.L124:
	.word	.LC28
	.size	lisp_display, .-lisp_display
	.section	.rodata
	.align	2
.LC29:
	.ascii	"display\000"
	.align	2
.LC30:
	.word	__stack_chk_guard
	.text
	.align	2
	.global	main
	.syntax unified
	.arm
	.fpu softvfp
	.type	main, %function
main:
	@ args = 0, pretend = 0, frame = 72
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #72
	ldr	r3, .L129
	ldr	r3, [r3]
	str	r3, [fp, #-8]
	mov	r3,#0
	mov	r0, #1
	mov	r1, #0
	bl	create_integer
	str	r0, [fp, #-72]
	ldr	r3, [fp, #-72]
	str	r3, [fp, #-44]
	sub	r3, fp, #44
	mov	r1, #1
	mov	r0, r3
	bl	create_list
	mov	r3, r0
	mov	r0, r3
	bl	lisp_display
	mov	r0, #2
	mov	r1, #0
	bl	create_integer
	str	r0, [fp, #-68]
	ldr	r3, [fp, #-68]
	str	r3, [fp, #-40]
	sub	r3, fp, #40
	mov	r1, #1
	mov	r0, r3
	bl	create_list
	mov	r3, r0
	mov	r0, r3
	bl	lisp_display
	ldr	r3, [fp, #-72]
	str	r3, [fp, #-16]
	ldr	r3, [fp, #-68]
	str	r3, [fp, #-12]
	sub	r3, fp, #16
	mov	r1, #2
	mov	r0, r3
	bl	create_list
	str	r0, [fp, #-64]
	ldr	r3, [fp, #-64]
	str	r3, [fp, #-36]
	sub	r3, fp, #36
	mov	r1, #1
	mov	r0, r3
	bl	create_list
	mov	r3, r0
	mov	r0, r3
	bl	lisp_display
	ldr	r0, [fp, #-64]
	bl	lisp_number_equal
	str	r0, [fp, #-60]
	ldr	r3, [fp, #-60]
	str	r3, [fp, #-32]
	sub	r3, fp, #32
	mov	r1, #1
	mov	r0, r3
	bl	create_list
	mov	r3, r0
	mov	r0, r3
	bl	lisp_display
	ldr	r0, [fp, #-64]
	bl	lisp_number_add
	str	r0, [fp, #-56]
	ldr	r3, [fp, #-56]
	str	r3, [fp, #-28]
	sub	r3, fp, #28
	mov	r1, #1
	mov	r0, r3
	bl	create_list
	mov	r3, r0
	mov	r0, r3
	bl	lisp_display
	ldr	r0, [fp, #-64]
	bl	lisp_number_sub
	str	r0, [fp, #-52]
	ldr	r3, [fp, #-52]
	str	r3, [fp, #-24]
	sub	r3, fp, #24
	mov	r1, #1
	mov	r0, r3
	bl	create_list
	mov	r3, r0
	mov	r0, r3
	bl	lisp_display
	ldr	r1, .L129+4
	ldr	r0, .L129+8
	bl	create_func
	str	r0, [fp, #-48]
	ldr	r3, [fp, #-48]
	str	r3, [fp, #-20]
	sub	r3, fp, #20
	mov	r1, #1
	mov	r0, r3
	bl	create_list
	mov	r3, r0
	mov	r0, r3
	bl	lisp_display
	mov	r3, #0
	ldr	r2, .L129
	ldr	r1, [r2]
	ldr	r2, [fp, #-8]
	eors	r1, r2, r1
	mov	r2, #0
	beq	.L128
	bl	__stack_chk_fail
.L128:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L130:
	.align	2
.L129:
	.word	.LC30
	.word	.LC29
	.word	lisp_display
	.size	main, .-main
	.ident	"GCC: (Ubuntu 9.4.0-1ubuntu1~20.04.2) 9.4.0"
	.section	.note.GNU-stack,"",%progbits
