@0
MOV 0,LEFT
MOV 0,LEFT
MOV 0,LEFT
MOV 0,LEFT
L:MOV UP,ACC
SAV
MOV UP,ACC
SUB 4
MOV ACC,DOWN
MOV ACC,DOWN
SWP
MOV ACC,DOWN
JNZ L
MOV UP,DOWN
JMP L

@3
L:MOV RIGHT,ACC
SWP
SUB RIGHT
JGZ P
JLZ N
JEZ B
P:MOV DOWN,UP
SUB 1
JGZ P
JMP B
N:MOV UP,DOWN
ADD 1
JLZ N
B:MOV UP,RIGHT
MOV RIGHT,UP

@4
L:MOV UP,LEFT
MOV UP,LEFT
MOV UP,ACC
JEZ S
MOV LEFT,ACC
MOV ACC,DOWN
JMP X
S:MOV UP,ACC
MOV LEFT,NIL
X:MOV ACC,LEFT

@7
MOV 0,LEFT
MOV 0,LEFT
MOV 0,LEFT
MOV 0,LEFT
O:MOV UP,DOWN
JMP O
