GRAB 301
LINK 800
SEEK 1
COPY F X
DROP
GRAB 201
MARK LOOP1
TEST F = X
FJMP LOOP1
MARK LOOP2
TEST F = X
FJMP LOOP2
SEEK -2
COPY F M
DROP
GRAB 301
SEEK 2
COPY F X
DROP
GRAB 201
MARK LOOP3
TEST F = X
FJMP LOOP3
COPY F M
DROP

GRAB 200
SEEK 21
COPY F M
SEEK -18
COPY F M
SEEK 2
COPY F M
SEEK 9999
SEEK -3
COPY F M
SEEK -10
COPY F M
DROP
HALT