@1
S: MOV -1,RIGHT
L: MOV UP,ACC
MOV ACC,DOWN
MOV ACC,DOWN
MOV ACC,RIGHT
JLZ E
JMP L
E: MOV DOWN,NIL

@4
S: MOV 999,ACC
L: SUB UP
JGZ LOW
ADD UP
JMP L
LOW: MOV UP,ACC
JLZ E
SAV
JMP L
E: SWP
NEG
MOV ACC,RIGHT
MOV RIGHT,UP

@5
S: MOV LEFT,ACC
SAV
MOV UP,RIGHT
L: MOV UP,ACC
JLZ D
MOV ACC,RIGHT
JMP L
D: MOV 1,LEFT
SWP
MOV ACC,DOWN
O: MOV RIGHT,ACC
MOV ACC,DOWN
JLZ E
JMP O
E: MOV DOWN,NIL

@7
W: MOV UP,ACC
SAV
L: ADD UP
JLZ E
MOV ACC,DOWN
SWP
SAV
JMP L
E: MOV -1,DOWN
MOV 0,UP
