@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 15, ACC
L: SWP
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, RIGHT
SWP
SUB 1
JGZ L

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

@6
MOV LEFT, ACC
JEZ EV
P: SUB 2
JGZ P
JEZ EV
MOV 0, DOWN
JMP E
EV: MOV 3, DOWN
E:

@9
MOV 0, DOWN
MOV ACC, DOWN
ADD 1
SAV
MOV 30, ACC
L: MOV RIGHT, DOWN
SUB 1
JGZ L
MOV -1, DOWN
SWP

@10
MOV UP, LEFT
