@1
MOV -1 ACC
E:ADD 1
SAV
L:MOV ACC DOWN
SWP
MOV ACC DOWN
MOV ACC DOWN
ADD 1
SWP
MOV ACC DOWN
JRO DOWN
JMP E
JMP L

@5
MOV UP ACC
MOV ACC DOWN
MOV UP DOWN
ADD 1
P:SUB 2
JGZ P
JEZ B
MOV 3 DOWN
JMP C
B:MOV 0 DOWN
C:MOV UP ACC
ADD UP
NEG
ADD 18
MOV ACC UP

@9
MOV UP ACC
MOV ACC DOWN
MOV UP DOWN
NEG
ADD 15
SAV
MOV UP ACC
L:MOV ACC DOWN
MOV ACC DOWN
SWP
SUB 1
JEZ E
SWP
JMP L
E:MOV -1 DOWN
