@1
MOV UP ACC
MOV ACC DOWN
C:MOV -4 DOWN
L:SAV
MOV UP DOWN
SUB DOWN
JGZ N
MOV DOWN NIL
SWP
JMP C
N:MOV DOWN ACC
JNZ C
SWP
MOV 2 DOWN
MOV ACC DOWN

@3
I:MOV UP DOWN
MOV UP DOWN
L:MOV UP ACC
MOV ACC UP
MOV ACC UP
MOV ACC DOWN
MOV UP DOWN
JNZ L
MOV UP ACC
G:MOV ACC DOWN
ADD 1
JRO DOWN
JMP I
JMP G

@5
L:SUB UP
SWP
ADD 1
SWP
JRO UP
G:SWP
ADD UP
SWP
MOV ACC UP
SUB 1
JNZ G
SWP
MOV ACC DOWN
MOV 0 ACC
