JUMP     init

out:
COPYFROM 1
OUTBOX

init:
INBOX
COPYTO   0

main:
COPYTO   1
BUMPDN   0
JUMPN    out
JUMPZ    out
ADD      1
JUMP     main