JUMP     main
 
out:
COPYFROM 2
OUTBOX
 
main:
INBOX
COPYTO   0
INBOX
COPYTO   1
COPYFROM 9
COPYTO   2
 
divide:
COPYFROM 0
SUB      1
JUMPN    out
COPYTO   0
BUMPUP   2
JUMP     divide