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

@4
MOV -999 ACC
L: SAV
SUB UP
SUB 999
ADD 999
ADD UP
JNZ L
SWP
MOV ACC RIGHT
MOV RIGHT UP

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

@7
MOV UP DOWN
