StarLogo
Java StarLogo
2.1
English
`turtle`
; all sheep have a gender, an age, and a color.
; gender has the value 0 for male, 1 for female.
; sheep start out with age randomly selected between 0-312 weeks
; age is counted in weeks (for now, maybe unnecessary)
; color gets darker as the sheep gets older.
turtles-own [gender age sheepcolor]
to sheep-go
ifelse breed = churros ; if sheep is a churro
[churro-go] ; run the churro-go procedure
[finewool-go] ; otherwise it must be a fine wool so run finewool-go
end
to wiggle
fd 1
rt random 90
lt random 90
end
to churro-go ; churros main loop
ifelse age > 312 ; if churro is older than 6 years old,
[die] ; it dies of old age
[ ; otherwise
if pc-ahead = 56
[rt 180 fd 1]
wiggle ; it moves around
churro-mate ; looks for a mate
setage age + 1 ; increases its age by 1 week
]
end
to churro-mate ; churros mating
grab one-of-churros-here ; every churro looks to see if another churro in on same patch
[if (gender-of partner) != gender ; if so, is it of opposite gender?
[
if (random 100) < 90 ; 90% chance of successful mating
[
let [:roll (random 100)] ; roll dice again to get a number between 0-99
ifelse :roll < 50 ; if less than 50 then single offspring
; (50% chance of single offspring)
[ ; give birth, 10% of time lamb dies, if not set its age to 0 months and have it move
hatch [ if (random 100) < 10 [die] setage 0 wiggle fd 1]
]
[
ifelse :roll < 85 ; if roll was between 50-85 then have twins
[ ; 35 % chance of twins
hatch [ if (random 100) < 10 [die] setage 0 wiggle fd 1]
hatch [ if (random 100) < 10 [die] setage 0 wiggle fd 1]
]
[ ; else roll was 85 or greater so triplets
; 15% chance if triplets
hatch [ if (random 100) < 10 [die] setage 0 wiggle fd 1]
hatch [ if (random 100) < 10 [die] setage 0 wiggle fd 1]
hatch [ if (random 100) < 10 [die] setage 0 wiggle fd 1]
]
]
]
]
]
end
to finewool-go
ifelse age > 312 ; 52 weeks X 6 years
[die]
[
if pc-ahead = 53
[rt 180 fd 1]
wiggle
finewool-mate
setage age + 1
]
end
to finewool-mate
grab one-of-finewools-here
[if (gender-of partner) != gender
[;finewool-mate
if (random 100) < 90 ; 90% chance of successful mating
[
let [:roll (random 100)]
ifelse :roll < 90 ; 90% chance of single offspring
[
hatch [ if (random 100) < 10 [die] setage 0 wiggle fd 1]
]
[
hatch [ if (random 100) < 10 [die] setage 0 wiggle fd 1]
hatch [ if (random 100) < 10 [die] setage 0 wiggle fd 1]
]
]
]
]
end
`observer`
; there are two breeds : churros and finewools
; initial flock size is 100
; start with 11 churros and 89 finewools
breeds [ churros finewools ]
; in setup we clear the screen, color the screen green = grass,
; then we populate the world with sheep
to setup
ct ; clear turtles only
ask-patches [setpc 56] ; light green
create-churros-and-do 5 ; create 5 churros
[
setage (random 312) ; set age randomly between 0-312 weeks
setsheepcolor red - (int (age / 52)) ; set color as red, darker each additional year
setc sheepcolor
setgender 0 setshape 12 ; make each of them a ram, give it the ram shape
setxy -12 12 ; position it at center of Churro pen
]
create-churros-and-do 6 ; create another 5 churros
[
setage (random 312) ; set age randomly between 0-312 weeks
setsheepcolor red - (int (age / 52)) ; set color as red, darker each additional year
setc sheepcolor
setgender 1 setshape 13 ; make each one an ewe, give it ewe shape
setxy -12 12 ; position it at center of the pen
]
create-finewools-and-do 89 ; initial flock size
[
setage (random 312)
setsheepcolor blue - (int (age / 52))
setc sheepcolor
ifelse (random 100) < 10
[setgender 0 setshape 12]
[setgender 1 setshape 13]
setxy 0 0
]
end
to go
ask-turtles [sheep-go]
cull-sheep
end
to cull-sheep
if count-turtles > 100
[
let [:extra (count-turtles - 100) ]
repeat :extra
[kill one-of-finewools
print :extra]
]
end
`information`
`interface`
SLCanvas
top-left 11 137
SLMonitor
top-left 168 42
width-height 79 36
name "monitor1"
list-to-run "count-turtles"
digits 0
delay 0.5
monitor-number 1
show-name? false
whichip 11
onewhichip 12
SLMonitor
top-left 264 43
width-height 84 36
name "monitor3"
list-to-run "count-finewools"
digits 0
delay 0.5
monitor-number 3
show-name? false
whichip 15
onewhichip 16
SLMonitor
top-left 219 42
width-height 82 36
name "monitor2"
list-to-run "count-churros"
digits 0
delay 0.5
monitor-number 2
show-name? false
whichip 13
onewhichip 14
SLButton
turtle-or-observer? observer
top-left 25 34
width-height 84 42
name "button1"
line-to-run "setup"
forever? false
button-number 1
show-name? false
whichip 9
SLButton
turtle-or-observer? observer
top-left 89 44
width-height 64 32
name "button2"
line-to-run "go"
forever? false
button-number 2
show-name? false
whichip 10
`turtle shapes`
H4sIAAAAAAAAAO3c27ck113Y8UIyIBuBHUi4OcQVIBeSyJFG0kgiF86TX1h+zQOL
B0tkEnkt3yLJywue+g/lD+C/CK62TvfM1umu2961b5/PWvSXrjnVu341NWcuiD18
8wdf/PyzL370Yvz8049/9uLzHzy8MTx6OL+++asff+v849OBX/vl/7z+y/954/Il
9Ow0vfz/XwobHrv1dbHOX/PZT33e3vOXfs7eOQqc/1u/+rYAAPTntfPr2j9HlNC1
f0ZLte7R13HU+rc+d+n6W68r9c9hruuI9fNw1LrW73v9vetuvY7Y68a6jqXXN3d+
gR2H4WsDAAAAAAAAANCCX/3/ERXy3yRoB537mtzXZ/5j5239fpjf/C3Nv/Z6Y8+f
+371Nn/Ke3lEzd/X85B6jdzz5Z6/tPuR+56b3/zmN7/5zW9+87c+f+55c9+P3PMd
PX/ueXLfj9zXn3v+tfcj9v3bu775Ve/214Y3P/9/P//4s+v2oedtAm0fyqNTIY+q
Zupg+1AA6Nhr2f8soqqqqsd3sH0oAAAAAAAAADTkjez/LYKqqqqqqqqqqqqqqqqq
qqru7zBtCPTmz1589vlPf3LZPvS1aZ9A24fy6DS9PPUIPfE43f26tedHfMx3XX/s
87de79L7ufV67/y47UMBoFuvnV/3/Blp75+5cq+/9c9qW9cv/fzeuvac2J9n/bLX
3/sZra0f++tLW3/v/azw/NH2oQAAAAAAAADQijfOr3v+W4257v2M1NdnfvP3PH/q
9XPPb33rWz/t9xBVrbOp1yj9+sxvfvOb3/zmN//x89V+f8xvfvOnuz7zm9/8+ebf
+xnWt771i17/9eG3v3jx2Y9/+MWLy/6hrze5f+jDN0+vdO2P177+DqfpZe+zuOT5
PuL8l937sXuft+fXXe71N94/+4dCofb+3lHw7z2LmP/0ZFOdR6/W7x/ae2P9WS32
uqmvI/f6ue9/jvVftufcGNeV4+e/pPmX3odY62yd4Z7afv6tf8jzN9o/FAAAgFtu
/d8ajvq/OeReH3qW+9df7vWhZ3O//mL/ejx6PQCA9qXfP1RV++3ez8h9/bnmrvU+
pF4j93zmN7/5j78PuefJdR9yX7/5Pf9PXcstOdcu4T4dMX/un3/z9z3/PTnXLuH+
9PDzn+M+5J4n133Iff23rmmpI9eKtaaf//xz13ofUq+Rez7zm9/85j/6PuSeJ9d9
OOA6vzb87uP+ob/46U//92UT0a/d3UT04Xt/e7dz9p6/Ve5NPHOvv8NpennqAb1n
yQO+5/ynfpGtXXfJNW35xV3y+hvv36JNROd+baf+td/7+vTJJpqnV3r0+bnZRJRj
LNtEdK+df7Hpfv0lf0bc+mfGWtZfeh2p1s2x/sv2nBvjunL8/Jc0/9L7EGudrTPc
U9vPv/UPef7GGJuI7v27cu1/1za/+XM2N/P3PT8A0L7cm3jlXh96lvvXX+71oWc2
EQUAqF2cTURzS/HfXKxpbuY3f87mZv6887/cI+51CXOa3/zmN/9R9yH3PLnuQ+7r
zzV3yffhnpxrl3Cfjpg/98+/+fue/56ca5dwf3r4+c9xH3LPk+s+5L7+W9e01JFr
xVqzhJ/3Gp6DI+au7T6Y3/zmN3+v86e6D7nnyXUfDrjOXx/e/OzjTz754ReX7UN/
/f72oY//2eUP/uSV97c8fHt48utuvX/8+rnP+UpvnHfz/BvvY59/+bqVDc+f+7xb
X3/Lw/f/adkXrtw+9N6jHH7Nrff3Pm+pJddx5PlbrblX975+bp6Zr1u2fWj4a/Lx
e0TwvWLzNn+3nvmV/6n4reu49fm3fnzvure+h21d/ytfv/LH59a/eT2R5l6rmPVv
XcfKH7f+zvVv/R49d3zl+lt/T1/7e//R6679/hPruuY+f+uPx5pvqa+s8+WfsS7d
+fmrrydYf78024du+WvRU+fvNff5sdZZa836S+/Vmlli/3zvXc/61i9h/dRyrTt3
Hbd+PNY6W9ffeh1rPz/2c7H28/dez87PG2NsH/oo9t+ha7F4rh9858s+/W8oue/D
4r+7rP35vMx9o5Gei1R/B/zK18f+t6Kd82/9O+jS85P9G1nkf2NLNn/uOXfehzmx
5v/K5+59rg+a/7Lezvuw+fq3nh9p7st6tf06iDz/LaXPn1pxz8HR//aW+9fFQc/5
LbvnT3x+auZf2NjzR/rz3V7mX1jzP91e5r81T+yvN/8rjW31vIV1q9zXnfs+5L7e
XPPnvs7c92H+cx6C5p5r3fXMWbre8q9P2+t1PAS9//W3bL1/xz0PD0muf+5z5r/+
YdH6qeffev2xLJ7j+//4aiN/H89t8dwL70Mr5ubvRblzx9k+NPd/w5O7qeWaI9e8
c2L/NzJr18tt7/WXNk9q5k8//97PTPlzcsT38RLnL+33saOl+n2xNLHmNL/5n2rp
zG/+lC2d+c2fsqUzf1/zzul17pD5+5w7ZP4485dyv7Ze99b5S3luYl//3OeU9usm
9vXX8ueFo+Yo7T7knueo+5L7+nLdh9zX82V/Y/idH734P1+89Xcff3bZQPQ3ph+/
uYHoXg//a9tHPp639Xw2O00vLz849x7yNb8gtv7Y0rXmrreW3pp/7v5E/PFFG4hS
llzfK3N9rw7XPWr9W+v6vQpox7INRLWspvraJZ+VY/2npLxn99bdO9Pc1xz1DKkO
X7r3Yy/b8tlbzp/T+vkH3/8x5gaiAPCy3v8Nrdf5e/031F7/DXlu7lbnXzp3a/Ov
nbuV+bfO3cr8AAAAANQm7gaiqqqqL/dlMT4r9zw556/pPjylh/nvSbFW7nmXzJ36
Wkuf+6hrLHXuHNdW0txHzx/7Phx93aXcn9zXl2v+3Nelqqqq6br1nHuOuOYc66/V
yvp7Wd/61q93/a3XEWvdUtZfeh2p1k20/m8O3/zsh//301d3EP3N6QuS7SB6y97/
Txn/HzfJnKaXp56ge0/pvSdvydO95rx7vzqWnFd67804dw8i/bgdRBuS+3tk7u/V
uf+/NP1/iwL1sYNo6V36tS/LvX6M61h7zj0p112y/r3riPlztfQ6c66vZXXux162
5bO3nD+n9fMPvv+jHUQBKEXv/4Zm/ocn24ve/025950Ye9+RsvedOe1QCgAAAEBc
dhBVVdU43fsZTylhrtRzm//2/CXfh9ifuUSLc6+ZP+d9SL3GFi3MvWf+lPfhqLlj
zL/lPhw935H3sef5l96H3NeX+z7kvi5VVdUc3XrOPUdcc47112pl/b2sb33r17v+
1uuItW4p6y+9jlTrJlr/jeEbn//i459cNg89/0cBmzcPffjTtWe8et6lz5d93dzx
m58/063nxerW658T3tdb9/klp+ll60Ma6+Ge+7q543u/ieSy9frX/vzMnNfF5qFr
fy2lWnfue+DR66e+jtj3fe33xr3rx/7enmrdtb/HpVq31t+La/kzQKr1U1/PVrnW
/cp1zHyfTP59dOb79f7v56+dX1P/BSd3Q7nWPfo6lqrlvq+9/r3rrxVr/b1i3a/U
cq2be/1S7vtRz0Hq71+x1711HVt/PPb3vcjf50abh1K7o/5OUJqj/05UitV/Nzzo
376OYv6VfX6/tTH//bau9PlT/5tdqfOX8m+1qeX+N2vzbztvq6PmXTrP0f83gdzz
h3Ok+r6y9/Nr6Zzc11fq95VWGsp9PeY/prfkvi7zp+1Sua8z9/yh3Nd91Jxzcs+V
a+5beps31Pv8ob3/nlj9v0ea/25Tn59b/fPbPFTr75zc15dr7lbn3yv39Zs/7/y1
3w/ztzVPa/Ov1cr8sZQ+/1HMX8b8ue29ntrnf7T3emqbNxXz9zn3o17nftTr/J77
Pufv/fe92v/cs1TsP/fWch9SzV3q/Th6XvOvux9Hn5+75r8v9fm5W/n8Xx/efPGT
f/j7H7+4bB/69WmfwMv2oQ9//cX5Mh6+9+mihh7Pn7P0/L3rh1+39fxY88/e14X3
7+bnPv78bezw5faha916zJf+cpg7vnf9uc9Lvf7abwNz5+/93Bnn7UO/8ox872+j
dk5p6+/V2vq5739p66+9vtbWz33/S/v1v/v7VOXr777ewtbvrY/bh6Z20J9poq0f
+6+Qta+/V2vrr72+1tZfq/b1156f+npLWz/29eZevzPjtH3o7J8ZIv/d/Oi/688x
v/nvtpA5c82fm/nNf6+7P9/8d7v3+lr//md+8+fsXqnn33u++c2/5/Nn1zf/3c6e
7/tf1u5lfvPfa2q575/5zX+vqfU+f2rmN//dml9VO+3j9qG16/2/DTG/+fc09eeX
fn3mN7/5t39+buY3/57u/fzcSp8/9f0zv/n3NPX19z5/auY3/57u/fzccs+fev3c
zG/+lC1d6vlLv7+5r9/85s85P9Csbwzf+PTZT59dNg/9xiubhz5+1cNbP3uloV5+
fM7c14XrzK77N999sku/bu/5w5ebh976zWTuN5tWf3zpb7pbf1Ne+vV7f7NfeP55
89DQ2mfZ+c53frvn71Xb+nPnr+1eqdff+2eMvZ9n/bzrP24euvfPMs53vvPbPX/u
62N/Xu71197PObGvP/b6uT/P+lnXH6fNQ+e0/mdh61vf+ta3vvWtb33rW9/61re+
9a2f/vP3Mr/577X0z98r9/Xt/f6U+/vbXuY3f87uvv7M/+1C7uszv/lTdq/c129+
8+/pXrmvv/X5HzcPzf3foljf+ta3vvWtb33rW9/61re+9a1v/fLX3/v5pV+f+c3f
8/x710+t9PufmvnNv6e9X19q5jf/ntbO/Obf09oVPv9vDW9+8vNPPvnRi8v2ob/1
5Pahjx6+fb+3zJ1363O+8uPf/6dXu/Jzd59/cB9tPS+04bzT9LL2sYz1OLfybWCv
vfdv58/ft57aPjQU61nf6uj1j/q1X8r6q7+3Hv291vp519emGzp6vdLWj309e6Vf
/+ntQ2P/lSX3X5kK+ytacesD/cr9/ae09XP//nPw+uOS7UPnlPZn2aOZP29za33+
3PPlvj+5r9/8+7pX7utPPf/udeb+rbL1f8s0v/nNb37zm7/H+VVVVbW6zsl9fann
m5P7+s2/r3vlvv7c889pfb455s/b3Oqff9n2obn/2405e6/f/Obf09xan28v85t/
T2vX+nwAAADAvNb/fcC//5h/T2u3d/7S70/q+cxv/nvNbef1vzm8/tnHPz7/L8Od
XUPpzml62fN03fsVs+Trwq+P9XVrfmUvmWvvfSn4/EW7hgIALVq2a6im79zXpPq8
pZ+/dqa1n1fa+rfu09r1t35+7PnX3p+tPw9bP7eW9WPfz1rX12Y6xtg1FAAAAAAA
AAAoQZxdQ1VVtf7u/Yzar6+3+WNff8rZj7g+85vf/MvPzz3/3uvvff7U9yf1/Edf
f+vzx27qeUuv+c3f8/xr70fu6zO/+c2vqqqqjfe3h9df/OLF+X8Z7BrK1Wl6ifm0
Pf7vS4/f+rpbTX3+rc/Zeh+2nn9g7RoKAN2ya2jpffzfjzrv1udsbez7cPS61l93
HanWLWX9W9dx1LqlrK/NdLRrKAAAAAAAAAC0wq6hqqq6reGx1tYr7XpKn//omr+M
7wNH3Y/c85nf/OY3v/mPuR+5r9/85jf/cfcj9/WZ3/zmV1VV1cb7O8Mbn3/68c9e
vPXOe+d3g61DuTpNL4U8qlEbHjv6/Ipq61AA6JatQ1VrbHist/VVNUpHW4cCAAAA
AAAAQCtsHaqqqqqqqqqasuGx3NdjflVVVVVVVdWm+83L1qHvn98Ntg7l6jS9FPKo
Rm147OjzK6qtQwGgW7YOVa2x4bHe1lfVKB1tHQoAAAAAAAAArbB1qKqqqqqqqmrK
hsdyX4/5VVVVVVVVVZvuty5bhz4/vxtsHcrVaXop5FGN2vDY0edXVFuHAkC3bB2q
WmPDY72tr6pROto6FAAAAAAAAABaYetQVVVVVVVV1ZQNj+W+HvOrqqqqqqqqNt1/
cdk69IPzu8HWoVydppdCHtWoDY8dfX5FtXUoAHTL1qGqNTY81tv6qhqlo61DAQAA
AAAAAKAVtg5VVVVVVVVVTdnwWO7rMb+qqqqqqqpq0/3dy9ahH57fDbYO5eo0vRTy
qEZteOzo8yuqrUMBoFu2DlWtseGx3tZX1SgdbR0KAAAAAAAAAK2wdaiqqqqqqqpq
yobHcl+P+VVVVVVVVVWb7u9dtg796PxusHUoV6fppZBHNWrDY0efX1FtHQoA3bJ1
qGqNDY/1tr6qRulo61AAAAAAAAAAaIWtQ1VVVVVVVVVTNjyW+3rMr6qqqqqqqtp0
/+Xj1qHP3j6/G2wdytVpeinkUY3a8NjR51dUW4cCQLdsHapaY8Njva2vqlE62joU
AAAAAAAAAFph61BVVVVVVVXVlA2P5b4e86uqqqqqqqo23X912Tr0nfO7wdahXJ2m
l0Ie1agNjx19fkW1dSgAdMvWoao1NjzW2/qqGqWjrUMBAAAAAAAAoBW2DlVVVVVV
VVVN2fBY7usxv6qqqqqqqmrT/f3L1qHPzu8GW4dydZpeCnlUozY8dvT5FdXWoQDQ
LVuHqtbY8Fhv66tqlI62DgUAAAAAAACAVtg6VFVVVVVVVTVlw2O5r8f8qqqqqqqq
qk33Dy5bh757fjfYOpSr0/RSyKMateGxo8+vqLYOBYBu2TpUtcaGx3pbX1WjdLR1
KAAAAAAAAAC0wtahqqqqqqqqqikbHst9PeZXVVVVVVVVbbp/eNk69L3zu8HWoVyd
ppdCHtWoDY8dfX5FtXUoAHTL1qGqNTY81tv6qhqlo61DAQAAAAAAAKAVtg5VVVVV
VVVVTdnwWO7rMb+qqqqqqqpq0/2jy9ah75/fDbYO5eo0vRTyqEZteOzo8yuqrUMB
oFu2DlWtseGx3tZX1SgdbR0KAAAAAAAAAK2wdaiqqqqqqqpqyobHcl+P+VVVVVVV
VVWb7h9ftg59fn432DqUq9P0UsijGrXhsaPPr6i2DgWAbtk6VLXGhsd6W19Vo3S0
dSgAAAAAAAAAtMLWoaqqqqqqqqopGx7LfT3mV1VVVVVVVW26375sHfrB+d1g61Cu
TtNLIY9q1IbHjj6/oto6FAC6ZetQ1RobHuttfVWN0tHWoQAAAAAAAADQCluHqqqq
qqqqqqZseCz39ZhfVVVVVVVVten+68vWoR+e3w22DuXqNL0U8qhGbXjs6PMrqq1D
AaBbtg5VrbHhsd7WV9UoHW0dCgAAAAAAAACtsHWoqqqqqqqqasqGx3Jfj/lVVVVV
VVVVm+6fXLYO/ej8brB1KFen6aWQRzVqw2NHn19RbR0KAN2ydahqjQ2P9ba+qkbp
aOtQAAAAAAAAAGiFrUNVVVVVVVVVUzY8lvt6zK+qqqqqqqradP/N49ah7759fjfY
OpSr0/RSyKMateGxo8+vqLYOBYBu2TpUtcaGx3pbX1WjdLR1KAAAAAAAAAC0wtah
qqqqqqqqqikbHst9PeZXVVVVVVVVbbrfuWwd+s753WDrUK5O00shj2rUhseOPr+i
2joUALpl61DVGhse6219VY3S0dahAAAAAAAAANAKW4eqqqqqqqqqpmx4LPf1mF9V
VVVVVVW16Y6XrUOfnd8Ntg7l6jS9FPKoRm147OjzK6qtQwGgW7YOVa2x4bHe1lfV
KB1tHQoAAAAAAAAArbB1qKqqqqqqqmrKhsdyX4/5VVVVVVVVVZvuv71sHfru+d1g
61CuTtNLIY9q1IbHjj6/oto6FAC6ZetQ1RobHuttfVWN0tHWoQAAAAAAAADQCluH
qqqqqqqqqqZseCz39ZhfVVVVVVVVten+6WXr0PfO7wZbh3J1ml4KeVSjNjx29PkV
1dahANAtW4eq1tjwWG/rq2qUjrYOBQAAAAAAAIBW2DpUVVVVVVVVNWXDY7mvx/yq
qqqqqqqqTffPLluHvn9+N9g6lKvT9FLIoxq14bGjz6+otg4FgG7ZOlS1xobHeltf
VaN0tHUoAAAAAAAAALTC1qGqqqqqqqqqKRsey3095ldVVVVVVVVtun9+2Tr0+fnd
YOtQrk7TSyGPatSGx44+v6LaOhQAumXrUNUaGx7rbX1VjdLR1qEAAAAAAAAA0Apb
h6qqqqqqqqqmbHgs9/WYX1VVVVVVVbXp/rvL1qEfnN8Ntg7l6jS9FPKoRm147Ojz
K6qtQwGgW7YOVa2x4bHe1lfVKB1tHQoAAAAAAAAArbB1qKqqqqqqqmrKhsdyX4/5
VVVVVVVVVZvuv79sHfrh+d1g61CuTtNLIY9q1IbHjj6/oto6FAC6ZetQ1RobHutt
fVWN0tHWoQAAAAAAAADQCluHqqqqqqqqqqZseCz39ZhfVVVVVVVVten+h8vWoR+d
3w22DuXqNL0U8qhGbXjs6PMrqq1DAaBbtg5VrbHhsd7WV9UoHW0dCgAAAAAAAACt
sHWoqqqqqqqqasqGx3Jfj/lVVVVVVVVVm+5/fNw69L23z+8GW4dydZpeCnlUozY8
dvT5FdXWoQDQLVuHqtbY8Fhv66tqlI62DgUAAAAAAACAVtg6VFVVVVVVVTVlw2O5
r8f8qqqqqqqqqk33Ly5bh75zfjfYOpSr0/RSyKMateGxo8+vqLYOBYBu2TpUtcaG
x3pbX1WjdLR1KAAAAAAAAAC0wtahqqqqqqqqqikbHst9PeZXVVVVVVVVbbr/6bJ1
6LPzu8HWoVydppdCHtWoDY8dfX5FtXUoAHTL1qGqNTY81tv6qhqlo61DAQAAAAAA
AKAVtg5VVVVVVVVVTdnwWO7rMb+qqqqqqqpq0/3Pl61D3z2/G2wdytVpeinkUY3a
8NjR51dUW4cCQLdsHapaY8Njva2vqlE62joUAAAAAAAAAFph61BVVVVVVVXVlA2P
5b4e86uqqqqqqqo23f9y2Tr0vfO7wdahXJ2ml0Ie1agNjx19fkW1dSgAdMvWoao1
NjzW2/qqGqWjrUMBAAAAAAAAoBW2DlVVVVVVVVVN2fBY7usxv6qqqqqqqmrTfeuy
dej753eDrUO5Ok0vhTyqURseO/r8imrrUADolq1DVWtseKy39VU1SkdbhwIAAAAA
AABAK2wdqqqqqqqqqpqy4bHc12N+VVVVVVVV1ab73cvWoc/P7wZbh3J1ml4KeVSj
Njx29PkV1dahANAtW4eq1tjwWG/rq2qUjrYOBQAAAAAAAIBW2DpUVVVVVVVVNWXD
Y7mvx/yqqqqqqqqqTfe/XrYO/eD8brB1KFen6aWQRzVqw2NHn19RbR0KAN2ydahq
jQ2P9ba+qkbpaOtQAAAAAAAAAGiFrUNVVVVVVVVVUzY8lvt6zK+qqqqqqqradN++
bB364fndYOtQrk7TSyGPatSGx44+v6LaOhQAumXrUNUaGx7rbX1VjdLR1qEAAAAA
AAAA0Apbh6qqqqqqqqqmbHgs9/WYX1VVVVVVVbXpvnPZOvSj87vB1qFcnaaXQh7V
qA2PHX1+RbV1KAB0y9ahqjU2PNbb+qoapaOtQwEAAAAAAACgFbYOVVVVVVVVVU3Z
8Fju6zG/qqqqqqqqatN99rh16Ptvn98Ntg7l6jS9FPKoRm147OjzK6qtQwGgW7YO
Va2x4bHe1lfVKB1tHQoAAAAAAAAArbB1qKqqqqqqqmrKhsdyX4/5VVVVVVVVVZvu
u5etQ985vxtsHcrVaXop5FGN2vDY0edXVFuHAkC3bB2qWmPDY72tr6pROto6FAAA
AAAAAABaYetQVVVVVVVV1ZQNj+W+HvOrqqqqqqqqNt33LluHPju/G2wdytVpeink
UY3a8NjR51dUW4cCQLdsHapaY8Njva2vqlE62joUAAAAAAAAAFph61BVVVVVVVXV
lA2P5b4e86uqqqqqqqo23fcvW4e+e3432DqUq9P0UsijGrXhsaPPr6i2DgWAbtk6
VLXGhsd6W19Vo3S0dSgAAAAAAAAAtMLWoaqqqqqqqqopGx7LfT3mV1VVVVVVVW26
zy9bh753fjfYOpSr0/RSyKMateGxo8+vqLYOBYBu2TpUtcaGx3pbX1WjdLR1KAAA
AAAAAAC0wtahqqqqqqqqqikbHst9PeZXVVVVVVVVbbofXLYOff/8brB1KFen6aWQ
RzVqw2NHn19RbR0KAN2ydahqjQ2P9ba+qkbpaOtQAAAAAAAAAGiFrUNVVVVVVVVV
UzY8lvt6zK+qqqqqqqradD+8bB36/PxusHUoV6fppZBHNWrDY0efX1FtHQoA3bJ1
qGqNDY/1tr6qRulo61AAAAAAAAAAaIWtQ1VVVVVVVVVTNjyW+3rMr6qqqqqqqtp0
P7psHfrB+d1g61CuTtNLIY9q1IbHjj6/oto6FAC6ZetQ1RobHuttfVWN0tHWoQAA
AAAAAADQCluHqqqqqqqqqqZseCz39ZhfVVVVVVVVten+5WXr0A/P7wZbh3J1ml4K
eVSjNjx29PkV1dahANAtW4eq1tjwWG/rq2qUjrYOBQAAAAAAAIBW2DpUVVVVVVVV
NWXDY7mvx/yqqqqqqqqqTfe/XbYO/ej8brB1KFen6aWQRzVqw2NHn19RbR0KAN2y
dahqjQ2P9ba+qkbpaOtQAAAAAAAAAGiFrUNVVVVVVVVVUzY8lvt6zK+qqqqqqqra
dP/749ahz98+vxtsHcrVaXop5FGN2vDY0edXVFuHAkC3bB2qWmPDY72tr6pROto6
FAAAAAAAAABaYetQVVVVVVVV1ZQNj+W+HvOrqqqqqqqqNt3/cdk69J3zu8HWoVyd
ppdCHtWoDY8dfX5FtXUoAHTL1qGqNTY81tv6qhqlo61DAQAAAAAAAKAVtg5VVVVV
VVVVTdnwWO7rMb+qqqqqqqpq0/2fl61Dn53fDbYO5eo0vRTyqEZteOzo8yuqrUMB
oFu2DlWtseGx3tZX1SgdbR0KAAAAAAAAAK2wdaiqqqqqqqpqyobHcl+P+VVVVVVV
VVWb7l9dtg599/xusHUoV6fppZBHNWrDY0efX1FtHQoA3bJ1qGqNDY/1tr6qRulo
61AAAAAAAAAAaIWtQ1VVVVVVVVVTNjyW+3rMr6qqqqqqqtpu/xlGL9vKCw8VAAAV
Dws=
`template`
null
`settings`
patch-size 16
num-shapes 256
screen-half-width 17
screen-half-height 16
interface-window-xcor 147
interface-window-ycor 47
interface-window-size 735 632
output-window-xcor 53
output-window-ycor 18
output-window-width 300
output-window-height 219
info-window-xcor 0
info-window-ycor 0
info-window-width 500
info-window-height 419
control-center-xcor 55
control-center-ycor 2
control-center-width 846
control-center-height 780
shape-chooser-xcor 100
shape-chooser-ycor 100
shape-chooser-width 298
shape-chooser-height 148
turtle-command-center-height 150
observer-command-center-height 150
background-image ""
`string table`
H4sIAAAAAAAAAGNgYGAAABzfRCEEAAAAAAAABA==
`symbol table`
H4sIAAAAAAAAAGNgYGAAABzfRCEEAAAAAAAABA==
`double table`
H4sIAAAAAAAAAGNgYJB1UGMAAwcdKK0BpVUgtP0HKF8PSjNAaS0ozQGlBaC0CJSW
gNIyUFoBSitBaY8GCG0F5RdBLHIIgdjgkJIAFV8AoXOg/NwDELoAKu4M1Z8F0XcA
5v4oCN/+AYQPAKSxqNzsAAAAAAAA7A==
`list table`
H4sIAAAAAAAAAK1Ruw7CMAw8G9oBgdgYCnNnhEDqjzCQmU/kA2u7V8mqiDpApJOd
s8+PBMARwFWAwSCGRiCDAlsNP7i7+a1ZNYDYG9e5ZU67ohPqDknn/Cvpzl90b8Mu
9821Zp5nw3yHYsoT8u4XB6Z64n2pF+7/oR/wmSzcp35g7UJ7y/N5PnOfFf6vXGWP
R2WP0+L/8h7lxzmUfS6LN8+8znfGIp5icR8BFPUPpZACAAAAAAKQ
`bytecodes`
H4sIAAAAAAAAANVWzW7TQBAeO/Vf/pymceq0aeP+8hu4ICH1hLhz4QkKwbSV0rhK
HFW98gw8Ag/CGcGVK48Ca+/s7tiJbRAXWMma9ezsfN+MZ8cLjfO3d3E4id6Fi/MX
8DUZ3wBgE4xFGC9v2PQTyHFYA9CTyQaAhroemzM1HAmdhlJH2xN8r4HWMXHObLvC
zkBpgtat49xiton9kD3CziZ7HG7rdfBd7GsQmyZbP8V5C2Wb6UzO17dQ56Ls5Phu
Er5d4ncLZY/w9dbw7ZM92zm+PsoBsdkhfHdRDtfw3UO5j3zP8H1E+AbE7wHKQ8L3
aA3fY7LnJMf3lPi+x+Z9xHZQdx/lA+LjIY+nBjnbRygfE9uxsnVrqHuC8mk2B25S
MMzlRcS/nRg61pLFa02OtDZN1Ouo1NCPBvXJcjodLy7D8IbnFNe1gS1rXOt4uLVH
9BrPnQk/2UiguUzthI3O7BkBX1PrAXJyHZQ6ctHBTmmM08j6MgDNCwiT7VykRjbS
zJqVXUsymyLVwLy9uriYhpCeCAmE0muSCFnmvIGKJn3fQT8b4Ewul/N5xCk/W3Gl
Ck4jSdTT+ld0j1XDEI2i15aNQoUsDoBBKJmcrkikxffIYaGNICWai+RlM/+Cr8ML
MpMqAxoY4vWbOMnXj5wzJnZtJPhdBTtiT7ep8sYAtY6Pdl/WdkR1qj7LQNP1fIWJ
binthyh9FaD0axM7knhXV0GLDpoEn0+g6Koiyb5OPtzHHKcmwXqe49QinNoVnEhH
LuS0meWUweoSrK0KrJ7s4MVY/YL4X+dwtwmuX4ErCninBHe3JMYhwdqrwNqXf4hi
rKAE64BgHVZgHWX/JmuxTlbzmRy4jNSzcgR4IE1ovL+ahbdRNP23u46tSP1x17Gg
JYPEvvMh5472nbvf7DvXFX1n8p/0nXxvaRLcVgWu+MRuCW6n5Cxkb4XlWOqmWIzl
lZyFojNgQ/vlMo6j2VkQiFu6kfnd40hvOA1pm54XYaitGPZfRbOrOJqfBZNoOYvH
8XIeT8NFmuDstQb4Nei4JgsP3DqSNdGfU+LPWPWTKusre/jPd8E/nI4FI6iLoh84
hIu+hkujxK9V7C/d2wQ/t1cczb9l1Sr1XMWr/QtJzTt/uw0AAAAADbs=
`observer world`
H4sIAAAAAAAAAGMQSMhPKk4tKkstUiguSSxJTXBggAMrBq6CnPyS8syU9NQSIJ+F
gS0nNS+9JAPI5mBgB8kVpOaBlXKDNSPJQgAjCAMA+OWZc2QAAAAAAABk
`patch world`
H4sIAAAAAAAAAIXUSwuzioHHYVtKKzMMWHDhwoVICEFEvOSixnjZz3rWLWcObaG0
h/aFtrt85H6Evj3tcWZx4iMEo09+0dU/+K9ffffrL9/8Nvvzl19/+fZXa7Af/xP8
7K/f/PFP33//j+9+/8cvf/nd//7m2y9fr9Lgp9998/UcBT///bd/+M2X3379ngW/
+Odvvvv2D18vkuBnf/tXGgb/+f0f/7/fBcEvv2+/Hsvf//WoH87rf+9P/8k/Pz+8
zUcP4RE8hifwFJ7Bc/gJfoZf4AW8hFfwGt7AW3gHv8Jv8Dv8Ae/hA3yEP+ET/AWf
4Qt8lb+PfUO/Hff7/eBDH8BDeASP4Qk8hWfwHH6Cn+EXeAEv4RW8hjfwFt7Br/Ab
/A5/wHv4AB/hT/gEf8Fn+AJf5e9j39Bvx/2+L+GP+9598hAewWN4Ak/hGTyHn+Bn
+AVewEt4Ba/hDbyFd/Ar/Aa/wx/wHj7AR/gTPsFf8Bm+wFf5+9g39Ntxv+9L9KEP
4CE8gsfwBJ7CM3gOP8HP8Au8gJfwCl7DG3gL7+BX+A1+hz/gPXyAj/AnfIK/4DN8
ga/y97Fv6Lfjft+X+EMfwEN4BI/hCTyFZ/AcfoKf4Rd4AS/hFbyGN/AW3sGv8Bv8
Dn/Ae/gAH+FP+AR/wWf4Al/l72Pf0G/H/b4vyYc+gIfwCB7DE3gKz+A5/AQ/wy/w
Al7CK3gNb+AtvINf4Tf4Hf6A9/ABPsKf8An+gs/wBb7K38e+od+O+31f0g99AA/h
ETyGJ/AUnsFz+Al+hl/gBbyEV/Aa3sBbeAe/wm/wO/wB7+EDfIQ/4RP8BZ/hC3yV
v499Q78d9/u+ZB/6AB7CI3gMT+ApPIPn8BP8DL/AC3gJr+A1vIG38A5+hd/gd/gD
3sMH+Ah/wif4Cz7DF/gqfx/7D/vy0Y/7fV/yH/d/v95nD+ERPIYn8BSewXP4CX6G
X+AFvIRX8BrewFt4B7/Cb/A7/AHv4QN8hD/hE/wFn+ELfJW/j31Dvx33+76cPvQB
PIRH8BiewFN4Bs/hJ/gZfoEX8BJewWt4A2/hHfwKv8Hv8Ae8hw/wEf6ET/AXfIYv
8FX+PvYN/Xbc7/ty/tAH8BAewWN4Ak/hGTyHn+Bn+AVewEt4Ba/hDbyFd/Ar/Aa/
wx/wHj7AR/gTPsFf8Bm+wFf5+9g39Ntxv+/L5UMfwEN4BI/hCTyFZ/AcfoKf4Rd4
AS/hFbyGN/AW3sGv8Bv8Dn/Ae/gAH+FP+AR/wWf4Al/l72Pf0G/H/b4vxYc+gIfw
CB7DE3gKz+A5/AQ/wy/wAl7CK3gNb+AtvINf4Tf4Hf6A9/ABPsKf8An+gs/wBb7K
38e+od+O+31fyg99AA/hETyGJ/AUnsFz+Al+hl/gBbyEV/Aa3sBbeAe/wm/wO/wB
7+EDfIQ/4RP8BZ/hC3yVv499Q78d9/u+VB/6AB7CI3gMT+ApPIPn8BP8DL/AC3gJ
r+A1vIG38A5+hd/gd/gD3sMH+Ah/wif4Cz7DF/gqfx/7hn477vd9qT/0ATyER/AY
nsBTeAbP4Sf4GX6BF/ASXsFreANv4R38Cr/B7/AHvIcP8BH+hE/wF3yGL/BV/j72
Df123O/70nzoA3gIj+AxPIGn8Ayew0/wM/wCL+AlvILX8Abewjv4FX6D3+EPeA8f
4CP8CZ/gL/gMX+Cr/H3sG/rtuN/3pf3QB/AQHsFjeAJP4Rk8h5/gZ/gFXsBLeAWv
4Q28hXfwK/wGv8Mf8B4+wEf4Ez7BX/AZvsBX+fvYN/Tbcb/vS/ehD+AhPILH8ASe
wjN4Dj/Bz/ALvICX8Apewxt4C+/gV/gNfoc/4D18gI/wJ3yCv+AzfIGv8vexb+i3
437fl+uHPoCH8AgewxN4Cs/gOfwEP8Mv8AJewit4DW/gLbyDX+E3+B3+gPfwAT7C
n/AJ/oLP8AW+yt/HvqHfjvt9X24f+gAewiN4DE/gKTyD5/AT/Ay/wAt4Ca/gNbyB
t/AOfoXf4Hf4A97DB/gIf8In+As+wxf4Kn8f+4Z+O+73fbl/6AN4CI/gMTyBp/AM
nsNP8DP8Ai/gJbyC1/AG3sI7+BV+g9/hD3gPH+Aj/Amf4C/4DF/gq/x97Bv67bjf
9+XxoQ/gITyCx/AEnsIzeA4/wc/wC7yAl/AKXsMbeAvv4Ff4DX6HP+A9fICP8Cd8
gr/gM3yBr/L3sW/ot+N+35f+Qx/AQ3gEj+EJPIVn8Bx+gp/hF3gBL+EVvIY38Bbe
wa/wG/wOf8B7+AAf4U/4BH/BZ/gCX+XvY9/Qb8f9vi/Dhz6Ah/AIHsMTeArP4Dn8
BD/DL/ACXsIreA1v4C28g1/hN/gd/oD38AE+wp/wCf6Cz/AFvsrfx76h3477fV/G
D30AD+ERPIYn8BSewXP4CX6GX+AFvIRX8BrewFt4B7/Cb/A7/AHv4QN8hD/hE/wF
n+ELfJW/j31Dvx33+748P/QBPIRH8BiewFN4Bs/hJ/gZfoEX8BJewWt4A2/hHfwK
v8Hv8Ae8hw/wEf6ET/AXfIYv8FX+PvYN/Xbc7/syfegDeAiP4DE8gafwDJ7DT/Az
/AIv4CW8gtfwBt7CO/gVfoPf4Q94Dx/gI/wJn+Av+Axf4Kv8fewb+u243/fl9aEP
4CE8gsfwBJ7CM3gOP8HP8Au8gJfwCl7DG3gL7+BX+A1+hz/gPXyAj/AnfIK/4DN8
ga/y97Fv6Lfjft+X+UMfwEN4BI/hCTyFZ/AcfoKf4Rd4AS/hFbyGN/AW3sGv8Bv8
Dn/Ae/gAH+FP+AR/wWf4Al/l72Pf0G/H/b4vy4c+gIfwCB7DE3gKz+A5/AQ/wy/w
Al7CK3gNb+AtvINf4Tf4Hf6A9/ABPsKf8An+gs/wBb7K38e+od+O+31f1h/3f9/+
7CE8gsfwBJ7CM3gOP8HP8Au8gJfwCl7DG3gL7+BX+A1+hz/gPXyAj/AnfIK/4DN8
ga/y97H/sC8f/bj/v315/3gfwEN4BI/hCTyFZ/AcfoKf4Rd4AS/hFbyGN/AW3sGv
8Bv8Dn/Ae/gAH+FP+AR/wWf4Al/l72Pf0G/H/T8Aq1zNbd2QAAAAAJDd
`turtle world`
H4sIAAAAAAAAAJWZB1QU1xrHF+kICIiICLi77M52mqIEFT+ViIgiIkUssMguHXZZ
IIh1LbFFBVFieRYsMaixiwUhfmJii0Zi0NjFhoq9PLFEeQNc97yX887ZmT3n7sw9
zPz2//2/7869c+HYK/MLdPlZam5eflK+Wgkcw2c9xyJLnZOan0afh3DMJ+rUahV9
KuDYaLM0+YXpqlR1Pt3vxbFs7WvVOXTHm2OerMnS6OhTd45ZUXLbmS2nYxvcQAvk
WNGXqzSFOVq6588xz0tL0qrpUynHbFL7PWYc08I0TZsOi7w0cmVPjmWaOkmVnpNK
d5zpZsqxSKVBal3bhaZJqa0QE45NXpparf0ipENbs0xOK9DpNHltF1inpOeoCzWa
rDzyd3O6JdEtjG5cuvnQLZpuSrq1XjMJpXt31iblngGqU/GLKtNSSGs3Caj244AX
xDXbth8waf1u+yI/QH/E6DN6IKdYux+oB1kbN2bXQHa72yD/B8PufxgmhNF6KETp
XfOhXPsSEB4MCjjoHwuZ5e0MMSMdrVK+QcVhu+sSaSkoxk71s35wF/J3s9UxDmWB
q56PWtgEFIz43PSHFDJY++GHctuljz5O1AP11mFYxaZSSOSw1dEDRTfFc1YrHoL7
ypxDt1evhnTWOkKQdyz0xOJDT4B3d1cPQeBpSCpny+iFAgfuwzRFPQjqO81/FGAJ
cXq2DDnKlvCr1pdeBZH+fs9xk0shV9nOYJ7bBPSODrd+9/oUyC82mlWUXIU8YOvp
eJRtbF55YqMtiLa/DOnjtASGEk8FjBim9KEvetkIbZaXbQO+b7+qb75/B+OArR/x
KOkeJkt3QqBSxEFiQSRM5LBlDESfbx27Xf69AUR9P6X6WpRDTjlbP/qgeJHfqmUt
s0DxsYuiTGsBBQ5s/fBAkfOAop+eHgX38c7HF8yeDClctrGEo9zj/V+iWAq6uy2w
ipmKMJEwmNfHRBRa3buo21QN3revnu0m2Qz+HLax9Eb+9A/cXyuSgTfbMsHE0gZU
5Wxj6YaCTmWws5MOhE6lGtv3OohBtgwNCsa3nK11LQaR1xTRpO3TQaVkFAt9vxmJ
xRmF0T+86fjVYJD8do8K+Prgl3tYMGSoUJWf6xK8H2Rbm7PnmPIhEdgyJiCluhW5
4JQziIavCMutPGAYc96MGK3z12AUXxxSoD24GMTWM+2b7p8ATQNbRneUnJV1r/Gk
QL5w/snic3sgkVleCKP1Q6H8Q+/BjS4XQDJXX/X5fDDEIVs/BtFj3+rI8rPdgZIG
VJelv4Ms4oeRWieMVikqpEZHj657ogdRJGeAk0gLBaz96IeSKIW2vzUXpI61Gtsx
5wzPU+YMHsoPaYMKbT9Dj1dK8D513cAw7qkF8TQSefojfZd9dgBx8UP75m05Bk+N
+2FB/EhH4eO1Nc1PrYBq+Hlz5eZ9kFbezpAajaWVYUn3c1C0tJNm2L0ZIOmrdahM
roVeHLaxZKLw5imBOQrAq1fQ82nV4aDhsNUBKN/0hq8NWwo9KqsT5q45AJnIVkcn
lBxK6Xw21B/4E7tG17zwBiVhGK9TC1KnqSi6f6jLzC3LQBw5PWdS+CLILmebl1FI
RUx2HFQzFnjja9f7OvWBeGhnGK8xC1JjI5B3cMnIAHqWFQ69OvDTfWeIBbZ+uKLI
7/GMwLJ68Dz/tt+5757BYD1TP6yIHylI/RLMmzXoMih6v4mr3zAMhpHcGplvCaO1
z0fFEedrlyzKwGvh4+dJeW4AeqaxWJFYhCiZf2TFuNN3QbJhzoMp13MgncuWEYFi
avc5z2d3QKJJfFkYkwdKZTvDeJ1akTp1QukxQY2iJgBk88/vrq3OgFzWfnRBakBs
n+RxIcCb6FikjooGVw7bvLijz3vLbKH7JPA8oU4+u+QEZCBbP7JR/vsUb5F7Ewhq
XE+vG1MIo4gO47VuRWrdEcU3eqXMrvcCKsg7JdtZABlKtrGo0duycc5mM1rHYurd
v3vYQF/GflgTRn8UuB9+HT7zKigs33s5euwAXQnTWKxJLGNQ7L/vWOjTviCOT1+1
8o4E+jPOrTXJ7VB6rb1f5zuyGng2iz41jRSCVss2liCkQi7H1m7YD4LRmZ2LrkRB
EjDNrTXJbQByrUKnRS5MAknDjl7fnlwOQ/Rs/YhDidVb98gfuoBXWEVxt+wDTN/n
/ssPbxQHFlWcvDALeLvunL+5uDeoWec2CgVN8/cVrqTXH48yGlWzTcGKw9YPL/Se
/TJS6hwJVOdavuOim5C7m60fw1AUMIu3YuXfIN3S3H93926QzDgvNkTHAJSP4blY
+JmAKKH49dBnN6CgjqkfNsQPT5R61E6+GtsPhGuEPvwny1jMUTYkFhHKt16blHPL
FcT3W/bGS2eAmstWRygKaoJ3fBYMBOrAtBsx11bCeGSrIxGpLM1Wj0+uIFWFetwa
JAN1A1tPA9G7weec9moBSOyHZ5f/8TOMArY6RqPot4F/BpdWAP/k8JY1765BqJ6t
jmTkH89WbREGguhwTsRKkwbDeDGuoyPR0RGF/e00Edk/gizBbMG2uMkwgbGnXxhf
o3fgXJclvoNAVHvmV7ddwZDGOJaOJBYJCqTvQpbabYUe+2ZWHSr6BrKRKcOWMGxR
fHn726DkhSDdo5tnUXTFML8YrzFbUmPD0SvqyfZwvxfAf+BHDYraADrGsXzR4YKy
zBkFJcNdwdfx+L0rGYMM+3TMGVKUnMmvap4WAkKo23Rm32TDM8h4XuxIXgQorP2p
5nz1JRDuK8q8dqYeVCQW4+sPO7L+iEXZw4ptMfalIHjtqrtR4gxZjP2wI7F8hcLA
zoKQyrcg/Cum6s28BsirY8qwJ4xglOUlhJoeOw0KkxafN5FmUKBkyxiCEs3HeYHB
xSB59jpz0Vg+BBNPjdeHKakPXxTvWRTzZlUNiKZn7YwID4e8craMLPSenmhf9zwM
JPFrbZq7toAvax12qHj1dPZMrifwKxs/7z38L8iLZMvojJJtprffPnIHyePIsi4P
myANmXpqSjz1R4U2F559qALPjxdrjoZFgY51LGNR7heS8MeqZPBadyam/7Y6FvOL
Kan1nqiYMu992Fja03GVNp8uroN0wjC+duCQtUMMygR+0RFPPtB1OmKI0/PlkNnA
NJYve1sjUTE//YoqKx2kTln2spAaSOWy1aFFQV1g3MACNxDsWnVlze4LUIBsddij
5HJ9yprrc0FxTz5/vNtZwzshcx1pSFVr12niS0Ga1cSXBb2C/BK2Orqi7LLZjx83
RYBoVFhZB4tcyCPrU+M1ZkJqzAH5jx/HrrjpAhKPj8Eyk4MQoW9nGK8PE1Ifbijq
GM3vbtUIfHnXwh0cT0jlsNWhQPGtLU+nKsyBur3nXmFvHSi5bHUUIPfPnK0Va4vB
Q3OpkdI+/PIsZsAwJ4x8FK29M+L4zSCQ8FSLkn5xYfE8NSex5KGXefSEDXW+0KOh
PCjxqC+oGMfyRYeOXsPYHz34VAdS4drb3JB+hmcQcx254McV9uaP2w9eLVOdRPq/
IaOhnfHPvYv/z2jdu8hAxYELmoWjLgHPa3HHupavQdXANhYblC5zuJy49ghIena7
Xxlfb9hTMr6H0onosEb5tdFDHcf7A9WUsle4KQhytUwZDoRhhVSzaeiACjOQTdKv
X32hBEL07QzjY86RjDlLVDj3m6F0KwChrjb+q0NzDO9zxse+Exn7FkiF/X3crFEG
wotuXnEvvzf8/8X42qEzWTuYo3Doix3m/z4JEn32pzs9S0AHTGNxJrGYoeD8T2fm
bRaAIMoyKXy2FCaQvBivsS6kxkxR9F2iW4eio0BFJLz0l6aCUs+U4UIYHdDnVcSU
cpti+t3jiHLK3JuGvU/jjK6EYYKiTz902FmSBd7xp+J+6eoCw4gO47XuSuqDg4qn
535c0ns6UIcv9tmTUAipxFPjtd6ttdb/A8TTGt6wHwAAAAAfsA==
Return to Main Page.