REBOL [ 
    Title: "A Reb-Site"
    Date: 23-Mar-2008
    Version: 0.1.1
    File: %a-reb-site.r
    Author: "R.v.d.Zee"
    Owner: "R.v.d.Zee"
    Rights: "Copyright (C) R. v.d.Zee 2008"
    History: [
      0.1.0  [23-Mar-2008  "Uploaded To Library"]
    ] 
    Purpose:  {a-reb-site.r was written to:
               -  compare form and function of a reb-site with that of a conventional web-site.
                  (...an obliging web-site - www.rebol.com perhaps!) & 
               - to provide an example of a reb-site script, & 
               - as an illustration of the compact size of a reb-site relative
                 to the average web-site (or page).}
   
    Notes:     {This reb-site is a design exercise, so it is not a completely functioning site.}
      
    Library: [
        level: 'beginner
        platform: 'all
        type: [demo]
        domain: [gui web]
        support: none
        tested-under: [View 1.3.2.3.1 [Windows]]
        license: none
    ]
]


;--------------------------------------------------------------------   images for main layout links
                                                                     
                                                                        ; - binary image encoding method:                   
                                                                        ;    data: read/binary %image.png
                                                                        ;    system/options/binary-base: 64
                                                                        ;    save %image.txt data
                                                                        ;    open %image.txt with text editor
                                                                        ;    copy & paste into script

core-image: load to-binary 64#{
/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQEBAQIBAQECAgICAgQDAgICAgUE
BAMEBgUGBgYFBgYGBwkIBgcJBwYGCAsICQoKCgoKBggLDAsKDAkKCgr/2wBDAQIC
AgICAgUDAwUKBwYHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgr/wgARCABVAFUDASIAAhEBAxEB/8QAHQAAAQQDAQEAAAAA
AAAAAAAABwAFBggCAwQJAf/EABsBAAIDAQEBAAAAAAAAAAAAAAQGAgMFBwAB/9oA
DAMBAAIQAxAAAAGy/S1ajMl+b4BWjmbrbzR57yyG/d2S0FK882xje3PDshk9aEaU
xDyaVYS9gIOkJLdL7Cz6LrMK1gwFFrBlleY7HUnuMyYJvWhdJSIN55Xz8+FtuynY
gkHxiJ19qQ3HpXYyMiyOUi2vpOgb5oMd4Vmuj8vgtBL8ADA2quGwSl6pljHcP438
IKTdwcxdXFI2sxypOqj63ksnxZv+kYFRR16IV5R+j1yMY0fWEghSNscilSXaI7JL
AbQLuVUcYylugOcsSHJZ96WcVltSlD7yJHUPaS9P/8QAIRAAAgMBAQABBQEAAAAA
AAAABAUCAwYHAQAIERITFhX/2gAIAQEAAQUCea4lt6K6dQ8tdMP3MHpJghXQYV+Q
6gqCtF6UB+v+xbn3Hum5QDl9qWCHBkMys30HxsNrqbIwpfaOpNFz1JvpiCznN8lq
aME9V2mSfMb0+TK6BNf3spl+rAVCjLNzZVB23ZUrA9zryNOcAOEABcshL3OZythn
Z5b0Cxwrtsq51tTK2IxLTz5kafa122sLI0PZ9LatqQAekmfnVQOOLObT+bVHJ7x/
JeO0AXtzW8ReTmGtbhJjz5EV9AaV1NOmMmbDQZa+qslmZR+GACrK0tSqiEdUluFm
9BYUjtAyp0cX0A/+NiqyKwuwPBUpu4GaiNxKriLwqrLK+Y1QC1LL7m2aZHlb6XYa
+jxjH235wO6H44q/y1TuqC5G9ZRFqXGdzZjm1VhBRLWB1GMdy6obYDb0Z1dWbp5+
0OTx7wsI6PwPzI9/xKsDf6BAM37Fl7WyPJGC1EFts7/maZyuZLQqjSpOcH0tC0e8
63iFxoOV77J39DzT7C8q+lbMSyyDf330vLPItPnQsSwWmLmXs6yjJE+/T5XXZ07h
prEl5zi0plzvpS+rOhbjPc6l1zOgAST9E3AmhuWTgeBeuBPr2vFaiLTMRqwZ4Flp
8HrEeoRrNcrcoPbJ6gpkrs2uAYbHF1CzgZz/ADpmv3WVAXrv4dWuJNziswSWBzly
/wDiM7D57is/43Nx6FtOjJJxxdBn1vtCdKIkh//EAC8RAAECAwUFCAMBAAAAAAAA
AAECAwAEEQUhMVHwEhNBkfEiMmFxgaGxwQYU4SP/2gAIAQMBAT8BTvlzJTU117ZX
+dTFmWCt0BbqqVw/nlnhnCLCkCCKHXOJz8eRs/4qv5cs4n5aZYJBOtekS9SwmuWc
WHIpfnFOr7o50AiUCtlTqsTqg8OvEw89uGAR4awhtxD6SFcYt6z94zvKX6ofXVMI
CdgUiyEBuzFqpjTlX4u550iWdKmtnVNXR+TLXVpIwv8AnrSLFmHFoG3jE6NuWIPj
9RMApeUKRYTodStit+unSFOPNoG5RdjXh70yz9eEb0FGHCpJ4V5e/qIRaUvTvi+B
Nyy2j2xVVwv6nIfV0TQT+wq6Ja1BLzxLZy+BEjaLM8NpCu0cU5/V/EG45jjNNTLk
otKEHClw9sodQcQmn8xjfbk1ygOuODbrjE0wyiVcUlNDer1pj5w2hKD2RAmH6d46
6QXnVUqfCHEpUk1jZAj/xAA1EQABAgUBBwIDBgcAAAAAAAABAgMABAURITESQVFx
gZHwE2EGFKEVIiPR4fEkMkJSU7HB/9oACAECAQE/AZh6WlpQOKsB38PTlYYiZrNU
qq1plBZAwTi3n1FuMOy1QY2HHpxVwRoL7rc9NTzve+RO1WRBdC/VbGudLe3cntra
KJWJOotJO/zHMb98O7Pqm0fEj7k4+3INYPHztE76Um23Ks4SP0tuPnSPiSecs00C
c5wL6HgSOFteOsUauOtzH4pzu88zCnzTZ9uZaFkLwdbBWtt47YvfXJMs6H2AtJjY
Jry1qtpjj7792L+/aJySbW/6pP76eY17RRxLrrD5cIJ2GwL/ANpvtcwcX6X1j4ll
JeRq38MBs+wT/vXpqNBiJwbVDcUf6Sk4x+ft9IoikuUllSTe6R5vipvLp9cbWr+R
eL9MdL/W0VIOre2VLsL6Afv0sLk40zCaPLTbaVTKNpYxkA6Y9x+YhmhyzCvuNgW4
D9P+RPSqlNplfS20rNlYsAned1uItm+dYlfRlpdDQULJFu0Vr4d+0qcNsEHI4ZBP
W8IqaqcflakNm2i9x58CPOEMTMoVBQcBHMR87LN323Bce/HSHWzPNKQk2B4G0CkS
KUhKmxgAZCScdIlHnlzLaVKxgdL6codAeTZebx9kUz/Cnt0PfedTCadIpukNi176
Yud/OEfhqATiLkx//8QAPhAAAgECBAMFBQYEBAcAAAAAAQIDBBEABRIhEzFBBiIy
UXEUFWGBoSNCUmKR8AczgpIkwdHhQ2NyorGz0v/aAAgBAQAGPwKM0lCvuwyatVXS
39qUWvdHAKgNcefI/A6VriiX7kezaB6kXOPaJa+S6iw0NYf28sezT94I2pZuKylf
0+h6Wxpre0y3A73Daxaxvvb9Nrbc74mzcZxTq0v83iqdHr+zgyQdvaLTHENZerRt
KDqb/wDnmeuKdcqrUcVOo8SPQY4k02DAHd7vYaQfPcYPs+dw1DMhi19/2dnQsrd1
WLEBtQK6idrFtgcPkony6mE1PwwaWGa6XFtQ3HxNtrbbm2Ipc2nZ5NTKFcd9ANrM
2o6+WzbEqRcXvimry2qiNDw1jJ2vq75/9f7GAEItbuemOJMNUjeGM4MGWOxj2DHU
RGt9rADdvntiRqjN5tCk+F7C3ywa6vzSphd2URorXNz5eow+Y0lSktPG5F51AaPw
gXt3hvt5W874NBmkk8dTVARtI201KguDp271t+moE3I7t8JmFLUmHKqVeHGlPCHW
p/4aAWBfSjWC6d5XPUWvxFgIdwDaTxLtyNri/wAziaOKW8r1BeeP8G2lflZR9cQK
aNlvSnXUaBaXvbJfn3dz8NY8ziSvkbux+EeZvb9cPFqPBB+1Gm2og+H/AKR9T6Y4
DzMxdLsUcHVcW2PLqMeyKBrecoVjfu2HMqflzIxJLPGPtJl4RNtgB8cPVtaYiNlS
NlFmJsP3/viMQRRxPEw1SBuG1+jqF+/t0PLoRj3RmdKsslP3FjNQkKxMRbijV5rt
+S7AePCxrkSspAOr3nF9PPHHamjUyHd0kLFrEi3IbDp+u2O/KBBBTGNYmhs4c2bi
Iw5g+Gx/AbYXL6ST+T4R/wAw8j8hc+uFRPBENTd29h5/vnh5RaKNYL8RYVJQnkVH
3vO2KdGfVxopX03v95Vbfrclt+nLEAzPJaaq4SgQ8eK+nbe2DqHTD1NQWWONS8ix
eJhe2x6evT6YXOloVTgVR0RWG8JFmXfn1be53GIK2JlLKvDYJy2/154loSqaYApT
T+a/+Y+uH9mozUTRRJGIEbSZZTchLnYCzA6um974JzIxa9bv9gxK87WuefLHs7Bd
TuOHvb1sR1tgUjSBtTWkTX0I8XS++xwgiQbJCg23XxNb4j/5xBAKqnNNDDpqKVkT
vyfi13upHliP3dnMUCs19b06Tah+CxYWPxxJJPWLMFjtpXLhFZ/O4Zv029emKlJY
GK6WHI87csGmzCuhjKw3fiygW0bHb0tiZplIRpvsxo590b+n+h+Sey5fPVV00JEd
Oo0xjSL8V26LYn102HLES51HEkzwF7RX6sefxxHBT05ld20rGg3cnpjjUpAC9R1u
bBQP3ywsT+JKiBGRTqa6wju/9zfofLElRSdjspmLW01slZGkredw0LW2A88JRrTR
zMh21QRhQt722Xbe5w5qpEDcxx5JHJ+u2J56uoSSGEfaB76I/hY4mjCL3JmtdBzu
CDy2/wAsNGC/2cxHf+R/z/W+PbM0y6As1I6QrC19S2IKlrAnxegB23viCrrKyeoq
ZVK1Uz+HWPwbeG17edsBYIQ+9tFzv+xg0BqJ5HG5jgiayJchmbuleQP4dGx3xPVZ
PWz/AGqLHoe6yQqiBNN+u1r93DvT5mOJGjiKLjHew5m67/3b/DCJHmM0g444h4ln
0W+CD57XAG2EWfMFVXuw4KO0ibnwuWH6/Q4YzdoJq9+Jakp5omU0o6s/3Wc8hpvt
ubbWi7VzRCfLKhxDmEK31oL+NTy1D/b4490drK2akqIu8CtBKzNd3uJI0DGCQMDd
GvsVIZr7NS1Od0kTU6jiq0xLrK+my6fOwQgLvuSRbfGuBdJXn+WS/d9Ad1/qxHDW
T1FLJFWxyK0Y5aWsyty2tqFsSasgoqelG1YWnllj076Bu/iQcmNwXNgAMU9VBk5p
qiqZpqlmqNRKk7Kfqbj8XwwuXUdK08854UUQW7Ox8h59MU2SZx2dqoqnMu7TRpoZ
p/hqW/zF/XFDkWe9nJKeqzCRYqKMyJplJIAVWB08yOu18UkPanIHokrJuFDK0qSJ
r8roxscJkeb9kSkVRUji1ktZDpif7oAVyWPdJ5WxW5/mlYYvesdNwoKiLh2RQ7q6
G/fRlmU32sdS/dwrVXZ6R49A9nmpqdZTKVsbtuNJUsdN+XeN99jRyZTW8KW4eSpp
wI/mdX1tgZjlsLyR1EXETTbVJHewlPkx225kb89g9LPVf4WWIq6kF1ta4FvUAX6c
8KCqqiIqRRqLBFA2H763OKWoZQzU1LUTQqerCI2xmPaSt7VPX1eXdnK6rpYpqnW0
UzabsBc8+vpuNxfJGzOpmnaj/iJl7Uk1S13+00al8wLlj9cNlLZ77wkz/t09dTiO
+ilSJ7Ol/wAQOxHr5YlrM67cisqpcxDHKZV0xUrBNtRY6T9OeKce44quPhaqeSGJ
NAiJJUAk2PnttYjGWVXZ2qgRRTzNI9dTk3jLqARY7bxyD+n0xA2YzxS2k1kwLoim
5hVIa+pe9cr1ZV8sSQzLx1nlLycUd78qjyCDur8BfmTdq3Ipwr23GwP9S9fXY44c
mUmTc9+M7Ej1xQ9r6XIJZhSudUWw4oK6WX+362xRV38L/wCHmc+xxRzLm9LmU38y
KSw4SC5C23tvv1xk3ZnsJ2XzHL8myjOxm+YNmkiLNNLGfALtbkLAX328r4rqyPs5
Wzw1nayStymRY1Y0+o2lR99ro3Lzwc5yDsXnPvPMK5TUtmVFCVRbaSV3Yjp9cVWZ
qXaeabTO0kjNy3AGonbv3sNgSbDEHbaSFhVwDvKLcOY2srsCPEvQi3xvYWzHtXR1
EyT6C7R6hoYkaD0vyPnilgFXUzLNNZ+My32QtzAuLld/UgWG2Fo0h9nCkmNqYBSt
9m/UYloaql4xqEKS1EoBcrp0gcrWA5C1tr898SNBRcKSdESWWJtJKD7v5Qbb2t58
8JnK0ahkRlEWgaO8NLdNrjnbyxxc6olrHEhcPMNx5crcrbYNKiSfzCyymTvL0A9A
ABb4b3O+HrERo5HlXUyN+JgDsbjrflzxLBSPIVlm4lpGvp2AsPhtj//EACEQAQEB
AAMBAQEBAAMBAAAAAAERIQAxQVFhcYGRscHR/9oACAEBAAE/IRktCiPZHJmg2c2l
k9P4g8etW74QCEcwVYSo09tiN6gBU8RSMVdUUyh8tRFIEUWQ/GK4pxmQ9WWUZA7U
D89N8gVBbVlCL5bfRTCVztjBQxdTsa4BxGFkYGZ3CENhJM8PVgXbEbFOqUnFpDq/
uFK5jWfPvRl2X6Ifp96QXlbijz+nX85E6u6HrV6A7VwOCFzRNgJVbKFME44jXDMP
zK51V/s4st5p7hqUPZLWSnoY10egNemDeKWCgq1v/gYvA4RpqsvDkUsUWPJxzNYv
qwDYgAiC98vX1EuH+x10sDkFKuJC8DSjQmLggbA91AJ+mH957Q+oO5rqRf8ATBwY
k7kyCmFKNFtMeLq2k0VwCAQBlEwsF3tnooIzf9nB6R0DlokQA7HIDFS5ylRAmlBg
f4IqTSzEst8EusII5UJgGYMsfA+QYx6rha6qdslLp2LCW7KYRoYoZEGNiuKXILAl
U+tPXwcpEJ+J9ja+x9fvHqlpVY1CGXe4UulTcQFvTz5B2R08uKsrSjSkv/vPdDWS
ZD9gZPnMBm8bAfu1HwWdhIlmusC/rFgnYYMpUQCCIGAEB+8LxkmPrf8ARvqvnKPR
KUdNJGIGkALB4w5YAxRQMB79567BXqItCNSnsrnKZjAwMKNDASmvl5H5Gen4zTFd
UO+P7G5og1F7uHo64+eV258mQQrQSbSD/hCDmgHpgHh7NjljBoAfagfpwb9Nz7bX
gOHBVKUQ4W/cBIR+04ib3n+G0AsX6iatAqgyJ7CzMDPOUSWa/gO//nOmBQ7koC9r
a5R3wuMgTQsvrSUWDOGksdMmKgQItVLl5P3J3CBDBeE1XviZ6NQn5XX/ABvBH6Wo
eyCWGBrPeFDBiGHc6otHvwnGrF+t0HHTDavZ7zsIT6m1oXoI+luCl2wI5RwCqG/e
aKDYKgthhqKgvKfi0B4IYJVg4kGh3Gj1d5jaGQjx1VAqSIZ9NSOnqhSguo7AJrsq
A8tUBqCzsKKT6G+COWl6rblJRUdAo4Znq6RQz6IOPbs41JGBwXXjQnx8CkALRrha
uJADSmkcvkFouhTqdunmvk+jg9oJvV6945iLvEjDXLCFuTPQnqzzfiFxDIRgo6Rg
HqZ3t9eLKHCDKdyCUotmcaO4gndRBojCzhlpJIupRPinT8edU3H16EWjDqvK4Pbo
QUGAESFTxZZpPpoym+wung1aPhvWqQVlRR3LzG95DLEiRncSgeRDVsQCnVFIjT0i
kLIg0gSrCVVVSNV5p5rmLx73T+cmjnW6nQlSNrhXlmu0IJlVwK60nTkwJPW4ZTqC
fjhYmzy9ugw6PDi5iYyIdHUTIi9pM/LspbC4s7E1cggp46Ib0gxXqF5KEDsv8CkS
eq8ErY7x86Bedj298lfS/nCa/wC+ADzdowmsqo7hcVZxeAgB3VhWfQCyz4JwmnbO
2UgifbJBBVgDNq4Vm5cvu4Ga+TXBPWymbrDbFJmqrjpfhKzM3rrgoiIVLdfqxAH/
AFyEh7bWIXTQyHRBM5W68MkRETb9BNzqoSu7IzARDwD3pWiWJnQDT8BDAk+MzBrB
CBilqz8CVXAEiAaqS27xKzSTYAPokhGXQt/dYj4je3+j7VP09lopYD3X95//2gAM
AwEAAgADAAAAEPHMevQfvlLIjXAGJbv26nTC/PwhSmcg43n4/f/EACQRAQACAgED
BAMBAAAAAAAAAAERIQAxUUFxoWGB0fCRscHx/9oACAEDAQE/EFMwPaa6BkEHpeUy
9mBH7rah4wg7M02+nTE/A17femExtDl05698XUZl4WvOshkFAcBgCoLXqjG1DAzf
UwDDGIyg5dpt216uF4DsNfXTDZSrrnTxhI5RzNnOsaCa8ML3RcEclruWH5wEKoJ/
l2MAEABMCX9D2YJmUJLCQ2l+njEySSdqyrVwDB4wa4mVaSJbYgSJ4rjAMoKnulfr
GZzYJHzYAJohQ0dkacR7YaFhCKi+489I2UFYQt20c6ydFNt84DiCYA/yt7xsAX8Y
M8U7fT4VqjLCtdXTjt6YJCa/mAoCDP/EACMRAQACAwACAgIDAQAAAAAAAAERIQAx
QVFxYbGBkaHR8PH/2gAIAQIBAT8QJCAv9H+a4AU1g0/vf2UwEggzf4TO59mAcNF7
PzQGv7LA4xG+0+XjAiHSXJ9k3Oo76+m8JJwB46dH1gApaUwLooJGANspprkRJue1
K8nU2Ao7bWTNOBWCXcJv5Kf5HB7pEfi0ONiPbASLHP0esBPSTC5UJ2CrAtZtFEw0
oS74wAAdfwn3+TEN0iZ6kvepIljU4Y6WV8wtz4N4FnvAuK6Z48OAYHS3DSfqK3uz
ATLuH+b/AAySgUUIjYAYkmgCVgKwBlJgQTrh4zXAgcQH2YJeaRsRrT3MV7pdf3jB
L2AFjwF8Y83vHuhgURsbMXJZCEACVSsB2PFRitHTV5f8NYbGAue27xhTYI06Kewp
oNrgYdKMPKhr2iSWNs83ToxZK3n/xAAeEAEBAQEBAQADAQEAAAAAAAABEQAhMUFR
YYGhsf/aAAgBAQABPxDuR0WDk8wFTmh7dNLyDmlC0pj79j6JZesyukMfDKU+aNP2
gFLrELGQ+yKFHkVEEvapmQf5yGGU3QolJJiSYATyrQxkdcAOWQYEeVgk86y1ijAw
RYMZrQrGv28QGZRUspO22vUESmro1jwOZlncvgIBHwJGGEANscVfZZCEkCyFlj9x
R/0gN8atAaacAE9Uxh+HHdBnuZHRWliLroQfk7DFd+1v8Qbi2wJa4dFUeQZmDye/
up+lQPUctOA0HvYyKZI+uAWPNORB/AjgL/FRCAvA6ifnUsHX6figyCy1k3IlNyNF
S3B+dOJL+tDDprTJjEBYE8souR7KUDwm6xNgQLEIKZPJFwQjZ/bBv4jIO2816cpN
AHxISxoXMXwSKjowj1mLHoQLFUDILrivxbkBf9Pl/wCVCBx9N/iuE4xONxKXLaZo
cFC2IODgwBxcdYBgDDUMTMYze3JEPqGBkXTAJQAK3X6Iuf6q77RwMTW3hVSAMlDB
eZMp0gIAFh8q49JAH7HDqisUySAISUU+yFaPQjAAPaqiwkprkD07chCx4y4pDEAD
GffQIJAJ+GPnLQF3AQLQRxPe8bBPaFEyxQSH6gYw0KK3TsdIo6pL4ksbr10Av8dE
K3Jkpl3owXMAFEWEANo/CKwK5nlO4KJ+lAA4QYE9rPTA/JWzk13F68AVdLx1AmYh
Rgy/kC4DgTaSIyOaR8AQ9GWg9QYbRiTkKKawtasyDH0gBh7ehDAP2AANd9opYTBi
VH+wg/iORIXdY1KhwYvch1iFwJVkZ4lY4EPMxXKuTD51CYHbfPFLI1AADUeRKrR4
CcPQ9x5JSD2INr2hNbUIWtoUAF8wFjYVDCMI7B9GDWPMm6yS0KNESBc6g/WWXCem
vzscN1g9AQIodmgWjcJBpEAJIAO6+TlCuaPRAgEBW92lJvuOgOEkdYI2w1eTCjaI
cQHecCbfMswACAun+Q/0WqWqJIElCqS4gYCKkWD9vp3MCGNPYx6GRsQYQRx2PgoW
AOABJX4MKEkrAWAL/E58a+83sX7IhGlUtuwKt7IACQOSEocwtGM14sBOFBMQMfHn
mPKlq02+l32tfpBFtJa9YvimBQC2AV3ZB1skq8jVMNRK3cMDEU8vGkNIR4uUbk4y
/WxoqCMR+XZi7CLWewBEjzOO2781ulqFYEJnKKqSy5SQlBMMIg7oekQE6gYGwDcr
abzlnzOibZT2m05BGHsUkNANSsSNbBIZUaxdB0BoegRNCBYrLmSMIzuuk8hgbkHH
NU6EOsDNsJqbQDdrwCpgfLFobglmaRyqoKRAVjXLSqeMZYuntMqcLUYi0gKVuvwU
JQUbW3KigD8GYoK/sAqDdqmGp/YdauPce38aYcSuy1cD/9k=
}

