@1
L: MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV UP, ACC
R: MOV DOWN, NIL
SUB 1
JNZ C
MOV -11, DOWN
JMP L
C: MOV -6, DOWN
JMP R

@4
NEW: MOV -1, RIGHT
MOV UP, ACC
SAV
MOV UP, ACC
MOV UP, RIGHT
R: SWP
MOV ACC, RIGHT
SWP
MOV ACC, RIGHT
ADD 1
MOV RIGHT, UP
JRO UP

@5
R: MOV LEFT, ACC
JLZ W
MOV ACC, DOWN
SWP
SAV
MOV LEFT, DOWN
MOV 1, LEFT
P: MOV 3, DOWN
SUB 1
JNZ P
MOV -1, DOWN
JMP R
W: MOV LEFT, ACC
SAV

@9
MOV UP, DOWN
