@4
MOV 8, ACC
A: MOV 1, DOWN
MOV 0, DOWN
MOV 3, DOWN
MOV 2, DOWN
SUB 1
JNZ A
MOV 8, ACC
B: MOV 3, DOWN
MOV 2, DOWN
MOV 1, DOWN
MOV 0, DOWN
SUB 1
JNZ B

@5
MOV 0, ACC
L: MOV ACC, DOWN
ADD 1
SAV
SUB 18
JLZ C
END: MOV UP, NIL
JMP END
C: SWP
JMP L

@7
MOV 8, ACC
A: MOV 0, RIGHT
MOV 1, RIGHT
MOV 2, RIGHT
MOV 3, RIGHT
SUB 1
JNZ A
MOV 8, ACC
B: MOV 2, RIGHT
MOV 3, RIGHT
MOV 0, RIGHT
MOV 1, RIGHT
SUB 1
JNZ B

@8
MOV 8, ACC
L: MOV LEFT, RIGHT
MOV LEFT, RIGHT
MOV LEFT, RIGHT
MOV LEFT, RIGHT
SUB 1
JNZ L
MOV 8, ACC
M: MOV UP, RIGHT
MOV UP, RIGHT
MOV UP, RIGHT
MOV UP, RIGHT
SUB 1
JNZ M

@9
MOV 0, DOWN
MOV UP, DOWN
MOV 8, ACC
L: MOV LEFT, DOWN
MOV LEFT, DOWN
MOV LEFT, DOWN
MOV LEFT, DOWN
SUB 1
JNZ L
MOV -1, DOWN
