Bsr main
	HALT
main:
	LINK 0
	AJS 2
	LDC 10
	AJS -3
	Bsr fac
	LDR R3
	TRAP 0
	AJS 1
	AJS -1
	UNLINK
	RET
fac:
	LINK 3
	LDC 1
	LDS 0
	LDLA 3
	STA 0
	AJS -1
	LDC 1
	LDS 0
	LDLA 2
	STA 0
	AJS -1
	BRA 26
	LDL 2
	LDL 3
	MUL
	LDS 0
	LDLA 2
	STA 0
	AJS -1
	LDL 3
	LDC 1
	ADD
	LDS 0
	LDLA 3
	STA 0
	AJS -1
	LDL 3
	LDL 1
	LE
	BRT -33
	LDL 2
	STR R3
	UNLINK
	RET
	UNLINK
	RET