REBOL [
    Title: "Headless"
    Date: 28-Nov-2001/17:16:15+1:00
    Version: 1.0.1
    File: %headless1.r
    Author: "Maarten Koopmans"
    Needs: "Command 2.0+ , Core 2.5+ , View 1.1+"
    Purpose: "A P2P console"
    Comment: {Many thanx to Ernie van der Meer for code scrubbing.
^-^-^-^-^-^-4.0: Fixed non-blocking I/O bug in serve and poll-for-result.
^-^-^-^-^-^-4.0: Added trim/all to handle large binaries in decompose-msg.
           -4.0: Added deferred and oneway refinements to sexec
           -4.0: Added automated stub generation and rugbys ervice import (thanks Ernie!)
           -4.0: Added /no-stubs refinement to serve and secure-serve
           -4.0: Added get-rugby-service function
           -4.0: Removed poll-for-result
           -4.1: Added get-result function
           -4.1: Added result-ready? function
           -4.1: Added get-secure-result function
           -4.1: Added secure-result-ready? function
           -4.1: Added http transport
           -4.1: All proxy functions now have refinement corresponding to rexec
           -4.2: Added non-blocking http
^-^-^-^-^- -4.3: Added transparent error propagation.
    }
    Email: m.koopmans2@chello.nl
    Built: 28-Nov-2001/17:16:15+1:00
    Length: 14034
    library: [
        level: [advanced] 
        platform: none 
        type: none 
        domain: [tcp other-net ldc] 
        tested-under: none 
        support: none 
        license: none 
        see-also: none
    ]
]
code: 64#{
eJztff2TG7ex4O/6K8ZMXXblM5fateP4eFH0ZNmXuJ5jq/xRrnes9atZcnZ3nsgZ
emao1Vrx/379BaDxNSRXTi53ZSbWkjNAo9FoNLobjcaj23pbTfuqez0vNuWrqmiv
/qtaDu8VjxaPCvjgm6qbbttu6OfFst3eF4vLQr/alNvgBRae/hQ8ZLjR467qh65e
DtVqyvAEjat1u3z1XnHxxC82L5rWfzId2nlxvWuW/Jixxs/bb6uhFyRt6bpt+rPi
u9vKvLir1+uibdb3/KAYWmh/eVs3VQ/vhlsGN0CFL15Oy9UKAPXw6rrdNauibujN
uu6Hs18K23JXLMrmfspduCwmX8L7or32IUBD1OLZhOpdhui7Ht9Dafu43G4raDki
W9FpMHUvj59laPPitlq+Yhyq4u62gm50RVnc1K+rhsYPQMBvgY0PdAe3xQIfvXeZ
Q33YdQ3T6FlxXQO+mo2Kra52Uw3T27JZrXHoU7hOviFwPZFaSgJsQRfw7TWak2Ox
7Ks18KViZh89GLCpQj5DzuerVUCuokT+gM4ajIHWhlfoHf6A1lJUdY9MZeInbBkZ
ONchYQ2f1BHn6I6OvZybtgOC6ba7atO+rvbTB4YQCyoSXXftpmh3naMHtJmdCVg5
xUdFWCZRNOho3IlyvW7vRudJX9TXgPqybZqKRsAMZr+tlvV1Xa3U1KaJgyCrlZ4y
NYzusNuuKxQIqjRAWmIbeTEQzaV47tcey7L4na6AsYdq74AQs9rhoF8kz9REGsoO
Zum+2eQozwhItQRmdQN451jlC3ppMasboNA7YSasnUXKLEyjaL0N0DKze9l2MBzb
tlnVzY2AYpyRP+T3T7tqV2lmwGGzk32iVqNAgvnd45KOC1XBGSw1JaxjxebeCNM0
Mdz7uZa8jFFIMkMZg4d93wa6woKnvhSzDcxda8UOWpiuyqHEFbypLvONtcnBGePm
twE3jw4OsfrY4BzB7ZrpA2Lpej08yvNVPdTluv4Z0K+ABe6HW0SW17fluq6aQQse
+D/Qa10vS/q5hirrh3AWgszxFZdNd9ybwQzFcYU/kRgXLOLTot1mZv5yXZWwmO+2
RXk9VMn+n+W6EM4EfDllhEY7wmwVdKTqurZ7VgzdvXvmapq2BfzcaBCWAXxgVHzd
9pWuNCM+9coEnO4IR+h7yh2wzJSAjay4Gb6C0W2q4a7tXgnvTH5d3smwTVWTgmlW
rhxZpRivyAR1hlNsqKb11qeWX4+wx0nmeK6ICqiV35J1H1A3cIfBcwOW6+IomgHI
eNT3a1p63HHZ3JR146nxKQXZH9vpcVqnryAD0LkHJLMOq/Fs4flsVXc4L5p2elfW
g6+Db7t2CbqSMUKT/X7JZSpSvgrWD4fbElcjkNDA6s3Qe32HEj8XC2ujIRtbFSNe
WYdqs8W5m1sOthU0VUMpATzO4KfOPqNKj/fxoT/luaHruuv563E8DbosVpr1oHdu
quJpcTIstzF7xxXxY+gQSz3CabTOzJpCmpge7rnZ5K0gSLicyY+zi+1BkHZnxWct
aQU0yij+iLd2zVCvUQXoqqLsLHP8Eg06DWV6xGF9RqmaG2eqOafmZoYfgUZ+Gc3V
qi3V4UfQbre7ubr3fSPWZWOcNNWbajmtmtesW5mFdnfV6wdXu3q9mkKrb+7T1GtK
YIcFrA0rb0Htq+Wuq4D7VpV6ir6RlAChF9PbYdgWt/AaVOHqpuoSK/S6LjbVUE6v
+Q+aUiB9NhtU3rbnxfai2BW3O1RY8VV6FICVmxb1PSemnqFaO4Mn3B03PsNt194x
/Wh9fw/URiQt/5rjao8cApr7TdVUXQlLcFkQtUjpKob7bcUSBQw8arUwbf6ieicz
nMjjGt8B/Ha669YgKv6rBYm8mMCkm89mk6K/73E2yqo8u237wRqHk/mk2JKuMK1X
l5e/BsBPnjw5n1ymEeZhc43cJlrBIgfhfbv1EH4HWIDyRQrlJGMuhIfmxaTHaTG5
TL7rwnfXZA8FTIOcB2jf1t2qmF+758KUc5HB+tX1FEHARG3XqwAaszv7P2erqtrm
pMcpEKoH4wynogAMVgiavqd24uxdP5DSojWc3u6C4vgB5jHvU69Ba4EBAjEZeG/1
RwTVISWr6+kGRm2OMysDB4dKQJzKsCXwMt5QW6WYkACaxEU1wCRN8WMHlsvlCIwf
kD3ilAHrr3ozZytQABghF6+qXguzLSqDpg7BSZBrez4vFqfb88epdxf07iL5ruxA
eTXQUZkDcX1e/B1l69+L/lXtzVDbLzbebqty5YYdp+62BJFGNM7VCTjAVlLDkxnB
GXngw/ruW1RNRIDnFlNMgPye4IG0TuMxkWvTzplYTXlHyGayHQJ41RZXdQLGyard
b3oQ54AkKdD0AiJR1ff8Rk6FlCj9qCUYNRI8XXGSHrJ0X43thlzWgVY5o8XEfgOz
9hpW2mrFj/xfoKPclfeJ3uebw088+0nqdskKD4X+QLhaxh3EQKrC9bWvCD9Oju2F
jO1dQSobGBXXtlWY7WpeOa6JBvmOB/lSyw8n2da1iLWkTFuEgoxKnZ6SHMPKj4tp
4UktK0/nyNdEVBK0VDE0FLVaiAuJ4xnhF2Exn71ix6KDo6xcAiimncxGN+EVwYz0
ZI3UkpeYomOJXdyBUjiFV9Ec9W17y6VpgugBMytnAnXZDwA427avWI1gxUKryKzr
iwmQtJQ+xRI9WQkFaVCk2pLnpS/Y6QLde92Ko7G9BiMDW1xZrbdnYGUP/AJT/764
Q4NKaMr+b/bfacuKgUxp12cRbZBa0AiAi2qbfYbrDOp8xeT7Hr2vb2jVBN0R1iqo
TgofuU6lA/h7F/oNxXTBcbZOrJf4a3AeL1DxEcWqYZ9ZVD1l4Ey+2m2uoG57zTuV
WCL0uAjLEdWBMt192q7B9wn9CXehwJhcUAcsGllXk3glqB2P8HuURZHkltjHLXbU
N2VrEr0U0YzkYbR44m3feYmNWlXGwQMx8JfXlKOOWk3JZhiowAD8Vx2YBDH+8WNx
UKPvTv7QnP1XHYMUV/4zpsSh7R49Elqo4SajXocWkbBTIHpdsym7m9zqpUNChnYA
kdpY4YvV6K9dTopT4jr0LOGXdjcodbhXq9O1uL9A+A9kuiT8VtfTvr6Bf6/Wr+Bf
gNPDH2oT/lmSigDMVDTVG1IK8EdayGPxefEkcmtgu2DS5BiXWiZfCi2fuiB+Rl1i
7K5g3BMOsYnnEFOrP0IkJ5gBOQnYgHRKhguGSeCrQDLMiSBsVXK5oAwQ1bhTUEnV
mKbmLapbBHjffJUhYD12NpS1GUEgoGOCIoKkaIku1Gd2YA+chHr85yZugyFkTbFk
uxrQ0SYMsRjx5X93irmGiCq6eW4ePU7Cu4yeZr31OdYd581flyNjjkrh5xFoeg7/
CC3IjL1mrkZu0WPmmMiTdNf1ej19ktme+t9V106B7iCYKQpq6FCzZKGlFUQEAi3z
ey8SrL2bbgirvEsdK2eEzbpttw7GtFhXzQ2JGW5PHDj8a/JEE9MEIOErDVsskOmm
v8n0+UUHM5X2XzZV35c3FanmLcdM3tWweA5d2fSbuu8DFR1geiGU6T5dc9tg9O2W
YPFSGFW/28g6x+alMTMRIvwX90uM0M2WnM30i+B6XV1XZTe92l1f52IUqcR9Yjdk
twVLhiIbMJ7BxYuVG7Cwyea5ugcaqb43xQTp49YzKoAG0VXF7VSr2KLA/vX1zxXM
63IVUYroRObERFUlnpBFh/BcNJfF4jw7fXnfbI+8tUjgwJSrad0a4iCK57EEOy+e
uko5iaJHY1XtZb23n78B1loOmvdkM7gHMlaN4bxhgLFQHKlNVcuEZjKmuVD4CBiN
ESM+gl9QaUN7fyEzIZuOzRqKzDVY02Tv6uH++OkhiJ0m5wV8bxuaFo+B/iwlA0Tv
oNmx6S17q2sQKhRKwhVY8xL0Q6Ttj1XVD9nYHZZN6U4Ju55//OTJk+LPVox5wH2m
5CJz6U7dcttYIVlZNcLvgTzZgil1g4g+dLtqTG3OVlR9t1X3L6z5PhKhMjaSIyB6
Hy3esYyMB6Qvr6speldy+/Dwfn0v/he9BJwVElGLM85sWxevy64ur9aVhL2t2R3E
4F6X63pldobFMURQvbA363PzIu8d20Aj6TfCc2h/bFDPSLOdc4naR6ekHSDgFO+I
Ek/zKuMQXIiO65cJGSV8bd8+zjFDM2fTCTVcY8eMYwJd99y4ttRpAxrRebD55QQe
1Euxllbg7F4vK3LiXhN97vum321RCCiv4rwI9m1YXPn9NytBOxW2yoiov9Y3tyKc
wCw5GZVNnqhPWH3eCjuqkHgLlC80hDvsGiBwMyNpLGMz2YptjQYfVbmws2e/eDh4
QP4WrjqMaWInbVJcgxZc4Va6h1U2ZqdZTdH4yx7y+BZdFiV7Tb/+94LL6qBDciW7
bbN4ikpIqisH4//ddy9n52dPigtYLb7+9x9nL1roGbzGYI45Ria9GWbbNYbI/Tj7
ceYFL3bVTzuQojTcmdMBEyPLwmM02K4B4HQOhDTRwvUnpehTAJqpwspe2ZTr+59B
2xtd3/2TAT8VE1R9pnVz3c69infV1ZQ0sbrKeFV8hMIZ0BXdeTGcj+saZqWcFOcX
H370h4//+Mn/OH9yfn5+cf7h+UcTMjad5WHs8RDrx7oN9B8JWTKDoHQ95mlDRYr0
9gfj7GD6Vww11rS7HaxTvJmDEEDd260zLIlF52TW7oqJVPkJZww/Wbz//vsTVssd
PDQX4PmlNsF4I59aw8ZDaaLClReMzpznJIhoBziv19stJdpu2C9OpFlaSp8JAQ5U
bxS1Es2MVg3Ro7ppaYOsPnqkDEwdOboQ8zmeUaBJX+zokNbUMgV9p87edfgNMRsd
f/J3oA+nndnjDzmiqiLhQcx95HFyCnpbrvuEU9oUYvCRJeiKYWcOKzVSgIX3FLVR
kLYjSFFrfrH9qu8OupkkqLiXdquZpkmO4HacterTcmD++cc+tuJRV5CpZccqXukA
gbm/lERQEnMxo7CfVpvtcC8QkHZZHVDx7VyL0PHGXfi97M0+04AOCSwWUdSLT+9E
5guJJqfG6FlltJiDdzcM963qvuw2KYkSEC7oHdgTO5iSJym5lW/VuElAyRjSMs/W
t6MjQYA3PjFycSgPqyZaj60sk5KXlmQNzcuqBq05h5BRI8pViSjvZZpLnJIgwMet
AXhqyEzOzAKxX3A4+eALqNwkUkprsu0I0Jzs5yMmtBVXWhDm0OFFZ+78MmoMU+gZ
L0Z7Uy+fmSVrD50jZFJdwo92ibKTU1DQaua4tCESu3E9VinAk3cstB0ZuJNjkMZO
2IA5Oao1vCUVUZlN9ozLqTroCLaEjc9/rH0UaltMOW1Rh0Cz0tmW+1SK00inyC4D
nlIhy3VubaEdFVI5DoOdOiSXHivs2Yi2YJ3T3hJ8+ok2FjRCqfBk53TO+uoIZzl+
42j9dKyhREvp1UH1MKmZ6I/ZnccxVzHAgO5RXcaPngQPAoDj/qT4k6uD/uDHsFRT
fzAMXTabCN3Hat/I30vRn4DnGrSxM0te8il+hrJ/JfRMjqMjAOo3AZpjxYcpLP8j
vGg+0Oq4Qh2A3Kvr6p5hEOAWz3juB3+gJh0UN+5g7uaTeFnHT2I/91B294bYHN9W
fG82EvYAJ72hOMExO0ZkJ8SWa3tmRi4rt0iPzsguKp3eLNOftLhJCDGNGPJqTJXw
5AZ3NqAA+erVLlmmmG6NZ1A8NvQinlQhojD5w0cw+S0CjyP84uJPiycgSVJDMw+3
GfCzV08KO+Fm0YhfI3MIZY+l4vzKUasHKCb7zJMAhKxJpAqydRFo/vta9E5Q+B6J
TJP7YbBKPwbDH28rV53fu6vCA+6qRiCoOHQCBbkERiTWMNNK8ck412vp6m3DjbPU
YSZBrINne/Wr6eR5LOcP2md0OkMe9+MV6VHiBqvkw6hrxv8fQddoGd9v9WTN0V/F
pkl1/N2sGzpCTtbLSCYSzhkgm0Llctl2KzkUq57TeVQ6lWAiKtkqOhHcnB2lrB9X
Kdr2fzPNb8/SmYxmt1FhT2nDyB2BJonPMO1biUBVxyLsWYIwOpxrOnQtBo7Bg0wM
qvDc9T2iPR8vyR+/nrgB4LMDWHQyQsGMhTiCnXKM68o3mQx6k29tsgo8TZ/Zh6K2
+BWeVyedzkb9UugdmMT6FLt+/cg7zc9AJ59TODZnC6MYKbv7X+JDOdxBaC0roZAt
4qd08OMGEKyU50B0aYpDCVc1zmvc997ycZCyKfhQNZ+atsfdi123xga+5q1+lx1F
sdFbgeyG8pBGLn6hQyW6FQZsM6dMvjHfYHpKAjFJcICUqrcSOdZPMA2hpYV+zhCb
lkfg7WdtczIgiq/rVaWg8msikxsvs01vHBsmZAf/nVpiU/iJHMsCrffSjKxfTKaq
rcVTxcS+Cn/4vCYKbdDcwuLnS7xrl3BmoRnQUnMK3eykdPocfBR5BIPyDMcos4TZ
TssmDo+kiqrP7qqpmuniXg8CiaKInZyjabQU371LM1HKgzTRsjSL8DqAWlznQDqx
z46YMuAc2x+TZCFNvhzIJC3Pj2rEA82iFN4Mu6apAMTwRvlQGJ9VdV2ig1ZWEsmh
QE1i3gQ1mqakORqpq3T5OlxWDrU/CR6n8sCKfhI+phDL67bbYNKHzALznSnTm9gP
TBBRN/KLOEctgbtioYQifowntezAqt2lRw9f6kQo9Gwn2yw7tcDiNjuHbO7Mrj0f
JGcIuDWP6Sp0XJkx3tAjS0hk+FU2sXf7OVt2dAgYeyG6wA1hYvU4m8ZGwfQYi8zA
YyNXxP6qeZ1FCDpBmI2XoB4nxgHYIKOVmK1wgJEP8G9as7VWvi7rtQ0JHG4BIeJI
TXwyOf1hdUPYmxFUURav+WRqFF/hjSIWMuGQ5G679KMjdf8wv88UEGQRaUz/JMGx
aC/xjXwyPqQuHybep+dyEPZCNTi1tHoWpZAQxCnTo6vBxTR8XlfH8oo9pxI2xaIc
8AW5gNqMyIUwd1YqPZAE0VSZcwpk/0XOt1Aq4UEN/5nuMqkIvsQqFkHx7WVUw4ix
qCzgFJPUL6M7QweLRjiBz67Z+WXClIQpaLfMi1Ji428kMIsjUdL0dBPCAoqDj/h4
QTQtyH+2oikZzRWzU+R5eQKRxwfeKR4P0/jBrJ/SPLfYKowT1XUhj760NuYWFHrZ
U7ZeziW161GgEXXJeqBliTO9lfd+iKHUWMRBwq9rtZvzOrcKLTcrOZSH30SU0qKb
HhwTkVBno4JkxT4gxlNKetpBqpbFMZ1xwNDAK889mbvYURfLxmzEh2hs798iJxUu
oq+YJKIBf4nnlJ05FCo5W+76AaYGa57mlM8JWFWDwio6bLpfFHfq8KjZP8fAYJtf
IjMVQwF9uFQbk9ae40wWbZNcz4qkoGQ4U/r5vho0lJTMUgoG8jFRPJHjdgx6ovgh
bUQD36e4Nq8ySD06V2go6zkq0rTP+MAMaxiFqGXH/EGcQkqTaeCXI9iGhBEKUsqL
mA8v59X5oPEj0b2HJTCbBJ4nZLWHkDAnXYfLMS3tK1Aad0tJocHiHAeRAqv0+mG7
Iyu67y41SdxoFj9zhXNcbi8+GFJlib9vy+am4oPGKXaNdiS8oNRnBy9L2TrxKmVt
r/+3livnM/xt4RpduCyd5pzFlpcsk8VWktruW8GUgQUMi/mFegd41u+u2I+7EKjR
9qmwpNLhw/GzflnmSuOUdV4G+0YXcym7suVdEa6YWegS9TMlnftY2yuJ+mERQVz7
HJJoewW4UsqKS9VNlntEGvZ02bav3MGKxduXFLIvhw8khhCNPylHOydm8butNjzX
G1hFgJRoRcn6ITUTZ5PMubVyU5FaTw/bLfpmUeJxO1N3XkAe0NE6/m5wce5ZVSbw
5djuJZ5OvWMO38K4vKDnczEvlnzcoanu1jXY6qc2rxpTYmkShJmuzDFP51byt6Jd
8nRCyQp9G/5/ykMfnJ1kE6w9YRgTXpmwqs1zZimVbW2RbO7vHhbSp8scFgRUN8sn
Ocyo9u2m0kSUQphbuIT1lTOyGDoFIpgfJ+IbuAmuu7DswW3ZXuvEj740DblELwD2
JIYthLwDc2PKLsXgUohHVkJer0tM5fLE0L5qpnSwTLtvSDuNH/NecPQYnbBmsrnl
lGfd9998ifNr1spBO1LfOK8b7oIxfsHGWjH5vkG8qpUrqT1fWPHt8+5mR+cit2WP
mdBwWxTqoA5EPT8tqe1WbZE+/iVadjnvttDV85CRm5x3+BqYRruhXvczeDilMe1m
LGpQcFkc9eJBcOf0ziT39vo4Iz+sn07O+uWoADqDw9OkgIix2lFuwtT6qrV3CJjb
fFpQTKTJCajBNs/BJB+IbRsVp/hB7fL1HpIZ+KBWNf8S48FibG8MU5r/1ziQlAEO
FIHKu3OjpIndXNeAhbtObNs2vXcGmdkIN3Ep/X6akXg5RxSWLbDC7oq+6/dBWqkZ
ZaOulyEb9YVVDCjmrm6mV/fIl6T6mu9X2xSfoUnj4bEwiMwpGbwaKseH+G3d3jgJ
ixSDBWmiwnZsfyY0Nu6F4sk4UkSyP7Nw6mc/7Wq6fgUqwp+JGQgKQ8B82IZRtQxT
fTZDS7wsZJCZ9+YyYDJ3rDvB+QRXRDEltxdg6ZhIY00lX+KHTtVImuDZphyWtxTk
RQ0TeDwL+QxwTEJIOaG994/80t5P/2CVHoBmP9EItxTllPEoNeR4Ev+6DL3oYX0y
rPFGrGfFugVbjoeA9qMKmvHCF5iRq5+RuUda/Krp57MZFU+H0ukJoDsUj00ifCou
xBjtR6aIuSeNiN9ialz0QSzfWCKBSdnc4iavtnMiqhMFTqirivLO5xA0lxco+vqP
SAL2f+A/l7omnppW6CZQMzJprgSHTGCThE7LHRJfJ1LASo9sEw66Nxpkea3pxkYJ
QEwdQpDV8VSyIlDOO9NiIjyeR10PREAIvDjDyGbz9wpE5yIYo/iJ6DFOkMWtY/CX
rOT4NS7Ak5YBR6NphgNW1Xfugrl8wDyUn2PiJuAE8y2jCRBisuoJG/agXIOOaocH
GvcG3DeTlYXMYMRADsx0W2w21Juq3Q1CPvmVK5wdCb9YdjzCYhjuar9mMaQrxAyC
weVr3sxCpWS2AUO0JuPKp4dTtMOGMJ3GTLTy8InVX+lXqD9FmhOrPVbFFp04PjfP
USQlKVf03XhsjC41LSX3b7/jGCSj/slr6qCFau6aI1NKYixAM+v5/jJz4Mwa88Tc
LIKe+bqPhSipMklpQ0cK4CbEW1IiM3tkVdk/lwEhRDcLLSHfohaco4vwfCzne6es
yxEYiZxEp1z+zYRQFWJYaaFtiKfsrIH18wRmJlQPVETDGQzFE/BWeWWqJsluSUfW
ifHU4f2Z3bLsK6VEEhocgqFWNo2xMSX+9OfikyfFgkD9bmKURifKZIMZJMy67G9j
1USUQjdPF+ryqpkxwOjVeGVzl2CyOr+MAXh0AuqjPEyetg7YOq17ogdq+heQGX+V
9CsJIz1Zj1YqIqEjNul8ii+F3qcx9R8XOer/LqfhJh+z/BVvnOPz4iS9LuKHZXGi
SnqlNFSXjYg5AR6hS5KewdOR+vh5ifhMn++G27arfy457xHRa/Jp2cN8mRRVc4Xc
Tw8ZIyYlatZZ2EdRVgnkuTOyX3z91Vefv/huEvZohvxgM+qc/zgLE26aj7C6Fvdu
xcIQXJAEIbUOBTSBZtOFYztV10uPOQda+Uvm3loYjVc3uwozpcIUJvdwbI3FdR+g
wOy3E/Q6Oi8mf/n8O0WeYyb+c1hxt8AGk/dnYd6AF9YRMsdEli6C2ny+x4MKz2/o
yh/eKAwK/DMkSUKnlAwWSr0xAQWtzYQiW6RxmRPx0VogUiVcPQ+TBrZ6Cl8qfMAY
fVbi/bffykVwX5YA8m/tihxecxnA6Te4AwrCz+S5+rxZtivaAjNPvqPMV+EI06sv
5TTWl5Jkd158/mZbU3TBN7jNg81qbgjkF6oiqf752pNRQ8zlG7xAkoQj8bwLKaw1
u7lL6RVJAsdLDMyq4gcK7IOlsWtjoXgS5XJ4ndIRa9cRa5bh71Cp1etXyo/xLgvX
r71gjdqP0EE1IXnv/s/Fk5RrJskb58lV4l26T9NKbSNTSt6nkxjNyXRyZGeNqUdR
C7QdDQrvdb0WSp4ykaFD/o1XSjVVqugCdNrHqZL6Tmurd2LpUA+3ktGPq5VhOViu
2mvgA6m6ZV+UlJtdJP1t/qL28utvv3vwcIoOkRlVI9SU39Cp6L+bPJsUC0pYz+mb
6bUNZLFljGcEfmc0Il/0TtT93bM307u7u6nZj65QWnvZnVNgjJg2Z2QVOROKiJ+s
zZX9ENG2P6ATi9RlcGpIc80EtZJapWfv2/vGfOPFEXFhGFRP76CZd9YyD9IuSRIZ
X8IiUcXpBamVz3cj5AzwI1TXfSprcvnVCqtdfVlxDVHxfC2Bl5UyCvotB9m8U3tF
Sd8NfryYe7/cYtWy7yclHcJ6FOYpapy8k1CWhcRuiFuJ9iN8T1OC4W2RJV3FplOL
cMZsk4tRI0yyMi1jxrqSphlfNTeSYGzVkp4gacH2Gwk+GeYBIpgZVUqI3y0FI6Rc
COUcoHiMVkSNGK9e8OI89+Kj3IuP0y8+hDZA2tyV3Sp8cZ57cZF7kWn8oyd/5GCu
cqeSdMe0lsohle5ucV1fnPLsSk2ox2jy4LK8MOxA8SVJ4WLaYLcib5diDP+33794
8fm3GN6md5Q4dDNw/en5zdHBPj7R9A525D/Hn2dF8Z1o8d3a6MO4Ok6W7Q4vwW0H
zGbbVaCgVq+rFZT/1t9Fh0rehEr2V0Yq7MOWsj8n07UYcoNmvI/axj+HKT/MBjdU
swE+4SJnPLgUcGLWF2XIMaSs7GYv8YzCbCy5UuLR7E5zezNjmeXlor23hLeY45ru
0uW9pXo+7JYWXOF2hrdlYTefYi1ScxMLvu+/+XL6MghwIQ+J+J9lW8HGvbCjOEJ5
BEuDDd+Aqx0MYnDJH5kP3K7xzTASJ8mNL/zkCGRyjXHm9RBdvHWBnM9KfxdySQR9
WAPa8VzdpPtrpqInk5lVSBkkz4zZJKXdWQqZwTuCqHu99Zp6oz77lBHjlcgaLwel
sEKPPHI6oZeffYujxdvbrHh7UXfL3brsjMxCcqyqAVSUavVLaiCOE8T4UZtVaQOK
4mOd53auqB9VCPa3YvQ8PTbQ/mPutzpPSozb5fPdFiO9qx1YEpQSzHhDMs6Xxym8
1S4ae258eUD3zHrvgwrpTXizj04OnjxEvYFsHyS5Gbsn2atsuu+0AON9u5yA4rrH
dSiql0R7rwckRig/+46afHP2VBXIYGAri5kNk6+pceqNGa65GTU2OTITI7n/mnOI
5szFRwoSTQdjuyGwMCIiMV/MEWWMn40jZT/j4xbmzp5t1TGlQDKu8TYOPJMqeY7o
3MlZFC/7vOHgV97a9aMcyV6efIb/Di23Yc5kORxi02cxgYWkCC4T8rxsmIeHvW9a
ubXX3vgCg7DwK2uiSn7HVDTD/r49N9SB/sFUkVPqFQE9tqudXF98QE/NlVpHdZSy
o9hwnAM7HPXBa1KDL+/KVzGHHQzXbhsobGlv7AFjw3tqMDh0STf5vOIGvYljWwtI
Ss80Wv0/Fa3cBmGEFoiQ7p42eFRqUHoYiAvbjqwgShMKxLEDGSdBs11MyTo3kngs
wOd5vKUbF2u0kb4p7JEBDNN4lFgUxZ2beFMsKDFayfuNdrH45vNPv/5yYioYnyGg
oU+hhxcr2IQq+dwmmXwo+jh79pg/NVY2EsfEx/yb+PgBZ4oEoevupKDUVfwLBQy3
lrhGHNjMZOyjsH5iHs/on27K3ltKFtFbOgGDF8BjeBHYRLDenuM/F/jPhyC7QJG9
A2VLhyq5m0cIBBgz6CYD4205uIds+dju2cqB3uc6Mde3w+i6mHn4wyKqJuPJ5x89
avh+AKSKd8EVnuQJsLvI16fLbZm0GPFrapz01Tq4NFYup6XYUq4gFhqfrqHbbmig
UKPBApdhfb6TUh29tYf4gskWpEMSpFxJPea/3Uwa9Pn/m5tJf7sL81/jLswf8L2m
sNARl5QxbNUqsP9GzHj4I47LXjy3N9Mu39+mcuv6d0kKBtn3XN0HNg7Ku0msy98l
ae4ZvXV3+VHpw8g6c6n87E91aNk+p+R1qcyL9BYUm7tS5QqfJSC4ZDyc/RA4i1fI
9ICBGuaj5gv0KKdeuhjTjs8F0dYDHf1Hcmy9cpcPA5JMLucDTq1N0rcEnX+dTlrA
FlH/WPe79D2GnU6Xt58KnKIw2cckGcIkiWlkk2kSD+rmdj/KfqUou+H5xR/PnsD/
zinNYQoAHcUJsh+sPCeHy+2M//nveM7krj+LjxvNg/r4Gbm7zMjAXKDaMVnGZMMo
yMJyXGkREXH7/FpPJ0pvgyqWSCJTdF+aEpuyQDaUE1nLAiJAY3bamgN8fq1YU7HH
6Kw0PyzbzmcV2AwbOrjlMhDa1jm4oewFnEquozWTKLsOurYUADCfaNE/i82nFZvU
++91XTGzHZR5x2Q/l/xoK9/1l5hg6XtZ2WD1kxw5gs6TN7L+L7qRFXuM/RuqgJRi
eCYnPikPbHJLgsc/nKucsIlL3Vd2H40o6BXHaHp7V8WfnxqjOSaAmRcEK7o6JLY3
Pyn+5G7jVrUy4LmEmfafwHRW8RzOHFSAPklJjHRTCi3ahdCNeS2ncT54VXroTeIH
3qaYFBvBgWE9K/gywXx2tbcv1pS7W7JDKv5zKU96kmVmWpMxUoIyjuYCMD2DqpUC
XXxaFUsocb1b86nhlvzUnBbUZKQuds0azY37dofQGEqPSj41YA+ooUShkbSz6QM8
8YbVNiBZ6W68La3XDAJZpGbNDtF9D+PdYwmHOPH8sS3ysXzZDJG+jQmuUDzR+kgo
Z7M7irDJZZYbz+EVZVq9r8BW0evh/22xp3jt1xZ4vGGihJgvCv0rvMlflJYS+s6G
fM67i0iSuRvAx+//pgScFLvCl36nxE8yF2cMTdBNp+EMyJOrHVQ4UIc8ZKwlK6rY
z8nhDm4llxvIwdSWPF6OTLl7gX1tKC3AjkrDe1QG3lzyXXpn04DXS7uZYgIf0Bwt
xDXABq34LyhK0aoz7o7WKFPbmKlp7qFE88O06AmOl+sKYyc4vco9qGivy3W9sum6
wyByk9hPYXjYikVmPe+Jk7nEaf0ZDGf3F/wetB6moefB7udtbbeFh7TTqMQZ+B/Q
Hwayv+Y7jkNuCGz2/4MRzoHNwQsnr81eRxD8G0VEiMirIJ+bn8rNrxAWMi1kUteF
reXz1o01qt6rCnrqj9Tzij3Sg6L2rIZ2t7xdtXeNXCmQ3vJ6Vd2HybSm9GzVxpnG
RD7A+xEJIslg8D7nuh/6Z8V/G1aIwZlXzbKmurFe2uVdcFUrjJOK+Ypqdn05pTUN
G0o2hiUoRAiDLkwptFc+HEeMIxB0P2iVQdTG+dVJ9e3ual0vFWmNRQ1PZo0qCBoz
7jRwSRb+PeG6uKqbsrtHwc9S/lUk4l8xEapm2d1vQUOp+O+2q1+jToRQGFa4Jnn7
glLNtE4eVdv2qxgPdnQueVuaqqJHOULOvkH7631rB6mEFAYIZ9DUwjHYJ5QELicE
0h+6cn3TwmjdbuD11bq9u677wKPIvig6JnYiXfULAIrm1kyDsl+AhuaV/2xbrlZ2
pzy1YMjulSWUp+zttitWWpdBgJBLgh+/E8U1UcdkUhbHfpCMWtgjNb6F3dPLjDPU
ffdxNkD+eeMsXf4njrMlVGqc7cvEOMfveJxTdUz+4VDYiOqcnsHIMEl5QlRo1fAS
A7Hjomz6u2ik8eHciAtx4i6T8gVLRnouvQpxxW4G2PG1cgZLGOxXapfUYYMvEkkw
YUUa87jrlJcEuksNKlmCholI9lNZg2zY3WBvrqcb6frutRXow8blajYRHEM3xefw
3/Rq/YpTbwddlHdzOfhjryY1hiHWvwhXEe+tOqel7jsdgruHymswDFGLssjo1+Z+
vciSpeSqzxigI7dn9ughn7kLxbLYdl5WlDyscTBKe2yqm3ao6fw8azhMXS9xcmFT
uEpCaSMeRJSFmtXMX+CxmVBZTramC1jN1jKLzTsctKaLWN0vcXUe39hXSiuSrtL4
vik6EBOY9kHScLkM72u8lUSyaHLOHrzzjoKRbFgbwEpcT+duTZv8gKAUGHUBHkPc
d8Hdl/Wm1rfbWUhfvDSpPyu83a4vJp+aa+/KNR5BWAVFgk4efeOdGqncxXc9TV9O
Wn5pRiFiFaNgG8mgWcSp4QRr7vGhHjHLxE60SM/G78w7YAfS26qUfciF3mnEMyWB
Pu73wpMV+ppNapap5Fl6Wav6MLgMMgVNyMdNxvarpxP9Klf+SQL7I6/7M3exqaIa
NRVeGoFX1/YlepPhAnN6n9dVmWwYRo6kNVMjuAvVTUphc5PJvk8staOQfAB+bXdH
ow/BPI+gwMwPwcRte83mr+AZJ8u7k+PhZMg3Gzca1Ii7/chzDYxFw4KUmi5L0MFz
gbBQIAyS9YI9UgUC43LyF0kLJ89x98bI1zCqx2qEzt5NPRy1StND/5tp+q9pmibH
v4jjTvfxQWS1PpQNfrNc/4GWq1LN1W7M26/MY74FmlR8ocAt7SSz5o2eL+x3zUK3
dKqXUX1/0dPZhliK6imbKaLKQQWr72dXC1S05FQ27fdZeSlRvV5AUnK/wN+LiYvR
WGtc5vHehaXaQ/zxSeBHw7VKJ93qqUHua180tFHKZcvGo5TBz5pbqfLxBp3scgdI
ZXnCOpQTntvJF6tqA3aSm6ZuNzEXmeyiUZIhyk17V5x/rBEQpTYXarUwN7zW3n1l
ZgtSBVMdfQNpZs8zgdwxV69NvugTF6v5EQpHozp2754/mtZK8LaGveM8ErkinTO0
POZ+QHbD74vmyI1sMqjjOyvvZB9duCZ5LZ7WGJlhw9gO1N2SoR00ydlHN95+I5fD
MRA8VkHWanSvaLghHvmVDrlhdOTKwVRPpHFahd7tclLPjSZ+ucA3hW+CfZeH4hxQ
5EY3vkfW5vt5w/udD9vL1Sj4AB753+IJtv9+TjfVrDjAFd/Mu4fezmlm38htuf6s
iM2aY6bG2+jORNFisCRFi2HmFS9MTvfMvx6Vc0PGdzh7qLgZ4zYaA9b2LzKOOHF/
jz3GJ19rkvV7och5dlqnmTgZjfjuFwlnWTYdHpRcCiY/qBu8wzUgZL5cvNC4bFdd
iFakeNEK0Y0n1q+K84E3jqdnemrJFQUq2ArydknCPfCOf9tzssEuytX6Ff1lxYus
jy3uZCR2jV6xr5W9FKE/FT9b3nOJdpZMpijeIXH77oJbIPG90t5WEu36pAqbXSnu
CtcMtUV5G0rY9OaaaymxuZvYbgqWNuOSSCCcm1l6B8zeiPjcqCa0x3RdLus1hvKV
xbpkE4TYdPaya0naz158bS5ErbpeWXHEIPqslxhx/okjtmcSFp8coMif4OKdjl65
j2Rot9z7G/ZB2tUdAMV3wEc+ZIqPIUQ9PPfFliWORrmDL+FizW+SZ7bStht7+rG/
yYA/s0FC42gMbOoD1jwL4/56utnGGJA8KnE6Fbdk4tAIBwUXYSgCnIbbcE+Lk+vd
eh3c2BMrKn76LWjssakaG5lxbfwox9D5xSdRkcsHwPnDxzGY4/SvPLBwNFiVSdmp
Of/R1qo/dB62D+3xbhpHXMUFZs3cTJXES5BKQdjVDUvicD1Q8qaLgdm9jiF30jBN
vrzGYnwgzLc8yVkUsCJz3DBZoTAPQatLdaM2Yo7ChAJpvWxhm+DaCXZ0p7eC417U
hf2K0xHHM1n06P0yFr3KV8oSa0F/jiMmA482wDwJNzo+vmT6TSgVvwkl7+WvJJTQ
BAsOiqfpFQVEG63EiYQxKqaFS0queNXCQ6gkRpwU2V82QT9h6EPF77hEOrB22kzb
L+ZYP/NDbuJwGxNy3auA8qzVNlI7UyOIUPe7kAWXKe9iyA+EExf1Orjn9vZcL0ev
ch+xUg/vb3zRe8bMPKTnHjD2LbyuqzvP5fv2s7rfrst7dELdAVe1d2ixVGcFJaPg
BJPorEf3TfUaW8A0NmazCcFNsbwyVenFDKa5zj6DPwW8Ph1ZbzbVCpeqtblKZ9Ze
X2O/32AC27Kmc85f86P22oDAHbJlV9nL98yNunjtt434orRDWP0HqSRlFk07Heph
jdnMp1dQhvMz1z9XlwYcvx7wogqXBsjAuSq7ggqY0uay644o8cikIDMPbC5MJNaM
8WaaUTHJ2mqLz7ZlU2nCijCwT/wgGD6OANSVK2k9MDobmq0/w37NE3f4+iUCMUl3
V5okZV29HWZyb5D/kAgTyDdJUZBSwxrkRoJNO2zZboRuhgyxxDBdLG/xGpNcKRdL
Jry2cD3nJ/PCxqxgKcM4qthWksMjw7mSzDeLkNT4r/EU3AIHGbyCOYQCu1re2iu7
K8d87ophxJ6n+nSgWDZz2gKF+AKrm/OvdV/c4Px7D9MHc75pncWNx569i+HklRuL
0mnS7m4tiw90zwfB4DsbmRAr86yWdfLuds6+IONAqU2uuBPKtxZztB3wXQPj8SxR
kbA6qNjFYcU+NNzjmA2amFPP6d8P58XklDJlNTccDPw4Tm7Idbj7PooMx7658N58
qN4YROiP1aDkROn77xc2+R/XmCPlmfwTwNDk4vKvQ0nUmEc30VP6t6Flf1OuChFe
zWUfhL7OOqiZmf/+hRnK3L27BZNhsmqny81qEnm6JRsikOMH5CDsOFQw8PD5V1XZ
4WNiPMaFMvyZTPfZPmjgBoi50iWu7JQtzPUIqnvfrimkrGEpyrBhPe7d1IPZuPEm
N9999ONigddIdRuh0NXuOkjwglC7dk0ZM+covuxjDtmZsd/TJKRRvk4bscMIKubT
SU1JlzbnJYroLo8l3RMC0rWT5GFJA3MJ4/Y76MwE0y16+DbCzrGTThfcpx33YAUs
b4vloRbg7yaISrJlV+RFjO31dRpdV+n5Qyp9+pBKn41VOs6qxfszQuLpe6EmP/4N
rwda5q16OTvo/Od8jHDVIscebJjzPR5qYZLcjuqISqYHeZjASfaURpqUcn3IwkqK
p08nKibFW6UAxsUTmPxnZ2fFgTn4ibiTP/+5SJzr58u1gETB6GTpLBPpr6H08xpb
sGgpJi9z95TKvudVCUKdEnOGKAgaolvB22K55+AnijujirGwpyQQMzJn6LoBJQzx
9m7QbN5QlgkT/Wo37j6n52Ai2PQmJcee0PFfkOrFghV5e+hAGk4f2rkzy+Y16PS3
7vDJbb1KNP4Nk2a0Od4cpK/RZoeOjxvFx6+tRuWwqvgJUtXk4Prhj74qEdCEh2T1
TJHDxCPQGILBJUXs4PS4GWJ0UVqakriz68HslXFQ93Ro/TPf5ryPLvAIbDLzmzVs
Qe05nntB3RAPkWBaHL6ek7DRGJjKGJ9zaQ4Q0Z0XfHSmoBsHF/ydTmJjAl8+AY3f
sAe7ge7BWYkmZHC4stu1lyzsoIxHU/+E0ttv+B2o5+2u4yM3H+AmH0yx+6LlGU6a
fB8nxhD7WrI1wtyaUjbdBe/tvbUHle4qGqqqQZ20bT6grGY15mtHU30AO0gdojgv
TiUKAzPiPzZtCI206k8hkXYGRO5xlTAszPNgcdWcN1JeYadreCkdQiD+ab5DjuUY
TnexnnGw3zFAMZYYMctCJwG5WkUSpyk3lZEwqPer82lX7epecZjJ2d2aVKfF4hQD
y4FTKOsyQnrMUAkOVjfE80UtFeU34eKHfGSLTbggyECUwKtVtTqbWIVXWyOPiPFR
fI32z/bBk70KG7LGHoQdtz6GH2E3WFvaivViJ5Po0p1W9HfEtl175e7GOtGjiNrv
upYBuMOsXB3frHRnvPb0AxpBFO5uy8FWtZJsb/sLw04CBv0swQFLJhRJL9kEv7u7
O+uqq3Y9VMvbM+CY2fKmntETmNLtq932rHsGhtRTXG9+L0LmKYLGVGJqQDfRyVFo
hMyTY1tigFFbv8dhfFr85/sY7oANg8QSp89/vg/SQA4goCx++3VTIBFZ1HGibpwQ
mMHsrmw4Y/yO06exzwPqc4ZUrPGsAAm30EBRygQt8p2S79AkjVnUpgIrUQnc4bnL
EI3NTX6Atk4olVvH/C3plA21CtGhnqFCCXhP7vG451PG9TMfLzoo0N8yME7DtowB
NpUgqTjJxEGg+iaXyQkwXFY8eKALTwrHGcYvcSxz4M2J46xRTH6PKchAO1fUJLka
iAknAfjF2/8AmixLDHSHHt226AhrGyqKFvwdUxxoUneGuuYoLS7Mw/0WO03Xovcn
JjufFES/d7IV4Bg704u+3VQkzfl6Vg3WlwkkCi73t7Gpb3BzTivJMN6lWulNR6Cl
HfmnBgrsJxlonBcfFNXZzZl9ekLOQhm4FUxWWoRd46bcDpMcmhRYoMH0IFTJ20QU
+kD8+cAL2GS9NZOmlCuGzwoQ46jU99WGcu8hNwEkriiNnKGJZZu2XqGADJ3R1i0V
SFtZkyOv1DQQageLVHGCDHZWfN0VmPLYzWH2nvb3zVC+cQT4YsPJ9VhTY+B98fzL
H57/x7e2RXTyCGFL5/UxgdJapZvZoCicKMAHFWYtwiZyHQ/pAGblS2JTOglUfORx
DQbe3oIq2Hb3H4CZh7omBkOCYX2H+yzbNZ2uxlvbftEAf6jWwB6kUv9VpuEHBPfl
xcviG5y4poUPkLCbs1dtuwVu6i/+bXlbgRZ91qwFoLF7k+dB7apWeAtqMEKXvNSI
UqgWhPC5lQj/B8+RQbjW/wAA
}
if system/script/header/length <> length? code [alert "Corrupt program." quit]
do decompress code