view-image: load to-binary 64#{
/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQEBAQIBAQECAgICAgQDAgICAgUE
BAMEBgUGBgYFBgYGBwkIBgcJBwYGCAsICQoKCgoKBggLDAsKDAkKCgr/2wBDAQIC
AgICAgUDAwUKBwYHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgr/wgARCABVAFUDASIAAhEBAxEB/8QAHQAAAgIDAQEBAAAA
AAAAAAAABgcABQMECAIBCf/EABsBAAICAwEAAAAAAAAAAAAAAAUGBAcBAgMA/9oA
DAMBAAIQAxAAAAERE9ZVRTTPzUbJBt45WOfUGx17p2QAY9uWq79S4f6jyhhBR4zC
Gckg1h3WIjsxjGqd5hhE0JYa3WlStdOXq0loWKZ2fNSMNXqZTt8SXLJLHaHsarY+
n6u8oIHv6f37iMtkc+1I+NPRUL5a1ccmr5w+USzvb6CWCkrPqlP63oHC6zXoI5cR
RRACWKxd4zajnWCjr1htoFrsVrc6NJW4v4Jrxjgl1ZYpbi4hFYeJoemadCTVnsmW
aTXfHeyDCDQwyZDhQ9JP66dHJ20f8kzF/8QAJxAAAQUAAgEEAAcAAAAAAAAABAID
BQYHAQgAERIUFRMWFxgjJDP/2gAIAQEAAQUC2rdb0zcn+zOwkFRGtaO2avd9OYsM
JuuuwD1l7B61ZBpPtNrElASHYq8zcVW9q06vFI3DS/ucKsJVkzLsHEuga2xDlMrb
GIc4r/IbA7BkU9zLVyAOfOgvrzJCtqeW6BwK8J6CP9a1GuZZqKZR7TeFh/JXJmku
TBciwJVQ7JfJpiHtH40UJYTWVkywhL76SfH2/Z51uOtNepu8Rlfrt3U9JSTIEU+l
iThX5ASSArTMy9EDmTeKU9+EgNer6VjnC8t8kjOr86zWuAqFM7JBGD6+C1/JWnBT
hhYKKUzzUa+VwHU4MN5C30svgjnDz9XrZLl0HpwT3WB6D/JuhhPl6P8AXgrRnsTX
1QvEO2OrhPx+Fob58bWlPBP+NidN5Zk4rkFvBB49Ob6pFyJ+iOuuuEUWuFNiRTTE
ityJ9XUNP8rWY2P44U2ONbLQwli02iYlvOsxfDkLdnJACwQVcgTBHyQgBhRXPcON
7G5d5LA7xPPrZ4w8sG5jWiK8KBnfldapGJTT9KtohujMSTXs5kiHGIm6ucoHluJI
U2xjxk/dCZSDpzchNn7KLFWqdidLUIAR10vFfg6ffzjovRApZo8BE08YtK/rUiky
ADEx/aF13Q4iwzZmiZB+oua2fJco0yQ0oCUwjGM9hbjn8/hdMv2ip6u1/wCTPYfB
UmCoWbNlxKKLHJZCzuEDVP4TXrJJzPVnNpCOb6p56iV/bnSDr3QM2q2aB//EADER
AAECAwUFBwQDAAAAAAAAAAECAwAEEQUSITFhE0FRgfAGIjJxkaHRFFKxwSPh8f/a
AAgBAwEBPwGTs8vpBu1HP16MI7KSq5YbtaVrvyrhnSuOVcsIX2akL9KlPKv7EK7K
7BIWyoK5f2YTZYb7igOBw15fmJtKG5paUZAmLNcZRJN0F404Y+VN3nvzhUpMKlFd
7vUw0PryhiwZlDYcdUpaiqnjKaJ+7f5U01iXnG1Tv0gUajC9eJr1kYnZdaQSRU9Y
a8BE0lxUys7Pfr8xYMiW5JtalA4D0wp7Ras6FvFu8QRBfe+408z8wKpVhgYs9S1t
DauYcDU+x6B0EWqUG0nbmIvHr40iTdLFmNqV4aAYUrl6fGUWq86+raqNM6e3Rhua
WDdiWSwt8IUrPM4UHXOFuSEuxcQseeH5icVemlHWLNRJO2c0lrgBhnu/fGLSkWi2
lLgxxpoNToKCu8wqVTeUlPhx/wBOnCNgpMuHVb73sBFxxaxc63RNKbMyu/nWE2jP
SZ/hWRUD8CDatouWZVbhJKqcs6R9ZNUIvmF2jPLbCC4aDIboanJpCKBZpBJJqY//
xAA1EQABAwIDBQUECwAAAAAAAAABAgMRAAQFEiExQVGh8BNhcYGxBpHB0RAUFRYi
IyQyUnLC/9oACAECAQE/AXXgg7aucZXbyqJ7uhTftYrNDrRHXhTOMNXA6+VG4nUU
gygE0+lSnVTp1zr6ywh4DSKTeh1RyjKmP476Vj7f2sbUoGU7DptjhHHTbTK0mI2U
3GQa+lX12jtimDWOXv6tTaCUxz63c6N9elMdoqP7H0mmi+64ACawRTiAkrcUTwk9
ePyq2zhhM1imIpsn3FOpkA6RtnzI086N2L+4K3kiDxGwD3+tXWD25RmTpwHXKrKx
uHglKUEA6SBzPwrDMKFqlJy686aH5YrGcOW7dKcXvO3f3AdRxq+sy1EaHd4daHjT
OIEPNOk/iSR4QIgD/U+W4UwB2pyft0jzJJqQBrTc5BFKYZcjMKewrDri7IcbBlPx
r7vYJmzdgmYjrv79vfVtY2ts3lbTp7/WlNtlWz6P/8QAOhAAAgECBAQEAwYFAwUA
AAAAAQIDBBEABRIhEyIxQQYUUWEVMnEjQlJigaEHU5GxwTND0RY0coLh/9oACAEB
AAY/Aq/w1lNVXZWMszi9NKlQyOQq6dLKAA8TELIA1+vcNstTTeKhCqRwhqbyMLB2
VFDtfRfmYFrdtVhinnyLN3o8tyqo10WUvVMII42NxE26tMg6AMdhsLYGb1fjGerq
IowtMkc4jpTzXOuFAFflLr2YXU6uUYoWrPFj5jT00btFT1BHMxjdF4rga5NJbVpY
76R7EV1FV+JFjoq6J4Z6OGhiCcNhpKglSw2/NfD5M2YUEBlgET5hTU5So92B1aVY
77gbX5bbWoqTMqwSVVDxilcqhWZnACvpWw1oNYDW+9e2oasTVlP4zzOqZ4DGPiNY
0yLf7wWQkahbY/3viHxD/wBZVr1KraWndvsJdtO8UdlG3fbffrvjL6jMszeprIA0
FW8rhpNan7+5N7WNzubg98ZhJmuatXSVDCao4cHD4AJIii6Wa0Ii5vW/cHHmoEAV
SVJLa+3timassPLwkfKVvubdceYrJGWfi6lUWCkfrgvJWhCW6mRQMLURZp8p5dVb
H/YDDMK2J7huGyPqGj398GsLizE6AG399sGM6vTfDTJJpDRsHZl1dRinnnWJYXqp
/JqinUE1kHWT1OvX+mnGc0mcVFSyiqlWmbM4+cRayyhNWr7IFjpt2326B6TK2eOK
UKxMkuncf+O2C1TUyyEcob5um298LVvmE7jm0LxDy4+B0viKKk13s1XKVTZS29gf
w4svi1EbcDVIQcTxjN2aSB7SvGznV/QY4L10nvrv/nFpRzfi9cAi1j6YqEp/AFZX
0lbVmqpqqkq4FB/2mUiR1tYw9r/N22vNkWUyVfDhpo2XzBkkMchuxjDPclbWb6sc
CnhpIx1JKm1jhOHE1uzfit1waenjbzC31RagOQ//AHFDX0/2ZgoVWsThWtNYg7W3
+uHrUDyFvl2/xiozWvpHievdeECV3jA2Nuo/XEOYxU7G0pV2AHfGkDYHp6Y8vTR3
lk/0lH3sVdP4o8V5dSCpzFpaaknqV4y8qqWbm2BK7Cw6E7hhapWtqNcVVRQzUg1k
8MadFvbmRjbpvjVTpu67f2OBLSIrsh0vHIm0f/Pc44iCKU35nnj3P7Y11HhbLXY/
e4fXAkpfDOXxW7iK7fvgU6SlEVdkSw0/TBpcxi8ymq+mbcYYR+HoVCtZfLqFaRh8
9/YbfW/fHw7LaWZazS4lEiX4bA/dPp1xPRUb0/no59VaIIGBCksI9THZ9lNtPQe9
75tT5yKalallcRRMwUcIu0i23+9xNZ73c/TArKMcALtwrarX98JqUGWSVy3FXTqP
tvuPfHI9h6BcAa9XoVXHr63GOHp+mOHxuEDu8n4V9vc4aPJaqRKkEcOaBNf2V+a9
vlLNv3xU+IvEebSsrNwnVbcQybt3tbFHmFGkJapaUyyxxaS32r7NtuVuR3HocZzJ
STvWJ5sA1aBOulfs/wD0+T15d98eVi0hQvMybX79L487mc1bAEktT2m5XH79cGOs
Zo5y21Pf5RiSN1bQDaBgRzeuCnl2uPynDuLcvK2pTynBrM0q+HT34gkaYW/ztv0x
NV5Xm2i1UIl8u2zCwPUL+2Fp5qjUiMdA/mn8Tep98Zrl+Vz1VRlNPVx+TqqxAj8R
owZY9AJ0gHS3vxD1xUQ1HmlenTh0slaV41QsZZBO4/3C2mwYi5VV+pSbO8lRqhwx
k+0MfsPlIt0/thIYIzDHZeBTDnO2GzGpXRI4Gn8a2Hthbb9+5xJwkPGJAR0hv39B
1wlVmEDVFK+0kVPCSxLNYMbdO4x8Lyjw9XJLM7CCmnp31cNTcnQwuR8v7YNPmGQV
9JDDp4pkozGjNuof5R16e9sGkqMlrTKsHG4XlW1LH112tfTbe+B4XoaWYVVJTxVe
YTS0nB4j1BkIt/MAVAA/ddP0FfmNMvEantQxcpUWQ81/fXrH0thsyzN+GpfS3DjL
WP0xBX8KPgShvLi516Va1z+uNFbSgjtwutv1xHDlY1Ppuxl5dP8Az3xD5aZ2EM8T
zk7aU4g1H+l8Z9lUVVJDLU+MBRUbqx1rGrmpUj6agMfD1zx1ZfA2qB55joilZR9p
7bgEn2x4t8A+J/GsGe5i9Ll01PVUtWZlQLUbgMR+fHiD+I2W2WBfB9RlUbL2lFaa
e+HpqRc7zGskcPmFJRZcZo6U7qhBVb8yqOrHdTa2M1y7N8zopZoaj7WehXTHI2lT
r09nPVh2fVg5hW1kkdLr0xUYk5pT3kvtexwsFPCVj+WkpY2uEH4R6m/U9zj4VS8O
sqzvMyrq0ekYB6H3xDQZXCzVzR3nlC/Jt0t27jEuX5PSPU1MqkPOG1tJ7D0xkOW5
bXvTSws0+fM1KwNPOyRo3KRzFdJ6YXO1/iCz0dV4Wkyyqm+FTjgsAqqbabnVdj7a
ffAq8q8aS5nlM+UMtVVvl0qaZtYZV06bn5F36c2B4Nq6s/F6rPGkki4Tf9szmUtq
tb/U7Xviknosr8PieB5Vq2zbw81RLIeK+lg4mjummyjY7owvtjPoMylq6ZtNLWcS
hkVOaRZEZbFSOsQa9r3Y744cnimt8nHHaFEhjE19vme2kjr0QdcVfijKM9r5J6Cm
aVI6vhOjW6gjQP64g8W/FRHJmMcUvASkGiOMgHTe+rV+a/W1wbbi8lqkqBLPGCA9
u+m5F8LMpfjLIW1g7W/Db0wa/MKgLrkZpWhgtJJqQru+rs2lhtbltY3xFRUEc1JK
rpx61ZGeSRR81gToUt66bDsMU7QNNHSQUeieIEmWqm/mO5awFh8qIu5625cR5FFr
jpMqy6nqK7djLmBlaZbFtVogOD9xRfWem1qqj8MUrqtZVGaVpX1N+VNXXSo6X9/U
4//EACIQAQEAAwACAwACAwAAAAAAAAERACExQVFhcYGRobHh8P/aAAgBAQABPyFN
Q7AtAJCaupDFh7EaViBsU2IAZuvm3LkCChkRay2mJ4akloqgtFiP976eD6mRbRMB
tvnlYuyndbacG81P6A+TKDtQxYamGqQKu28IdLg9QuCvy5gjyIwjA0Q0TbKC3oCB
KVghzzwsK3HMikMJfNNBkUbKPUFUZ7IlfBNH5x8NA2FTTb1/zmjF5DRDjt7vOKHV
nvIQiTQ8itE9Y1QcL8QBT+r4x7gv2WpjRsn76wQ4CH7X17wV3WkaNBu4+nyN/qAo
TRLo5LukZQswUPrk1yRaNABoyyH6uOBUE1psqro36DCsSFRjazwLhisMIdIjk/aY
waJOsfCcmaYQjAvu19hhRUlJ2KmoHNwHRVjs4NmPcGjIHeU7UCmzBoFVUtxxdkjH
UOFwaXSFeOsJr1KBfk9piCJ0aJpL1fC/mHmEbGR1XZpd+cDGDMK6ftzH7JJLmlsV
deHjPDxYylB1e8zTNBSbY5Rr+WNv9YHwAIpPfaL9uQ8xEB47nqT29XOBbRYb3/gM
1rFosbd9cIuzebZyS0gJsvRCcMLtZtyfbE3i9QMKFJ1JkPwCAJojxgY0BEBMCQ9l
elF8vpWkGCTvQ3kiw4qVkmIfUnPdr8hJAQpiJgn+blDH2HDgQnQj7yEnPWa3gNQL
UchPlM75d8P1hJujzmVQY8emA2ta+GF8MxpR6VpSEfAuAvh0sfvTEDAJvCgN3OvC
BnuvcYNVZZBkKPZBoRyuoIHEjxdIP1HGe1wZQdaLvG0EibzunozU7gSUwZrAgm6t
uPGLDH8P9YgkVhB7MvjU0mj66YL/AEtG0Cm1eYnxi3r2hthAN2/IuAKruIHOWry3
vEhoTVTKjCaTbVx4AEIWBBT2Fdyal93ytAKnENPtmktLR0OKvre7g6VOjHYOnXeW
AUaKrve7U/cfr4Ur2QtF8ZXBKyzB3YCtXmLbtZwAoDRQYuBEuduuzCAh9nnFQq7J
pD8gPBJvBJ4n+UtsAmpJgI0xNi6vaHQghfK2KrlJDqt1jkGVK22+FDCGs9lMBB7N
NcHn4AS7NPeuPjJO3VEHd2vTv8YW6XpFE3IyfWBH9PavW/EC9eM0pBbFGPG5NX5w
XVBNQs+4B+Zy6IVjqt+BIm4w/iBtzrvbcQDMm7xfVTZ4Xv1rAgl2Un0FFs2iu3EJ
tJF1qpfIiNQ3Lghk21tD2gPu3g0YB9xposxdPNZopPXiJwN2Ph3kmWwgQ1aIAnR0
xUFNnZX1Pp8ncWbT/wBIU8fYk3im2fnZVeJgC2AELVbVQxFXZt2zakDQWpqquJu6
zYhxUhqAmy6Ii05hmVG6AKSpXXQ6hh0fYfK6gh7738ZvCi8TXupp3y+zmUyQRc1F
4KRpXo+/sgbTy5bNkfFJoVwZRHTzqqgdSchS0hoqIhsLEZyEvUBFahSlSqj/AP/a
AAwDAQACAAMAAAAQg/Pme/pNq4RBP/bevzwv52S+IDQqw9chgCf8/8QAIREBAQEA
AwADAAMBAQAAAAAAAREhADFBUWFxgZGh0fD/2gAIAQMBAT8QvkncKBzpBO0UDH94
4VWVBBmAcNKbQRcuixncLh39yzb1kvHRxuM5Ndl6SfV3M774CEK2piGo61mc0GKH
OhZ4efR+crtIgaeKF3VwgYpvL6xD12f2Dp4YHRwx/wBdMKrw1iIND04QKfoCCxKb
6VVtPONCgRBK3BLT0dqmVnNU6tCe/oH+d801AJrRD4WnpdbU1EiFHEGMZ7CM6+W8
bRZX4Z+MfxwiVpaY2902/mv28uQhAZFyXBPbaKzDju2ILNjFIEKMSkCqVj9jUlNY
wFPI0KcAMDAM66Tb8oUEQdiUW2Fbmy5/v/eEKKKIA7jiPumPu8Rsvxp88R6yg/1z
sLV32/bnb2/vEl0dpWBgmVWgK1nXC+6QFNh9JRNFZR4ruhFdi9+T4YM1O3kSvUY+
Aep25vmklYbmdCAsXfVQvl6zjQ3a9u3x+Pj4M44IqZ8Uy2R6SJoMXjqwNYqQFJ0J
T4bO2jZBt3uYH4GTr65IM+yC/Rn/AL6OLTgWVlUFnV13+e+O0q8//8QAIxEBAAIC
AgICAwEBAAAAAAAAAREhADFBUWFxgaGRsfDB0f/aAAgBAgEBPxBQUeNW9c3xqbwv
k4ApcwSyki9ATCLeFJnsV+P175jB0kCCM7eohZHshojFMzVl7r0/R93jGbQn8fP7
xaUJi2jTMvCD1EbrJ+gG9Ua6onnutuLAQ0EKSRFqZIfV3OShmgWFC8GiI2j1lgR9
A5fAFvWIl1Of+MIcGUZKn92n43GQTSMSRCrkuN6FOziTrYpTxR8XjsyeVQKrqOI5
iM4GznToJIRqUPI60oSGD+99+cYgqAFlykgFTySoRxsBzo2IZR5sK+McFOWC1pYO
VYSnUsXjmSkiUWFERTpqCppakxLKTY7g3L1vBA8YSToRaJIVkx4hEoCVkCxgcS5b
JBE5akck4OjFlHkpKqVbAooYqDtSerEwVn/bwEiRGMQ2Ff2YAUASySXSfDsuG3Ih
UAU6q4mNDX8zhOMO1W+0v3koRx/mARn/xAAcEAEBAQEBAQEBAQAAAAAAAAABESEA
MUFRYZH/2gAIAQEAAT8Qv1KiITYG/VTc4Z4/Da3S6FyXcvW89GVVJVRzjBKCMzIg
+YtCT0wAQkkR5QLaIctzjqApFk2e1pFojIO+JIxBEu4kG6BiusoR8KhSQUPDqqAM
nKIRVIKUvA7U/keCpZIoW57yV7vScBHhBqDRZFA1FFrn+PLmgy4mnpGhD0hBzlaF
IWEKAAPr5Oo1mruGhaeQ36cwdxpGlomF/FL2w61gCzzhFmkcmdraEIZrG2L+q6s6
rH9HR8M/nFgl4xkHKDi0FrQehbKpDSBljpVnBWzivR7HzIcBCMY7zSPINShpxE9c
rBWk4JpBJ03EravEBAaMX35yDEi7j0hQUcv2kLVDofutVJnz+Toe9aRAABQY2Kxn
YEtIQ8BNOJh7BQgDVWtWTlaULoQuUMvvOg+ZEZCoVCAOJCa+ZaNZ6m333HcJN6eK
gVm/vJCu6ZBaIOUZ+HKh3gU7ITIFMB/XFK1qcT+xMrTQQwUOBSsjwR8wvwywhnR6
TqJCgQDXMM2sXqF+HyvXJcZ8mQPliv8AbxN2sj1LTKU1fnFLy2O+MwHvKIS9PjoJ
7DVRdhyjwNYAwWQ3/tztYb0grwCgEsCaCzcj1qJIwAOEha8XQJXjJsFFVDqA+G9E
A4RS+yn3kuYmawhgPzzzvpb2/gBC/wBewP8AiQu8ykbUUGDDWTSRUixBBvPUObdT
rrQP7RFkFXxEeuaia3twhJ9UjAFUgpaxzl4EkIpBsGABKhO3HREoHUr9pn8eTVI2
0faX0/nw4vfAHq9oDun8+cjhagYXwnIS9Ne4i2coEppOpNj9SE/aukmFok/sJooW
kzXEylEDBAdOANCo0hxzv8fQBVkNg471BvJlMFHvjfvavOeufAUX4BRx5x0qFQKU
RJ9wnDyHuLPspHNPr3iHQBAP4fM3beWZpI1tNRsIPgjzmJpaCcQABCp6MdDlvdf3
QLBDq1B5aF0lIKknhbyT84Q2k1AUAHbWTgXCCOyFs5AvYDGaHtUMobCi0p6ogiBs
jplql5cAUBNCwqIT5P3gdQ8a5AaKrP1/ODxNFWGzQB605j3Mdir2FEiBcAyDv3m1
MEGKLs7BlXoaAvivWuL5AMZCfa0tLCPHnbGCVq0+h2wu3q7sB6QhYhON6QkmcHRD
Eehzb86+/vAUmCBQBp4qSRfP94vZwTwvPlB+UTUrBNAf44FlkHAGAhhUFVfSWb7P
xUAoAZjzqqJiom0JA0pVg5kwxD9Uuohp+66g+BJzzOfRwxc4JZI2ouW4YI/Eh7vl
zIHoaakDw+gp0KTAdD8aBr2bmsl82iAuJFbOvzu+A0mZqDxXWKk87MkhBChxuzCx
U0qmeX4OJMTqC1eqAl3iDdUF14G5xyLwROE2viYYWFCAldgWlvTVMgrup4QnUjpi
A0UcOc1F9IAh0IlCEcYHmoHQ0BvAV98F/RV535IAybA6qPEDBUqZEAOJLusWgO1F
9sipWibgJ4LawIjCwYP1AFwwHWHZqcCrWlhioVFeYCHE6gD2gs4CiV/WBSHOKmOi
ZMvNPH6fIlLT1JHr/9k=
}

