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 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
   rt random 90
   lt random 90
   fd 1
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
   	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]
        [
   	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
  ca			   ; clear all
  ask-patches [setpc 56]   ; light green
  create-churros-and-do 11 ; create 11 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
	ifelse (random 100) < 10			; roll dice 0-99, if result is less than 10
		[setgender 0 setshape 12]		; make it a ram, give it the ram shape
		[setgender 1 setshape 13]		; else make it an ewe, give it ewe shape
	setxy random screen-width random screen-height  ; position it randomly on screen
  ]

  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 random screen-width random screen-height
  ]
end


`information`



`interface`
SLCanvas
top-left 11 137

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 7

SLButton
turtle-or-observer? turtle
top-left 89 44
width-height 64 32
name "button2"
line-to-run "go"
forever? true
button-number 2
show-name? false
whichip 8


`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 145
interface-window-ycor 27
interface-window-size 735 632
output-window-xcor 0
output-window-ycor 0
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 40
control-center-ycor -9
control-center-width 786
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`
H4sIAAAAAAAAADXRSUoDQRQG4F66dOHChYsgIiIizrOmTURJRHCMxAEzOUVNOu3C
rUfwCB4lR/AIHsEjCKmvs/n4q96rV9WJougj3okGv7gaBxfkkWy9PzD/J19xKMv6
qln9ZzCShznKMeY4zglOcorTnOEs5zjPRS5xhctc5RrXucFNbnGbeXpQvJtl79xl
wXpBLspFeU/ez7R+wJL1klyWy/Ih69/B2m/wQt2R/TT8UXEvfKD40n6X5/3gTXhQ
nDivwUee2H+oBe/03+nvJcG2/Y6+VnbusDn6mu57qz+R33Pu/eUc+Z5v6s70tdk1
t23ea3aO75Coe9Kf/Jhnv2c/db+WfM1nfU/e9cquOe/mdtQ13efFeRVzTuVz9XXr
FXOS7N7HwYb1Y3Wpuan/8zmc9w9TXj6OvAMAAAAAA7w=

`list table`
H4sIAAAAAAAAAK2QSwqAMAxEXyoF8bP1AoIHEBdexIVde/8zmGqULlQQXbw2GdKZ
UCAHWoFREaUUZHTglca0wW06TlmUQsGobCbWtc3MiUf+1oO9jm2mRzBi7/c5OXaV
mKF6l7zH/IPdfZrnTg+mG/1X7WHnxv7iaufwMZMVbnWsDtgBAAAAAAHY

`bytecodes`
H4sIAAAAAAAAANVWzXLTMBCWndiNaydxnDhxE7dJU+DGmZmeGB6BJygEEzrT1kzr
TKdX7tx4IM6dcuXKo4Akr6SV6p9y4IBmPKufT/t9Wmk3If7Z+7si2+Qfspuz1+SB
tR+EEI84N1mx+0y7X4lsa/rZrNMlxIK5Ce13qD0RcxZYG7CnMO4QK3ShT7GRwDlg
XWJF+9Dfo1iGT+kncD20xyuxcQjjfeTbp/0pcHswF4DtIx8Duv9FqV3DDsGGCDtS
2CHVldqcz0rhTLFbriV7gI/Ajo0YTJDOGPmfgp2hGCQVMThAe+ZGDBbId1oRg0Ow
R8jHsiYGK7DHCLt+egyG7FKpy21eng2aFQu/1IQz4HTYdZNyMzSpR6w5+hrlLzks
4t6eb7cXWXmfkkhwMF0H8l2W47l6n3EAfmzibT7trq/zl1zy+rEreS3MTQzybHZL
SG4Ecm21n4+7yhlQK38sfIIH0kI7Yof4IO3yXcHO+ctwRs2iB5w/lcgl/aJAI7TC
BHD3lTmp3sx3mZt83SW/aWPD0op8lfgUbILyV/jtIRwK2NCWuSxymB/eDCDkNL8r
/r5sFPBvhqYAcb0yNPWRpkGLJqMGVGoa6Zo0rghxjVu4Jno9qOSa1pz/rcE7Q7xJ
C6/Ii3kD76LhjCniOmzhOlL1ppZr1cB1jLjWLVwnYJ81cD1/HE+WcJq1dbskkJBd
4n88v8pu8/zi31QLVzn762rhkL4UB/Xii+EO14u7J9aLy5Z6sflP6oVZEwLE22/h
HajaUMsbNrzhEeKKWrjGqjbUcsUNb7ju7bpk8GZXFPnV6Wol/t+J31it8UlfYvk7
94wfZUvBOZkrFv8Ai90ybFUKAAAAAApV

