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

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

@3
L:MOV 1 DOWN
MOV UP DOWN
ADD 1
JRO LEFT
SWP
MOV LEFT ACC
SWP
G:SWP
MOV 1 DOWN
MOV ACC DOWN
ADD 1
SWP
SUB 1
JGZ G
MOV 3 DOWN

@5
L:JRO UP
ADD UP
JMP L
MOV ACC DOWN
MOV 0 ACC
