JUMP     main

out:
COPYFROM 0
OUTBOX

main:
INBOX
COPYTO   0
INBOX
COPYTO   1
COPYFROM 0

divide:
SUB      1
JUMPN    out
COPYTO   0
JUMP     divide