.s
	S 100
	I 101
.a 0
.c
	st S r0
	ld r1 #1
	st I r1
:loop 	ld r2 I
	sub r0 r2 #10
	jmp GT exit
	ld r1 S
	ld r2 I
	add r1 r1 r2
	st S r1
	add r2 r2 #1
	st I r2
	jmp always loop
:exit 	trap stop r0
.e