	.file	"49834.c"
	.intel_syntax noprefix
	.text
	.globl	all_symbols
	.bss
	.align 8
	.type	all_symbols, @object
	.size	all_symbols, 8
all_symbols:
	.zero	8
	.globl	top_env
	.align 8
	.type	top_env, @object
	.size	top_env, 8
top_env:
	.zero	8
	.globl	nil
	.align 8
	.type	nil, @object
	.size	nil, 8
nil:
	.zero	8
	.globl	tee
	.align 8
	.type	tee, @object
	.size	tee, 8
tee:
	.zero	8
	.globl	quote
	.align 8
	.type	quote, @object
	.size	quote, 8
quote:
	.zero	8
	.globl	s_if
	.align 8
	.type	s_if, @object
	.size	s_if, 8
s_if:
	.zero	8
	.globl	s_lambda
	.align 8
	.type	s_lambda, @object
	.size	s_lambda, 8
s_lambda:
	.zero	8
	.globl	s_define
	.align 8
	.type	s_define, @object
	.size	s_define, 8
s_define:
	.zero	8
	.globl	s_setb
	.align 8
	.type	s_setb, @object
	.size	s_setb, 8
s_setb:
	.zero	8
	.globl	s_begin
	.align 8
	.type	s_begin, @object
	.size	s_begin, 8
s_begin:
	.zero	8
	.text
	.globl	omake
	.type	omake, @function
omake:
.LFB6:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 240
	mov	DWORD PTR -228[rbp], edi
	mov	DWORD PTR -232[rbp], esi
	mov	QWORD PTR -160[rbp], rdx
	mov	QWORD PTR -152[rbp], rcx
	mov	QWORD PTR -144[rbp], r8
	mov	QWORD PTR -136[rbp], r9
	test	al, al
	je	.L2
	movaps	XMMWORD PTR -128[rbp], xmm0
	movaps	XMMWORD PTR -112[rbp], xmm1
	movaps	XMMWORD PTR -96[rbp], xmm2
	movaps	XMMWORD PTR -80[rbp], xmm3
	movaps	XMMWORD PTR -64[rbp], xmm4
	movaps	XMMWORD PTR -48[rbp], xmm5
	movaps	XMMWORD PTR -32[rbp], xmm6
	movaps	XMMWORD PTR -16[rbp], xmm7
.L2:
	mov	rax, QWORD PTR fs:40
	mov	QWORD PTR -184[rbp], rax
	xor	eax, eax
	mov	DWORD PTR -208[rbp], 16
	mov	DWORD PTR -204[rbp], 48
	lea	rax, 16[rbp]
	mov	QWORD PTR -200[rbp], rax
	lea	rax, -176[rbp]
	mov	QWORD PTR -192[rbp], rax
	mov	eax, DWORD PTR -232[rbp]
	sub	eax, 1
	cdqe
	add	rax, 2
	sal	rax, 3
	mov	rdi, rax
	call	malloc@PLT
	mov	QWORD PTR -216[rbp], rax
	mov	rax, QWORD PTR -216[rbp]
	mov	edx, DWORD PTR -228[rbp]
	mov	DWORD PTR [rax], edx
	mov	DWORD PTR -220[rbp], 0
	jmp	.L3
.L6:
	mov	eax, DWORD PTR -208[rbp]
	cmp	eax, 47
	ja	.L4
	mov	rax, QWORD PTR -192[rbp]
	mov	edx, DWORD PTR -208[rbp]
	mov	edx, edx
	add	rax, rdx
	mov	edx, DWORD PTR -208[rbp]
	add	edx, 8
	mov	DWORD PTR -208[rbp], edx
	jmp	.L5
.L4:
	mov	rax, QWORD PTR -200[rbp]
	lea	rdx, 8[rax]
	mov	QWORD PTR -200[rbp], rdx
.L5:
	mov	rcx, QWORD PTR [rax]
	mov	rax, QWORD PTR -216[rbp]
	mov	edx, DWORD PTR -220[rbp]
	movsx	rdx, edx
	mov	QWORD PTR 8[rax+rdx*8], rcx
	add	DWORD PTR -220[rbp], 1
.L3:
	mov	eax, DWORD PTR -220[rbp]
	cmp	eax, DWORD PTR -232[rbp]
	jl	.L6
	mov	rax, QWORD PTR -216[rbp]
	mov	rsi, QWORD PTR -184[rbp]
	sub	rsi, QWORD PTR fs:40
	je	.L8
	call	__stack_chk_fail@PLT
.L8:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE6:
	.size	omake, .-omake
	.globl	findsym
	.type	findsym, @function
findsym:
.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, 32
	mov	QWORD PTR -24[rbp], rdi
	mov	rax, QWORD PTR all_symbols[rip]
	mov	QWORD PTR -8[rbp], rax
	jmp	.L10
.L13:
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	strcmp@PLT
	test	eax, eax
	jne	.L11
	mov	rax, QWORD PTR -8[rbp]
	jmp	.L12
.L11:
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	QWORD PTR -8[rbp], rax
.L10:
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -8[rbp], rax
	jne	.L13
	mov	rax, QWORD PTR nil[rip]
.L12:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE7:
	.size	findsym, .-findsym
	.globl	intern
	.type	intern, @function
intern:
.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	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	findsym
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -8[rbp], rax
	je	.L15
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	jmp	.L16
.L15:
	mov	rax, QWORD PTR -24[rbp]
	mov	rdx, rax
	mov	esi, 1
	mov	edi, 1
	mov	eax, 0
	call	omake
	mov	QWORD PTR -8[rbp], rax
	mov	rdx, QWORD PTR all_symbols[rip]
	mov	rax, QWORD PTR -8[rbp]
	mov	rcx, rdx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	mov	QWORD PTR all_symbols[rip], rax
	mov	rax, QWORD PTR -8[rbp]
.L16:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE8:
	.size	intern, .-intern
	.globl	multiple_extend
	.type	multiple_extend, @function
