@0
MOV 999 ACC
L:SAV
SUB RIGHT
JGZ N
MOV RIGHT NIL
SWP
C:MOV -4 DOWN
JMP L
N:MOV RIGHT ACC
JNZ C
SWP
MOV 2 DOWN
MOV ACC DOWN

@1
MOV UP ACC
MOV ACC LEFT
MOV ACC LEFT
MOV ACC DOWN

@3
L:MOV UP ACC
MOV ACC DOWN
MOV LEFT DOWN
JNZ L
MOV LEFT ACC
G:MOV ACC DOWN
ADD 1
JRO DOWN
JMP L
JMP G

@5
L:SUB UP
SWP
ADD 1
SWP
JRO UP
G:SWP
ADD UP
SWP
MOV ACC UP
SUB 1
JNZ G
SWP
MOV ACC DOWN
MOV 0 ACC