view-pro-image: load to-binary 64#{
/9j/4AAQSkZJRgABAQEAYABgAAD/4QAWRXhpZgAATU0AKgAAAAgAAAAAAAD/2wBD
AAUDBAQEAwUEBAQFBQUGBwwIBwcHBw8LCwkMEQ8SEhEPERETFhwXExQaFRERGCEY
Gh0dHx8fExciJCIeJBweHx7/2wBDAQUFBQcGBw4ICA4eFBEUHh4eHh4eHh4eHh4e
Hh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh7/wAARCABVAFUD
ASIAAhEBAxEB/8QAHAAAAgMBAQEBAAAAAAAAAAAABQYABAcDAggB/8QANhAAAgED
AwMDAgUCBQUBAAAAAQIDBAURABIhBhMxB0FRCCIUMkJhcSOBFRaRobEzQ1LB4fD/
xAAaAQADAQEBAQAAAAAAAAAAAAAEBQYDAgAB/8QAKxEAAQQBAwQBAwQDAAAAAAAA
AQACAxEEEiFRBRMxQYEUIvAVI2GRccHh/9oADAMBAAIRAxEAPwCh67esnWUPXF16
ftlTc7ItpvG6mlSoaOQqi7CrIAFeFyFlUOG4Y5LBgAEn+oL1Snq46in6kWmjjjgV
qb8DTuJHSNVkcntggO6s5UEY3EAgAaqfUnbJaL1nu0lyuT3OaqZZ6jtwdr8OrErD
CCQA22BYcuPJJBJIJ0k0tsqYpPxEKqqIWRizdzyBjhR++l75Q32t8fEMgBpPVk9S
+vEuFHNZrpJb7NZ6ju0VqeqdaaKJ23CFyCrzxgDADsdowFwONWD6x+oUHUq3Oq6p
qq+rhjCUyRziKjOXye5AihJAVMiZJDAsrBsoNCIaeeQUbVRVfw0JXGwqWBJI4PPx
/wDjpz6aNLDTd+qkeOq7odVGFQqAQPI85886WTdQMdmrT5vQ4zGD4Q/p/wBYPU2z
T2xqvqWW70lJHI8VPUMp3O0Uka951XuS7S+/azEEqvIIBA/q31p9Sr9SXOkqr6kN
tuETwT0cNDCIxG6lWRWZWcAgnncTzwdaLSVdulYu9WsRZvJkQKPnXm82Gy1syTxX
DAQ4UtWRE+MEkAZx8aDZ1t109hCyd0iC6ukkXb6hfUmv6dltTVlspmlgED19NTtH
VDgBnVg+1XbByQoxuJXaQCKty9b+r7rabdTV9UJa2gM5StVQjM0ihUk2ptUSRqZF
VsEYcHbuUNondLL+CrnYVUEm4MY3Rw42fBAGQ3+x9tKVzsDSyNVFwVZmCBW+7zkk
jHA5GP7/ABo5nUGyL67onbGphv4Vrpb1W9QLLVVFTB1TeK15IGiX/EKtqiNAx/Mq
SkrvBAIYfuDkEjVxfVjrwXunvf8Ami4yViqRLTu2aaY42nMMZVVG0+QAcjIOcnSq
1GKeYxkPgcc/zn4+ddaVRTTvKj7A8bq7MpbGRjgDnOtu9e4Q4wg37SAvs/6f75UX
30stU9fXyVtwp1amq3lcNLvRiBvO4nJXactgsCGIGdTQj6Ynq29KKSWZYEp3qZzS
IgbeIxIQd5Plt4fGP07R5B1NFNNgEpBPpbI4Dxa+dvVpbjN6rdRU11qKyRBVTJTP
c48SLCXZkWMOWAhBdthHlecKSVC0rUv4uSltzSQ08wVyZJdhDKCDjYQMH+M6dfqE
t9ksfXlRZ7bJX9mCmidPxDSStFKSzGNXkySmCreSMuwB4wM4aSvr4Fgipoh5YlCF
IPnAyfB40FK0lxtVeG9jYW0LKJNcaueUtUVE8xXCKwO48DGSTnJ4HPxjXq81NfDR
R1L1tVIBuCIZCSuOScewJ0RtttmSnj7cUm05AbIG8jzn5I0QuVrlraNoIUkNWgO6
IsF/pkcYz5JPtn+2gu8xrwE2dC8xHfdJ3R9LfesL2tpp73BQdwsQ1XKyxjCs3JAP
smP5xohRW6/94AdRxpJyAHlYHj9iPGmO5UdhivdtrIMQmnokSrQRbQs2CrDBGW8j
kZ599AJLbDU3ySqQSTF87RgHPB9vPjRAyGuOwoVwlcfTZGtD3uLiTyRtyiFto71W
QVKrcneWnfbK8bOdwH8A8fyBqjNLcqWq7T1cxGMkPnxkjjIB1vnoV01Launau4Vt
NJBJcHUxBip3RAHDYHIJyeD7e2h/rRYlemgro4GbbIUdwF8EkgHjPnxpMept+p7R
btytIslpl7IO492sOqJVnOJAS/BLH31yljwFIwQR7aLXGlKNtAwoOMEjjQ6aCRj2
YELTy8RqP1Ecn/bTRjgapEZEZAJK336a6rqCy9G1SQdH3C5UNbVNV09TS1MCg/8A
ZdSsrpghoc8E5Dc44zNePpmv9o6b6Lrob71BaqIVNe01PTT1C99RsVWZxvO0MV4U
qp+0nLBhiaaMI0jdRs7SZHHSs5+qCkqoPWqsWrn7kFXRQVFIN7N2xtMe3kfb98bn
A4+7PknSRbk/q7oFG6RcgHA55B/4GtC9TLfNVep1+huoo6J6SWRYondUXtNI0qBc
Eg7xL3D77pGyB4C9+ApCi1VKpplX7REF34z75BGPHxpdkzjWQq7pmMWQtcSj/S70
1ZSrLTIkrxtskjkTCx5HJ/c+SME8jnWjUlntxh7iCGdsku88YLEADHO3PAwMeBoB
6bW6ytYotyhppJXZ+6oUsQTkgbuQBjn3xpvW1xwt9j4U84C8fxqK6lkfulrSRSwz
sq36bqlXHTllqFDz9PWiRyTlu2RuHyeRzrvQ9O2ilnElPYLVAR7iIFxkY8kkatBe
wFG8v/4lV512whyAcj3BHnS36mYitRr/AClhlfyiMMkyQJAkjRxquFRAAFGOAMe2
pNSQV1KaeujFYhYMFmAIyNVoXVVCYPHA/bXaViIu33eyrcvICMqg8gZ4JJxwfbOv
ML3u2KHBLSk7qXp2xzSyCOzU8aowVewgR5XBw+ST4XI+Mk8ZGs160p+m6SoFHQ08
6V4VxKHTd2nBGNrZ4H5gfPtjWt9Smpkp3S11EsdWCoSaFO5/SB+/dj8pZ8n3HAx7
6z672xqRKu8Xq4TOjMIWVcd0yklvBxtH85PnVJ08ubRc4k8WnWK8ub97vhaf9MM1
p/yZU0tO1L/iMc++rEMLqyqzMIgznIfhWxt4AwMZyTNF/QeKjj9OqKrp1py9S0rS
SpHtZsSv9rZAJK5K+44OCRqasI70BTOW4Gd2nxaxj1Zt9dXepPUL000lwj/FKpqk
EZ52KDGPbKcJgc/ZzyTpTqRJLUmni2KirlmjG0EgZ5GcZ50+dby1tH1FVxTmtWSn
QRU0lYV79SsTMgnkHiRmKEBiuWVEzn8x6dO2Wz1NHHLdrVE9XIGaQ9xouMkDIUqA
cDxgcEaQ5uWIJHF42tV+PIY8ZpPigq/QnT9TDRmrr5blTCOTEAWbCSKR+xPknHGP
OtMtCQ1rtHVM8NSWGIMkbFwAMAj3JznQupmo6WkjihRqeLavYpgN7DGB4yT8c850
wxUMgZ66de3M4Urwe4gA5BxjyedTpnGRJqeNikmdI551leZLdullRw/bVgIGUgFv
nx/80OWKbey9l8rn9JB86ZKeAxRpwTjkHJY8/Ocn/XVa7TJHBIEUickBHWP3zzwB
z766nwY9OobJc2Y3SB/i0hMjDb9v2NuUnacf8jXIzrFTNUV1R26bPdV2lABPjkc8
c+PGvOzuOHqAJYWzvQDliT5ONc6yhhno3iSNki54bJAUHPg5+BoOJw2b4RLS290v
dSXxVhnnoa5oiKgQr2GIDrgHJIX++P76z7rC53O4KscspaJGJQEYEpH6m+T+51ot
1sMqxKKjMMOQ0qomBHgcs2PJxtGRn30ry2S5XFvw6xQykMdgRR4z5z8YGdUmE6Jo
CZxyM0Frf7WlfTtOP8Iu9HQzVdTZ4KmM0tRVKI37jRgyxhASFVTtbjz3D55Opr16
Q1NHRWeayUOwy0wWeplaMQh3lL4AzgvgIBu9xt8eBNUkbgWgqcnae4UjepvU9NVe
pd0r4FEz0wW3RDaVXEbHeWzzkSFxxgYA/k8qS4xlHrrg/ZRnCN24y+DjjjOTnjSH
6g1lZbvUm+UNzuFvnqIKjEs9EoSKV9ikvs52yHOXXOA5bnVq33OOttzVtXVTQ0W8
LFSLId0xOQZN2RnacfPxxpD1DEL5C535/CtsQQvx2BnATwLjNJT01Z24RSyq34cZ
YyFFcrlj8kg4GBp6s/VTtHsq6dWHsYwQQPk5JydY5Dd5al0ihiZIQdlLTRtkRgn8
o4GSSeSeSSSfOnmGY0KC3QGK4Vp+6ZlUOUzwIgDyD7kjB5A5xpNkwaFhm4zdIDh/
xalHVpcKSKO3KHk27mMn2bAeRx+o8Hx+2lW43GOjvkSQPJIsUiPLn7QF3jcf7gnj
UoqqrpIKekoI3e4tGGmlC/8ATJGQCOcAfcP9dct9LLJ2IaR66VmHekEhZ5lHlV8l
fB8e2uGT6nNJO4/r85U0+LSSB4TTVW6jRK6JKJ6ZIU3xzmRiGbGccn5JHGulNS0d
RSU1SlCscEiO0snfJ7W3wcE8/wDrSd1n1dS1lZFDRf05o1YzrIzYif7RhgQPGD86
9j1E6Sjehp6arHbjWUOpLkbT5Q5XJz5z7bf308DYTM8hgrmvO98ehYPs8+0LTg0F
XEhtlNbJK64gVW2fsqC4j3Pjf9xB48DgY5Gl3qu+rN0kvVNqj7LCrko2jZw4ikKl
t6H3BHkHPnjQJOuLFbbjcI46SKotNc4nWF2csso4LBsZBPn8vuB7aW+oOsqa49P0
1nt1BDbKGKYutIGaRmJHMjOcZPtrfHw2sYARfxvfNo4ENN/79V4rn8tP/o9cbXHZ
akSz1clQZAZYYqVpAnkBsqP1AeMn8p4HvNU/TLpmG+9OrNTizxtGzLIa63tK7nc2
CGDr9uBjx5BHsdTTVo2Sqacdw2Ud6k9IOlesfUnqeKvkr6NwtHX9yikSMlpVlR12
lSuCYQ+cbizNk6/B9P8AZlrO0/UNxNBFHiJEhjWfOBndJgqwzuOAi/m5Jxqaminx
tdVhFtyZYr0OrZc776VWnpWx1t+tt3uctTQU7TJHVCKSN8DJBAQHnnkEYJzop6f9
FLUWmm6iFwWKW4pFN2Upl2RxkAlASd27knfuGSFJBxgzU0vmxIXyEOb6RJzJ3Y9l
3uvhOsXS9IkKkyEVZVVlmjBUPj32EkZ58/P+mvVv6RttMVlUyd9XL7wSAQf07ckY
/wB9TU1n+n42q9A8JaZn15Qy7enVvutzWpqakIC7NJ2oisj5Ujlix8NtYcYGCCDn
Q2/+jvTVXaVpKWapo5GkUzVAcu7p+oAE7FLfO0gew1NTROPExjNgspJpCACdkNb0
ps0d1pUjq6haGGnCyxAkyVEuR97uSQBgflRV5JySMLoa/phYqjqY2qNpIqOip4Kq
qySZKxpHlUAtkCMDtZ+1RncfHBE1NauaLQ4leBQKfOkOm7X0vBVRWuORRVTd12d9
zeMKm7yVUeAc+TySSdTU1NZrBzja/9k=
}

