@0
MOV UP, ACC
T: SAV
SUB RIGHT
JGZ P
MOV RIGHT, ACC
MOV ACC, DOWN
SWP
JMP T
P: MOV RIGHT, ACC
JEZ Z
SWP
MOV ACC, DOWN
JMP T
Z: MOV ACC, DOWN

@1
MOV UP, ACC
MOV ACC, LEFT
MOV ACC, LEFT

@2
MOV UP, DOWN

@3
L: MOV UP, ACC
JEZ Z
MOV ACC, RIGHT
MOV ACC, RIGHT
JMP L
Z: MOV 999, RIGHT
MOV NIL, RIGHT

@4
MOV RIGHT, ACC
T: SAV
SUB LEFT
JLZ P
MOV LEFT, ACC
MOV ACC, DOWN
SWP
JMP T
P: MOV LEFT, ACC
JEZ Z
SWP
MOV ACC, DOWN
JMP T
Z: MOV ACC, DOWN

@5
MOV UP, LEFT

@8
MOV UP, DOWN
