Human Resource Machine Final Level Solution

-- HUMAN RESOURCE MACHINE PROGRAM --

    COMMENT  0
a:
    COPYFROM 24
    COPYTO   20
b:
    INBOX   
    JUMPZ    c
    COPYTO   [20]
    BUMPUP   20
    JUMP     b
c:
    BUMPDN   20
    COPYTO   21
d:
    COMMENT  1
    COPYFROM 24
    COPYTO   18
    COPYFROM 20
    COPYTO   22
    COPYTO   23
e:
    BUMPDN   22
    JUMPN    g
    COPYFROM [23]
    SUB      [22]
    JUMPN    f
    BUMPUP   18
    COPYFROM [23]
    COPYTO   19
    COPYFROM [22]
    COPYTO   [23]
    COPYFROM 19
    COPYTO   [22]
f:
    BUMPDN   23
    JUMP     e
g:
    BUMPDN   21
    COMMENT  3
    JUMPZ    i
    COPYFROM 18
    JUMPZ    h
    JUMP     d
h:
i:
    COMMENT  2
j:
    COPYFROM [20]
    OUTBOX  
    BUMPDN   20
    JUMPN    k
    JUMP     j
k:
    JUMP     a


DEFINE COMMENT 0
eJxzZ2Bg4BD1F5EW+Wz2SajEW5jvUpUfX6fpbQF/kSXCWzh3iZaxPpe0YKyQ12a7qO4kaakToTNPt8ZK
RG+t8wad1+4X1UM9/0pzeTkIJbn0Cao4TBRhtSuQZLWrkM+3F1fsczyleMY1WLErTk3WrxloFYOj0ZuC
76b9WXtMhZPCTaZHhhhaB6vrtgUd1vaJ+qd9oLhSX6D+s5Ff80qzHS3H7ZhbQHqcgj4Ea/guDbnsnh3T
6Fqb7OoaVpTndr800E+rdEpIcq5i+ImkZ2H3S0FqJxZ+id+ckx2Tk+wTxRCTHeMV8TxFMVwiTzH8UtXB
iNzWtzEnuycmsk84mVc48Vfp3D6Juui6SY1N+S5NV2MbmnbZhTe6qz5oaNE8Vee1gGEUjIIRAABbQ2lx
;

DEFINE COMMENT 1
eJwzZGBgmG7eadpgKm/CZnTFRESvxspM08Pvl0Z2zAadhYX9hh9rZlkZ9/pYn5v+wlJ7Xoghy9qzKnt3
rpHcsA+olWFdZOFEk7DCiToBPHP+e1ev9PWu3+rrfWe3tY/Uga3+5w+8ilTfnZGQt845yWtBXVLhxImJ
M5uq4mWrEqLul4L0r88s2rU5x2ljZsHTVU+a90z41VrXI9hROFG9a9Es2x6vBSA1H+aEem6dY14wb9as
1cmznl0GiU2f0pTPt3RhYeLxsCKGUTAKRgHZAABsSFOn;

DEFINE COMMENT 2
eJzzY2BguCieHiAuGJj2iiejUolLbVIBZ/XK1Zwb9v3l7jzLIlRzyV3i+MWFCrxHc9VY1r7QLJwooF1a
oqylG3FWhcGIUT5RGmgEww4n/cZ0B/3GW7YOHeq2McuTbXWOf7CvuXTZ/cetHr/865qxO9emxPLMsY7J
W3c0+uFxkB7+DBWH2PSzeVNTOs+C+PcTapOfpRmltFf8zN7S87EGJFbZ86TRpyPpjmXntBPHumetXjrB
rzlv8oHi/VNdsmdNV81MnuXXHDC7bG7yLNuleyZVr7zbe2zFtBa5xSC9rUv9mhWX1PUYL140a8+i6pV5
i19ua12aun/+qneHfmw6f6Bu/6zVPw/xzCk4fK0t58DlxRz7U/c779c5vvyA90mQfpEbSS5J1w/OuXH9
zzMQn+dSW1Dw7Yrw//8fFzGMglEwTAAAci2NyA;

