-- HUMAN RESOURCE MACHINE PROGRAM --
 
    JUMP     f
a:
    COPYFROM 2
c:
    OUTBOX
f:    
    INBOX
    COPYTO   0
    COPYTO   2
    INBOX
    COPYTO   1
    JUMPZ    c
h:
    BUMPDN   1
    JUMPZ    a
    COPYFROM 2
    ADD      0
    COPYTO   2
    JUMP     h