init:
INBOX
COPYTO   0
OUTBOX
COPYFROM 14
COPYTO   13
BUMPUP   13
JUMP     loop

out:
COPYFROM [13]
OUTBOX
BUMPUP   13

loop:
COPYFROM 14
COPYTO   12
INBOX
COPYTO   [13]

compare:
SUB      [12]
JUMPZ    loop
BUMPUP   12
SUB      13
JUMPZ    out
COPYFROM [13]
JUMP     compare