@0
MOV UP, ACC
MOV ACC, RIGHT
MOV ACC, RIGHT

@1
L0:
MOV UP, ACC
SAV
SUB LEFT
JLZ AB
SWP
MOV ACC, DOWN
MOV LEFT, DOWN
JMP L0
AB:
MOV LEFT, DOWN
SWP
MOV ACC, DOWN

@2
L0:
MOV UP, ACC
SAV
SUB RIGHT
JLZ AB
SWP
MOV ACC, DOWN
MOV RIGHT, DOWN
JMP L0
AB:
MOV RIGHT, DOWN
SWP
MOV ACC, DOWN

@3
MOV UP, ACC
MOV ACC, LEFT
MOV ACC, LEFT

@5
L0:
MOV UP, ACC
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV UP, ACC
SAV
SUB RIGHT
JLZ BIG
SWP
MOV ACC, DOWN
MOV RIGHT, NIL
JMP L0
BIG:
MOV RIGHT, DOWN

@6
MOV UP, ACC
SAV
SUB LEFT
JLZ A
MOV LEFT, DOWN
JMP C
A:
SWP
MOV ACC, DOWN
MOV LEFT, NIL
C:
MOV UP, ACC
MOV ACC, LEFT
MOV ACC, LEFT

@8
MOV UP, ACC
MOV ACC, RIGHT
MOV ACC, RIGHT

@9
L0:
MOV UP, ACC
SAV
SUB LEFT
JLZ YB
SWP
MOV ACC, DOWN
MOV LEFT, NIL
JMP L0
YB:
MOV LEFT, DOWN
