init:
COPYFROM 9
COPYTO   0
COPYTO   1
BUMPUP   1
INBOX
COPYTO   8
COPYFROM 1
OUTBOX

main:
COPYFROM 1
ADD      0
COPYTO   2
COPYFROM 1
COPYTO   0
COPYFROM 2
COPYTO   1
COPYFROM 8
SUB      1
JUMPN    init
COPYFROM 1
OUTBOX
JUMP     main