@0
MOV RIGHT, ACC
NEG
ADD 1
MOV ACC, RIGHT

@1
L:MOV UP, ACC
SAV
MOV UP, ACC
B:SWP
SUB 13
JGZ BI
MOV ACC, LEFT
SWP
MOV ACC, RIGHT
MOV LEFT, RIGHT
JMP L
BI:SWP
MOV ACC, RIGHT
MOV 1, RIGHT
JMP B

@2
MOV LEFT, ACC
JRO LEFT
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, DOWN

@6
X:MOV 0, DOWN
SWP
MOV ACC, DOWN
ADD 1
SAV
MOV 30, ACC
P:MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
SUB 5
JNZ P
MOV -1, DOWN
JMP X

@10
MOV UP, DOWN
