@1
MOV 0 RIGHT
L: MOV -1 ACC
SUB UP
MOV ACC DOWN
MOV ACC RIGHT
JNZ L
MOV DOWN NIL

@3
MOV -999 ACC
L: SAV
SUB RIGHT
JLZ U
ADD RIGHT
JMP L
U: MOV RIGHT ACC
JNZ L
SWP
MOV ACC RIGHT

@4
L: MOV UP ACC
MOV ACC LEFT
MOV ACC LEFT
JNZ L
MOV LEFT RIGHT
MOV RIGHT UP

@5
MOV LEFT DOWN
MOV UP NIL
MOV 0 RIGHT
L: MOV UP ACC
MOV ACC RIGHT
JNZ L
MOV RIGHT NIL
MOV 0 LEFT
O: MOV RIGHT ACC
MOV ACC DOWN
JNZ O

@7
MOV UP ACC
L: SAV
SUB UP
JLZ E
MOV ACC DOWN
SWP
SAV
SUB UP
JLZ E
MOV ACC DOWN
SWP
JMP L
E: MOV -1 DOWN
