@0
S: MOV UP, ACC
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT

@1
A: MOV UP, ACC
JEZ Z
SUB LEFT
JGZ KEEP
MOV LEFT, ACC
JMP OUT
Z: MOV LEFT, NIL
MOV LEFT, NIL
MOV 0, ACC
JMP OUT
KEEP: ADD LEFT
OUT: MOV ACC, DOWN

@2
S: MOV UP, ACC
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN

@4
A: MOV UP, ACC
SUB RIGHT
JLZ N
MOV RIGHT, DOWN
JMP A
N: ADD RIGHT
MOV ACC, DOWN

@5
MOV UP, ACC
MOV ACC, LEFT
MOV ACC, LEFT

@8
MOV UP, DOWN