dev-image: load to-binary 64#{
/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQEBAQIBAQECAgICAgQDAgICAgUE
BAMEBgUGBgYFBgYGBwkIBgcJBwYGCAsICQoKCgoKBggLDAsKDAkKCgr/2wBDAQIC
AgICAgUDAwUKBwYHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgr/wgARCABVAFUDASIAAhEBAxEB/8QAHQAAAgIDAQEBAAAA
AAAAAAAABgcACAMEBQECCf/EABoBAAEFAQAAAAAAAAAAAAAAAAYCAwQFBwH/2gAM
AwEAAhADEAAAAbvcbTHxAhKtTkZh9VbjonCn7DjnIhwo0kjx+CK2LhzBNAElArup
KHSOuxkk1s+aryJ3A/O0trSS2VDWKzNvP6h2JnrVi5y5uAVUFPttMJ080ciIJwi7
d6dPK8KztDHIdjPYf6SB1V7xZDNZc7E14YqjXm1qdilSsxkvDqicI+2QYt1KjGHJ
t9qWaAFTwCp7XmGa0EJdPWXCaMjQvy2iSkK1J3iEKqusgpqwD9qLW6dQHZLcvLO3
DkG7GhJOZzfEiVD2OTi/NiTrYodSKQQyR5H/xAAiEAACAgMAAgMAAwAAAAAAAAAF
BgQHAQIDAAgUFRYSFyP/2gAIAQEAAQUCImdIsnLDIznc8T08JMTBgTNt6/uMsw0X
XDj8bS9iZBX9hdOmbFf7xHwTVlXwLOIRE8SX22csCZOWVV6y9iQ3tw4Se25C3u5T
vWiWYNmFmS7PELzFlXfJJbzrBEMEYTafEZXeTOy9ba01T2fRPsj5IxdsCPIiQiuN
hipe8h4zFfa9LD3htE7VkHMbCyX8JPBa1lcxKZ8jIe67ZdwDqhN7I4RuT88iiApl
lEujA7801dKWmytXmreb5aDfY1zDq9OnDs1eZ2jUP5XEnhJEez5EhIchcM3ziweM
nboB33FZbVPlZisUpFOqZIk6ys7VIhYeHeyGJRBQ5SkSHwKOgToFfe18TiOb+sqP
3gj5WO5Cc5wk8Qh3CkHg9p3LzsQD9xLzBFkCgecmhWG5bLPNK4uyav2iaLfs7+oL
uUQRYQzjspH99ZWCpCHMEc4crooGC+9TrnNne24H+OerJWeleguKszF4NQsHRlRr
Y9gmlAfRvtAbO4N3FJm9v3H+Js2YNiEximbC6hgkBdnX2Cn9bRHXW7gQrfOkhVSl
zUtirm2aNW3N06euVeQ9h1RKO5Zqq2JCxAW+u4tbhYAhA+O/Sc2D8Sp8cD37DQEY
oEkVjI+SvWlVsB7YYtQrY2NwrSKKL7a8hPXewx61gz7I94XDp7DsUvRmvExKxwvZ
6H8qpuY2ymU/Tj9TOFQSHnBZFcfOi8L3zutiN8lK0VCnL+tF/EITWoUfiVWiXL3m
0UklRsNLBjsQYXIfG//EADARAAECBAQEBQIHAAAAAAAAAAECAwAEESEFEjFhE0FR
cRQikbHwocEGIzJSgYLh/9oACAEDAQE/AZWR4jCVhpR3p8tCpZpOqNIkm2SFK4SP
7CsGQbQc5abv39hWHMOZOdRSnzC1OXbS53iaQG5lSR1jB3sVRhKCnJlSOdSabxiM
viAOdwJptEpNlqbCXTa5H3v06bxN4nLiWypWanqLU2peODxWUChuKxiAyzqxvGBc
EyKCm2VKbe+m/wDsT3h1yxUs1A1iYT+YFNaXy/PnOFiVW8lVzz7Gn1v9Il5lal38
oEYjTxzlOpjBpx5SWmK0JHlObob7fwY8SyUlIy1TrfXuOcPSrD+by0Sb9PT3h1h8
htDYuFdPXfeH2VJmi0/oP021qa1icoJtdOpjDJaSW2hThv2hpqWW1QC5+axibiwb
oHry7XjipkiJtaqU+4gfiOTmVLbUKg6W2jEFIXOrKdKwmYfQnKlRjxcz+8+sGfnC
KFZgzUwrVUcZ3rCiVGpj/8QANREAAQMDAQQGBwkAAAAAAAAAAQIDBAAFESESMUFh
BhMUIkJxMlFSgZGh8BUWU2JyscHR4f/aAAgBAgEBPwG6S5Dby0pdx76F0murCQ+c
8j79auN7ebYQ6HDocKAJ3nUCl366ymsIUED9aQfmdrlpUPpC8y2hAd2sa5UTrte1
x7pwDyOcVbHlyLe04s5JA1q8sstbT6k1PaYYeDnD8tW4i7xyptoY0CsjfjcfMfsa
6Q9HrhPjhENCASe8eOP6py19ilqiLJUc6EbieR+VdH9n7FYwPCKl9YdMbyfrWrzC
fllLbYyTwqxMXZtRhFCkoz3tcY/k6eo+qpCJDkVaGzsqIIBq7xXbM+1EYV1jqhtL
SNwHDZ4jQHJ5ZxVncD1qZWOKQandobUVNpBTxpYmlWdnyp25zY8brQkFQ030m6q+
8vUFXcU1nf4hr8cUt+52vq2HkjbWopC85UocUE+Ea78+VWtCm7c0hQxhI09XLn58
anzpDUhSUE1IuT6XgdrTFGNNnd1A0JzypnovcXZAUQB8OfOpHRmfHjFSsFPEf59G
rG31VoZTypUWOte2pIzXYof4Y+Fdhh+wKTCiJ9FAHupyLGd9NANIQltISncK/8QA
PBAAAQMCBAMECAQEBwEAAAAAAQIDBAARBRITIQYxQRQiUWEjMkJSYnGBoRVykcEH
gqKxJDNDU5PR8PH/2gAIAQEABj8CEZt4Zuqf/fMVpJkJzBXhuaUAm5O46W8qcn4R
CDz7e6I6jlDp9y9jakz08MrRHVL9LHMO4aANtMKy3sepO/gRTshhx5YYbznTw9Hp
N+QGU2/WmWYHB7JbkBKbzIKsjfxd0pN/He3gBUpybh8cuR2rMx4cMpQ9f27rKiSP
d2FYdi/COFyVsF5JmIRGQVke4QWzYHxHKomPweGVTcOcaSXcJRFy8+mexUCPH7Vq
cUFvtyJLoe0WihAGYqQAPJBSOu996z4g9lkOELUEi6rch9O79qe05CUyNIWTl3/+
0yUPnMVd0WNyKeyOq7rZ7lSU4NLkCSFpWFRlbpAIJv8ASmselcVSHEoiEOaSrDMj
ZSqbVwxDlYrr2cyrd/y0H2TSMPVwUGELfF3FveqL71MGI41KlYfKs0tz1ezk2sse
XjWI4FheOzfxTCp4XFfddOnJjr338az47LQ4/rqBS2iwbt3bDx5Zr/FQxDhzh5hQ
Ef0klCylS/zk7G1tgL26+sKD34UhCikXWHRekPyWirbvK1hWZ26FZgTZdT2WIbnY
5E467zr1msnvfpU/hNthSYus4+whC+7b2vp1tTrEALAPq2VvbwpvibiZ0uS5aPQJ
WvZApYdb2W3kfSrmPKkDE5BJiHTbdKt3GehPnWtJcCi48pVh7PS32p7AMMKY0Nlz
K28Wrh46LKyN+qc/9QoxpfEbbEnIdNxTIsT4V2afOZdShZSRpjvUV6iQkpBCbcqm
cTYi5mbiMZkN++r2U/U09Mx+eNXtWqjI34+yPK21KREShrzLQzGmeHocZjVbuO2u
i5t028qMzjeY4+qQ8THQ6my9P3h4i/8Aam8cZxBL0FtYS6hCeTZ2N/kakaKyrTmq
QtRT7WVP625fMEdKaw3swS1FQFMkR7FSlpGZV/a9RIv8NulImqmCMFLKUFx216LM
qQC/nG3OkLV6bu7pQeVOYGyoNrWdSM44rupUPHy51L4v4llHE5aGsje+VrMoWTlH
Ug+NIc3VcXuT61RMKnqQiOFlx5K1WLgTvkHzppnia0ZLzgYiaGy0q/3B8Ipx1brM
uG6MrpIN1NqHUDmPPmKYTPnF9a33bKvcWCslx+bLn+azUOZHivpVKZ1H31L7iyBk
ASOlgnf8wph1GFKfAbHeQo7Gm4r4TFXpDTBc8P3o4iYjrril5ENlzmaekLldikxm
c8iO97Vvd8aRwzFwIwg1J1Vh2TmzW5UzG7iDHvokDvfrTWKYPiDjbwOdt5BsUqqO
zxPizj/+rLeWr1Wk8wB0pnBcUxJqO7O7sZmx5DY/tajhsSRqdjkqbd+FRAc/ssH6
0MNwfhuU4wxh7d5DcQq1FErPPw/fNRYRheJaTyRfJHIsaW/iOHOtKJJu9zpETFJL
jrbCrtJ0r0JPY3i2vZQta1SJOF4SoIZ717Hf5VFweegBp1BW+lI5ZancOrB02ZRD
RWOSSdj+lQMY/h7grgklsRnXoCO+U2zBZ/mH3qJ/FbjYS5mJRXA6iDbKdNs91NvE
nf6VHxJ/C3ISy66DGdG6BnJT/SRWL8MxeH4ZZjxGXIrskKSXbpupXxbkp/kNKYn4
VGaXY2yFW9Z5OGtkk7nMaL8eOg2F8qqS+cKZQ2lGZ3IeQ8ayIYTo7DNfypWKPQFB
kvrbK7bG9+VRcdj4Yp1l6O0peUcynY3pnsGCwpCC9ZQdKrxU+flUnjDC2kTntNC2
0pPcXm6/KoOOT46WnpK3lOoS3lsdVQt9ufWpfE3FXHD0db6G0xIoWPRNJRa3ePVW
Y7bbnzpMiLx28qx5Zm603MdW4EbgZk703JwIuuFyVp5AgWtancKfYTp9nVmCxuDQ
gwoiV/4c3VoXsoKpCPwla0MyknOEZbbdaitoQg2QrMgo3qYw6lHdaudNvpyoQsPf
X2d1XpYjqcyOX2pxwwkx1drXnaQLJvYbj58/nekYnPfMdbDAbQprcuovffwsSv8A
WuzKRqWHrqpzSmehPeSEjkaysNLVc5rK8aKJLEceOfc04MEwGMQXMi1K67UWV4ag
Jc9bIcoFNwmooGRBGprHNv0oM4LN7KM29u9ceBvQgY9gr75WsZ5cFi+n5q8BRfjK
u268pSP7ftV5DIzWsF9a7zZc5euf+qSUsZbHfL7XkauqKPlSm1RFs5gO+wuyhv0P
SkRW1upUk3U/ptEr2I3BRk6+70opnyncRFrJE2PHGX/iaR96WpeBtJ1GtNQbTbbx
HVKviFjXYMYQuUrVCu0LixkqAHs2Q0EfXLm39auz4cwGImiG+wstNpb/ADbJzX+t
vKhFZKilPLNX/8QAIxABAAICAgMBAAMBAQAAAAAAAREhADFBUWFxgZGhsfDR4f/a
AAgBAQABPyGCj0pLMD/X6YIdQTH0JkYDwQKWwQzOsm53HY5S/BDKmZwZqBYGQ4wt
iCl/CErR1LW8b+DqctQDtSv0hzcsgRUAhiSSzcOc7tPO+DJNKMOg465uzONob9Zp
UxoGEu3XQJIuWA1VVmg1o+scR6SoHKemOFsX/wBXjCxsrq9fcliM/cgnXDC75sY8
h9E40TIwmxs3CfxgqxSFckL4GchcXyVQ5qyfrEwvNzCUjJAm5TxtWFeEseBy2AgF
6KRlREGkUFIY7nB27fSEcEnNng6w9VMS89ruUes4ZxTjAF5CBcOKX2FT4fGvUYID
t6sofLGFMjEuCHDBlXV6nTXzC8tyGlaelRzETc4V4R9iXci3jOXaEmHX4xNESSAj
rAMwlbtgqVAVaA+w+S5YxIhkuehycZPfuaH24yqBw1umo9sYoxMjEd2muMQcR9Nh
XkH1OCz8BgicHySeMgHbVu6031aNWyGCIzfoxWemKqzvWPJfrE3g2IrwJCvRGVms
JB/Mol9FjOOBJCHnKj6XzLyf0l4ytoaH8BFTxEZPrrwlJ9oB5JMQGlFkwTqVTdjJ
bohpSCXI2vIVcNBqRDnEBB4JiwK8jjGfUjIlr83j+9dkDKrt+3iRzaYkJXlymo12
7X6w2Fog8/8AvvGrTMg3dMOAO83fzZT8pp2ZyXyoTENE90mqbHKfdAFYLiRAoeys
D7goBs9awkESUTxW+MslZZCkW84qhXLX/Mva+mFZjB5YWFFkOsgmSnbSPmxjU2lq
qFM0XyQwvo8KlKMiCXSyC4Ui5nlS+VOMKWHExI8ISKHmmCzbxMqJch4GDM4GOZBn
c6ySXtuXhgmCKJSlJ/TJCKO2YeRj/wBClEaHoz5EyFvzXxln5nWhITjeQICDzfCb
ihsAXeR0RtSWOAYwS2LhaJ/hTgmVoEM6omjrP2c0RZ2AdnWSrF5DhRvocKUInsSv
hObkzCRsh93kvJFFHJYXvKq70zOgdHxkg6qMaoa2lHJWyqGAYZAItU6NznRjkKqk
lf3HlJaj3E5O+jAkIRJ05tqkYPO8Up4qqHUYSbi2jvA5zBlC5HGAiGQ2TLzRcFbQ
OJ0cPmwIKGZEBEf15a4IAIHXk8MmGpNUgqPQ3zO+c2YfVTyTXqGt5JwqBAhUc4m8
I15KVlXDGzJ52AVQJekGhZmbl+n5gGxQvs4W6QBFCSnK2jUJGNIx7mhieGx1UcIp
EcnkZJyeN/ZeT/wsv+Kz/9oADAMBAAIAAwAAABBR9HpswA+GiECyTFak1T9w78BO
mfaEONyJ2EH/xAAiEQEAAgIDAAIDAQEAAAAAAAABESEAMUFRYXGRgaGx8MH/2gAI
AQMBAT8QIDU7SZBZjtvzFpEdhEGGI6v9PuKEOClUFQF8q/e8nYVSnBrQAgmU5ZZy
CPUBUQjok3KUuNYU4AipT8Lx1/XeKl8qiGl9zAQFcYbr1Rr8jh1AFAnVFASJg6By
ZBuklh8ELTBYEc85EQKCkQBY38/3PGl5/v8Au8beySqlaezss7ejIbfXbj5iz6l4
MBSESTcvAO2yovhDOVJ0EVYOGwQEqYKk4MQpAleYFh1LrtkcSnSVOlJYn2N4gBEM
ikRHJZhCtQxg4kZxoC1I983HOFKKQG1lqSQn7CarFQMs2YUEhYiHwWjU4os+SKAC
JU4JYa+CDKt1MzdcXxxrCRRB8PFn4d/PWEB7EDb3LSn+nAybQVmHYkd5E6EkAzKB
x7wa+sPvAUouBuJmSTW8NeEoHZ5d1rI4R4v66wHX2MDJB2z+234axhVZ9r61gMQ6
1esXvK7z/8QAIhEBAAIDAQABBQEBAAAAAAAAAREhADFBUYFhcZGh8LHR/9oACAEC
AQE/EDYsdDEInXGA+XLosQAzuGjum5RiYIwZzYVAIhYqQF1fmREgZFGGWYTQ0DtH
WCjBs0UFmQOCCBkJcCK+REKltV/n2NZA+iwsS8L+nf8ArjGkVjDX6hyBtNIEBIFX
szVG8Ey8khR9SpBISutTmjRNEiQlyswYGN1Jw41fH6Xaca5hsBhNDBykH9U7yigq
Baz2QCvaucI0CqED4tCGHcprZPLgKWQZivZuHQxj6ECJB4AgmA0YkMMaDytg0cPD
hBkSKZkdq42xBZ3DkaLaiF8WY8mqw24JDM2biJYo/PMMyVBCJH7LEZ4GAL4A1kNi
ydFE0JwdLBBUAQBbAQS4nuRjQ6qE6X/dyVnwpP1/VkgxkOSJi1B/OQaQhtOpMcKm
MltVOuipoqGHMaBSDSI3ZTesmpek/wB9+cWZ/S5iiu76V8Gj4xeVvQD+S8FAAZJD
eBVAQHgZ/8QAHhABAQEBAQEBAQEBAQAAAAAAAREhADFBUWFxgaH/2gAIAQEAAT8Q
l0ycoqnuIPn1fiVppZT8kn+A/wB7E3NNog05pp6N51M06BXMu6CpU4Yd3e8hRUiE
KojoxnaHnA1K7jTkrlDhRfxQQhCvEf8AYeYjdsIBMFB4Cwaz2+NiaLKTdZcD78E/
YaHD1LOpTKiZ7Iof3CL21KzoYv0vFbgVjP6KVDeGH+sICp6auuVbV9IxU/wx5lY/
NfOMFuKb86FEjSIBVXEfrwXE2AZDTQV8H9c49+bmjU8AyXlYwUxntUUvCHxxuvml
Gms2L6JPvYVm0OmSKa9wQDgExj5vGA9HyGVBOJWHVVnHGSVsIEcIHOYoGULtfTXO
plufpiXAwaoY3g+0shBshqaazOGOrLlXH4FD+A+duR0iklwmV+cWFgISkL7NifQe
MN1ddJ3yBX+vvObpWLYAAAVVZK5HaE7wI/LiG8+ty3grqmADg6i7pWND4tZw54s6
hpPS8PRJxLb/AMRln4OVF5OmECfEKcazlbdLtQ1Bk/k4Fzu7EMvYFdDM4ctIPkyA
E/Q/CcmlQlae8GTeRtaDe5amSYpipTJyx3sAUBBoaXctMARiA1D+oHNNQ2sHxho0
fnN2EDChpdv+cgizx+HanCKKMpyanVngJWOJ5InFBhuhlwfP4dKDYwY82WPkNuUV
uKiw6CRM8ms40niGQIUKEafo6QhMyNIGgWYtD2Lr0f1gXkW9CFfZZky+IU3/ALwG
yA+oH6EF/OdvTKGWhgDx7JzX0LgUr5MkyhTk3xfTzUKVflc62Ii36KjV9APMEnP8
kbqUPwMcZy9FDWCS1JKC+eAJ1BAQKDIAP5OT4HdQzYRH4T8AuC+WAVYHgiGLBKGz
MihpWX3On0h1w+nr0ckHE28owwALyO6+5fN+16fjx63WskXpvvhxxI4BRQGtkzes
H/xgMH0xD15EKk/S59xgEJkj/bj0RMLsfQN7L6DRifjLwRoFAJJEEkdCYMuqjzyB
YqGkEiJ/72Gx0B+/7OG440ERfFqugEJp6lOs5uqHxGC05U+2J9m+gCvzl9tieyhT
w/vCCaF2pRJPR2fm891KFwG1bo8cLOkZZb5FEwaxEKAaYcZGTJOQK1gTNbsRzE17
5yF4hPKFl3HOX+IKTyAEUpxJqMp4SV18+TgqQWdBY+uXF3gXpreMgjRfeBefQBsa
JP8ACDxugBtFRbgT6vFqQFRI38OkDdHibaGsQyACgBUr2KiGW4bCRLY6A6hURmj+
ETl/ADdlT1HeMEUoT/5Ypebz3OBYWLs05shuYJAAl3P5wM1gACbA8CG9u0sHY1E/
g5dAy5clGpU/k6wOA6dw96NDPN59qxgTR8gN2B550n63vZNCAqgU2UHhOYEyXc2/
pT9njAOtZsqhVL7AAAE50eZAPoQo/b7duHKU0G8pxaURRG3lgDCuduUlapVHoKUo
ZUrRhjDAgO9WAsrgHIFFASgiYFPut54NLmA7gYiIqgEAGmAfRbDyDRWyAB/APq1V
f//Z
}

