@0
MOV 4 ACC
I: MOV 0 LEFT
MOV 0 LEFT
SUB 1
JNZ I
R: MOV UP ACC
SAV
MOV UP ACC
MOV ACC DOWN
MOV ACC DOWN
SWP
MOV ACC DOWN
JNZ R
MOV UP DOWN
JMP R

@3
MOV RIGHT ACC
JEZ A
JLZ N
P: MOV DOWN UP
SUB 1
JGZ P
JMP A
N: MOV UP DOWN
ADD 1
JLZ N
A: MOV UP RIGHT
MOV RIGHT UP

@4
SUB UP
MOV ACC LEFT
MOV UP ACC
SAV
MOV UP ACC
JEZ W
MOV LEFT ACC
MOV ACC LEFT
MOV ACC DOWN
JMP D
W: MOV LEFT NIL
MOV UP LEFT
D: SWP

@7
MOV UP DOWN
