@0
MOV 4 ACC
SAV
I:MOV 0 LEFT
SUB 1
JGZ I
L:MOV UP DOWN
MOV UP ACC
MOV ACC DOWN
SWP
SUB DOWN
MOV ACC DOWN
JRO DOWN
MOV UP DOWN
JMP L

@3
S:MOV RIGHT ACC
JGZ P
JEZ F
N:MOV UP DOWN
ADD 1
JLZ N
F:MOV UP RIGHT
JMP R
P:SUB 1
JEZ C
B:MOV DOWN UP
SUB 1
JGZ B
C:MOV DOWN RIGHT
R:MOV RIGHT UP

@4
S:MOV UP ACC
MOV UP UP
MOV UP LEFT
JEZ W
MOV 2 UP
MOV LEFT ACC
MOV ACC DOWN
MOV ACC LEFT
JMP S
W:MOV 1 UP
MOV LEFT NIL
MOV UP LEFT

@7
MOV 0 LEFT
MOV 0 LEFT
MOV 0 LEFT
MOV 0 LEFT
L:MOV UP DOWN
JMP L
