JUMP     main

out:
COPYFROM 0
OUTBOX

main:
INBOX
COPYTO   0
INBOX
COPYTO   1

divide:
COPYFROM 0
SUB      1
JUMPN    out
COPYTO   0
JUMP     divide