command-image: load to-binary 64#{
/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQEBAQIBAQECAgICAgQDAgICAgUE
BAMEBgUGBgYFBgYGBwkIBgcJBwYGCAsICQoKCgoKBggLDAsKDAkKCgr/2wBDAQIC
AgICAgUDAwUKBwYHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgr/wgARCABVAFUDASIAAhEBAxEB/8QAHAAAAgMBAQEBAAAA
AAAAAAAABgcABAUIAwkC/8QAGgEAAgMBAQAAAAAAAAAAAAAAAQQCAwUABv/aAAwD
AQACEAMQAAAB8ALfwa+2GCDFsgsChzDku5wNje5CSqtMLWnzqghBNBL1qrVSOkRq
4pt72HNtPWx6X9uV3PC8z819gIvfS6Z8fz+NMTcQywwvfysB+2yMsXJZObQc99PO
hxWs5znaMIZqZHBVM3ygEgYaa9X0PLdxrdV1Z1oLW1sjskCESXN0u6YuYyhz7z/0
ys1CDjed7tjD8ck7lO3lN9EY+t0IMbioXu+m0/U9D53HKJB1fwk4UxWQTvkEij2t
JG03NJJVf//EACEQAAIDAQADAAMBAQAAAAAAAAUGAwQHAgABCBMUFhUX/9oACAEB
AAEFAtc2NvF6AT3TTGOCbYthoFAO9amv0ZdT1xmYzW56hZBcHdcGMGea5o6vWBbb
rlcQQ1PegpHAdBPval9OxFu9ZxGiFJ6pkb8fdGjP2Am+JlgbQr2ANGoZzwhYiAb0
qcU0T6FJqESODNNpc93hD72TCfRy3eWXrOm2slvoNpxjMXYM+5Ql8p2vVeijLq1a
EMyboAFeH9NVyFktoQ//AJw7aDmVepil69fznW+qxTXCXY60LBhxSf3f1Varc/2w
43w40ZQNfNKPFk93dpfnjfBVj1dKglWfEHlZe1d5mGG9EMuo4NRIlDBwh/kRdzUq
3dPsE0R2vYdUrLjW5IszV0EUSqe0vCWVGi/mrLIEED9CG+V1puUYIKEUfr15atfq
cqH8+eo3IJe4xTNDzTJVq90XqBapVCKTloNzz5593vSRvFKCpq5MP3aF3OfffpiX
IzS6Es3BnVa17649+/dYdkjf6HjW7LAxaOWnXh5yYtVJLP1PEqWNBSSqZfHNYGSs
Q/FeqSw1JbEpK3+tFY9zWfQcSQirKNZwDeiV8958xWZpVnfUwr/Yj2Sgus0rsFY/
CMpGnXtlSM0VQfJJ5SExeqEDSAk8qKqXYG34zkor5qs2LWVavYK+9JN3RpuveEX4
vBirciEVfUt27X45KE2MJEZVIw0FLufsheWElvIq/Hz8pvKWqMHzQqkZTuIoJwla
+e87nLN/zhmDd4W+Y8sv+LvyYqCOQGGhjiWwfPSiSR6eFJo6AliCuwXo444Y/wD/
xAApEQABBAECBQIHAAAAAAAAAAABAAIDEQQhQQUQEjFREyIUMmGRocHw/9oACAED
AQE/AeQAu0a5GJ4QFotKAWPE2aSnGhuVmwYMLwYpLB8Kd4kmc4b8g2DHjuQWUBBk
t9gpywvQOR0S/KdFn4McOd8Pjm+3528KWJ8MhY8UQgVLGchoexYkJxWmaRHusbiB
gkEhYHEdif79WpZPVkL/ACj72pr5IjoaRfNkPAJsrPxH8LcxjBdjU1dnxr2r77ri
+TiStjGO1v1IG/jROHSaVlWo5HxPDmnULiGZkzzOY91gEqGeXHf1xmjy/8QAKBEA
AgEDBAEDBQEBAAAAAAAAAQIDAAQRBRIhMRNBUWEycYGR8BAi/9oACAECAQE/AWzn
iuxTMxXFAGhwKJXPFSSbJOBSyOWwq/mj5Afpq5doLYyKMn0HvWmyX9xGROm0jjJ9
6iQxxhT6UkHkly9M01w+2PgCt1xaNljlTWo+ZbIvB9S8/wB+60zUDPp3nuxt75+3
x38Ukkcqh4zkGupRxUTi2co9XUouMQx0MjqrrSUuYjGHKKewOv784+KjTxoFBrmK
XFZWRf8AoZFIsMKk4wBVjejVVdmJGDwoOMD5x3n9en30i01C2d2uGYewJ9Peg24Z
rauc1tWnRZEKt0asLaCCNZI1wSBUqJOm2QZH+f/EAEEQAAEDAgQFAQUFBQQLAAAA
AAECAwQFEQASITEGEyJBURQjMkJhcRUzUoGRBxYksdFTYmNyFyU0NYKio7LB0vD/
2gAIAQEABj8CmVDgvjtYpC4zTcV+GEPRlFIu5YqSpGYFacxTr1JBw8y5x+YyHEKD
TVNYDZd6yoZVAZ075b5gbJA1NyXYtU4pmwZE1hpMdmTRilfQBlWhCkWusk5iBr8h
YBEPi6iuTKjJ+4iy6ath7OpVkABCeobaWub79hUaLxpVpwiU9DsuTDg05aQwUai/
KAcCE/4hIBAzYjQKS+tmAtOSn1BdMUp2ekdGUl/Ml3cZiNScN0ZibV23kqTlotPW
7HTfcpEaPy8otqrKAdSdzfEuNS0SKgplct6pU+TzHC0TYl/OUqKLK1IUSnqN+pWb
EKbBkuTkRZXIYqcumc951agCYfM7pXlSbe+SAc2gGJ9Q4jpLymKu1Z6FXaYtMRr8
PKbXbLbbcg36sxthY4np8oTILnLXPcYytSxmVqk2AKk2yrtsfrhn7fp7PpuS39ly
FN+z5PxcwgXXZZVcdgU/i1hVB2M0yuCzIf8AssJNkFCVEa7b2Vh7iLiivKqb3D9C
n1GK2+yByXDkGmmo8eMcP1viCqKqFQpvHEZHqXk2UG3LEt/PWx/IeMcW8YM2H7zU
Nfp/8NLcVznf9TLjhB97LegNpq0xR2MY+pUr/mZR+uOMf2gSh/uSjtyG19g65GaQ
n/vVjjeXNQlcFuhvz1oyXCmnFsOq/moYjUNtYVG/0lxXITirWWyqNdu3nTT6g4/a
Tw1VKg7IZpV5MBDjd/TlteyT8/H9cT4/DPDtQnQmpxW17Vockr1Ui7iwVdWZd7fH
btj7UdqztSRKWZTbspzmrp7JUeY0U3+667oHjMPgvin8STaRzPSR1tzQyDdcc5ru
/M2UNO+XESZwlX59Vp1QYkRq3zYpb5bDgGQJzAElPfzih8HcH8QSJtOj8QirViqP
wlpyBIyhOW2bx23Hzw7E4hrwFNjU+pNQQIizkMi5sbDW5tbxinUfhaq9DnCCKdVm
xHVvzVKWjUb2O401OOIuIf2bcVA1ysSaezFV6BXS00ykLPtUZfezJ1+uJlUqVa/1
nP8A2fuU2pNelWLz8ybbJtrdWo6RbHC/DlYkq9dSOIIj7i/TqN4LaV9dwPgCstt9
L44lR+zfiCXWavxhKQFD0a2m4qM11DrAJv8A08YgKnemuyFMIMVJAytqKO/fT/7b
FTP28X+WWSyEqu2hKBlUi4J9xaXLp8rOm+FPTFJKihwDkpyukHbUD6H5jEXiqsvM
yAkhaGyNHNPdH8x9MO0yjcFs+kWcr3skXeTnG58FG3hWHYrvDnJRIk8z+DbbujXW
3/CE6eb4+zqfzHYbvtFvKRl7+5+R/XCpKx/szBW2bnRfbtb8jhRkssOSOVfItaUX
T3P64zQWf45CuS3GDl86laDKsfD5x66RRETH1aLkMsBLRX42sPpbbfDlToNUU48X
+ZUITts8RxeuXQC6d7K2Ou1rCXxi2xLixJckKeYWgJKMiW21BYT5UjUfr3xMTR6W
zzlLUl0gjIEZk2yHuu4OnYE4cl1CSC8rVw26Wx20/lgsul95dr73/ltjmR5ciM4B
0hYzI/Q4Xw1xnGbQt1J9I+E5kE+Uk7YfbispMaZEUWw3nIasbhOqtdBcrULXNhbD
c2lSo7UhtOQMSF5OaPkra4vsfOKZJrvIQiQ6pCVIfCglVranYb4eKaPJkJknRxpr
Nlc0978P18Ye4hi1Jx1FegwneS62QptSWyV7gaFbirC2yRqb4m0SJWJEiep32kl4
jmtAttm+iQnqzEDL7oTiJEiuXacR6lS+WpJcGoBUD4sbKHk+MBorTmIzuqUnv3Bw
G1vrbjI0SgC+cjth5lExbamWyp5l7xtmt9ba74kQXFnmNe0jrURmQoePPcYizZKe
cpA1UbZkhX/qbW/XDciNkc5gCm3m7FC+w6vnthunfZ6HVzFdPMB9ipGhV/m1thjh
CsCMAmMpUV+awrOoIHu5kHXTz4w9HmTWFpbqLgYYZUTyEkBWVVwDqoqX30WPoK6x
U6k7IdRNCyVN+82tKXAm9z7qVpb+jY86QpMDTmU91tvq+8Ivt8tRrt8t8POpOY5E
rFzqoaE/XCK5SVgqZJzN5/vAe6fOH5KxkQqOthOcdVlYEl69lXUu6dh2Pyx6NHVl
i+0KUnv1W0+uE07idRFOydFQWCpDP91w3NhoEpAG5xGriJwWY7+YWdCgCPgzbHsM
psfnjO7K+5C8rXLIKD8vJt+WC1Tk0gpjPrbdNHBQ1nuT7pHdBQb9yo4VP4aqzT8i
S2UVVls+4+10EZ9gbBIKNLZB+LDtHbqTbL8e0iO/Jj5FyLAXF79RJ2T21OF+xTHc
zZ4oKhZSTuj5WN7fW2C2ytccZeplQ93/AM2xd8KcN/d7YVDK8zzmjqR2HjBjs9Sl
Wznsn+njDrTNXdaRIbyuttfHpse2+Ex6XVJDcRCumKu62/ezZcvje9rXzb4Jaixn
+WnLIv0LGpGa2lxsfmdB5xOBQ6429JRJTNV7rhUjIUDQWKQ2m47Z7Yn+nipPqHVP
U9nlICnRZBc9y3xqNireyt9TiJX+HKVOKYCVO5ZchKk201BSkADNm7eMJjsJWy6q
MOa3KUMpcFhkbPg3J69rY5bV3W0nMjpDg7i48DQ/pjKHsqT/AGbeXCHSfZuA3WN/
p9dQfzw7UnnAxDi6vPWvmV/Zo8qP6DCmKhQXFoJ6HFyyrIP8uxwl9dFDSQi/OQ4U
OD53viNNolbXUoLudUaHMXmkDJvlO/5fLviO68yED10rL7QlX3yycwt0nNfudLHv
YVL96i2k5UphOU43/hbr5fz5o67g97/DlvJeqERoO1J3moejNBCgCPe00Vp52vhx
iMuM+nk5U5dMoB3Hz0tj94J1bSxFSnOA0VFy4Nhppre9sIjoWcpXpzOoADz+WPTs
JU2hzRpPMz8tobdVtQBtj7EglEctqS40FdKdNNfG++H6ZVIkhdQz8tiMwoZR/fKt
c3ytv5w/T1U5xr+DW2l3Te1uux02xLpNl2d6k2vdKx+G3fth2i8VyIC4nO5tLTFv
nQlZUpYUbC4uQRpfVQPbANBqsmmIcUTMsVPrkEq6lFTijZVr2Pk3ObbD8iVQY1pT
6FuqRzUuJ0XmCFJcHLBJBIAseq9yQQxVGojqA0022uMpYdbdS2EJTcOBVlZUWzCx
6ldzfDN6WunhtaStNNXy0upGuUp2/MWV88QVUuA/SXYAsh+muJC3NLdedKs/54D9
Q4qqL8koKXFR22mmrX+FBSop0t8X9MQ5n2u81LdbU8l3lJKesJyoUN1BIH4hqpR0
vYI4XoqI8Ce0EcuuCEFPBfRnc0KepYRY698S0QW8ipSkLRnjNOIirBJKmkOJUE3u
Brf3Qd7ksViuuumSnL6sQvYsyMtrDISrljT4CL3N8JZZQEpSLJSkaAY//8QAIBAB
AQADAQACAwEBAAAAAAAAAREAITFBUWFxgZGh0f/aAAgBAQABPyEAO7LAu3PIIaDN
y/ELEoOgFUWxG8PvgCVLZK2GFdmMqsSYsJFFHcFKb60RuJCrhSUla+HWh5NE2eWZ
p+pFvKLjZ25bOvHo+syPeAHobtcHmDpuUPgkTZEnJALENvRbofKnXwAehIIN1oPt
KeiCewsVbwFOLb2OtifZP7k5gFj7nwi0P6NTLxhPQWHgXw6TBj6/m0hP3r7zXwQP
Vf5M/wDeV4PgitPv90w3hI0pniST6wNKfE2RfFlZJfFe2QV0gPhPtidTxb6sueAL
PkHIsUMxKlUBt6m7xOAFMX4Opo3tzRCigjoBniA1vD97k4K3oCZEJ4EBh5Hbeeme
NayL8iKMTL8q0rvXRi13gq1Q28Ejjuo8m0Hw8NRFNXpmyNs0Bp366t45az6TisFK
X1qqbdTD7IX091vdVFjrVfAZCq0JdtzpOZUL2gGhynzhEdirj3J2Wxt1wixqI7do
EDfoXRmtq7F4ym6HSQzTkRh8sXSJD5N9TRmxtDDYHKXXiJfYZs6RyDrd00nxMSmn
MS7dHZzo+8RDVApvxFr2Xo8xZb5MKpoUcvBszV9IdKFndpW6BiEuwVJIadCj+uEM
ozX2QfFQbfvNKVAGdlPjj2ejVzof6cziUAXfYoOO47+stD8EA2VgtItyZzVla2ti
X6CgnMYZC9qUqmr+nKUbyFhqO3ZMfWDz5LQypgORvn2AbQpA6MREHKYxJWHpTacG
iyVcX/0m8Un1/wAyL6V3peFau1h+MLYoxXgBsQQQxfM9kgeN6PSfwcdgQtpPsjxG
GhOsdkEQhOHlW+KYv0zQMAARLUc7RuAJRKnGdifYwbxuW4hyS4U8FGGCe8uiQ7lM
Gi0DTD+osFX7BvQIbdARLH6HJCTe+Nn1it0JvmfJJU7H3GW6+dFftm2uVWgvkqp+
B/M34Ruktp9a1vPHWHjgkPGo2P4TNyVkgBwulrEQE52YtQgnS9cW4g3T83FQGRu9
KNnvyQCs5wZWblfk5Dty+80Hiv7gnK2Y2NLLn7+urpquYGUKa0XoUCd/G80aIHC+
Ke5TYVCb7f5+Pznr4wabLbf8I5uH84A110B+w8xAsNl0Wq77qamDDqPNLvipCcOk
gwV/jwLBBIRWvi2h93BSg1AnPU9WE6TKb8GA4LrbXAefkdkfqioIHzAXnxGoI1RI
BiqGbeftGtWUOZ7ySOxP0RsdBvPS2LmgBzS/s4rNUxU6wNPox9gtVpVj47BwWPJQ
aZzgFGnwMIiC23bMCgwFFBWWrC1vJwLQTXkRYS3CUQRcbrPZ7jD5mVAD/Qevxm09
MwtRJNBLiyQIT6YHQqw5cM+50gYIPYJQQeYYHq4iFD+e327g2v5BOAAsjXbTWBUH
wzqrloaQuKDhrenUdsNlhlc4XytG/Qx4AQuBGYJRn8AvAVzwsSO0iRRyFR2+iKQF
aqCK4Eo9nulTJq7LQcGFPwAL7SL2itbRTFM0qys0Mh1sUhBL3dT9Cjz1WtDBT6QD
WzeATTbDmaUvuNVBFuuVEyZ6Ei8bVFqx1DY/nBEAPDP/2gAMAwEAAgADAAAAEECK
mW8oJnT+ADp6GAsy46zcM+ZVhsjXQ/3Hv//EACARAQEAAwACAwEBAQAAAAAAAAER
ACExQVFhcfCRocH/2gAIAQMBAT8QE45MBbEs0vMQjD7Q7v3km8K4sqzDp+6bh9G2
sCeXOx7QcPtdbpEutmBnBLPvNBrDdB8VvoHQHlbvg+HxE/34nN8Em+6wj4tRicRG
M2Hh7HWb/qQLWgiYJ8joRDSRpmUT04QRc30LpPX67viJmqYDXy9n2pw+VxLRgoyC
ik0eYw0KgcTGWIq9u3uEKev7l0y+HHwMgVu3Qf3Dc7qgJaIYHJPI8jJ2oAPE4HvT
b4kxVX7959ccJS5TkE2wcb9HmobfR/PXiZSv3Hz+/wC9MVWuf//EACMRAQACAgIC
AgMBAQAAAAAAAAERIQAxQWFRcYHwkaGxwfH/2gAIAQIBAT8QBBK/UH+4LBf34/uE
jQXgXeQhfz+P56OeoUpSdXrJkka+NOu/Zv3gJKMUSNx5mi9dF5qHFXJ8tT8cruN4
sOeAgk9tEEqtQOCZuk30AurYYunwr0oCcgnWJ5pvkKqo5+KZS+1BHCxavARXJyja
88x3dkbRmtXWLcgESRLESSoTvirjKcwqBUSlswIUbknTJBQUj5HTk1Ulz13mmLz9
9EdyOLmmWX+T6Bd8xk8hKRjAZWAqbYIkltALlYKAhUoH6vEShS+dTDrmRY0kWq4x
p6LJtwmgyqHASv4MHewoQIRkJKZmeA3hjYsrpJu0/qI5mcLu/f8AmKSF5ZMXhZzs
POEwlabYPvvnI1t0N3gAQZ//xAAcEAEBAQEBAQEBAQAAAAAAAAABESEAMUFRYXH/
2gAIAQEAAT8Q3wZWUQTYCkAsas2pgxFxcGxpf7lJ8Jow86FaiKwtJxCoInCNNr7x
p6AA8HSA1oRngPVR0m3luJgdqWYJZ4TNqU5jCRcEKPTJftCikqB0mnp/0dq/RNZh
Yd+qWxPV36hwYj3GAeQw3FNa4Hwa/aOEYI2lg+zj/jImcPgsaZy9yf56uqpbSBlB
OcCE2sQ3WiFK9M5NlHUkAfiD+gfHWl6AxD6iPL6k2iVaRQw5KJ5VEQ77rfnMwyra
qPDjwsI5JIoFeAwmwd1Huqi67hGTuSZiNtBQUXKHtCqaEIiAoAqh4HmzDBVJRmIK
xxOVCfivQOr0rvkLr52Ig/Owo4F6i4k1PRwlL0Gzx6W6Dwt7DpwgdhfiX7xkRlEN
WHGieMmBLEISmY3oGoGnWUlw+ieM/dcStcjTAGS+h+xFgs2NpfIBcConXgggrEfq
COR45H9giGIkhSTvBcitUHFsDnKcNiMg1SZW4EYDg/bEkHhpJGqRDVfgBfrf11EO
ItArSBjCJuF/SkFeFfuBpwFhYQQ0Kqatt4hAqqkZVKFxUIPcVnHCbdzks9yzEt0D
VEJYbMmPenAQRZnANImoqsGXBFbF6idJQPQR+kbnDXsqtaDaEQdQieXm4bOJwaUf
ozR2u6wzuW1BA2Fr1C6MSpYWqiVCisjF84yS1YNicb2a0whgyFH8Rdbo3NeoZmWu
UXSSFScvgXKQyIGSh1GSGx6Rhkn+mYLWS/gSCAPeqXwfGqogC1VgRTZiUVqCYiDE
EeyEVnQADhBPixQ5PIkwgEWWhFgI+0bhMZRAyFNysHpcsQabMMpsJIOjiGIUKIIC
QAili93d64CuoHocfrx95KAyKGV2zRpXQkV4lidHWJU5wFNAIDxfvvUWrUWDRvrE
IAIQPmHEgl8Ia4Cw9gMT9ZIaHaMkqBtnT3EOgrfI1KY04Nm1PNyxTfpRFb7S8DdW
ACTKHART8D0TQxkqA0mqTNzKukbSlx1lKFMCo9gNYWD1iBGJHKhbX7POKT70yXo4
wFB65sS2CKvwQFTRaSrekhY6BXYQUP0+dsWveRKWfOqFUzmZQOa6kPgFRTf73k4X
R96EJrsimcasVNjpQFPQiASUQSxTICOlVRnFO9uMry1TEot4CDlvcJuyJ57Wg/KG
sNmGgiLSAdAlZ1IuPdBx5iQElvghJ4I76DxTeATjQpQ8eLGGXaq7FBACofhLYIfe
c6nhTRcThZGOWg/aAmh48NJ2bcszaoklOOlKIKLVrWE4lMZdpbkMxnAe+kdzfWMD
4okFT5Mrpa+IRsBPBGMwZQFBJQlVxV/DNrmQ5EOtg1BpzDM60DBpSFIAbOp96y7N
VWFdALniYPHyKTwJQKmqCojVppbQCgtaVsakQg3tfYJpwQpMPmBIWJCLYtj2qJhi
EDp2O6uZKyb10gRDAzjAV4nAdhoea0mh1oxpgLbhDj6khEcJ9q4HkOWAIwYMiEEx
RaRikPYedUXFANzJuxM4Lw5DtD2ye/ppo0CABA+cEFXg/Cm3AiPBuISm4gqihdfZ
5TwEQTAAAMA7/9k=
}