DEFINE COMMENT 3
eJzLYGBg0BWuFmQRuqu8QOCv322BX1OAQgzPODO5ggRnCX9S2qfYYLpRDSTWxac2SV799qRZWmqTNugE
9YPEJruclglxnC8fYLdR7Y3NNIPD1jKBt2zDipyc4rt2OJXNlXS0XRpgN2v1Nasb68+Z9G4A6Wkwnew7
2+uvn5ifdTCIfzDjeYpUolHKgtiCjM5oiTyh6IxKhhiHjtuxL3p1E9gnOCexT2hKPdndluHXDFJ/NDs5
90aW4AoQu6Z+lnBNvesUzia3vSD+i7bL3Bs6TeWOdXeaavemB7zvWVab1JW3DiQXtHtOqtCO/qz8zVPK
uDcxt3BvOtn9Y9PtSfxbJadf324xM2i3xcyUXQ/mZW+AuJPn0qUql/Pt1X2nV3VqnnKdsvnkg3mbT1av
FD+9c+238zvXXr1SvdL25oN5rHcKJ+rd3dGid3dKmcRtl2z/G89T/l59ngIyQ/oe0N/3tOd9u184cf+j
3Nabz/+V17yZUibzrr06+uOLXs9PFjNB6ux+Nsge/2Fe8P8rx04Q//enz2b//+u7MYyCUUBjAADmP7TI
;

DEFINE LABEL 18
eJwLYmBguGvg7HRT19nJQyPU85SibkSJjEu2kpRNzRpJ4944qXPTS2QezFuoYLvUTPPYipu6x1YUan5a
ulBh51qgVgYrG8ZoUbuFhREuMcvz3J6uOuItuII9yGJma0R0nVB0f9bR6K44/ojSkh+hXzsaQ7XnzQjX
nuecVNezPvNNAUj/1XKJPPkSgXrD4tzWXUVB/ftK63qOVVc1SNR5ln+uL8joq1vVearOuDe88UUvSD3X
JNmqHf3npr/vubHetuf33pr+y4sfTtgzYc+krrjoKZN9i6Z5+E2Y9zyldv6tzNr5Ennx02WrQPoSti/w
MN8W6nl5i4ef4palIYpbFGJbt7pkq25fWLhp55SyE7s3VzjvB+HourB9ua23d02Y7LWVZ47Y6uXLQPpB
/hbR+77RVn/vTlt93qNM+lfOvNYxvDxJZe3tOKm+mwyjYBQMUQAAeeGQ4A;

DEFINE LABEL 19
eJwzYWBgqFFqdAtXmR65W1WrNFdt/dTvWv//A4UZNAW+xM+VLci468Bd7BZ6oJg/I6OStV62CiTHnfp7
r3tqzaXVac8uH8xgOKVU3jyDsaauZ3u9YtuK5plNv1qNewvbwmevaeu7ub91zl+mntlXnkz+vnH/VP81
LVO3nlo5mfHzyslsYHu2rpnbl762bG762t4NJ1b33WRaDrH/47L//xOW/3k2f1Xeuo9rXKc82jClrGnT
m4I/W80L3u6UrZLad276mX1PV53YnbeudavgikcbPi1lGAWjYBSQBADkmWlz;

DEFINE LABEL 20
eJxzZGBgyFTeZTdTKtSTRUg34ihfXGIib1P+HN5/5Q5CO1r+Sr/o7VMM6gcqYwhxnG0Tb+XhN93cJyrP
bHe6kdn90jwz/UZeC5FuUbug/mXOQf3XvOK7DIKj64ojm/LfxmTHpMSauR+NfqfVGmEqdz7EXwRkjl/2
ccvErE3+ftnPU6rzBepdinJbo0q625XKFdtsa5bVbq/nLnZpMkoxav7h9KDBPv5Bw7U2kL5j3W1BIt2q
mQt7hZP2T5U36ZjRomk1M0KndOaUMpC8yvJ9iteWxyWaL+OZA+JzLaqxKltpaH1m3S47EF816pWcnf98
eTYnd9VZVuV6l8yFLJ+Y3XRgGAWjYAQDAKP6Xxw;

