@1
MOV UP,ACC
MOV ACC,RIGHT
MOV ACC,RIGHT

@2
S: MOV UP,ACC
SAV
SUB LEFT
JLZ N
MOV LEFT,DOWN
MOV ACC,DOWN
JMP S
N: MOV LEFT,NIL
SWP
MOV ACC,DOWN
SWP
NEG
MOV ACC,DOWN

@5
MOV UP,ACC
SAV
MOV UP,ACC
SUB 1
JGZ L
JMP E
L: SWP
ADD 1
SWP
SUB 2
JGZ L
E: SWP
MOV ACC,DOWN

@9
MOV UP,DOWN
