@0
MOV UP, ACC
SAV
MOV UP, ACC
MOV UP, RIGHT
L: SWP
MOV ACC, RIGHT
JMP L

@1
MOV LEFT, RIGHT
JMP C
Z: MOV RIGHT, ACC
MOV 0, RIGHT
MOV LEFT, NIL
C: SUB LEFT
JNZ Z
MOV RIGHT, ACC

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

@6
MOV UP, ACC
SAV
Z: MOV UP, NIL
Z2: MOV 0, DOWN
C: MOV UP, ACC
JNZ Z
SWP
SAV
ADD UP
JNZ Z2
MOV 1, DOWN
JMP C

@10
MOV UP, DOWN