;--------------------------------------------------------------------------------------------- background effects
                
                                                                                             ; - made with Patterns Script
                                                                                             ; - Viewtop/Rebol/Tools 

patterns: [
   [ 
       gradient 0x1 255.255.255 190.190.190 draw [
           pen none
           fill-pen linear -173x-248 0 14 102 2 10 255.0.0.136 76.26.0.159 0.128.0.16
           2 255.150.10.190 250.240.230.186 72.72.16.166 192.192.192.149 178.34.34.171 255.22
           8.196.146 255.255.255.203 40.100.130.211 72.0.90.184 0.0.0.167 255.80.37.154
           0.128.128.179 128.128.0.178 255.0.255.215 255.255.240.189 
           box 0x0 400x400
       ]
   ]

   [
       gradient 0x1 255.255.255 190.190.190 draw [
           pen none
           fill-pen cubic 240x942 0 38 6 7 10 139.69.19.192 240.240.240.223 179.179.126.138
           100.136.116.197 139.69.19.232 100.136.116.221 38.58.108.204 240.240.240.166
           0.0.0.200 255.164.200.130 160.180.160.219 72.72.16.197 76.26.0.188 255.0.0.196
           0.0.128.140 179.179.126.161 255.205.40.202 160.82.45.231 255.150.10.196 0.48.0.179
           179.179.126.160 0.255.0.171
           box 0x0 400x400
           pen none
           fill-pen cubic 1028x351 0 148 276 8 6
           255.164.200.145 255.0.0.170 128.128.128.147 128.0.128.169 160.82.45.156
           240.240.240.135 128.128.128.146 100.120.100.146 255.255.240.186
           142.128.110.129 100.136.116.163 222.184.135.150 255.80.37.134
           box 0x0 400x400
           pen none
           fill-pen conic 983x938 0 251 322 2 5 160.82.45.133 170.170.170.166 0.255.0.139
           245.222.129.157 0.0.0.136 142.128.110.162 255.228.196.165 72.72.16.156
           box 0x0 400x400
           pen none
           fill-pen cubic -4x-143 0 146 231 10 3
           245.222.129.179 192.192.192.163 142.128.110.199 76.26.0.167 38.58.108.197
           44.80.132.201 255.255.240.183 255.255.0.189 164.200.255.141 44.80.132.164
           142.128.110.202 0.0.255.159 0.48.0.141 160.180.160.193 72.0.90.193 164.200.255.200
           box 0x0 400x400
           pen none
           fill-pen conic 1124x925 0 61 60 8 5
           128.128.128.129 255.255.240.151 245.222.129.154 255.255.255.144 0.0.255.143
           255.80.37.155 44.80.132.138 0.255.255.128 222.184.135.154
           box 0x0 400x400
       ]
    ]

 [
        gradient 0x1 255.255.255 190.190.190 draw [
            pen none 
            fill-pen cubic 990x373 0 9 213 9 7 
            192.192.192.172 128.128.128.218 128.128.128.156 0.255.255.161 128.0.0.142
            178.34.34.191 128.0.0.174 76.26.0.170 178.34.34.171 64.64.64.134 255.255.240.228
            0.128.128.204 0.255.0.160 170.170.170.198 0.128.0.203 128.0.0.194 255.164.200.181
            240.240.240.173 245.222.129.131 76.26.0.168 0.48.0.202 38.58.108.231
            box 0x0 700x600 
            pen none 
            fill-pen diamond -100x-175 0 133 173 9 10
            255.255.240.204 255.255.0.220 0.128.0.146 128.0.128.143 255.255.255.215 255.150.10.204
            178.34.34.183 179.179.126.190 255.0.0.220 255.205.40.179 128.0.0.144 255.0.0.230
            255.255.255.219 44.80.132.166 164.200.255.172 255.255.240.177 160.82.45.201 220.20.60.203
            255.0.255.156 255.255.255.178 255.255.255.176
            box 0x0 700x600 
            pen none 
            fill-pen conic 269x829 0 123 35 1 1 128.0.0.158
            0.0.0.179 255.164.200.155 192.192.192.136 255.205.40.159 192.192.192.135 222.184.135.179
            255.255.255.140 160.82.45.169 164.200.255.171 255.0.255.176
            box 0x0 700x600 
            pen none 
            fill-pen linear 943x1172 0 294 112 1 3
            0.0.255.139 44.80.132.241 255.255.240.160 160.82.45.225 255.205.40.151 44.80.132.213
            0.255.0.198 245.222.129.140 255.0.0.204 255.255.240.235 220.20.60.145 160.82.45.181
            164.200.255.145 44.80.132.221 164.200.255.202 220.20.60.176 255.0.0.234 255.255.255.168
            44.80.132.128 0.0.128.173 255.228.196.237 0.0.255.142 0.255.255.136
            box 0x0 700x600
        ]
    ]

]

