@0
SUB 4
I: MOV 0, LEFT
MOV 0, LEFT
ADD 1
JLZ I
L: MOV UP, DOWN
JMP L

@3
S: MOV RIGHT, ACC
SAV
JEZ D
N: MOV UP, DOWN
SUB 1
JNZ N
D: MOV UP, RIGHT
MOV RIGHT, UP
SWP
JEZ S
P: MOV DOWN, UP
SUB 1
JNZ P

@4
L: MOV UP, ACC
MOV UP, LEFT
JNZ R
MOV LEFT, NIL
MOV UP, LEFT
JMP L
R: MOV LEFT, ACC
MOV ACC, LEFT
MOV ACC, DOWN

@7
MOV UP, DOWN
