@1
MOV UP, ACC
SAV
MOV ACC, RIGHT
MOV UP, ACC
SWP
JEZ D
L: SUB 1
SWP
SUB 1
SWP
JNZ L
D: SWP
ADD 1
MOV ACC, RIGHT

@2
L: MOV LEFT, ACC
S: JEZ C
MOV UP, NIL
SUB 1
JNZ S
C: MOV LEFT, ACC
O: MOV UP, DOWN
SUB 1
JNZ O
MOV NIL, DOWN
D: MOV UP, ACC
JNZ D

@6
L: MOV UP, DOWN

@9
MOV UP, DOWN