`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`
H4sIAAAAAAAAAK19CTyU69/32HfGvg3GvjOkQmp+KUuOSpFQyb4vgyGp0K5NnVJJ
m1TaO9oklbnSqrRr36RNSCpJkt65dc3/9b79n8c1z//p85nO3Ocz9/f89vW670NT
DONmpnOTopkZ3HBudBjQ/vVnO00yKTollhvH/z6WJhGRHh0dxf9qQpPlJKVyZ8VH
xUZz+ddONCnqmhOdwr+wo0lEpialpvO/MmjisyP7v8nT5PrB/4XmTJPm/zwqdVYK
h3/lSJPIiAvnRPO/WtHEs3/fI04TmxWX2k+HZEYc/uUQmlRcdHhUfEos/0KN/xGj
ScbygaLT+38oFh5LgYjQZDPioqM5AkJE+z9SkXGZ6empGf0/kImJT4melZqaRF2K
/uL/4f/bZP4nideXzau8frqR/frZLtqwvAqIiY46uH5tBQT/lsy/5KPQDyRC/c3/
S+T3f4S6Fklkv7l+bJ3HsUZkePjRprlugZAQVqUp2hj0B4b8/4NB3S+KMRLA5pX9
lbq/j4La1vQJ4c0sCDm1lPWWgSAYDUaHmCglPppIPJg/m/lgaw0DmIyvs4ymvgDv
5p8GOzvjIIQ2GB0S/I8k/zLuf0EesWCXYOVi+DIbKQzPqZn9XAs4bS4UM3/Q8SeG
FKYjht3Uo5D7BWjIOlvH1Ma3AEannH1Q/c0bQv57OjA/0vyv0SDFi3458qsFu/Mp
fVPuVGdIsTblM7NmMF5E/i8vUchA9+OHOWIsUPN891BnRhnEGVl4SO+gC4ERiSyW
7RxT94uBzK9xKhVHt0PImdiVn7axBtMLxqDkEQFKXVPH2/L8QKX2i7/qMytQ41vY
dDnaYDY2gI7wP3iJrxWWlzAweOAlcVo2CKmUxd4LmtYIgcdzV9/ucRKCl2lg831M
03H5EmSywcb1zSsdyEqcz7GT4Nv6f28fGEOG/3UmUvy4aNoy72Zk+8Sl/CC9A7iU
mR4NGMzGBtARCg6Se93rWg8jE4NZnt4yn8Fkkd9yZXfaYD6HMSifm8H7xu68+Mwa
8R6vjJJ0dUEQaX+7h+3VLAQd05Gxt+k9A98eJF1TwX4pWgB+h8bvOzGsFILzSTBk
+V9DwFbO6EW9bzFfpur1Hx5tYL+jzCOfJoRMg8HcW+zXL7YR6C4f9sRodxdwlbRf
ucWuFEK3QWBz3+aFwtnXYB9wLrNKYQOYyVG6zRfCTqcik3C5yDimMxKfzcv6eq4A
hp4YVt7wOF8IeQSCaGlFN+NwFbt3VU+byrsgCLtOybRMCFufAqyytX0G6+qRucim
Op/yQhhDyXR+mBC8+IO9h313q2s2sj5wL6+VoQNB/ab+Zzz9rzECwHzOlgx9sxjQ
KLChN+TmQ9qix5v9E5KE4GUysjPrWjPTJwwpcEd/uacoDdNkld0tPGhC2OkkUHj6
ok+0KBtJFCcvkKq9BWk3Wp/N+YcrhL/4IaPCco8k3ypkzPjRdjd/F6Sqt/MD+2ch
5DER1G5o+MzuNAGTy2LfyvKmQ8Z3ykw7hLCPCYh1SN0hY00fMg1LCrh1qhM4v4S1
9fGItdGseXWRMzIJqs7duDcI0j4Ki+GLzN75WJz70QqyzvvaZH4lwaQXOztzV98S
Qi9/gdhP28+mstLIJm33z/eJZyCyPzfkC+H7PmCdaOjk21uBrAy88744NkBaBd/U
OTZC6GUcr/XMc/WTzo1I2nnmbPPL0hD7c84/me3VQmB4g7RJIssuCSGx/e8WVTpe
gdSFfIl+KhFCHl4g/rpg9RtJBKY+q4cu2qAJmaFDLmXf1BLCPjyBlnrBqCUnjPer
Bu2tOdYBf1GpUo0pRP3hAWYLPmu99K4EpWifjFNLpSF6HxXIHgrht2ORYeH6HzLS
v5CmakkOt0IeZvQKWzuMQbb1evtv+e0AKXge6pJmAyF2VC0VMBgvuC6keHEHvT3d
KXu27kVS9slySqO1YMwColiIMSi40ch6YvipAvUZ7PaFRh8nvqQBZ0hxhmJ4/R92
+u8xKDsFJOozekz+YRteTcilkvLnNEg8S2RjA+hg834cmPzsi3gHEvH0Yxwp4ufs
GcLa6SgwLl+V8vVCGDLTLDkkFh3G/h2CaIPZGKaDsrGRYGt7443jmm5kpiA7ZM34
XTBdhCg3DODFjd2y5J+ZYpCPZE2VK6dVMCG6mHJ+aYK+QQLH5BHIIWT+i2bLCrB1
33zm/kIlCPrBF8fZW0JguCIrl7zzP59JIs2zWxR8NqsBR1VY3bogrU/q6r6L3yLN
U593Fsw4DoH+Ccnj95H0HgJ5OIPF8m36L5O7QCtVfvWHGg6ks4li8oAeaDgYaH46
K7LOBFm/qaGNWRUH4cT9nICOYYjVGKa/aWE9suQUTthVdxTihMYYCqy8Ye/Tz5xB
Jpu25Aw/fAbSSoli8gAMJ1As3tjy6Zoz7+6X1rgRc/Mh3FlY+xiCxK+0Sy1ED5H8
gvPdb/I7IJEsrg+gw/F/oTdl8VoOFsfXVDCRUmFcD6uFb+vPhKXDAZnRD/642ueE
xOwPr9WqK4bMhG+hrc9mE2DIYQx70N1x5GCAiAmv7+zYIpcbFeDSX/L/mbP/PQbF
ix0wl1QeWvOpEtFvzD9l8LwNvMhqywF02PJ+sFLpJz758W6uvtIUfJkGCVtJ5SHA
sAJz7sl1T783glJn6celB0ohMp4oRw3AsAGDMihUOVmFFC/c2TFyhxYEnCONYwIM
ayR52UVUW6qAV9Ejq8Ho4/NCbGMCDEuw9XGsmjWR77dRYW/2WtrANOJ4KsCwQIrV
3f4vnbSQqecQuZKyzxA1lKg+HYBhzvs8WdTkWSALsWxevoyp5NfrQZTPyRDkWzmc
b83AQW7fjcZjlUhrI2P+c/cLwEkinaEIbMwUsU5mBMZdqECm1U3q7rwwmCy0PEwQ
a+6hc7MDaMhqRrxeoF8BuEggfiBDQmAY854dmBrz4ChC9CmVt961+kFUC9V7SAsh
DyN228tKjoESjd0XkjbSppoFGdX81HDCiSDfSuF8a8jvkUcGi26/AqwM2paN4ivA
mBJH1aA9MsagchQT6WZXLI3YoYL0q8J1ViRzIFaH34olewuBoQ9iGc2jVl3sZv9s
LSukx1VBGp00rkthmRogS4uYq/K720Fdn0t3ylwDmRv7A6oQMzY9Xvs6r7nLhtIQ
beTH50+L8yGarA4aoFsGMtBfdyIwywoZWh/4aOOtA9Fk/dwAXnSR3r6IotlLxJHh
3osFscvPQEymsBg6SLN9ccyP21eRVk6Q98e32ZASwzhfnCFLkOekcJ7T/mO2NZE4
Rwl8Tgvs9N2OpTK5vAcnjIq6zyFIy6Vq7RlC8KIJ4jJaqQm9xex3c6KX2PUBROaT
1g4CDI3/hRmsOuhyPHMstJrBakF0Qum1SAiopnIll4AOeUyHGrDEm5Be7wVkUdTh
yRp+HMYS9w0CXlSR9uQHoV3uMUh/a++pit4oYPf3YoPOLjAdFC8qYCt+4sX9VgYy
2yCX46KZC5nWRDNHjMH3W9oQUJ1w+eozpTUg8eD5s09MgPAL1MxxMkEck8dxTBmZ
zUyXu3n1NbJ/sUNi1OUicCOOpwKZ0pHC0hbx4pf8/vbI/Nq8WnmIuHM00KfuT/v4
93RQX5XAIqK86bgtFzFtHeLK49dA+q3f95Lzogiaw2tvxfN/K64Tvl7VZAtEENup
gA4FpPZp3II8VgWSyCs9uyCpABKJaxgBhjzvi9Xi+pNTgP3UDXhvywDSbpD6nABD
DkyHMbzik3JBO/hq09DqwzB5HWnvIcCQRQqLEnLPnQ9D9IIz0xqanICzhjSuCzBk
wOTNwUQ5hwKkPG4TZ4TUXAiLJJp/DLB1adCvP9+yO4EJZi+y/KIWNkIo2b5hAIYU
qOSMeOrIDUM2nX5znDd5C9F7iGFeJBFjWbD01J0JYPyQ5aG77yikks0/BmBIgNm2
JTHJowGsTvjS2h29IK1QWN2KI9MV96+qX52HFPKsyxl+0jAmhMrZQFA7iOHaQQyZ
6ieuitcZheSa5zeblwSBI9lMegCGKPv73Yo5ZbJ0EGscHyFC40JIf+0wVgh5iIBp
niF9+PR8pJH961FO9RWYgGd9g/utGPZbfi0Xn5k+a9IMxJjgMm67pDN4dt/kN8lh
BPYh9ts+aL8QM3L0Bj/X7aDiXtsdaPsY3Hle/GxZSmCnAow+ZDf9bM6bbSK8Szsb
6Lsk8yF5NdHuZADGT6Ris8j+bFcYMl6xCWxlWRBNXDtgmdJ6//PdK+0H7yHjoLFX
OA2pq256PWK+G/hOpZLlFQI6FDAdPWD56lVpgRQAY3/mB4O/qsHji2J4vUs+AR0K
mI7v7Mfmsx8v8ASQPdFzN+fQUwgnno8J5NHNboLEvWIJgAz1TU3Kaiwg9CrRrgDT
QenlG4jIybzQDWtG9ru+So0V64WsONIeSOG3ndK6ENPN8bvizcegVnsvQOWpE3ht
4Zd0imEEMyUFnLO/gk3wYQPu4+VgKFb5TbEoA+K/Ec3GB2B0IrvXMa96LnaBNXO8
WsfHQhjzlbKxZiF0+wVZ3GzIdPonEeyjxi6xUiyFTNe6YGvTKIL4ofA7ftA+Iw03
+px1qc7s9korC6fNCJLJdloD6PgErIPVszV/loAdw/DK9pnKkNxImrMFGB3I7Oi5
F8Wco2Bg/nXznZhsyOjP2WcIdKuIdfsRTC/vdkgbKgoMka03Z+/tgonEdaGAjnZE
a/2WqNF1AdTmh2TvPuAGWlRZaPTnTvzf00FdfwBzR8fhOhEdoBv8tAG++EEgcd4X
0NEG9mmlB/foBCCj96vzGrcsAo6DmtEifq9MTkcrGI/pPO5Qks779FVtZp1dPsSo
Xsq+qd1IYB+K2D5awGgYM/TLyARk+2qnsVGxM0QBqW4FdLwHu1Mm09aXiCP6UW+O
wYh6mES2rxyA8Q7sqzQuaZk2gH1js++aj07gP1pYjGakFH1mTXYRgLqz2rmpH3og
PIHylz99/9/Lg/Lbt8hSZI12na4dUs7/6fckXR4ycP0xeBxTxHHsDTIZU2inGlKL
GEY/vwcnboEYL35qOF9MEIMEdLwGlYiCu6ck6KDy6t76RscaSE/nl+vBlkL4yytk
ml997UXqa6RS4tzrU1YF0X2/d1qD52wBL02gmrT47XuNh7ymNXdeOIkAxNaQYihh
jJdgLBKtpLAuFBjB17/Jry6C6BB+xv6pIwRGI2h0BkuNkglg96i+PqEx/xYwfSjd
DrpbwxiUPF4guTGe8jLP85Fq22ln9eqD4FXEd7nlJDlKQMdzMDKa1zI1NJD36te+
qJTLTIj1J/U5Jexzz0Bjn2fpw7KnSObkG/G43XRIO0y0E8cYVM5+iqwiU4YEyX9D
9uOD/dVU6yEhmopj+ULw8gQcEk+21Tkf5PdRXtvnemVDWihpnayEfe4xsNw2v9eV
4PfZ4yVVEgKdgdMuLMYjfNZJT9izTgN4eYhsVe0u2/1tiBia16aPYjEgjtjW6Rjj
ATBKviWK3xoLJortSr8+jQevbNIaV4BxH2zWGV8vkwxE1hevem9RYkAG2U58gDzu
gem20jWlp9rB2F51toLFCmCQndvCdFBfG4D1K4NzbVUJ7/tU+qOA4jUwpb902EXg
L3TsL2og4ygTvTqYDoZTpU+0NW4AS8rUX5HsK+nY1u+C6dqeXWO6s8FsbQBrndUW
CCCO68qYlzugOa38esn8RjAUv7j6bY4kRPaQxg9lrJfboGWabjmprhEk9WX0pvh1
kp7LGUDHLWSrY3DQobkaDJrWzF7nvA04HFLdCjBugl38jbwtDHFkLZN9S3m2OHBX
kM6UlHFuuIEY75jDZI45AkvJqTo7zRk8hOblOu/7FPFenrk3aFfOjK0fHwWi/fZB
UgepYIx6sDsTwvBYSWd3+VY+Hked3fBseLzZP04IjGugzs1vnLMbgaJ1cq1VqRbE
viadjyljO70K4qax3Z2jpIFeeaxt/8EeSJtMmitVMEYdskxZO+900CZkwZWx25CT
BVnE83UBL1fAHmZF3N08HUyf++QoicVAAo20lhJgXAaV8iNVhTN7QWW/hEPfvXYI
fEza7wswLgFrd3hu2YlaZDGzMHDSEm9IJM7ZqthfLiJ95mdflRJ9Xue8SbTdhznA
GU66KxBgXGD36B+cKu5VAcyO2PFxNuGQQrwrUMW8nAe71o0XGFreYGvgWL/lkQ+E
zeCnl9BmglypinNlLZgsKJ2oF9qGrB3m2+7pKYXkPfz0MqSWwD5UsX2cA+uDjUvV
ZJzB+q8r0WGj9SE5lhRDDWMgYEq9zKQ7jQXjf9RGJZlcAPf7VBHDJIinqjie8sBB
7tvWllOSyMx5zsd82VJI8yO1U4FMa0DLMPyC7qoroBfQp5jiagHcIqKzgQMwziID
DbuOzhFhvB6ropStskyIsiSd06lhjDOgn+4RPuFNI9jHhHwM33ANwvp3aypCyPQ0
mDztmbg5phBYQw8teKGmJURPKKCjGhxs3tjJ35gA1vuHG841/QgziHOUAOMUkont
GjN6txYYXyqsl1IzhXTivK+OMaqQtYWH1Q7lWmBWFM/vi0yB1FLS+CHAOIlk1j56
5FY8HRlEHAo6FXwB4lNJ52Pq2G8rwXijEePtFTckN/fpGYlKfk6gSrrQ1wTxQ4Bx
AkndvLB8rJQ8Yrl2vkVx7hDiRlrTCTCOs1vfbGzaqc1ENoc7vt8wKoYE4l2BQB7H
kNk3hyOdrzJAed3D0w6pPjBZaDqOItuQcyNKstqR6UIL410uryF1FGk8FWAcAc04
g4CmR9nItqt1vv0GK5CmTF2DpKYT8FIBFtmscoPzKcikKkT2TcN+GEm8BxJg/IPM
lEYsHVkzCnSMb8/ZdbgEEquoGjeCwOc0sM8dBhPGXak47xywqZE/e6taFIzIzmtj
DOrrIaT/ZZQ/e10NYmm0y57ijoXIz6T7KAHGQWTnEz1x2PdJyCZhxdeWIXz7IJ5b
CuRxAKzSvmweflULLNEeTvMMJ/AvDK93Wcoi6NU1cD22n9fsU3E8u57Jr1ODo252
W0AAcc4W8LKP3cKYFiK5txRZeZsf7RKdDtNTKOWSnDMQ0DEFrBPHNh5tmID05iw6
L728EdI6ft9Lrtu9yDL3dT5tkyxSu+qwmnfoOKSfJz2Tp4np2AOWU+h+hxyLkIVH
A9ePCULUpwJ5lOPnThyFfYZmAMZu9q+tn1R6A+hI+16L8u7zryGG+BybJq4ddiHT
X+fneoVuAcsZzrNnir+DpKWksxyBPHaCVlQWc6xSHLI7HqcRPKsJhrrgXQExRhmY
v+grfFYnDzaHPD5PllSEvy7+7vcHrx20cO2wAxn7i4uPk+fXqRWzJN/+UIXUk6Rz
bS1MRynvS979YMZbDu+MwXU5ngwNIhBpTNbEetkORh6PHa/ozUWWp8asvKeeC9b9
MZmkrxTwsg1kHas8R2TQwDD08agDyVqQLEWqFwEvbCTyoji+/l4Fu7dw+ju9yflC
nIUT8LIVbLjeRwoatMA2dAin7tQ6Ic46aWGMLUjNYeLau9NHIbvFq3fl99UAh+zZ
pgG8bEb0/Z6SHnseIwMtiXenX9dDfAnpGSNRjFHC63bUthOVZiHad4nr3faNkEDs
L6LYXzb958810ooRK+floa1t5iBa833Kic/SMOYx6e5VG9vHRkTvu9aan70LsRxX
hW3c5Q1JahRInBAYG3h9kZ90RMY6s5+fynMVyc6HCOJdozbO++tBYUwXZ4tXBzJf
GMHiZJoAm9g+BPIoAvviEYGNZ0qR6INFrODVYRAygvSstTbWyzqktHmbzZjxpaBb
/DWw969aSNpD6i862D7WgumUhh32/1SBlfvaoImHPIHzhNROtTHG32AwU2lxziwG
mIpXFDZbd0EY8b5BB8tjDbDyPD5Un+H3U43NWXK8zZC0inSnpYsxVoP06GdOj84y
kUzMMNMqR36PTJXrdqIEMtXFMi1EprfMz1+6uZj9RY8+b5YJnV3fv2r8M2f/yQsD
y2MMUsiRt7rq3wl2zhoRXwqHQTjxbk3Ay6o/nvPk5pP2HgyMsZLdXce+2b0kDGzd
jgYl3miCOBZpL8bAtcMKMGBtX7Cvqh6pxx+rT7CqgjFs0v2+HvaX5WAsK3/42d/1
oL5SNClrThZM69+/3CLwWz3st8uQdaesVLPxSmDN2BF9f0YhxJSR1g56WB4FyM4+
zT7F9QmyP21fFzUvCJIyfu/4BudFH/OyFAwXWQZ4B0wAIyO7SnFgCDGHEchjCejo
O3izc/ciddF7Qz+eCoCpyUTPeWI6KHksBpvqTRr7RpUjnfszpt1aR4c4jd9zh/9f
t3/SYYB1uwjsRy6bfGGWOPtbfY3z4XVxkEQ8y9HHMl2IGDqFJXPPPwcaq6D2bLgN
+26/SElmjgYYYwEyV30iG5oWxO6crdG8bbEFpC8lnUsJZDofiRp8SOpbSwOjA9df
aO18CmHEZ4wEdOSDademrUuDC5H1vJTGpTVPwVOF6l8Gfdacfz8TyzQP0davTKv6
XIy0h7uE1hV2gM9VvK8kwqCurZBZlTtLZO19ZOH08n7JOGfSZ/AGYNCAdce0eqhZ
Lai26K1YoJELyfNIdWuIMXyQzVdlLaeUC2DkZHxnarQnZJA914gxKL3kgtzeI2fe
DMkGwxru6VtZdyAyl9RfjDDGPGSw0GOJv6UP2Ef2uUy6MgnSU0npEGDMYfcmKr46
fLiR3RV/cqj6z0ZwJz5DYoTj+lwkuvD+cOUjcYi2r1xq1V0EUZFUH3WFwE6NMR05
oBcoUTPJ9QrYRi7MEzHIhYnEZ65oGGPCf/5uBtpsEDe4MexQcja7+0jS5PLJ/L7y
Kuk5ehMcg7KRw4SkZp/Lt8Bed8Jhszn64O9Kei7YBNMxC/TWc7U22SPEHFppdNuw
EIK4RO8R4N9viuWRhSzCVZlfH9QiC8+fil9C/CDDnXRXYIb9NhPZGsrdDlFrQJop
odc3umlB5gtSGzPHdHAR63vvvAuGn5H0rHvpmxhxECZBur+1wBgZoJLwI7amuZ7X
q/vmuGlLPiQxSWsHCyzTdNDu/TxXXkUNDKt/dnuovAXuI6Lnovn3W2LdpoG1ztxM
T1cWqMS/m2DVmATpq0nlYYl54SCrH/sLFhdnIqnK96GG+vxe7CZprW2FMXTB0rVL
uuzcfbBgzfpxXmkROFLmwQYCDGuMkYqME48a5OghJLLmQK56kRYkEvcNNlgeKez3
3joZQ2bTQNsqLGj7nSQIbyE9h2KD44ckaC66+sp13ENE75z3dOn7RULM+qyxbhVB
++XxYzn3tvC+Kama7N7Pgr9aKL9lEtBhi+lgIdtriwt89dtBSjsjadwSX8hyp2Y5
HAJ/scP+Qkca53855Yx+iPSZS3a1j4wCLpd032CHebED60Rt8Kx0BHXtZ0/vzyuC
jOPCYrgj8Skxgcn1NmC0sKgxoT4QEteSzhztMcZIsLoQcDRvgyMYr4BLBzeugEBq
bXpwDYFMWVimycjmU9GW7hMHkX3vw2xGXgCkuZLGUwdsY0m8t23TR41tzQfGO5px
qexT8BOn3kPCJODFAfOSyGtNtGHTixFi2F2b3ZF9HFKeUH3lHQLdOmLd2vIuXo+b
Ub6ST0fUdOWd2yLYR6intPJJajoBHQlI5ccbDevrzki5jnnovLcvJJuRPoczRPR3
LxaPTKwDY1Ru3UZqpg977tvYgD1VW54gmSkNwTKNA0WT/OjKoflgs/ur2/Th02DS
YdIZ7BCs21jE8k+UsWhZCzpxq/KtynwhmksaP5wwHTGgfOZDTttROjIodx03BkUB
x5F6yQxJHHPCcSwCLHQn/vVu6QIkc5ZGd/vlDZmRpHNcAS/R7J63G9yXjSsFhk/a
MfuN3ZBAvI9ywrqNYl8Kj3aeUkVD+uXpo9tucIBD/EzAUIwRiYze1igs/7YJ6XLe
ifmWt0GCPhXX3QnkMQzLI/x/+m4oSifY1sPA1KTUdvf8BrCtOV8eqC4BUY9Jz6EM
x3TMRFofFuQ3rc5FkkulGS2br8CMT9v4Re4FAjqcMR2hyMHgyQ+N173sLrd77+de
ugURG/ml1Jz9BBguGGMGMg5uelYNVUh9Pyd6e90WSCB+Bs8V62U6qFmusrxYJI3o
V9Y3F394CFmulDz0CHx/BMaYBubbTl3ZNVQNyRh+9Tfm12PR66jz6wsIeHHDvIQA
S0RDSf8Tvwe5lhDnbf8Wkv6mZHqVwOdGYp8LBrMniT4ZHSXIePjDo14nLSCtivTs
+ShMRxCYvBJ3WaiTA7a71n8UyR0GGV6UXg4R2Ckb28dU0H35q+9ORzPYHvkwOXXE
Cog8RDrbAizTQGRyUfJofPwzZOSnZ/uq8yAEbqSeK2ggoGM0piMALH49nRqqmwUG
M5kZ94zvQ5QF1WbnEMRkdxyT/YH1enqL6LK5yGzFuwMHp1YD6FP9HMkzvGOwTCcj
8wWtYg/yM3k9MyJVZlcBTJKnlidqBHSMxXRMAvUoOb0ne1mgJWf4XbwFAVeFtOYX
6NYPFNqOH3gVwOKdFnuWdcmdBmn9NnadQKYeWKYTEb0nXLH7YgGYFKVpJNwoh+jR
1KqxiYAOGUzHeKSwbLZqIz0M6BFHlkVsKoDU59TZ0XSCGOSJ6fBFsqO9375s80M2
NwsOJfoFQDjxOxG8sI39hdR3tua0P0DIROUrhHrpgGf/2Q2SXYE31ss43ge1tUvO
9iJkVRBwa62uCmTUr+dXZN4EfjsO+603WK1p0v+4gYZMlrb/nX/+IUT2P0NDcl7b
B8vDCwwv7tQ2X9CM9D6EfktiNUJ0Jel8TGCnnmAn1bY55pg4slYrUV3WSINA4rnl
X5gXD2Rx1Slo+BRLpPc5bEX1y7GQIUN69lyQ58Yik2dT9tyOMUP6KgwFM7FOmGnc
ye+COoTAGA06cx4U7zLpZr/aajHstiETYlZRzAz6fin+/b4YA4A1KX6e/48GoH+1
GVLwai5wNKiaTp4AYzzGGIVkc7uGZosGIfvFpoU810Ywo8zDh6RHnoAx3BCzJa3N
rMYMyT1v445s64AMMWrZuIUgnk7Etj4CGTr4HR87rxoxLV0NZl2ZCyJUjVtKcm5c
IA9XJLOp1U28wgJU+T1Vgn4u+FJpbimTAENQO7gAM2H36Zbt9UinJStTSVsNvAt2
qBktAgJe/DAvzsjsb511qw2egDVrh39fbQckE+/nJmGM4WA8a0l7WqYGqCllK2pP
TgEPKjXkkuyiJ2NbH4ZsF8Xvi5m6GRlH1OjYTMwCh/5z40AQP/xx/BjK+1QxxMv+
iR8warfbDD9fDtznRO/s4t8fgOlwQuY3Q0a8nqABhpF1X7KGzwUDKmX/Q3JmYgr2
fUf2p6q7OT1ut9iXHlg5K2+mQVQV6d5UkKMcgO4i56m+RAssQ8snL2t+DfFd5Q2P
N/sR8BKIebEH4/TlpbOZkkhvlsH7iNS5kBFMOsuZijFskJkyd6S7dxzo+jJXBI+m
Q7IS9XBkFQEvQZgXa6Tz6P6Qt1kNIG3yIvDiryoIt8N91KB0BGM6LP+n72Hl3x+C
7ZTvaycs7FImirO/Fp5d2TyaAwnjSOf80zCGObAeKSsH1rohM01vyaTtFcClHtNa
TieQx3QsDzNkEcfYklJ1h/9P09DIvP0Qe4n0nPQMTIcpaNif0LMNKgWa8appCicb
wKM/Fv45D/oTIxRjmACrQEH65odQxMju07RovwUJkVRu6CbAmIkxjJFavNLTgudr
efnZVSezLGiQldYfDAkwwjCGEa/HsKxMJb8KVOuYriZJVyF1x+9n38jrMUP2u/eG
bfkVjUhDNUXXsaIUIvJ+vwNxcL2EY70wkX1RSEO391pkNdN3jbNHDcQ9J903ROCY
bAD602Tr/5leAWoe2UsmNtzhneK73CraoO+D5d8fienQB8uNc7y1gtoRvdVpu0tM
NkT+oF5itpcAIwpj6LG7S/7Jq4iiIYkTkr8cxwQBZ25/Y0ngc9HY5xjIIdIzIfbu
aUS/azRn0ndfSHamRgbOQvQNOki5bo9f5mN3MPEtvv6Z7QLjic84x2A6tEHpjgY9
2nov2Mm3PVo+8x3EH8c+NyiGII5pgX3T6dBHTSuRdfnxzACPHkg8Sjrri8V2qons
Gvf8LTl/MhhuM1K7/CwOJkX8nsMMTkccpkMDVF9tvPDKigGahwIZe0ZsgHTic/SC
2kEd2UPhxpnD0hGT25XvIk7F099nFAe303iMoYoY+7nDx/59EGiWqfHmFVfAoj9H
kcTkBMyLClLnNKYvK3DnfY1ZHLT9YQckEr+TKRH7rTLv59QTMt6KpWB+zfbTBO/3
kLmLmltaCJFflMCoNOToMTFxxEhOad0f9BrSiWfSSZgOBTBetW37E8liXtMWj5Mt
LghoWB6DYyRjDHnEejU2+cPVz4gl7qa4yz8JQmoxHYPqNgXrRQ6s/mlc1eFKQ0zj
4ayAmxsgnvn73sHpSMV0yIK6x0nbAv+HwNzfpHJ/21qI8q62W1HWAha/b2V3/JcY
HP5HlX8tgxxEN1pdTDqFDMQ0Uyzdd0FyGneGpscdMBsUI43/UeFfSyOrGVVTpq53
Qayo0E29yYowtZMPcZsLNoNipPM/6vxrKWTRKP7lyMFRiDUnTqT3xw0IWHybT8hY
sBsUI4P/0eBfS4ACFC08uaUDmV2bZKy9qBbCGn7TMTgvXpgXcbBuWSSlVFjAfpe7
5IbXwwowpcjwQAQYXIwhBg6j5nxfUdkG1t9G5JWtmATpKs18xewkwMjEGKIg3xzH
+XEWQG//fjcPhzAI42uWjwJWg2JQ9Qf1P0AQ4d2Mjbmw5Uc+slnW82mZtRFw51AQ
KwkwsiiM/wMoIffpAGIAAAAAYgA=