multiple_extend:
.LFB9:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	push	r12
	push	rbx
	sub	rsp, 32
	.cfi_offset 12, -24
	.cfi_offset 3, -32
	mov	QWORD PTR -24[rbp], rdi
	mov	QWORD PTR -32[rbp], rsi
	mov	QWORD PTR -40[rbp], rdx
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -32[rbp], rax
	je	.L18
	mov	rax, QWORD PTR -40[rbp]
	mov	r12, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -32[rbp]
	mov	rbx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -40[rbp]
	mov	rdx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR -32[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rcx, rdx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	mov	rdx, rax
	mov	rax, QWORD PTR -24[rbp]
	mov	rcx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	mov	rdx, r12
	mov	rsi, rbx
	mov	rdi, rax
	call	multiple_extend
	jmp	.L20
.L18:
	mov	rax, QWORD PTR -24[rbp]
.L20:
	add	rsp, 32
	pop	rbx
	pop	r12
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE9:
	.size	multiple_extend, .-multiple_extend
	.globl	extend_top
	.type	extend_top, @function
extend_top:
.LFB10:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	push	r12
	push	rbx
	sub	rsp, 16
	.cfi_offset 12, -24
	.cfi_offset 3, -32
	mov	QWORD PTR -24[rbp], rdi
	mov	QWORD PTR -32[rbp], rsi
	mov	rax, QWORD PTR top_env[rip]
	mov	rbx, QWORD PTR 16[rax]
	mov	rdx, QWORD PTR -32[rbp]
	mov	rax, QWORD PTR -24[rbp]
	mov	rcx, rdx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	mov	r12, QWORD PTR top_env[rip]
	mov	rcx, rbx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	mov	QWORD PTR 16[r12], rax
	mov	rax, QWORD PTR -32[rbp]
	add	rsp, 16
	pop	rbx
	pop	r12
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE10:
	.size	extend_top, .-extend_top
	.globl	assoc
	.type	assoc, @function
assoc:
.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	QWORD PTR -8[rbp], rdi
	mov	QWORD PTR -16[rbp], rsi
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -16[rbp], rax
	jne	.L24
	mov	rax, QWORD PTR nil[rip]
	jmp	.L25
.L24:
	mov	rax, QWORD PTR -16[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR 8[rax]
	cmp	QWORD PTR -8[rbp], rax
	jne	.L26
	mov	rax, QWORD PTR -16[rbp]
	mov	rax, QWORD PTR 8[rax]
	jmp	.L25
.L26:
	mov	rax, QWORD PTR -16[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -8[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	assoc
.L25:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE11:
	.size	assoc, .-assoc
	.globl	ifp
	.bss
	.align 8
	.type	ifp, @object
	.size	ifp, 8
ifp:
	.zero	8
	.globl	token_la
	.align 8
	.type	token_la, @object
	.size	token_la, 8
token_la:
	.zero	8
	.globl	la_valid
	.align 4
	.type	la_valid, @object
	.size	la_valid, 4
la_valid:
	.zero	4
	.globl	buf
	.align 32
	.type	buf, @object
	.size	buf, 100
buf:
	.zero	100
	.globl	bufused
	.align 4
	.type	bufused, @object
	.size	bufused, 4
bufused:
	.zero	4
	.text
	.globl	add_to_buf
	.type	add_to_buf, @function
add_to_buf:
.LFB12:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	mov	eax, edi
	mov	BYTE PTR -4[rbp], al
	mov	eax, DWORD PTR bufused[rip]
	cmp	eax, 98
	jg	.L29
	mov	eax, DWORD PTR bufused[rip]
	lea	edx, 1[rax]
	mov	DWORD PTR bufused[rip], edx
	cdqe
	lea	rcx, buf[rip]
	movzx	edx, BYTE PTR -4[rbp]
	mov	BYTE PTR [rax+rcx], dl
.L29:
	nop
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE12:
	.size	add_to_buf, .-add_to_buf
	.globl	buf2str
	.type	buf2str, @function
buf2str:
.LFB13:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	mov	eax, DWORD PTR bufused[rip]
	lea	edx, 1[rax]
	mov	DWORD PTR bufused[rip], edx
	cdqe
	lea	rdx, buf[rip]
	mov	BYTE PTR [rax+rdx], 0
	lea	rdi, buf[rip]
	call	strdup@PLT
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE13:
	.size	buf2str, .-buf2str
	.globl	setinput
	.type	setinput, @function
setinput:
.LFB14:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	mov	QWORD PTR -8[rbp], rdi
	mov	rax, QWORD PTR -8[rbp]
	mov	QWORD PTR ifp[rip], rax
	nop
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE14:
	.size	setinput, .-setinput
	.globl	putback_token
	.type	putback_token, @function
putback_token:
.LFB15:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	mov	QWORD PTR -8[rbp], rdi
	mov	rax, QWORD PTR -8[rbp]
	mov	QWORD PTR token_la[rip], rax
	mov	DWORD PTR la_valid[rip], 1
	nop
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE15:
	.size	putback_token, .-putback_token
	.section	.rodata
.LC0:
	.string	"()'"
	.text
	.globl	gettoken
	.type	gettoken, @function
gettoken:
.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, 16
	mov	DWORD PTR bufused[rip], 0
	mov	eax, DWORD PTR la_valid[rip]
	test	eax, eax
	je	.L35
	mov	DWORD PTR la_valid[rip], 0
	mov	rax, QWORD PTR token_la[rip]
	jmp	.L36
.L35:
	mov	rax, QWORD PTR ifp[rip]
	mov	rdi, rax
	call	getc@PLT
	mov	DWORD PTR -4[rbp], eax
	cmp	DWORD PTR -4[rbp], -1
	jne	.L37
	mov	edi, 0
	call	exit@PLT
.L37:
	call	__ctype_b_loc@PLT
	mov	rdx, QWORD PTR [rax]
	mov	eax, DWORD PTR -4[rbp]
	cdqe
	add	rax, rax
	add	rax, rdx
	movzx	eax, WORD PTR [rax]
	movzx	eax, ax
	and	eax, 8192
	test	eax, eax
	jne	.L35
	mov	eax, DWORD PTR -4[rbp]
	movsx	eax, al
	mov	edi, eax
	call	add_to_buf
	mov	eax, DWORD PTR -4[rbp]
	mov	esi, eax
	lea	rdi, .LC0[rip]
	call	strchr@PLT
	test	rax, rax
	je	.L38
	mov	eax, 0
	call	buf2str
	jmp	.L36
.L38:
	mov	rax, QWORD PTR ifp[rip]
	mov	rdi, rax
	call	getc@PLT
	mov	DWORD PTR -4[rbp], eax
	cmp	DWORD PTR -4[rbp], -1
	jne	.L39
	mov	edi, 0
	call	exit@PLT
.L39:
	mov	eax, DWORD PTR -4[rbp]
	mov	esi, eax
	lea	rdi, .LC0[rip]
	call	strchr@PLT
	test	rax, rax
	jne	.L40
	call	__ctype_b_loc@PLT
	mov	rdx, QWORD PTR [rax]
	mov	eax, DWORD PTR -4[rbp]
	cdqe
	add	rax, rax
	add	rax, rdx
	movzx	eax, WORD PTR [rax]
	movzx	eax, ax
	and	eax, 8192
	test	eax, eax
	je	.L41
.L40:
	mov	rdx, QWORD PTR ifp[rip]
	mov	eax, DWORD PTR -4[rbp]
	mov	rsi, rdx
	mov	edi, eax
	call	ungetc@PLT
	mov	eax, 0
	call	buf2str
	jmp	.L36
.L41:
	mov	eax, DWORD PTR -4[rbp]
	movsx	eax, al
	mov	edi, eax
	call	add_to_buf
	jmp	.L38
.L36:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE16:
	.size	gettoken, .-gettoken
	.section	.rodata
.LC1:
	.string	"("
.LC2:
	.string	"'"
.LC3:
	.string	"0123456789"
	.text
	.globl	readobj
	.type	readobj, @function
readobj:
.LFB17:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	push	rbx
	sub	rsp, 24
	.cfi_offset 3, -24
	mov	eax, 0
	call	gettoken
	mov	QWORD PTR -24[rbp], rax
	mov	rax, QWORD PTR -24[rbp]
	lea	rsi, .LC1[rip]
	mov	rdi, rax
	call	strcmp@PLT
	test	eax, eax
	jne	.L43
	mov	eax, 0
	call	readlist
	jmp	.L44
.L43:
	mov	rax, QWORD PTR -24[rbp]
	lea	rsi, .LC2[rip]
	mov	rdi, rax
	call	strcmp@PLT
	test	eax, eax
	jne	.L45
	mov	rbx, QWORD PTR nil[rip]
	mov	eax, 0
	call	readobj
	mov	rcx, rbx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	mov	rdx, rax
	mov	rax, QWORD PTR quote[rip]
	mov	rcx, rdx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	jmp	.L44
.L45:
	mov	rax, QWORD PTR -24[rbp]
	lea	rsi, .LC3[rip]
	mov	rdi, rax
	call	strspn@PLT
	mov	rdx, QWORD PTR -24[rbp]
	add	rax, rdx
	movzx	eax, BYTE PTR [rax]
	test	al, al
	jne	.L46
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	atoi@PLT
	cdqe
	mov	rdx, rax
	mov	esi, 1
	mov	edi, 0
	mov	eax, 0
	call	omake
	jmp	.L44
.L46:
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	intern
.L44:
	mov	rbx, QWORD PTR -8[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE17:
	.size	readobj, .-readobj
	.section	.rodata
.LC4:
	.string	")"
.LC5:
	.string	"."
	.text
	.globl	readlist
	.type	readlist, @function
readlist:
.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, 16
	mov	eax, 0
	call	gettoken
	mov	QWORD PTR -16[rbp], rax
	mov	rax, QWORD PTR -16[rbp]
	lea	rsi, .LC4[rip]
	mov	rdi, rax
	call	strcmp@PLT
	test	eax, eax
	jne	.L48
	mov	rax, QWORD PTR nil[rip]
	jmp	.L49
.L48:
	mov	rax, QWORD PTR -16[rbp]
	lea	rsi, .LC5[rip]
	mov	rdi, rax
	call	strcmp@PLT
	test	eax, eax
	jne	.L50
	mov	eax, 0
	call	readobj
	mov	QWORD PTR -8[rbp], rax
	mov	eax, 0
	call	gettoken
	lea	rsi, .LC4[rip]
	mov	rdi, rax
	call	strcmp@PLT
	test	eax, eax
	je	.L51
	mov	edi, 1
	call	exit@PLT
.L51:
	mov	rax, QWORD PTR -8[rbp]
	jmp	.L49
.L50:
	mov	rax, QWORD PTR -16[rbp]
	mov	rdi, rax
	call	putback_token
	mov	eax, 0
	call	readobj
	mov	QWORD PTR -8[rbp], rax
	mov	eax, 0
	call	readlist
	mov	rdx, rax
	mov	rax, QWORD PTR -8[rbp]
	mov	rcx, rdx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
.L49:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE18:
	.size	readlist, .-readlist
	.section	.rodata
.LC6:
	.string	"%d"
.LC7:
	.string	" . "
.LC8:
	.string	"()"
.LC9:
	.string	"#<PRIMOP>"
.LC10:
	.string	"#<PROC>"
	.text
	.globl	writeobj
	.type	writeobj, @function
writeobj:
.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, 16
	mov	QWORD PTR -8[rbp], rdi
	mov	QWORD PTR -16[rbp], rsi
	mov	rax, QWORD PTR -16[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 4
	ja	.L53
	mov	eax, eax
	lea	rdx, 0[0+rax*4]
	lea	rax, .L55[rip]
	mov	eax, DWORD PTR [rdx+rax]
	cdqe
	lea	rdx, .L55[rip]
	add	rax, rdx
	notrack jmp	rax
	.section	.rodata
	.align 4
	.align 4
.L55:
	.long	.L59-.L55
	.long	.L58-.L55
	.long	.L57-.L55
	.long	.L56-.L55
	.long	.L54-.L55
	.text
.L59:
	mov	rax, QWORD PTR -16[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	edx, eax
	mov	rax, QWORD PTR -8[rbp]
	lea	rsi, .LC6[rip]
	mov	rdi, rax
	mov	eax, 0
	call	fprintf@PLT
	jmp	.L60
.L57:
	mov	rax, QWORD PTR -8[rbp]
	mov	rsi, rax
	mov	edi, 40
	call	fputc@PLT
.L64:
	mov	rax, QWORD PTR -16[rbp]
	mov	rdx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR -8[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	writeobj
	mov	rax, QWORD PTR -16[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR nil[rip]
	cmp	rdx, rax
	jne	.L61
	mov	rax, QWORD PTR -8[rbp]
	mov	rsi, rax
	mov	edi, 41
	call	fputc@PLT
	jmp	.L62
.L61:
	mov	rax, QWORD PTR -16[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	QWORD PTR -16[rbp], rax
	mov	rax, QWORD PTR -16[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 2
	je	.L63
	mov	rax, QWORD PTR -8[rbp]
	mov	rcx, rax
	mov	edx, 3
	mov	esi, 1
	lea	rdi, .LC7[rip]
	call	fwrite@PLT
	mov	rdx, QWORD PTR -16[rbp]
	mov	rax, QWORD PTR -8[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	writeobj
	mov	rax, QWORD PTR -8[rbp]
	mov	rsi, rax
	mov	edi, 41
	call	fputc@PLT
	jmp	.L62
.L63:
	mov	rax, QWORD PTR -8[rbp]
	mov	rsi, rax
	mov	edi, 32
	call	fputc@PLT
	jmp	.L64
.L62:
	jmp	.L60
.L58:
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -16[rbp], rax
	jne	.L65
	mov	rax, QWORD PTR -8[rbp]
	mov	rcx, rax
	mov	edx, 2
	mov	esi, 1
	lea	rdi, .LC8[rip]
	call	fwrite@PLT
	jmp	.L60
.L65:
	mov	rax, QWORD PTR -16[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -8[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	fputs@PLT
	jmp	.L60
.L54:
	mov	rax, QWORD PTR -8[rbp]
	mov	rcx, rax
	mov	edx, 9
	mov	esi, 1
	lea	rdi, .LC9[rip]
	call	fwrite@PLT
	jmp	.L60
.L56:
	mov	rax, QWORD PTR -8[rbp]
	mov	rcx, rax
	mov	edx, 7
	mov	esi, 1
	lea	rdi, .LC10[rip]
	call	fwrite@PLT
	jmp	.L60
.L53:
	mov	edi, 1
	call	exit@PLT
.L60:
	nop
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE19:
	.size	writeobj, .-writeobj
	.section	.rodata
.LC11:
	.string	"Unbound symbol"
.LC12:
	.string	"%s\n"
.LC13:
	.string	"Bad PROC type"
	.text
	.globl	eval
	.type	eval, @function
eval:
.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, 64
	mov	QWORD PTR -56[rbp], rdi
	mov	QWORD PTR -64[rbp], rsi
.L68:
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -56[rbp], rax
	jne	.L69
	mov	rax, QWORD PTR nil[rip]
	jmp	.L70
.L69:
	mov	rax, QWORD PTR -56[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 4
	ja	.L71
	mov	eax, eax
	lea	rdx, 0[0+rax*4]
	lea	rax, .L73[rip]
	mov	eax, DWORD PTR [rdx+rax]
	cdqe
	lea	rdx, .L73[rip]
	add	rax, rdx
	notrack jmp	rax
	.section	.rodata
	.align 4
	.align 4
.L73:
	.long	.L77-.L73
	.long	.L76-.L73
	.long	.L75-.L73
	.long	.L74-.L73
	.long	.L72-.L73
	.text
.L77:
	mov	rax, QWORD PTR -56[rbp]
	jmp	.L70
.L76:
	mov	rdx, QWORD PTR -64[rbp]
	mov	rax, QWORD PTR -56[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	assoc
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -8[rbp], rax
	jne	.L78
	mov	rax, QWORD PTR stderr[rip]
	lea	rdx, .LC11[rip]
	lea	rsi, .LC12[rip]
	mov	rdi, rax
	mov	eax, 0
	call	fprintf@PLT
	mov	edi, 1
	call	exit@PLT
.L78:
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 16[rax]
	jmp	.L70
.L75:
	mov	rax, QWORD PTR -56[rbp]
	mov	rdx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR s_if[rip]
	cmp	rdx, rax
	jne	.L79
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -64[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	eval
	mov	rdx, QWORD PTR nil[rip]
	cmp	rax, rdx
	je	.L80
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -56[rbp], rax
	jmp	.L68
.L80:
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -56[rbp], rax
	jmp	.L68
.L79:
	mov	rax, QWORD PTR -56[rbp]
	mov	rdx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR s_lambda[rip]
	cmp	rdx, rax
	jne	.L82
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	rcx, QWORD PTR -64[rbp]
	mov	r8, rcx
	mov	rcx, rdx
	mov	rdx, rax
	mov	esi, 3
	mov	edi, 3
	mov	eax, 0
	call	omake
	jmp	.L70
.L82:
	mov	rax, QWORD PTR -56[rbp]
	mov	rdx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR quote[rip]
	cmp	rdx, rax
	jne	.L83
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 8[rax]
	jmp	.L70
.L83:
	mov	rax, QWORD PTR -56[rbp]
	mov	rdx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR s_define[rip]
	cmp	rdx, rax
	jne	.L84
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -64[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	eval
	mov	rdx, rax
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	rsi, rdx
	mov	rdi, rax
	call	extend_top
	jmp	.L70
.L84:
	mov	rax, QWORD PTR -56[rbp]
	mov	rdx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR s_setb[rip]
	cmp	rdx, rax
	jne	.L85
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -64[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	assoc
	mov	QWORD PTR -24[rbp], rax
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -64[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	eval
	mov	QWORD PTR -16[rbp], rax
	mov	rax, QWORD PTR -24[rbp]
	mov	rdx, QWORD PTR -16[rbp]
	mov	QWORD PTR 16[rax], rdx
	mov	rax, QWORD PTR -16[rbp]
	jmp	.L70
.L85:
	mov	rax, QWORD PTR -56[rbp]
	mov	rdx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR s_begin[rip]
	cmp	rdx, rax
	jne	.L86
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	QWORD PTR -56[rbp], rax
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -56[rbp], rax
	jne	.L87
	mov	rax, QWORD PTR nil[rip]
	jmp	.L70
.L87:
	mov	rax, QWORD PTR -56[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR nil[rip]
	cmp	rdx, rax
	jne	.L88
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -56[rbp], rax
	jmp	.L68
.L88:
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -64[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	eval
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	QWORD PTR -56[rbp], rax
	jmp	.L87
.L86:
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -64[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	eval
	mov	QWORD PTR -40[rbp], rax
	mov	rax, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rdx, QWORD PTR -64[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	evlis
	mov	QWORD PTR -32[rbp], rax
	mov	rax, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 4
	jne	.L89
	mov	rax, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, rax
	mov	rax, QWORD PTR -32[rbp]
	mov	rdi, rax
	call	rdx
	jmp	.L70
.L89:
	mov	rax, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 3
	jne	.L90
	mov	rax, QWORD PTR -40[rbp]
	mov	rcx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR 24[rax]
	mov	rdx, QWORD PTR -32[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	multiple_extend
	mov	QWORD PTR -64[rbp], rax
	mov	rax, QWORD PTR -40[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR s_begin[rip]
	mov	rcx, rdx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	mov	QWORD PTR -56[rbp], rax
	jmp	.L68
.L90:
	mov	rax, QWORD PTR stderr[rip]
	lea	rdx, .LC13[rip]
	lea	rsi, .LC12[rip]
	mov	rdi, rax
	mov	eax, 0
	call	fprintf@PLT
	mov	edi, 1
	call	exit@PLT
.L72:
	mov	rax, QWORD PTR -56[rbp]
	jmp	.L70
.L74:
	mov	rax, QWORD PTR -56[rbp]
	jmp	.L70
.L71:
	mov	rax, QWORD PTR -56[rbp]
.L70:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE20:
	.size	eval, .-eval
	.globl	evlis
	.type	evlis, @function
evlis:
.LFB21:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	push	rbx
	sub	rsp, 24
	.cfi_offset 3, -24
	mov	QWORD PTR -24[rbp], rdi
	mov	QWORD PTR -32[rbp], rsi
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -24[rbp], rax
	jne	.L92
	mov	rax, QWORD PTR nil[rip]
	jmp	.L93
.L92:
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rdx, QWORD PTR -32[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	evlis
	mov	rbx, rax
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -32[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	eval
	mov	rcx, rbx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
.L93:
	mov	rbx, QWORD PTR -8[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE21:
	.size	evlis, .-evlis
	.globl	prim_sum
	.type	prim_sum, @function
prim_sum:
.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	DWORD PTR -4[rbp], 0
	jmp	.L95
.L96:
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR 8[rax]
	add	DWORD PTR -4[rbp], eax
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	QWORD PTR -24[rbp], rax
.L95:
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -24[rbp], rax
	jne	.L96
	mov	eax, DWORD PTR -4[rbp]
	cdqe
	mov	rdx, rax
	mov	esi, 1
	mov	edi, 0
	mov	eax, 0
	call	omake
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE22:
	.size	prim_sum, .-prim_sum
	.globl	prim_sub
	.type	prim_sub, @function
prim_sub:
.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	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	DWORD PTR -4[rbp], eax
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	QWORD PTR -24[rbp], rax
	jmp	.L99
.L100:
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR 8[rax]
	sub	DWORD PTR -4[rbp], eax
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	QWORD PTR -24[rbp], rax
.L99:
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -24[rbp], rax
	jne	.L100
	mov	eax, DWORD PTR -4[rbp]
	cdqe
	mov	rdx, rax
	mov	esi, 1
	mov	edi, 0
	mov	eax, 0
	call	omake
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE23:
	.size	prim_sub, .-prim_sub
	.globl	prim_prod
	.type	prim_prod, @function
prim_prod:
.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, 32
	mov	QWORD PTR -24[rbp], rdi
	mov	DWORD PTR -4[rbp], 1
	mov	DWORD PTR -4[rbp], 1
	jmp	.L103
.L104:
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	edx, eax
	mov	eax, DWORD PTR -4[rbp]
	imul	eax, edx
	mov	DWORD PTR -4[rbp], eax
	mov	rax, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	QWORD PTR -24[rbp], rax
.L103:
	mov	rax, QWORD PTR nil[rip]
	cmp	QWORD PTR -24[rbp], rax
	jne	.L104
	mov	eax, DWORD PTR -4[rbp]
	cdqe
	mov	rdx, rax
	mov	esi, 1
	mov	edi, 0
	mov	eax, 0
	call	omake
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE24:
	.size	prim_prod, .-prim_prod
	.globl	prim_numeq
	.type	prim_numeq, @function
prim_numeq:
.LFB25:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	mov	QWORD PTR -8[rbp], rdi
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	edx, eax
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 16[rax]
	mov	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR 8[rax]
	cmp	edx, eax
	jne	.L107
	mov	rax, QWORD PTR tee[rip]
	jmp	.L109
.L107:
	mov	rax, QWORD PTR nil[rip]
.L109:
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE25:
	.size	prim_numeq, .-prim_numeq
	.globl	prim_cons
	.type	prim_cons, @function
prim_cons:
.LFB26:
	.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	rax, QWORD PTR 16[rax]
	mov	rdx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rcx, rdx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE26:
	.size	prim_cons, .-prim_cons
	.globl	prim_car
	.type	prim_car, @function
prim_car:
.LFB27:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	mov	QWORD PTR -8[rbp], rdi
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR 8[rax]
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE27:
	.size	prim_car, .-prim_car
	.globl	prim_cdr
	.type	prim_cdr, @function
prim_cdr:
.LFB28:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	mov	QWORD PTR -8[rbp], rdi
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rax, QWORD PTR 16[rax]
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE28:
	.size	prim_cdr, .-prim_cdr
	.section	.rodata
.LC14:
	.string	"nil"
.LC15:
	.string	"t"
.LC16:
	.string	"quote"
.LC17:
	.string	"if"
.LC18:
	.string	"lambda"
.LC19:
	.string	"define"
.LC20:
	.string	"set!"
.LC21:
	.string	"begin"
.LC22:
	.string	"+"
.LC23:
	.string	"-"
.LC24:
	.string	"*"
.LC25:
	.string	"="
.LC26:
	.string	"cons"
.LC27:
	.string	"car"
.LC28:
	.string	"cdr"
	.text
	.globl	init_sl3
	.type	init_sl3, @function
init_sl3:
.LFB29:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	push	rbx
	sub	rsp, 8
	.cfi_offset 3, -24
	lea	rdx, .LC14[rip]
	mov	esi, 1
	mov	edi, 1
	mov	eax, 0
	call	omake
	mov	QWORD PTR nil[rip], rax
	mov	rdx, QWORD PTR nil[rip]
	mov	rax, QWORD PTR nil[rip]
	mov	rcx, rdx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	mov	QWORD PTR all_symbols[rip], rax
	mov	rbx, QWORD PTR nil[rip]
	mov	rdx, QWORD PTR nil[rip]
	mov	rax, QWORD PTR nil[rip]
	mov	rcx, rdx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	mov	rcx, rbx
	mov	rdx, rax
	mov	esi, 2
	mov	edi, 2
	mov	eax, 0
	call	omake
	mov	QWORD PTR top_env[rip], rax
	lea	rdi, .LC15[rip]
	call	intern
	mov	QWORD PTR tee[rip], rax
	mov	rdx, QWORD PTR tee[rip]
	mov	rax, QWORD PTR tee[rip]
	mov	rsi, rdx
	mov	rdi, rax
	call	extend_top
	lea	rdi, .LC16[rip]
	call	intern
	mov	QWORD PTR quote[rip], rax
	lea	rdi, .LC17[rip]
	call	intern
	mov	QWORD PTR s_if[rip], rax
	lea	rdi, .LC18[rip]
	call	intern
	mov	QWORD PTR s_lambda[rip], rax
	lea	rdi, .LC19[rip]
	call	intern
	mov	QWORD PTR s_define[rip], rax
	lea	rdi, .LC20[rip]
	call	intern
	mov	QWORD PTR s_setb[rip], rax
	lea	rdi, .LC21[rip]
	call	intern
	mov	QWORD PTR s_begin[rip], rax
	lea	rdx, prim_sum[rip]
	mov	esi, 1
	mov	edi, 4
	mov	eax, 0
	call	omake
	mov	rbx, rax
	lea	rdi, .LC22[rip]
	call	intern
	mov	rsi, rbx
	mov	rdi, rax
	call	extend_top
	lea	rdx, prim_sub[rip]
	mov	esi, 1
	mov	edi, 4
	mov	eax, 0
	call	omake
	mov	rbx, rax
	lea	rdi, .LC23[rip]
	call	intern
	mov	rsi, rbx
	mov	rdi, rax
	call	extend_top
	lea	rdx, prim_prod[rip]
	mov	esi, 1
	mov	edi, 4
	mov	eax, 0
	call	omake
	mov	rbx, rax
	lea	rdi, .LC24[rip]
	call	intern
	mov	rsi, rbx
	mov	rdi, rax
	call	extend_top
	lea	rdx, prim_numeq[rip]
	mov	esi, 1
	mov	edi, 4
	mov	eax, 0
	call	omake
	mov	rbx, rax
	lea	rdi, .LC25[rip]
	call	intern
	mov	rsi, rbx
	mov	rdi, rax
	call	extend_top
	lea	rdx, prim_cons[rip]
	mov	esi, 1
	mov	edi, 4
	mov	eax, 0
	call	omake
	mov	rbx, rax
	lea	rdi, .LC26[rip]
	call	intern
	mov	rsi, rbx
	mov	rdi, rax
	call	extend_top
	lea	rdx, prim_car[rip]
	mov	esi, 1
	mov	edi, 4
	mov	eax, 0
	call	omake
	mov	rbx, rax
	lea	rdi, .LC27[rip]
	call	intern
	mov	rsi, rbx
	mov	rdi, rax
	call	extend_top
	lea	rdx, prim_cdr[rip]
	mov	esi, 1
	mov	edi, 4
	mov	eax, 0
	call	omake
	mov	rbx, rax
	lea	rdi, .LC28[rip]
	call	intern
	mov	rsi, rbx
	mov	rdi, rax
	call	extend_top
	nop
	mov	rbx, QWORD PTR -8[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE29:
	.size	init_sl3, .-init_sl3
	.globl	main
	.type	main, @function
main:
.LFB30:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	push	rbx
	sub	rsp, 8
	.cfi_offset 3, -24
	mov	eax, 0
	call	init_sl3
	mov	rax, QWORD PTR stdin[rip]
	mov	rdi, rax
	call	setinput
.L118:
	mov	rbx, QWORD PTR top_env[rip]
	mov	eax, 0
	call	readobj
	mov	rsi, rbx
	mov	rdi, rax
	call	eval
	mov	rdx, rax
	mov	rax, QWORD PTR stdout[rip]
	mov	rsi, rdx
	mov	rdi, rax
	call	writeobj
	mov	edi, 10
	call	putchar@PLT
	jmp	.L118
	.cfi_endproc
.LFE30:
	.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	"49834.c"
	.text
	.comm	all_symbols,4,4
	.comm	top_env,4,4
	.comm	nil,4,4
	.comm	tee,4,4
	.comm	quote,4,4
	.comm	s_if,4,4
	.comm	s_lambda,4,4
	.comm	s_define,4,4
	.comm	s_setb,4,4
	.comm	s_begin,4,4
	.section	.rodata
	.align	2
.LC0:
	.word	__stack_chk_guard
	.text
	.align	2
	.global	omake
	.syntax unified
	.arm
	.fpu softvfp
	.type	omake, %function
omake:
	@ args = 4, pretend = 12, frame = 24
	@ frame_needed = 1, uses_anonymous_args = 1
	push	{r1, r2, r3}
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #28
	str	r0, [fp, #-28]
	ldr	r3, .L6
	ldr	r3, [r3]
	str	r3, [fp, #-12]
	mov	r3,#0
	add	r3, fp, #8
	str	r3, [fp, #-24]
	ldr	r3, [fp, #4]
	add	r3, r3, #1
	lsl	r3, r3, #2
	mov	r0, r3
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-16]
	ldr	r3, [fp, #-16]
	ldr	r2, [fp, #-28]
	str	r2, [r3]
	mov	r3, #0
	str	r3, [fp, #-20]
	b	.L2
.L3:
	ldr	r3, [fp, #-24]
	add	r2, r3, #4
	str	r2, [fp, #-24]
	ldr	r2, [r3]
	ldr	r1, [fp, #-16]
	ldr	r3, [fp, #-20]
	lsl	r3, r3, #2
	add	r3, r1, r3
	str	r2, [r3, #4]
	ldr	r3, [fp, #-20]
	add	r3, r3, #1
	str	r3, [fp, #-20]
.L2:
	ldr	r2, [fp, #-20]
	ldr	r3, [fp, #4]
	cmp	r2, r3
	blt	.L3
	ldr	r3, [fp, #-16]
	ldr	r2, .L6
	ldr	r1, [r2]
	ldr	r2, [fp, #-12]
	eors	r1, r2, r1
	mov	r2, #0
	beq	.L5
	bl	__stack_chk_fail
.L5:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, lr}
	add	sp, sp, #12
	bx	lr
.L7:
	.align	2
.L6:
	.word	.LC0
	.size	omake, .-omake
	.align	2
	.global	findsym
	.syntax unified
	.arm
	.fpu softvfp
	.type	findsym, %function
findsym:
	@ 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	r3, .L13
	ldr	r3, [r3]
	str	r3, [fp, #-8]
	b	.L9
.L12:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	ldr	r3, [r3, #4]
	mov	r1, r3
	ldr	r0, [fp, #-16]
	bl	strcmp
	mov	r3, r0
	cmp	r3, #0
	bne	.L10
	ldr	r3, [fp, #-8]
	b	.L11
.L10:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #8]
	str	r3, [fp, #-8]
.L9:
	ldr	r3, .L13+4
	ldr	r3, [r3]
	ldr	r2, [fp, #-8]
	cmp	r2, r3
	bne	.L12
	ldr	r3, .L13+4
	ldr	r3, [r3]
.L11:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L14:
	.align	2
.L13:
	.word	all_symbols
	.word	nil
	.size	findsym, .-findsym
	.align	2
	.global	intern
	.syntax unified
	.arm
	.fpu softvfp
	.type	intern, %function
intern:
	@ 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	findsym
	str	r0, [fp, #-8]
	ldr	r3, .L18
	ldr	r3, [r3]
	ldr	r2, [fp, #-8]
	cmp	r2, r3
	beq	.L16
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	b	.L17
.L16:
	ldr	r2, [fp, #-16]
	mov	r1, #1
	mov	r0, #1
	bl	omake
	str	r0, [fp, #-8]
	ldr	r3, .L18+4
	ldr	r3, [r3]
	ldr	r2, [fp, #-8]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r3, r0
	ldr	r2, .L18+4
	str	r3, [r2]
	ldr	r3, [fp, #-8]
.L17:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L19:
	.align	2
.L18:
	.word	nil
	.word	all_symbols
	.size	intern, .-intern
	.align	2
	.global	multiple_extend
	.syntax unified
	.arm
	.fpu softvfp
	.type	multiple_extend, %function
multiple_extend:
	@ 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, #-8]
	str	r1, [fp, #-12]
	str	r2, [fp, #-16]
	ldr	r3, .L24
	ldr	r3, [r3]
	ldr	r2, [fp, #-12]
	cmp	r2, r3
	beq	.L21
	ldr	r3, [fp, #-12]
	ldr	r2, [r3, #4]
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r2, r0
	ldr	r3, [fp, #-8]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	ldr	r3, [fp, #-12]
	ldr	r1, [r3, #8]
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #8]
	mov	r2, r3
	bl	multiple_extend
	mov	r3, r0
	b	.L23
.L21:
	ldr	r3, [fp, #-8]
.L23:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L25:
	.align	2
.L24:
	.word	nil
	.size	multiple_extend, .-multiple_extend
	.align	2
	.global	extend_top
	.syntax unified
	.arm
	.fpu softvfp
	.type	extend_top, %function
extend_top:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{r4, fp, lr}
	add	fp, sp, #8
	sub	sp, sp, #12
	str	r0, [fp, #-16]
	str	r1, [fp, #-20]
	ldr	r3, [fp, #-20]
	ldr	r2, [fp, #-16]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r2, r0
	ldr	r3, .L28
	ldr	r3, [r3]
	ldr	r3, [r3, #8]
	ldr	r1, .L28
	ldr	r4, [r1]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r3, r0
	str	r3, [r4, #8]
	ldr	r3, [fp, #-20]
	mov	r0, r3
	sub	sp, fp, #8
	@ sp needed
	pop	{r4, fp, pc}
.L29:
	.align	2
.L28:
	.word	top_env
	.size	extend_top, .-extend_top
	.align	2
	.global	assoc
	.syntax unified
	.arm
	.fpu softvfp
	.type	assoc, %function
assoc:
	@ 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]
	str	r1, [fp, #-12]
	ldr	r3, .L34
	ldr	r3, [r3]
	ldr	r2, [fp, #-12]
	cmp	r2, r3
	bne	.L31
	ldr	r3, .L34
	ldr	r3, [r3]
	b	.L32
.L31:
	ldr	r3, [fp, #-12]
	ldr	r3, [r3, #4]
	ldr	r3, [r3, #4]
	ldr	r2, [fp, #-8]
	cmp	r2, r3
	bne	.L33
	ldr	r3, [fp, #-12]
	ldr	r3, [r3, #4]
	b	.L32
.L33:
	ldr	r3, [fp, #-12]
	ldr	r3, [r3, #8]
	mov	r1, r3
	ldr	r0, [fp, #-8]
	bl	assoc
	mov	r3, r0
.L32:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L35:
	.align	2
.L34:
	.word	nil
	.size	assoc, .-assoc
	.comm	ifp,4,4
	.comm	token_la,4,4
	.global	la_valid
	.bss
	.align	2
	.type	la_valid, %object
	.size	la_valid, 4
la_valid:
	.space	4
	.comm	buf,100,4
	.comm	bufused,4,4
	.text
	.align	2
	.global	add_to_buf
	.syntax unified
	.arm
	.fpu softvfp
	.type	add_to_buf, %function
add_to_buf:
	@ 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
	mov	r3, r0
	strb	r3, [fp, #-5]
	ldr	r3, .L39
	ldr	r3, [r3]
	cmp	r3, #98
	bgt	.L38
	ldr	r3, .L39
	ldr	r3, [r3]
	add	r2, r3, #1
	ldr	r1, .L39
	str	r2, [r1]
	ldr	r1, .L39+4
	ldrb	r2, [fp, #-5]
	strb	r2, [r1, r3]
.L38:
	nop
	add	sp, fp, #0
	@ sp needed
	ldr	fp, [sp], #4
	bx	lr
.L40:
	.align	2
.L39:
	.word	bufused
	.word	buf
	.size	add_to_buf, .-add_to_buf
	.align	2
	.global	buf2str
	.syntax unified
	.arm
	.fpu softvfp
	.type	buf2str, %function
buf2str:
	@ args = 0, pretend = 0, frame = 0
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	ldr	r3, .L43
	ldr	r3, [r3]
	add	r2, r3, #1
	ldr	r1, .L43
	str	r2, [r1]
	ldr	r2, .L43+4
	mov	r1, #0
	strb	r1, [r2, r3]
	ldr	r0, .L43+4
	bl	strdup
	mov	r3, r0
	mov	r0, r3
	pop	{fp, pc}
.L44:
	.align	2
.L43:
	.word	bufused
	.word	buf
	.size	buf2str, .-buf2str
	.align	2
	.global	setinput
	.syntax unified
	.arm
	.fpu softvfp
	.type	setinput, %function
setinput:
	@ 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	r2, .L46
	ldr	r3, [fp, #-8]
	str	r3, [r2]
	nop
	add	sp, fp, #0
	@ sp needed
	ldr	fp, [sp], #4
	bx	lr
.L47:
	.align	2
.L46:
	.word	ifp
	.size	setinput, .-setinput
	.align	2
	.global	putback_token
	.syntax unified
	.arm
	.fpu softvfp
	.type	putback_token, %function
putback_token:
	@ 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	r2, .L49
	ldr	r3, [fp, #-8]
	str	r3, [r2]
	ldr	r3, .L49+4
	mov	r2, #1
	str	r2, [r3]
	nop
	add	sp, fp, #0
	@ sp needed
	ldr	fp, [sp], #4
	bx	lr
.L50:
	.align	2
.L49:
	.word	token_la
	.word	la_valid
	.size	putback_token, .-putback_token
	.section	.rodata
	.align	2
.LC1:
	.ascii	"()'\000"
	.text
	.align	2
	.global	gettoken
	.syntax unified
	.arm
	.fpu softvfp
	.type	gettoken, %function
gettoken:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #8
	ldr	r3, .L59
	mov	r2, #0
	str	r2, [r3]
	ldr	r3, .L59+4
	ldr	r3, [r3]
	cmp	r3, #0
	beq	.L52
	ldr	r3, .L59+4
	mov	r2, #0
	str	r2, [r3]
	ldr	r3, .L59+8
	ldr	r3, [r3]
	b	.L53
.L52:
	ldr	r3, .L59+12
	ldr	r3, [r3]
	mov	r0, r3
	bl	getc
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	cmn	r3, #1
	bne	.L54
	mov	r0, #0
	bl	exit
.L54:
	bl	__ctype_b_loc
	mov	r3, r0
	ldr	r2, [r3]
	ldr	r3, [fp, #-8]
	lsl	r3, r3, #1
	add	r3, r2, r3
	ldrh	r3, [r3]
	and	r3, r3, #8192
	cmp	r3, #0
	bne	.L52
	ldr	r3, [fp, #-8]
	and	r3, r3, #255
	mov	r0, r3
	bl	add_to_buf
	ldr	r1, [fp, #-8]
	ldr	r0, .L59+16
	bl	strchr
	mov	r3, r0
	cmp	r3, #0
	beq	.L55
	bl	buf2str
	mov	r3, r0
	b	.L53
.L55:
	ldr	r3, .L59+12
	ldr	r3, [r3]
	mov	r0, r3
	bl	getc
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	cmn	r3, #1
	bne	.L56
	mov	r0, #0
	bl	exit
.L56:
	ldr	r1, [fp, #-8]
	ldr	r0, .L59+16
	bl	strchr
	mov	r3, r0
	cmp	r3, #0
	bne	.L57
	bl	__ctype_b_loc
	mov	r3, r0
	ldr	r2, [r3]
	ldr	r3, [fp, #-8]
	lsl	r3, r3, #1
	add	r3, r2, r3
	ldrh	r3, [r3]
	and	r3, r3, #8192
	cmp	r3, #0
	beq	.L58
.L57:
	ldr	r3, .L59+12
	ldr	r3, [r3]
	mov	r1, r3
	ldr	r0, [fp, #-8]
	bl	ungetc
	bl	buf2str
	mov	r3, r0
	b	.L53
.L58:
	ldr	r3, [fp, #-8]
	and	r3, r3, #255
	mov	r0, r3
	bl	add_to_buf
	b	.L55
.L53:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L60:
	.align	2
.L59:
	.word	bufused
	.word	la_valid
	.word	token_la
	.word	ifp
	.word	.LC1
	.size	gettoken, .-gettoken
	.section	.rodata
	.align	2
.LC2:
	.ascii	"(\000"
	.align	2
.LC3:
	.ascii	"'\000"
	.align	2
.LC4:
	.ascii	"0123456789\000"
	.text
	.align	2
	.global	readobj
	.syntax unified
	.arm
	.fpu softvfp
	.type	readobj, %function
readobj:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{r4, fp, lr}
	add	fp, sp, #8
	sub	sp, sp, #12
	bl	gettoken
	str	r0, [fp, #-16]
	ldr	r1, .L66
	ldr	r0, [fp, #-16]
	bl	strcmp
	mov	r3, r0
	cmp	r3, #0
	bne	.L62
	bl	readlist
	mov	r3, r0
	b	.L63
.L62:
	ldr	r1, .L66+4
	ldr	r0, [fp, #-16]
	bl	strcmp
	mov	r3, r0
	cmp	r3, #0
	bne	.L64
	ldr	r3, .L66+8
	ldr	r4, [r3]
	bl	readobj
	mov	r2, r0
	ldr	r3, .L66+12
	ldr	r3, [r3]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r3, r0
	mov	r2, r4
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r3, r0
	b	.L63
.L64:
	ldr	r1, .L66+16
	ldr	r0, [fp, #-16]
	bl	strspn
	mov	r2, r0
	ldr	r3, [fp, #-16]
	add	r3, r3, r2
	ldrb	r3, [r3]	@ zero_extendqisi2
	cmp	r3, #0
	bne	.L65
	ldr	r0, [fp, #-16]
	bl	atoi
	mov	r3, r0
	mov	r2, r3
	mov	r1, #1
	mov	r0, #0
	bl	omake
	mov	r3, r0
	b	.L63
.L65:
	ldr	r0, [fp, #-16]
	bl	intern
	mov	r3, r0
.L63:
	mov	r0, r3
	sub	sp, fp, #8
	@ sp needed
	pop	{r4, fp, pc}
.L67:
	.align	2
.L66:
	.word	.LC2
	.word	.LC3
	.word	quote
	.word	nil
	.word	.LC4
	.size	readobj, .-readobj
	.section	.rodata
	.align	2
.LC5:
	.ascii	")\000"
	.align	2
.LC6:
	.ascii	".\000"
	.text
	.align	2
	.global	readlist
	.syntax unified
	.arm
	.fpu softvfp
	.type	readlist, %function
readlist:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #8
	bl	gettoken
	str	r0, [fp, #-12]
	ldr	r1, .L73
	ldr	r0, [fp, #-12]
	bl	strcmp
	mov	r3, r0
	cmp	r3, #0
	bne	.L69
	ldr	r3, .L73+4
	ldr	r3, [r3]
	b	.L70
.L69:
	ldr	r1, .L73+8
	ldr	r0, [fp, #-12]
	bl	strcmp
	mov	r3, r0
	cmp	r3, #0
	bne	.L71
	bl	readobj
	str	r0, [fp, #-8]
	bl	gettoken
	mov	r3, r0
	ldr	r1, .L73
	mov	r0, r3
	bl	strcmp
	mov	r3, r0
	cmp	r3, #0
	beq	.L72
	mov	r0, #1
	bl	exit
.L72:
	ldr	r3, [fp, #-8]
	b	.L70
.L71:
	ldr	r0, [fp, #-12]
	bl	putback_token
	bl	readobj
	str	r0, [fp, #-8]
	bl	readlist
	mov	r3, r0
	ldr	r2, [fp, #-8]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r3, r0
.L70:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L74:
	.align	2
.L73:
	.word	.LC5
	.word	nil
	.word	.LC6
	.size	readlist, .-readlist
	.section	.rodata
	.align	2
.LC7:
	.ascii	"%d\000"
	.align	2
.LC8:
	.ascii	" . \000"
	.align	2
.LC9:
	.ascii	"()\000"
	.align	2
.LC10:
	.ascii	"#<PRIMOP>\000"
	.align	2
.LC11:
	.ascii	"#<PROC>\000"
	.text
	.align	2
	.global	writeobj
	.syntax unified
	.arm
	.fpu softvfp
	.type	writeobj, %function
writeobj:
	@ 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]
	str	r1, [fp, #-12]
	ldr	r3, [fp, #-12]
	ldr	r3, [r3]
	cmp	r3, #4
	ldrls	pc, [pc, r3, asl #2]
	b	.L76
.L78:
	.word	.L82
	.word	.L81
	.word	.L80
	.word	.L79
	.word	.L77
.L82:
	ldr	r3, [fp, #-12]
	ldr	r3, [r3, #4]
	mov	r2, r3
	ldr	r1, .L90
	ldr	r0, [fp, #-8]
	bl	fprintf
	b	.L83
.L80:
	ldr	r1, [fp, #-8]
	mov	r0, #40
	bl	fputc
.L87:
	ldr	r3, [fp, #-12]
	ldr	r3, [r3, #4]
	mov	r1, r3
	ldr	r0, [fp, #-8]
	bl	writeobj
	ldr	r3, [fp, #-12]
	ldr	r2, [r3, #8]
	ldr	r3, .L90+4
	ldr	r3, [r3]
	cmp	r2, r3
	bne	.L84
	ldr	r1, [fp, #-8]
	mov	r0, #41
	bl	fputc
	b	.L85
.L84:
	ldr	r3, [fp, #-12]
	ldr	r3, [r3, #8]
	str	r3, [fp, #-12]
	ldr	r3, [fp, #-12]
	ldr	r3, [r3]
	cmp	r3, #2
	beq	.L86
	ldr	r3, [fp, #-8]
	mov	r2, #3
	mov	r1, #1
	ldr	r0, .L90+8
	bl	fwrite
	ldr	r1, [fp, #-12]
	ldr	r0, [fp, #-8]
	bl	writeobj
	ldr	r1, [fp, #-8]
	mov	r0, #41
	bl	fputc
	b	.L85
.L86:
	ldr	r1, [fp, #-8]
	mov	r0, #32
	bl	fputc
	b	.L87
.L85:
	b	.L83
.L81:
	ldr	r3, .L90+4
	ldr	r3, [r3]
	ldr	r2, [fp, #-12]
	cmp	r2, r3
	bne	.L88
	ldr	r3, [fp, #-8]
	mov	r2, #2
	mov	r1, #1
	ldr	r0, .L90+12
	bl	fwrite
	b	.L83
.L88:
	ldr	r3, [fp, #-12]
	ldr	r3, [r3, #4]
	ldr	r1, [fp, #-8]
	mov	r0, r3
	bl	fputs
	b	.L83
.L77:
	ldr	r3, [fp, #-8]
	mov	r2, #9
	mov	r1, #1
	ldr	r0, .L90+16
	bl	fwrite
	b	.L83
.L79:
	ldr	r3, [fp, #-8]
	mov	r2, #7
	mov	r1, #1
	ldr	r0, .L90+20
	bl	fwrite
	b	.L83
.L76:
	mov	r0, #1
	bl	exit
.L83:
	nop
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L91:
	.align	2
.L90:
	.word	.LC7
	.word	nil
	.word	.LC8
	.word	.LC9
	.word	.LC10
	.word	.LC11
	.size	writeobj, .-writeobj
	.section	.rodata
	.align	2
.LC12:
	.ascii	"Unbound symbol\000"
	.align	2
.LC13:
	.ascii	"%s\012\000"
	.align	2
.LC14:
	.ascii	"Bad PROC type\000"
	.text
	.align	2
	.global	eval
	.syntax unified
	.arm
	.fpu softvfp
	.type	eval, %function
eval:
	@ args = 0, pretend = 0, frame = 32
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{r4, fp, lr}
	add	fp, sp, #8
	sub	sp, sp, #44
	str	r0, [fp, #-40]
	str	r1, [fp, #-44]
.L93:
	ldr	r3, .L116
	ldr	r3, [r3]
	ldr	r2, [fp, #-40]
	cmp	r2, r3
	bne	.L94
	ldr	r3, .L116
	ldr	r3, [r3]
	b	.L95
.L94:
	ldr	r3, [fp, #-40]
	ldr	r3, [r3]
	cmp	r3, #4
	ldrls	pc, [pc, r3, asl #2]
	b	.L96
.L98:
	.word	.L102
	.word	.L101
	.word	.L100
	.word	.L99
	.word	.L97
.L102:
	ldr	r3, [fp, #-40]
	b	.L95
.L101:
	ldr	r1, [fp, #-44]
	ldr	r0, [fp, #-40]
	bl	assoc
	str	r0, [fp, #-16]
	ldr	r3, .L116
	ldr	r3, [r3]
	ldr	r2, [fp, #-16]
	cmp	r2, r3
	bne	.L103
	ldr	r3, .L116+4
	ldr	r3, [r3]
	ldr	r2, .L116+8
	ldr	r1, .L116+12
	mov	r0, r3
	bl	fprintf
	mov	r0, #1
	bl	exit
.L103:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #8]
	b	.L95
.L100:
	ldr	r3, [fp, #-40]
	ldr	r2, [r3, #4]
	ldr	r3, .L116+16
	ldr	r3, [r3]
	cmp	r2, r3
	bne	.L104
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #4]
	ldr	r1, [fp, #-44]
	mov	r0, r3
	bl	eval
	mov	r2, r0
	ldr	r3, .L116
	ldr	r3, [r3]
	cmp	r2, r3
	beq	.L105
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-40]
	b	.L93
.L105:
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-40]
	b	.L93
.L104:
	ldr	r3, [fp, #-40]
	ldr	r2, [r3, #4]
	ldr	r3, .L116+20
	ldr	r3, [r3]
	cmp	r2, r3
	bne	.L107
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	ldr	r2, [r3, #4]
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	ldr	r1, [r3, #8]
	ldr	r3, [fp, #-44]
	str	r3, [sp]
	mov	r3, r1
	mov	r1, #3
	mov	r0, #3
	bl	omake
	mov	r3, r0
	b	.L95
.L107:
	ldr	r3, [fp, #-40]
	ldr	r2, [r3, #4]
	ldr	r3, .L116+24
	ldr	r3, [r3]
	cmp	r2, r3
	bne	.L108
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #4]
	b	.L95
.L108:
	ldr	r3, [fp, #-40]
	ldr	r2, [r3, #4]
	ldr	r3, .L116+28
	ldr	r3, [r3]
	cmp	r2, r3
	bne	.L109
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	ldr	r4, [r3, #4]
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #4]
	ldr	r1, [fp, #-44]
	mov	r0, r3
	bl	eval
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	extend_top
	mov	r3, r0
	b	.L95
.L109:
	ldr	r3, [fp, #-40]
	ldr	r2, [r3, #4]
	ldr	r3, .L116+32
	ldr	r3, [r3]
	cmp	r2, r3
	bne	.L110
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #4]
	ldr	r1, [fp, #-44]
	mov	r0, r3
	bl	assoc
	str	r0, [fp, #-24]
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #4]
	ldr	r1, [fp, #-44]
	mov	r0, r3
	bl	eval
	str	r0, [fp, #-20]
	ldr	r3, [fp, #-24]
	ldr	r2, [fp, #-20]
	str	r2, [r3, #8]
	ldr	r3, [fp, #-20]
	b	.L95
.L110:
	ldr	r3, [fp, #-40]
	ldr	r2, [r3, #4]
	ldr	r3, .L116+36
	ldr	r3, [r3]
	cmp	r2, r3
	bne	.L111
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	str	r3, [fp, #-40]
	ldr	r3, .L116
	ldr	r3, [r3]
	ldr	r2, [fp, #-40]
	cmp	r2, r3
	bne	.L112
	ldr	r3, .L116
	ldr	r3, [r3]
	b	.L95
.L112:
	ldr	r3, [fp, #-40]
	ldr	r2, [r3, #8]
	ldr	r3, .L116
	ldr	r3, [r3]
	cmp	r2, r3
	bne	.L113
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-40]
	b	.L93
.L113:
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #4]
	ldr	r1, [fp, #-44]
	mov	r0, r3
	bl	eval
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	str	r3, [fp, #-40]
	b	.L112
.L111:
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #4]
	ldr	r1, [fp, #-44]
	mov	r0, r3
	bl	eval
	str	r0, [fp, #-32]
	ldr	r3, [fp, #-40]
	ldr	r3, [r3, #8]
	ldr	r1, [fp, #-44]
	mov	r0, r3
	bl	evlis
	str	r0, [fp, #-28]
	ldr	r3, [fp, #-32]
	ldr	r3, [r3]
	cmp	r3, #4
	bne	.L114
	ldr	r3, [fp, #-32]
	ldr	r3, [r3, #4]
	ldr	r0, [fp, #-28]
	blx	r3
	mov	r3, r0
	b	.L95
.L114:
	ldr	r3, [fp, #-32]
	ldr	r3, [r3]
	cmp	r3, #3
	bne	.L115
	ldr	r3, [fp, #-32]
	ldr	r0, [r3, #12]
	ldr	r3, [fp, #-32]
	ldr	r3, [r3, #4]
	ldr	r2, [fp, #-28]
	mov	r1, r3
	bl	multiple_extend
	str	r0, [fp, #-44]
	ldr	r3, .L116+36
	ldr	r2, [r3]
	ldr	r3, [fp, #-32]
	ldr	r3, [r3, #8]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	str	r0, [fp, #-40]
	b	.L93
.L115:
	ldr	r3, .L116+4
	ldr	r3, [r3]
	ldr	r2, .L116+40
	ldr	r1, .L116+12
	mov	r0, r3
	bl	fprintf
	mov	r0, #1
	bl	exit
.L97:
	ldr	r3, [fp, #-40]
	b	.L95
.L99:
	ldr	r3, [fp, #-40]
	b	.L95
.L96:
	ldr	r3, [fp, #-40]
.L95:
	mov	r0, r3
	sub	sp, fp, #8
	@ sp needed
	pop	{r4, fp, pc}
.L117:
	.align	2
.L116:
	.word	nil
	.word	stderr
	.word	.LC12
	.word	.LC13
	.word	s_if
	.word	s_lambda
	.word	quote
	.word	s_define
	.word	s_setb
	.word	s_begin
	.word	.LC14
	.size	eval, .-eval
	.align	2
	.global	evlis
	.syntax unified
	.arm
	.fpu softvfp
	.type	evlis, %function
evlis:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{r4, fp, lr}
	add	fp, sp, #8
	sub	sp, sp, #12
	str	r0, [fp, #-16]
	str	r1, [fp, #-20]
	ldr	r3, .L121
	ldr	r3, [r3]
	ldr	r2, [fp, #-16]
	cmp	r2, r3
	bne	.L119
	ldr	r3, .L121
	ldr	r3, [r3]
	b	.L120
.L119:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	ldr	r1, [fp, #-20]
	mov	r0, r3
	bl	eval
	mov	r4, r0
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #8]
	ldr	r1, [fp, #-20]
	mov	r0, r3
	bl	evlis
	mov	r3, r0
	mov	r2, r4
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r3, r0
.L120:
	mov	r0, r3
	sub	sp, fp, #8
	@ sp needed
	pop	{r4, fp, pc}
.L122:
	.align	2
.L121:
	.word	nil
	.size	evlis, .-evlis
	.align	2
	.global	prim_sum
	.syntax unified
	.arm
	.fpu softvfp
	.type	prim_sum, %function
prim_sum:
	@ 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, #0
	str	r3, [fp, #-8]
	b	.L124
.L125:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	ldr	r3, [r3, #4]
	mov	r2, r3
	ldr	r3, [fp, #-8]
	add	r3, r3, r2
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #8]
	str	r3, [fp, #-16]
.L124:
	ldr	r3, .L127
	ldr	r3, [r3]
	ldr	r2, [fp, #-16]
	cmp	r2, r3
	bne	.L125
	ldr	r3, [fp, #-8]
	mov	r2, r3
	mov	r1, #1
	mov	r0, #0
	bl	omake
	mov	r3, r0
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L128:
	.align	2
.L127:
	.word	nil
	.size	prim_sum, .-prim_sum
	.align	2
	.global	prim_sub
	.syntax unified
	.arm
	.fpu softvfp
	.type	prim_sub, %function
prim_sub:
	@ 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	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #8]
	str	r3, [fp, #-16]
	b	.L130
.L131:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	ldr	r3, [r3, #4]
	mov	r2, r3
	ldr	r3, [fp, #-8]
	sub	r3, r3, r2
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #8]
	str	r3, [fp, #-16]
.L130:
	ldr	r3, .L133
	ldr	r3, [r3]
	ldr	r2, [fp, #-16]
	cmp	r2, r3
	bne	.L131
	ldr	r3, [fp, #-8]
	mov	r2, r3
	mov	r1, #1
	mov	r0, #0
	bl	omake
	mov	r3, r0
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L134:
	.align	2
.L133:
	.word	nil
	.size	prim_sub, .-prim_sub
	.align	2
	.global	prim_prod
	.syntax unified
	.arm
	.fpu softvfp
	.type	prim_prod, %function
prim_prod:
	@ 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, #1
	str	r3, [fp, #-8]
	mov	r3, #1
	str	r3, [fp, #-8]
	b	.L136
.L137:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #4]
	ldr	r3, [r3, #4]
	mov	r2, r3
	ldr	r3, [fp, #-8]
	mul	r3, r2, r3
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-16]
	ldr	r3, [r3, #8]
	str	r3, [fp, #-16]
.L136:
	ldr	r3, .L139
	ldr	r3, [r3]
	ldr	r2, [fp, #-16]
	cmp	r2, r3
	bne	.L137
	ldr	r3, [fp, #-8]
	mov	r2, r3
	mov	r1, #1
	mov	r0, #0
	bl	omake
	mov	r3, r0
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L140:
	.align	2
.L139:
	.word	nil
	.size	prim_prod, .-prim_prod
	.align	2
	.global	prim_numeq
	.syntax unified
	.arm
	.fpu softvfp
	.type	prim_numeq, %function
prim_numeq:
	@ 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]
	ldr	r3, [r3, #4]
	ldr	r3, [r3, #4]
	mov	r2, r3
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #4]
	ldr	r3, [r3, #4]
	cmp	r2, r3
	bne	.L142
	ldr	r3, .L145
	ldr	r3, [r3]
	b	.L144
.L142:
	ldr	r3, .L145+4
	ldr	r3, [r3]
.L144:
	mov	r0, r3
	add	sp, fp, #0
	@ sp needed
	ldr	fp, [sp], #4
	bx	lr
.L146:
	.align	2
.L145:
	.word	tee
	.word	nil
	.size	prim_numeq, .-prim_numeq
	.align	2
	.global	prim_cons
	.syntax unified
	.arm
	.fpu softvfp
	.type	prim_cons, %function
prim_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
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	ldr	r2, [r3, #4]
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #8]
	ldr	r3, [r3, #4]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r3, r0
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	prim_cons, .-prim_cons
	.align	2
	.global	prim_car
	.syntax unified
	.arm
	.fpu softvfp
	.type	prim_car, %function
prim_car:
	@ 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]
	ldr	r3, [r3, #4]
	ldr	r3, [r3, #4]
	mov	r0, r3
	add	sp, fp, #0
	@ sp needed
	ldr	fp, [sp], #4
	bx	lr
	.size	prim_car, .-prim_car
	.align	2
	.global	prim_cdr
	.syntax unified
	.arm
	.fpu softvfp
	.type	prim_cdr, %function
prim_cdr:
	@ 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]
	ldr	r3, [r3, #4]
	ldr	r3, [r3, #8]
	mov	r0, r3
	add	sp, fp, #0
	@ sp needed
	ldr	fp, [sp], #4
	bx	lr
	.size	prim_cdr, .-prim_cdr
	.section	.rodata
	.align	2
.LC15:
	.ascii	"nil\000"
	.align	2
.LC16:
	.ascii	"t\000"
	.align	2
.LC17:
	.ascii	"quote\000"
	.align	2
.LC18:
	.ascii	"if\000"
	.align	2
.LC19:
	.ascii	"lambda\000"
	.align	2
.LC20:
	.ascii	"define\000"
	.align	2
.LC21:
	.ascii	"set!\000"
	.align	2
.LC22:
	.ascii	"begin\000"
	.align	2
.LC23:
	.ascii	"+\000"
	.align	2
.LC24:
	.ascii	"-\000"
	.align	2
.LC25:
	.ascii	"*\000"
	.align	2
.LC26:
	.ascii	"=\000"
	.align	2
.LC27:
	.ascii	"cons\000"
	.align	2
.LC28:
	.ascii	"car\000"
	.align	2
.LC29:
	.ascii	"cdr\000"
	.text
	.align	2
	.global	init_sl3
	.syntax unified
	.arm
	.fpu softvfp
	.type	init_sl3, %function
init_sl3:
	@ args = 0, pretend = 0, frame = 0
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{r4, r5, fp, lr}
	add	fp, sp, #12
	ldr	r2, .L154
	mov	r1, #1
	mov	r0, #1
	bl	omake
	mov	r3, r0
	ldr	r2, .L154+4
	str	r3, [r2]
	ldr	r3, .L154+4
	ldr	r2, [r3]
	ldr	r3, .L154+4
	ldr	r3, [r3]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r3, r0
	ldr	r2, .L154+8
	str	r3, [r2]
	ldr	r3, .L154+4
	ldr	r2, [r3]
	ldr	r3, .L154+4
	ldr	r3, [r3]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r2, r0
	ldr	r3, .L154+4
	ldr	r3, [r3]
	mov	r1, #2
	mov	r0, #2
	bl	omake
	mov	r3, r0
	ldr	r2, .L154+12
	str	r3, [r2]
	ldr	r0, .L154+16
	bl	intern
	mov	r3, r0
	ldr	r2, .L154+20
	str	r3, [r2]
	ldr	r3, .L154+20
	ldr	r3, [r3]
	ldr	r2, .L154+20
	ldr	r2, [r2]
	mov	r1, r2
	mov	r0, r3
	bl	extend_top
	ldr	r0, .L154+24
	bl	intern
	mov	r3, r0
	ldr	r2, .L154+28
	str	r3, [r2]
	ldr	r0, .L154+32
	bl	intern
	mov	r3, r0
	ldr	r2, .L154+36
	str	r3, [r2]
	ldr	r0, .L154+40
	bl	intern
	mov	r3, r0
	ldr	r2, .L154+44
	str	r3, [r2]
	ldr	r0, .L154+48
	bl	intern
	mov	r3, r0
	ldr	r2, .L154+52
	str	r3, [r2]
	ldr	r0, .L154+56
	bl	intern
	mov	r3, r0
	ldr	r2, .L154+60
	str	r3, [r2]
	ldr	r0, .L154+64
	bl	intern
	mov	r3, r0
	ldr	r2, .L154+68
	str	r3, [r2]
	ldr	r0, .L154+72
	bl	intern
	mov	r4, r0
	ldr	r2, .L154+76
	mov	r1, #1
	mov	r0, #4
	bl	omake
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	extend_top
	ldr	r0, .L154+80
	bl	intern
	mov	r4, r0
	ldr	r2, .L154+84
	mov	r1, #1
	mov	r0, #4
	bl	omake
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	extend_top
	ldr	r0, .L154+88
	bl	intern
	mov	r4, r0
	ldr	r2, .L154+92
	mov	r1, #1
	mov	r0, #4
	bl	omake
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	extend_top
	ldr	r0, .L154+96
	bl	intern
	mov	r4, r0
	ldr	r2, .L154+100
	mov	r1, #1
	mov	r0, #4
	bl	omake
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	extend_top
	ldr	r0, .L154+104
	bl	intern
	mov	r4, r0
	ldr	r2, .L154+108
	mov	r1, #1
	mov	r0, #4
	bl	omake
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	extend_top
	ldr	r0, .L154+112
	bl	intern
	mov	r4, r0
	ldr	r2, .L154+116
	mov	r1, #1
	mov	r0, #4
	bl	omake
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	extend_top
	ldr	r0, .L154+120
	bl	intern
	mov	r4, r0
	ldr	r2, .L154+124
	mov	r1, #1
	mov	r0, #4
	bl	omake
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	extend_top
	nop
	pop	{r4, r5, fp, pc}
.L155:
	.align	2
.L154:
	.word	.LC15
	.word	nil
	.word	all_symbols
	.word	top_env
	.word	.LC16
	.word	tee
	.word	.LC17
	.word	quote
	.word	.LC18
	.word	s_if
	.word	.LC19
	.word	s_lambda
	.word	.LC20
	.word	s_define
	.word	.LC21
	.word	s_setb
	.word	.LC22
	.word	s_begin
	.word	.LC23
	.word	prim_sum
	.word	.LC24
	.word	prim_sub
	.word	.LC25
	.word	prim_prod
	.word	.LC26
	.word	prim_numeq
	.word	.LC27
	.word	prim_cons
	.word	.LC28
	.word	prim_car
	.word	.LC29
	.word	prim_cdr
	.size	init_sl3, .-init_sl3
	.align	2
	.global	main
	.syntax unified
	.arm
	.fpu softvfp
	.type	main, %function
main:
	@ args = 0, pretend = 0, frame = 0
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{r4, r5, fp, lr}
	add	fp, sp, #12
	bl	init_sl3
	ldr	r3, .L158
	ldr	r3, [r3]
	mov	r0, r3
	bl	setinput
.L157:
	ldr	r3, .L158+4
	ldr	r4, [r3]
	bl	readobj
	mov	r2, r0
	ldr	r3, .L158+8
	ldr	r3, [r3]
	mov	r1, r3
	mov	r0, r2
	bl	eval
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	writeobj
	mov	r0, #10
	bl	putchar
	b	.L157
.L159:
	.align	2
.L158:
	.word	stdin
	.word	stdout
	.word	top_env
	.size	main, .-main
	.ident	"GCC: (Ubuntu 9.4.0-1ubuntu1~20.04.2) 9.4.0"
	.section	.note.GNU-stack,"",%progbits
