@1
TOP: MOV 0, ACC
U: MOV ACC, DOWN
MOV ACC, DOWN
ADD 1
SAV
SUB 15
JEZ I
SWP
JMP U
I: MOV 14, ACC
D: MOV ACC, DOWN
MOV ACC, DOWN
SUB 1
JLZ TOP
JMP D

@3
MOV 0, ACC
U: MOV ACC, RIGHT
ADD 1
SAV
SUB 9
JEZ I
SWP
JMP U
I: MOV 8, ACC
D: MOV ACC, RIGHT
SUB 1
JGZ D
MOV 0, RIGHT

@4
MOV LEFT, ACC
SAV
MOV 30, ACC
L: SWP
MOV ACC, RIGHT
MOV ACC, RIGHT
SWP
SUB 1
JGZ L

@5
TOP:
MOV UP, ACC
SUB LEFT
JGZ RY
MOV UP, DOWN
MOV LEFT, NIL
JMP TOP
RY:
MOV UP, NIL
MOV LEFT, DOWN

@8
MOV RIGHT, ACC
JEZ EV
P: SUB 2
JGZ P
JEZ EV
MOV 0, RIGHT
JMP E
EV: MOV 3, RIGHT
E:

@9
MOV 0, DOWN
MOV ACC, DOWN
ADD 1
SAV
MOV 15, ACC
L: MOV UP, LEFT
MOV LEFT, DOWN
MOV UP, LEFT
MOV LEFT, DOWN
SUB 1
JGZ L
MOV -1, DOWN
SWP
