@1
MOV UP,DOWN

@4
L: MOV UP,ACC
SAV
MOV UP,RIGHT
MOV UP,ACC
NEG
MOV ACC,RIGHT
MOV UP,ACC
MOV ACC,RIGHT
R: SWP
MOV ACC,RIGHT
SWP
SUB 1
JGZ R

@5
L: MOV LEFT,ACC
SAV
MOV LEFT,DOWN
MOV LEFT,ACC
R: MOV LEFT,DOWN
SWP
MOV ACC,DOWN
ADD 1
SWP
SUB 1
JGZ R

@9
R: MOV UP,ACC
JLZ N
MOV ACC,DOWN
MOV UP,DOWN
SWP
SAV
P: MOV 3,DOWN
ADD 1
JLZ P
MOV -1,DOWN
JMP R
N: SAV