DEFINE LABEL 21
eJzTY2BgmKb+189B6VFEl9yc1PUypSWvZWSrGOWj6yapzGxq1vBrNtNc1Smvzj7hjgLPnAUCO9cCtTBc
ds+orLS/1rbR5kXvWsuDc35b7Fx7zWrvTieniXv4PPbuPOG3ZlNkyKell8OD+i+HL6s1CUvOzQ42Svno
fzVWw3dbdILXtmhzT/t4kFnlMVtPBcVZHjJIfrntUIVNzevK7naQuOukxdrfJ7W+ArEl6rri5s3qiktY
vjJh/qoTSQyjYBSMAqoAAK2ZTpE;

DEFINE LABEL 22
eJwLYGBguC+s37iLdfHhXkbDy7rMfs0TWQLTlrPt97rCdcVkMz+vrq6wpdYKsRbN55J2ZutlzNz95Xyi
GOVtapJkr7XliBn3LhAI6udgDeqXYnnRCzSO4YlZW1C4SVsQm1FUqK3+tugXmgsLf2kcrf+lUddjqWMx
M82AZ06eGc8cK5vmGekO7BOcnPyanZzeFPTYbYueZZUeADKD2T+sqMr/aH2P39w+Dd9z0329eeaAxP97
R+i89fE2BLHdQm9Pao1QbMtI0CrlTj2bx5hzK5MxJ3x2am7euqC8xM0gNVt6phnM68qonNVeODG3GWJG
am1cYnCdfXxmQ1dce0dBBkhs+YZyvaZNWcaxW1QcvLZaB3ttTc5dtXnvzmebz9w9uNXnk+r26R/Ld154
+XFP8eMbx3ddm3pxxflfl4QuMoyCUTDEAQDiiH5H;

DEFINE LABEL 23
eJwLYGBgeMXzJf4Vz9k8b+7oOikW5fWhLC96d7FmVP7ldnbazH9BQ1f4YuAnoW3RCwROJCXysqVzsAam
AbUxNGukByxUYEsXkeMuviHbXp2qsKy2RulS1TfVNwX7NYxSlLWmR67R3O81TX2tc7hKvr2tPKsdSF+2
s26Ek5NuBIjN7J8oDaLvBSTnLg6oTXYKsg7mDuXyehWZ5MKd6uy0Oo0/bHXa2bzYdOYWi0yLmX7ZWxaC
1OtPeGbt0/GvXL4lqH9So8XMvrqyuSBxiTqZQOnGi4H7WyvCQfyPa0zlQteZyrltOqRrsnm2zY9NX+Ij
Ny6rZV7TcpB5zdH6xWsb3XauF7Js2jTN4OBWHf3e3Q/1fx6yMxM+Mdvm3cmbDkG7k1z8djS6zdke6im0
Y3rk251s6fZ7PMtzDoh0rz7stYBhFIyCIQ4ARsd6Mg;

DEFINE LABEL 24
eJwzYGBgcBFtyi+QTM5VMO/PknR0yTb3lMjLdp7ZlKT7f8Ff6Yl7BKSlDuzXcNp4ypBlLVA5Q13QsRVS
iV4LpqaEz96X+mvKvlTj3l1JO1pOxM1sagzNbV0cwD5Bw9drQZmP6JaNPrxHT/h9PucUZHi5NcLwMkh/
X97OtZaVZXPXtHmWz+s6UAwSY5oT1O87o3mGyvRjK65Nv7O7dOa7Q7dm8R51WzTtxLXlEUeY17jtZV/f
sYR9vUj31jX/yuevasr3XbEuh2EUjIJRQBEAAK/fVTs;