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

@1
MOV UP, DOWN

@2
MOV UP, RIGHT

@3
L: MOV ACC, DOWN
MOV LEFT, ACC
JNZ L
Q: MOV RIGHT, ACC
SAV
JEZ G
L2: MOV DOWN, UP
SUB 1
JNZ L2
G: MOV 0, RIGHT
SWP
L3: JEZ Q
MOV UP, DOWN
SUB 1
JMP L3

@4
MOV UP, LEFT
MOV LEFT, DOWN

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