@0
MOV 10,ACC
I: MOV 0,LEFT
SUB 1
JGZ I
L: MOV UP,ACC
JLZ O
MOV ACC,DOWN
JMP L
O: MOV -1,DOWN
MOV DOWN,ACC
D: MOV LEFT,RIGHT
SUB 1
JGZ D

@1
MOV LEFT,DOWN

@2


@3
L: MOV RIGHT,ACC
JLZ R
SAV
JEZ T
P: MOV UP,DOWN
SUB 1
JGZ P
T: MOV UP,ACC
ADD 1
MOV ACC,UP
SWP
JEZ L
R: MOV DOWN,UP
SUB 1
JGZ R

@4
JMP L
H: SWP
ADD 1
SWP
L: MOV UP,ACC
JLZ E
SUB 7
JEZ H
ADD 7
MOV ACC,LEFT
JMP L
E: MOV -1,LEFT
MOV 10,UP
SWP
MOV ACC,RIGHT

@5
MOV 7,ACC
L: MOV UP,DOWN
SUB 1
JGZ L
MOV UP,NIL
MOV LEFT,DOWN
MOV UP,DOWN
MOV UP,DOWN

@6


@7
L: MOV RIGHT,ACC
JEZ N
P: SWP
MOV ACC,DOWN
SWP
SUB 1
JGZ P
N: SWP
ADD 1
SAV
SUB 10
JNZ L
E: MOV -1,DOWN

@8
MOV UP,LEFT
