@0
S:MOV UP,ACC
JGZ D
JLZ L
E:MOV -3 DOWN
MOV UP,ACC
JGZ D
JEZ E
L:MOV 4 DOWN!
MOV -3 RIGHT
MOV RIGHT,DOWN
MOV 11 LEFT
JRO -3

D:MOV ACC,LEFT
MOV ACC,RIGHT

@1
JMP F
MOV ACC,LEFT
MOV 1 DOWN
MOV DOWN,ACC

S:JRO LEFT
JMP S
F:SUB 1 # 2
JMP S
MOV -1,DOWN # 4
JMP S
MOV -5 DOWN # 6
JMP S
MOV 4 DOWN # 8
JMP S

@2
JNZ S

SWP #7
SUB 1
SWP
JNZ S
SUB 1 #5
S:JRO RIGHT

K:MOV ACC,RIGHT
MOV DOWN ACC
SWP

MOV DOWN NIL #9

@3
JEZ F
S:JRO UP
MOV -1 RIGHT # 1
JMP S
F:SUB 1 # 3
JMP S
MOV -1 LEFT # 5
JMP S
MOV -5 LEFT # 7
JMP S
MOV 99 LEFT # 9
JMP S
MOV ACC RIGHT
MOV 1 LEFT
MOV LEFT ACC

@4
MOV 1 DOWN
JNZ S
SUB 1
S:JRO ANY

N:MOV 0 DOWN
JRO 2
NZ:MOV 1 DOWN
MOV ACC,DOWN
9:ADD 9
JLZ N
MOV ANY ACC
JMP NZ

@5
JNZ S

SWP # 6
SUB 1
SWP
JNZ S
SUB 1 # 4
S:JRO UP

MOV ACC UP
MOV DOWN ACC
SWP

MOV DOWN NIL # 8
MOV DOWN NIL

@6
SUB 1
MOV ACC,UP

@7
JEZ F
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
F:ADD UP
S:JRO UP
MOV 0,DOWN
JMP S
MOV -1 DOWN

@8
SUB 1
MOV ACC,UP #8
MOV 3 UP #-1