@1
MOV UP, RIGHT

@2
MOV UP, RIGHT
MOV LEFT, DOWN
MOV ACC, DOWN
ADD 8

@3
MOV LEFT, DOWN
MOV ACC, DOWN
ADD 8

@5
S: MOV UP, ACC
SAV
SUB UP
JGZ USE_N
MOV RIGHT, DOWN
JMP S
USE_N:
MOV RIGHT, NIL
SWP
MOV ACC, DOWN

@6
S: MOV UP, ACC
SAV
SUB UP
JGZ Z
SWP
MOV ACC, LEFT
JMP S
Z:
MOV 0, LEFT

@7
MOV UP, DOWN
