@0
S: MOV UP, ACC
SAV
MOV 6, ACC
L: SWP
MOV ACC, RIGHT
MOV ACC, RIGHT
SWP
SUB 1
JGZ L

@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
