@1
MOV UP, RIGHT

@2
S: MOV LEFT, ACC
SAV
MOV UP, ACC
JEZ Z
H: SWP
MOV ACC, DOWN
SWP
SUB 1
JNZ H
Z: MOV -1, DOWN

@5
M: MOV UP, ACC
JLZ P
MOV ACC, DOWN
JEZ M
SAV
SUB ACC
SWP
K: SWP
ADD DOWN
SWP
SUB 1
JNZ K
SWP
P: MOV ACC, DOWN

@7
MOV 1, ACC
S: SAV
L: MOV UP, ACC
JLZ O
JEZ S
T: SWP
MOV ACC, UP
SWP
SUB 1
JNZ T
MOV UP, ACC
JMP S
O: SWP
MOV ACC, DOWN
MOV 1, ACC
