@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
T: MOV RIGHT, ACC
ADD 1
JRO ACC
JMP EV
JMP OD
JMP EV
JMP OD
JMP EV
JMP OD
JMP EV
JMP OD
JMP EV
OD: MOV 0, RIGHT
JMP T
EV: MOV 3, RIGHT

@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
