@1
MOV UP, ACC
ADD ACC
ADD ACC
ADD 17
MOV ACC, DOWN
MOV ACC, RIGHT

@2
MOV LEFT, DOWN
MOV UP, DOWN

@5
MOV UP, ACC
SUB 13
JNZ K
MOV 1, ACC
K: NEG
ADD 5
MOV ACC, RIGHT

@6
F: MOV UP, DOWN
S: SWP
L: MOV ACC, DOWN
JRO LEFT
MOV UP, ACC
MOV ACC, DOWN
JMP F
MOV UP, ACC
SWP
MOV ACC, DOWN
MOV UP, DOWN
JMP L
MOV ACC, DOWN
MOV UP, ACC

@9
J: JRO UP
SWP
MOV ACC, DOWN
MOV UP, ACC
JMP J
MOV ACC, DOWN
SAV
MOV UP, ACC
JMP J
P: SAV
MOV UP, ACC
MOV UP, DOWN
JMP J
JMP P
