JUMP     init

out:
COPYFROM 1
zero:
OUTBOX

init:
INBOX
JUMPZ    zero
COPYTO   0

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