;-------------------------------------------------------------------------   texts

norwegian: {

REBOL gir en lettvektsplattform for Internett anvendelser. REBOLS kraft lager anvendelser liten slik de er mindre dyre til å skape, fordeler,  vedlikeholder, og oppgraderer.   I størrelsen av en typisk vevside kan passe du en hel REBOL anvendelse. 

REBOL er merenn akkurat et programmerende språk. Det er også et språk for representereene av data og metadata. Det gir en konsekvent arkitektur for beregning, lagring, og utveksling av informasjonen. 

REBOL ha forsettlig blitt beholdt liten og lettvekt.  Det tar bare et par sekunder til download, og det krever ikke noen spesielle biblioteker til å kjøre, men det inkluderer hundrevis av funksjoner, dusin av datatypes, innebygd hjelp, flerfoldig Internett protokoller, grafikk, lyder, og mye mer.}

french: {
REBOL fournit une plateforme légère pour des applications d'Internet. La puissance de REBOL fait des demandes petites ainsi elles sont moins chères de créer, distribuer, maintenir, et mise à niveau. Dans la taille d'une page Web typique, vous pouvez adapter une application entière de REBOL. 

REBOL est plus que juste un langage de programmation. C'est également une langue pour représenter des données et le metadata. Il fournit une architecture cohérente pour le calcul, le stockage, et l'échange d'information.

REBOL a été intentionnellement maintenu petit et léger.  Cela prend seulement quelques secondes au téléchargement, et il n'exige d'aucune bibliothèque spéciale de fonctionner, mais il inclut des centaines de fonctions, douzaines de datatypes, aide intégrée, protocoles multiples d'Internet, graphiques, bruit, et beaucoup plus.} 

dutch: {
REBOL verstrekt een lichtgewichtplatform voor de toepassingen van Internet. De macht van REBOL maakt toepassingen klein zodat zijn zij minder duur te creëren, te verdelen, te handhaven, en verbetering. In de grootte van een typische Web-pagina, kunt u een volledige toepassing passen REBOL. 

REBOL is meer dan enkel een programmeertaal. Het is ook een taal voor het vertegenwoordigen van gegevens en meta-gegevens. Het verstrekt een verenigbare architectuur voor berekening, opslag, en uitwisseling van informatie.

REBOL is opzettelijk gehouden klein en lichtgewicht. Het vergt slechts een paar seconden aan download, en het vereist geen speciale bibliotheken om te lopen, maar het omvat honderden functies, dozens datatypes, ingebouwde hulp, veelvoudige Internet-protocols, grafiek, geluid, en veel meer.}


intro-text: {

REBOL provides a lightweight platform for Internet applications. REBOL's power makes applications small so they are less expensive to create, distribute, maintain, and upgrade. In the size of a typical web page, you can fit an entire REBOL application.

REBOL is more than just a programming language. It is also a language for representing data and metadata. It provides a consistent architecture for computation, storage, and exchange of information.

REBOL has been intentionally kept small and lightweight. It only takes a few seconds to download, and it requires no special libraries to run, but it includes hundreds of functions, dozens of datatypes, built-in help, multiple Internet protocols, graphics, sound, and much more.}


italian: {
REBOL fornisce una piattaforma leggera per le applicazioni del Internet. L'alimentazione del REBOL fa le domande piccole in modo da sono meno costose generare, distribuire, effettuare ed aggiornamento.  Nel formato di un Web page tipico, potete misura un'intera applicazione di REBOL.

REBOL è più appena di un linguaggio di programmazione. È inoltre una lingua per rappresentare i dati ed il metadata.
Fornisce un'architettura costante per il calcolo, la registrazione e lo scambio di informazioni.

REBOL intenzionalmente è stato mantenuto piccolo e leggero. Occorre soltanto alcuni secondi al trasferimento dal sistema centrale verso i satelliti e non richiede biblioteche speciali funzionare, ma include le centinaia delle funzioni, delle dozzine dei datatypes, dell'aiuto incorporato, dei protocolli multipli del Internet, dei grafici, del suono e di molto più.}


installation-notes: {

Availability & Installation Notes, specific to selected operating system....}

library-text: {

    Scripts Contributed By The Rebol Community.}


get-started: {

The REBOL Manual, tutorials, quick starts, script library &
forums all provide a wealth of knowledge and experience to assist script writers.}
 

manifesto: {
Join the Revolution!


Write once, run your scripts on many platforms.

There are Rebol Engines for Windows, Macintosh, LInux, Opens BSD & others.}


core-intro: {
REBOL/Core

Optimized for Servers and Scripts

    * Advanced dialected programming language
    * Very small size
    * No installation required
    * 10+ Internet protocols
    * 100's of built-in functions and datatypes
    * 1000's of practical applications, including CGI
    * Free for personal, commercial & educational uses}

view-intro: {
Educational & Free Products

REBOL/View
Version 1.3.2
License

	
Designed for Client Applications

    * High-speed 32bit graphical compositing engine
    * Distributed desktop application built-in
    * User interface dialect for quick GUIs
    * Image processing and graphic effects
    * Now includes sound and program launch (call)
    * Includes all REBOL/Core features
    * Free for personal, commercial & educational uses 
}
view-pro-intro: {

REBOL/View-PRO
Version 1.3.2

REBOL/View/Pro Extends REBOL/View

View/Pro adds professional enhancements to View with:
   DH, DSA, RSA, and AES encryption methods, 
   plus shell application access and 
   dynamic library access.

}

sdk-intro: {
Software Developer's Kit

    * Everything you need to create REBOL applications
    * 3 REBOL encapsulators to create executables
    * 3 new REBOL Kernels: /Base, /Pro, and /Face
    * Built-in RSA, AES, Blowfish, DSA, DH encryption
    * DLL and shell command access
    * REBOL Preprocessor 2.0 to organize your programs
    * Windows Registry access functions
    * Source modules for various components}

command-intro: {
Features for Professionals

    * Oracle and MySQL direct interfaces
    * ODBC (SQLServer, Access, Excel) database ^/ ^(tab) interface
    * Access to external libraries (DLLs)
    * SSL secure sockets (HTTPS client)
    * Built-in RSA, AES, Blowfish, DSA, DH encryption
    * Shell commands, launch external apps
    * Windows Registry access functions
    * Fast CGI server interface}

long-command: {
This is our full strength REBOL implementation for commercial developers, enterprise users, and server-side applications. REBOL/Command extends the features of REBOL by integrating access to database systems, secure environments, Web server interfaces, and legacy applications.

REBOL/Command is the premier solution for rapidly developing lightweight distributed computing solutions. E-commerce companies, IS shops, and ASPs can all benefit from the powerful Internet-centric applications and tools enabled by REBOL/Command.

Modern Internet applications must be able to fetch, analyze, modify, and transmit information across the Internet using a wide variety of protocols. The rapid development of these applications requires a powerful and compact system that is easy to learn and extremely flexible. With REBOL/Command based lightweight distributed computing, applications can move information from back-end sources to client destinations across the Internet as easily as if they were running on the same computer.

REBOL/Command/View is also included. It combines all the features of REBOL/Command with all the features of REBOL/View. A powerful combination.}

ios-intro: {
REBOL IOS Software

The current version of the REBOL/IOS client download is located here.

Note: This client requires access to a REBOL/IOS server, and this download only contains keys for IOS developer and evaluation servers.}



library-url: http://www.rebol.org/library/scripts/

change-links: func [link-layout][   
    right-box/pane: link-layout
    right-box/pane/offset: 0x0
    show right-box
]

;--------------------------------------------------------------------------------   change scroller colors function

                                                                                ; - lines without values get the value
                                                                                ; - from the following line

change-scroller: func [
    initial-arrow-color 
    dragger-color 
    track-color
    up-box-color 
    down-box-color
    ] [
        scroll-details/pane/2/effect/3:
        scroll-details/pane/3/effect/3: initial-arrow-color
        scroll-details/pane/2/colors: 
        scroll-details/pane/3/colors: reduce [up-box-color down-box-color]
        scroll-details/pane/1/color: dragger-color
        scroll-details/color: track-color
        show scroll-details
        reset-face scroll-details
    ]

;-------------------------------------------------------------------------------  change page function
                                                                           
                                                                                ; - set the scroller offset back, (...x: 334)
                                                                                ; - its moved if the area size is increased
change-page: func [
    no-scroller?
    text-input 
    pattern
][  
    center-box/pane: reader
    reset-face details
    either no-scroller? [
        details/size/1: 350
        hide scroll-details
    ][
        details/size/1:
        scroll-details/offset/x: 334
        show scroll-details
    ]
    details/text: text-input
    details/effect: pick patterns pattern
    show [center-box reader details]
]

;------------------------------------------------------------------------------   change list function

change-list: func [color-1 color-2 file][
    center-box/pane: lists
    script-list/sld/pane/1/color: color-1
    script-list/sld/pane/2/colors/1: script-list/sld/pane/3/colors/1: color-2
    script-list/pane/color: script-list/sub-area/color: none
    script-list/effect: patterns/2
    script-list/data: load file
    reset-face script-list
    reset-face script-list/sld
    show center-box
]

center-piece: layout/tight [
    origin 0x0
    center-box: box 400x400
]

;------------------------------------------------------------------------------    download rebol function
get-rebol: func [rebol file-click][
    finder: rejoin [rebol " " file-click]
    file: select  [
        "Core Linux x86" http://rebol.net/builds/042/rebview1302042.tar.gz
        "Core Linux Deb" http://rebol.net/builds/042/rebview1302042.tar.gz
        "Core Linux Ubuntu" http://rebol.net/builds/042/rebview1302042.tar.gz
        "Core Mac OSX" http://rebol.net/builds/042/rebview1302042.tar.gz
    ] finder
    write/binary last split-path file read/binary file
]


;-----------------------------------------------------------------------------    downloads layout

all-downloads: layout [
    origin 0x0 
    style heads h3 100x18 top ivory font-size 14
    style version h3 100x14 top ivory + 10 font-size 10 [        
        change-page false installation-notes 1
        change-scroller
        brown             ;initial-arrow-color
        163.168.125       ;dragger-color
        171.98.82         ;track-color
        163.168.125       ;up-box-color 
        163.168.125       ;down-box-color

       ;download-rebol
    ]
    origin 0x40  	
    group: heads "Download Core" 180 font-size 12
    version "Linux x86" 
    version "Linux PPC" 
    version "Linux Deb" 
    version "Linux Fedora" 
    version "Linux Ubuntu"
    version "Mac OSX PPC" 
    version "Mac OSX Intel"
    version "Solaris Sparc"
    version "Open BSD x86"
    version "Free BSD x86"
    version "Windows"
]
all-downloads/color: none

;--------------------------------------------------------------------------      main layout

                                                                                 ; - "true" or "false" instead of logic values
                                                                                 ; - logic values to change-page seemed not work 

main: layout [
    size 700x600
    backdrop effect patterns/3
    style heads h3 100x18 top ivory  font-size 14
    style links h3 100x14 top ivory + 10 font-size 10
    origin 20x40
    heads "REBOL"
    links "Rebols" [
        change-links rebols
        change-page true  manifesto  1
    ]
    links "Library"  [
        change-links script-library
        change-page true library-text  2  
    ]
    links "Internet OS" [
        change-links languages
        change-page  true intro-text  1
    ]
    links "Developers"
    links "Feature Scripts"
    heads "News"
    links "Rebolution Blog"
    links "Current Plan"
    heads "Learn"
    links "Get Started" [
        change-links rebols
        change-page  true  get-started  1  
    ]
    links "Documents"        
    links "Tutorials"
    links "Books"
    heads "Company"
    links "About"
    links "Support"
    links "Feedback"
    links "Contact"    
    return
    pad -40x-30
    heads 500 ivory "Relative Expression Based Object Language" center
    pad 85x20
    backer: box teal 352x352
    origin backer/offset
    pad 1x1
    center-box: box 350x350
    return
    pad 20x0
    right-box: box 200x350
    origin right-box/offset
    origin 200x460
    across
    links 230 "Join The Rebolution!" font-size 12 ivory
    return

    style image-link image 42x42 feel [
        engage: func [face action event] [
            if action = 'down [
                group/text: join "Download " face/data/1
                change-links all-downloads
                either (face/data/2 = "true") [
                    change-page true (reduce face/data/3) 1 
                ][
                  change-page false (reduce face/data/3) 1 
                  change-scroller
        blue            ;initial-arrow-color
        108.98.228      ;dragger-color
        silver          ;track-color
        163.168.125     ;up-box-color 
        blue            ;down-box-color 
                ] 
            ]
        ]
       over: func [face act pos] [
            face/effect: either act [[fit colorize yellow]][[fit]]
            show face
        ]
    ]

    image-link core-image      with [data: ["Core"       "true"  [core-intro]]]
    image-link view-image      with [data: ["View"       "true"  [view-intro]]]
    image-link view-pro-image  with [data: ["PRO"        "true"  [view-pro-intro]]]
    image-link dev-image       with [data: ["SDK"        "true"  [sdk-intro]]]
    image-link command-image   with [data: ["Command"    "false" [long-command]]]

    return
    pad -10
    style products h3 42 font-size 11 silver center middle
    products 44 "Core"
    products 42 "View"
    products 40 "PRO"
    products 49 "SDK"
    products 70 "Command" left
    return
    pad 400x10 image 50x12 114.73.232  logo.gif 
]


;---------------------------------------------------------------------------------   languages layout

languages: layout [
    origin 0x0
    style heads h3 100x18 top ivory font-size 14
    style links h3 100x14 top ivory + 10  font-size 10 
    origin 20x40  	
    heads "Internet OS"
    links "Dutch"     [change-page true dutch 1]
    links "English"   [change-page true intro-text 1]
    links "Italian"   [change-page true italian 1]
    links "French"    [change-page true french 1]
    links "Norwegian" [change-page true norwegian 1]
] 
languages/color: none



;---------------------------------------------------------------------------------   reader layout

                                                                                ; - if the scroller edge/size is none,
                                                                                ; - the scroller function may not work

reader: layout [
    size 400x350
    across
    space 0
    origin 0x0
    details: area 350x350 silver silver wrap with [
        edge/size: 1x1 
        edge/color: teal
        para/origin: 10x10
        para/margin: 20x10
        effect: patterns/1
    ] intro-text
    scroll-details: scroller 15x350 185.159.85 158.151.104 [
        scroll-para details scroll-details
    ]
]

reader/offset: 0x0
center-box/pane: reader
scroll-details/show?: false

;---------------------------------------------------------------------------------   rebols layout

rebols: layout [
    origin 0x0
    style heads h3 100x18 top ivory font-size 14
    style links h3 100x14 top ivory + 10  font-size 10 
    origin 20x40  	
    heads "Rebols"
    links "Core" [change-page true core-intro 1]
    links "View" [change-page true view-intro 1]
    links "View PRO" [change-page true view-pro-intro 1]
    links "Command"  [change-page true command-intro 1]
    links "SDK"
    links "IOS" 
    links "Licenses"
] 
rebols/color: none

;----------------------------------------------------------------------------------   script library layout

                                                                                   ; - script list could be downloaded
                                                                                   ; - its first request-file 
                                                                                   ; - request-files returns a block

beginner-scripts: [
    %age.r %alert.r %ascii-chart.r %ascii-info.r %associate.r %average.r %beer.r %beersong.r
    %bestfit.r %bin-data.r %bin-save.r %bin-to-float.r %black-text.r %build-tag.r
    %button-image.r %button-key.r %call-spellchecker.r %case.r %cd-track-titles.r
    %celcius.r %cgi-debug.r %cgimail.r %char-to-hex.r %clipboard-buttons.r %cls.r
    %coding-maito.r %common-dir.r %common-parse-values.r %console-udp.r %consoleio.r
    %content-type.r %convertisseur.r %countweb.r %csv.r %days-per-month.r %delete-directory.r
    %dialog.r %dice.r %dir.r %directions.r %do-thru.r %document-search.r %double-clic.r
    %draw-a-mouse-over-round-button.r %duplicate-directory.r %easter-day.r %easter.r
    %easy-service.r %easy-soccer.r %easypage.r %echos.r %emailbot.r %emailsend.r
    %embedded-search.r %environ.r %extend-an-object.r %extract-web-links.r %f-to-c.r
    %facebroadcast.r %fahrenheit.r %file.r %find-block.r %find-file.r %foreach-file.r
    %formmail.pl %ftpallto.r %ftpappend.r %ftpcheck.r %ftpdel.r %ftpdemo.r %ftpdir.r
    %ftpdircheck.r %ftpdo.r %ftpdown.r %ftpdownbin.r %ftphtml.r %ftpinfo.r %ftpmakedir.r
    %ftpread.r %ftprename.r %ftpup.r %ftpupload.r %ftpwrite.r %get-stock.r %glayout-demo.r
    %headfull.r %hello.r %helloworld.r %hide-email-addresses.r %inhide.r %insert-mru.r
    %interweave.r %iota.r %iso-8601-date.r %itemize.r %kasper.r %keep-alive.r
    %kg-st-remainder-lbs.r %label-and-print.r %lds-demo1-package.r %leapyear.r %leftstring.r
    %licensed.r %linear-interp.r %list-scroll-demo.r %list-supply-how-to.r %locale.r %log.r
    %lowertag.r %mailfile.r %mailheader.r %mailpage.r %mailsave.r %mailsend.r %mailsendgroup.r
    %make-word-list.r %map.r %menu-system-demo.r %new-suffix.r %not.r %now.r %one-row-hilite.r
    %oneliner-bmp-to-png.r %oneliner-cd.r %oneliner-chess-board.r %oneliner-clear-me.r
    %oneliner-dohist.r %oneliner-ftp-upload-dir.r %oneliner-ftp-upload-file.r %oneliner-hist.r
    %oneliner-image-viewer.r %oneliner-leapyear.r %oneliner-log.r %oneliner-monty-hall.r
    %oneliner-newprobe.r %oneliner-nfrac.r %oneliner-pi.r %oneliner-prime-factors.r
    %oneliner-print-links.r %oneliner-print-web-page.r %oneliner-quine.r
    %oneliner-save-console-history.r %oneliner-save-web-page-text.r %oneliner-send-email.r
    %oneliner-server-id.r %oneliner-tcp-port-scanner.r %oneliner-weekday.r %ora-listener.r
    %parse-ini.r %passprotect.r %permute.r %ping.r %podcast-chopper.r %pop.r %popspec.r
    %preface.r %presenting-text-in-columns.r %pretty-numbers.r %priority-queue.r %profile-timer.r
    %progress-bar-with-read-thru.r %progress.r %pspad-spec.r %pt.r %push.r %pword.r %qklaunch.r
    %quantieme.r %quiz.r %rblxelparser.r %rebocalc.r %rebol-reader.r %reline.r
    %representation-in-text-lists.r %rightstring.r %rm.r %rnv.r %round.r %scrolling-fields.r
    %series-slice.r %setemail.r %simple-math.r %simple.r %sizedir.r %smartudp.r %spampopper.r
    %substr.r %substring.r %tagit.r %tally.r %tcpping.r %test-simple.r %testljudmila.r
    %text-list-cover-up.r %timepage.r %timewebs.r %tj-operators.r %to-fussy-idate.r
    %to-iso-8601-date.r %to-timestamp.r %tokyotower.r %topic-tags.r %tower.r %twelvedays.r
    %uncomment.r %unless.r %upnp-igd.r %userprotect.r %view-buttons.r %view-html.r
    %view-image-name.r %view-image-name2.r %view-image.r %view-list.r %vtrend.r %webfind.r
    %webfinder.r %webget.r %webgetter.r %webloop.r %webprint.r %websend.r %webtitle.r
    %wild-buttons.r %work-days.r %yubnub-searches.r
]

script-library: layout [
    origin 0x0
    style heads h3 100x18 top ivory font-size 14
    style links h3 100x14 top ivory + 10 font-size 10
    origin 20x40  	
    heads "LIbrary"
    links "Beginner" [change-list khaki - 30 khaki - 30 beginner-scripts]
    links "Intermediate"
    links "Advanced"
    links "IOS" 
    links ""
    links ""
    links "Run" 
    links "Copy" [write clipboard:// details/text]
    links "Upload"
    links  "Save As" [
        save-file: request-file/save/title "Save Script" ""
        if not none? save-file [
            write first save-file details/text
        ]
    ]
]
script-library/color: none

;---------------------------------------------------------------------------------   text-list layout
                                                                                     ; - first show face to get
                                                                                     ;   hilight bar

lists: layout [
    origin 0x0
    script-list: text-list coffee wheat 350x350 data array 40 [
        show face
        details/size/x: 334
        scroll-details/offset/x: 334
        change-page false (read join library-url script-list/picked/1) 1 
        change-scroller
        blue            ;initial-arrow-color
        108.98.228      ;dragger-color
        silver          ;track-color
        163.168.125     ;up-box-color 
        blue            ;down-box-color         
    ]
]
lists/offset: 0x0
script-list/pane/pane/2/color: khaki      ;list track color
script-list/pane/effect: pick patterns 4
script-list/color: none
script-list/sub-area/color: none


view/offset main 300x30