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

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

@4
L: MOV UP ACC
MOV ACC LEFT
JLZ E
MOV ACC LEFT
JMP L
E: MOV ACC LEFT
MOV LEFT RIGHT
MOV RIGHT UP

@5
S: MOV LEFT DOWN
MOV -1 RIGHT
L: MOV UP ACC
JLZ E
MOV ACC RIGHT
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
SAV
ADD UP
JLZ E
MOV ACC DOWN
SWP
JMP L
E: MOV -1 DOWN
