@1
S: MOV -1 RIGHT
L: MOV UP ACC
MOV ACC DOWN
MOV ACC DOWN
JLZ E
MOV ACC RIGHT
JMP L
E: MOV DOWN NIL

@4
MOV 999 ACC
L: SAV
SUB UP
JGZ U
ADD UP
JMP L
U: MOV UP ACC
JLZ E
JMP L
E: SWP
MOV ACC RIGHT
MOV RIGHT UP

@5
S: MOV LEFT DOWN
MOV -1 RIGHT
L: MOV UP ACC
JLZ E
MOV ACC RIGHT
JMP L
E: MOV 0 LEFT
O: MOV RIGHT ACC
MOV ACC DOWN
JLZ S
JMP O

@7
S: MOV UP ACC
NEG
L: SAV
ADD UP
JLZ E
MOV ACC DOWN
SWP
JMP L
E: MOV -1 DOWN
