@0
MOV 0, ACC
L: MOV ACC, RIGHT
MOV ACC, RIGHT
ADD 1
SAV
SUB 15
JLZ MORE
MOV 0, ACC
JMP L
MORE: SWP
JMP L

@1
MOV 15, ACC
L1:
MOV LEFT, DOWN
MOV LEFT, DOWN
SUB 1
JGZ L1
MOV 15, ACC
L2:
MOV RIGHT, DOWN
MOV RIGHT, DOWN
SUB 1
JGZ L2

@2
MOV 14, ACC
L: MOV ACC, LEFT
MOV ACC, LEFT
SUB 1
JLZ RESET
JMP L
RESET: MOV 14, ACC
JMP L

@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 10, ACC
L: SWP
MOV ACC, RIGHT
MOV ACC, RIGHT
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
T: MOV LEFT, 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, DOWN
JMP T
EV: MOV 3, DOWN

@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
