@0
L: MOV ACC, RIGHT
MOV UP, ACC
JNZ L
R: MOV RIGHT, ACC
MOV ACC, DOWN
JNZ R

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

@2
MOV UP, RIGHT

@3
L: MOV ACC, DOWN
MOV LEFT, ACC
JNZ L
Q: MOV RIGHT, ACC
JGZ B
F: JEZ G
MOV DOWN, UP
ADD 1
JMP F
B: MOV UP, DOWN
SUB 1
JNZ B
G: MOV 0, RIGHT
JMP Q

@4
SUB UP
MOV ACC, LEFT
MOV UP, ACC
MOV LEFT, DOWN

@7
MOV UP, NIL
MOV LEFT, ACC
MOV ACC, DOWN
MOV ACC, LEFT
