@1
MOV UP, ACC
MOV ACC, DOWN
MOV ACC, DOWN
MOV ACC, RIGHT

@4
MOV RIGHT, ACC
L: SUB UP
JLZ KEEP
MOV UP, ACC
JLZ END
SAV
JMP L
KEEP: ADD UP
JMP L
END: SWP
NEG
MOV ACC, RIGHT

@5
MOV 999, LEFT
S: MOV -999, UP
M: MOV LEFT, ACC
MOV UP, RIGHT
L: SAV
ADD UP
JLZ D
MOV ACC, RIGHT
SWP
JMP L
D: MOV RIGHT, ACC
MOV ACC, DOWN
JGZ D
JEZ D

@7
MOV UP, DOWN
