@0
MOV RIGHT, ACC
MOV ACC, RIGHT

@1
L: MOV UP, ACC
MOV ACC, LEFT
SUB RIGHT
JGZ G
MOV LEFT, RIGHT
MOV 0, RIGHT
JMP L
G: MOV 0, RIGHT
MOV LEFT, RIGHT

@2
L: MOV UP, ACC
SAV
MOV ACC, LEFT
R: MOV LEFT, ACC
JEZ B
MOV ACC, DOWN
MOV LEFT, NIL
SWP
MOV ACC, DOWN
JMP L
B: SWP
MOV ACC, DOWN
MOV LEFT, DOWN

@6
L: MOV UP, DOWN
MOV UP, DOWN
MOV 0, DOWN

@9
MOV UP, DOWN
