Java StarLogo
2.1
English
`turtle`
; Breeds procedures creates the breeds of turtles, turtles-own allows window to show energy of each turtle

breeds [trendsetter follower freethinker] 
turtles-own [energy]  

; Go procedure makes counter advance, causes turtles to move and to meet, and prevents any turtle's energy to 
;rise above 100, so program does not crash.  Go also stops the program when all turtles are trendsetters

to go
	friends-meet
	move
	if energy > 100 [setenergy 100] 
	set counter counter + 1
end

; Move procedures allows all turtles to move one step with a random heading, and creates a class of "shy"
;turtles who move in a right-turn circle and so have fewer exposures to the fashion trend 

to move
ifelse who > 0 
   [
	ifelse (random 100) < 30
	[
	rt random 90
	fd 1
	]
	[	
	rt random 10	
	lt random 10
	fd 1 
	]
   ]
   [
	rt random 10	
	lt random 10
	fd 1 
   ]

end

; Friends meet procedures cause freethinkers and followers turtles to change energy based on meeting any other
; turtle (trendsetter does not change].  Each breed loses a very slight degree of energy based on meeting
; another follower or freethinker, but to gain a large degree of energy based on meeting a trendsetter.
;  Freethinkers and followers change color (become paler) as their energy level increases, and become 
; trendsetters when their energy rises to 90 (after two exposures for followers, four for freethinkers)

to friends-meet
    if breed = follower 
   	[
	if count-trendsetter-here = 1
		[
		setenergy (energy + 20)  
		]       
        if count-follower-here > 1
		[
		setenergy energy - .05
        	]
	if count-freethinker-here = 1     
		[
		setenergy energy - .05 
    		]
	if energy > 80 
		[	
		setc 69
		]
	 if energy > 90
		[		
		setbreed trendsetter
		setc 125
		setshape square-shape
		setenergy 80
		] 
       	  ]		

  if breed = freethinker 
	[
	if count-trendsetter-here = 1  
		[
		setenergy (energy + 20)  
		] 		       
      	if count-follower-here = 1       
		[
		setenergy (energy - .05) 
		]  
       	if count-freethinker-here > 1     
		[
		setenergy (energy - .05) 
    		]	
	if energy > 40 
		[	
		setc 99
		]
	if energy > 60
		[
		setc 85
		]
	if energy > 80
		[
		setc 89
		]
	if energy > 90 
		[
		setbreed trendsetter  
		setc 125
		setshape square-shape
		setenergy 80 
	         ] 
	]	       
end


`observer`
; Globals procedure creates a counter for data output

globals [counter time] 

;Setup procedure clears all turtles from previous tests, clears and resets the line graph, 
; and clears the output window.  Then, it creates 1 trendsetter (turtle 0), and 99 followers and freethinkers 
; based on the percentages set by the slider.  

to setup
clear-turtles  
clearplots 
clear-output 
create-trendsetter 1 
create-follower number    
create-freethinker 99 - number 

;Ask procedures put turtles randomly on the screen, and create the original shape, color, 
;and energy of each breed of turtle.  

ask-turtles 
	[
	setxy random screen-width random screen-height
	] 
  
ask-trendsetter 
	[
	setc 125
	setshape square-shape
	setenergy 80
	] 
ask-follower
	[
	setenergy 60
	setc 65 
	setshape person-shape
	]
ask-freethinker
	[
	setenergy 20
	setc 96
	setshape turtle-shape
	] 	
end

to startall
  startbutton2
  startbutton3
end

;Data procedures set up counters and create data output on each breed of turtles

to data
	every 1
	[
type counter
type ", "
type count-trendsetter
type ", "
type count-follower
type ", "
print count-freethinker
if count-trendsetter = 100 
		[
		stopall
		]
	]
end


`information`



`interface`
SLCanvas
top-left 11 209

SLButton
turtle-or-observer? observer
top-left 51 76
width-height 50 30
name "button3"
line-to-run "data"
forever? true
button-number 3
show-name? false
whichip 9
keyboard-key ""

SLButton
turtle-or-observer? observer
top-left 5 69
width-height 67 43
name "button5"
line-to-run "startall"
forever? true
button-number 4
show-name? false
whichip 6
keyboard-key ""

SLButton
turtle-or-observer? observer
top-left 13 16
width-height 40 30
name "button1"
line-to-run "setup"
forever? false
button-number 1
show-name? false
whichip 7
keyboard-key ""

SLButton
turtle-or-observer? turtle
top-left 52 16
width-height 40 31
name "button2"
line-to-run "go"
forever? true
button-number 2
show-name? false
whichip 8
keyboard-key ""

SLSlider
top-left 96 18
width-height 106 25
name "followers"
variable "number"
min-value 0
max-value 99
current-value 98
slider-number 2
show-name? true

SLMonitor
top-left 132 17
width-height 124 36
name "followers"
list-to-run "count-follower"
digits 0
delay 0.5
monitor-number 2
show-name? true
whichip 10
onewhichip 11

SLMonitor
top-left 178 17
width-height 121 36
name "freethinkers"
list-to-run "count-freethinker"
digits 0
delay 0.5
monitor-number 3
show-name? true
whichip 12
onewhichip 13

SLMonitor
top-left 227 12
width-height 128 36
name "trendsetters"
list-to-run "count-trendsetter"
digits 0
delay 0.5
monitor-number 1
show-name? true
whichip 14
onewhichip 15

SLLineWidget
top-left 283 15
width-height 161 99
id 2
order 2
type 1
title "Plot 2"
delay-string "1.0"
ymin 1.4849999999999994
ymax 97.515
xmin 0.05500000000000005
xmax 10.945
xlabel ""
ylabel ""
grid false
connected true
autoscale true
autoscale-x true
autoscale-y true
location 0 0
whichip 16
onewhichip 17
wizard-on true
lineset-id 1
lineset-name "trendsetters"
lineset-order 2
lineset-type 1
lineset-color -65281
lineset-displayed? true
lineset-instruction "count-trendsetter"
extrainfo-extra false
lineset-end 1
lineset-id 2
lineset-name "followers"
lineset-order 2
lineset-type 1
lineset-color -16718336
lineset-displayed? true
lineset-instruction "count-follower"
extrainfo-extra false
lineset-end 2
lineset-id 3
lineset-name "freethinkers"
lineset-order 2
lineset-type 1
lineset-color -10027009
lineset-displayed? true
lineset-instruction "count-freethinker"
extrainfo-extra false
lineset-end 3
lineset-id 4
lineset-name "name4"
lineset-order 2
lineset-type 1
lineset-color -256
lineset-displayed? false
lineset-instruction " ( count-Turtles ) "
extrainfo-extra? true
extrainfo-instruction "Number of"
extrainfo-breed "Turtles"
extrainfo-var ""
extrainfo-kind "nothing"
extrainfo-with false
extrainfo-xy? false
extrainfo-xval? false
lineset-end 4
lineset-id 5
lineset-name "name5"
lineset-order 2
lineset-type 1
lineset-color -11418368
lineset-displayed? false
lineset-instruction " ( count-Turtles ) "
extrainfo-extra? true
extrainfo-instruction "Number of"
extrainfo-breed "Turtles"
extrainfo-var ""
extrainfo-kind "nothing"
extrainfo-with false
extrainfo-xy? false
extrainfo-xval? false
lineset-end 5
lineset-id 6
lineset-name "name6"
lineset-order 2
lineset-type 1
lineset-color -16711936
lineset-displayed? false
lineset-instruction " ( count-Turtles ) "
extrainfo-extra? true
extrainfo-instruction "Number of"
extrainfo-breed "Turtles"
extrainfo-var ""
extrainfo-kind "nothing"
extrainfo-with false
extrainfo-xy? false
extrainfo-xval? false
lineset-end 6
lineset-id 7
lineset-name "name7"
lineset-order 2
lineset-type 1
lineset-color -16711738
lineset-displayed? false
lineset-instruction " ( count-Turtles ) "
extrainfo-extra? true
extrainfo-instruction "Number of"
extrainfo-breed "Turtles"
extrainfo-var ""
extrainfo-kind "nothing"
extrainfo-with false
extrainfo-xy? false
extrainfo-xval? false
lineset-end 7
lineset-id 8
lineset-name "name8"
lineset-order 2
lineset-type 1
lineset-color -16711681
lineset-displayed? false
lineset-instruction " ( count-Turtles ) "
extrainfo-extra? true
extrainfo-instruction "Number of"
extrainfo-breed "Turtles"
extrainfo-var ""
extrainfo-kind "nothing"
extrainfo-with false
extrainfo-xy? false
extrainfo-xval? false
lineset-end 8
lineset-id 9
lineset-name "name9"
lineset-order 2
lineset-type 1
lineset-color -16744449
lineset-displayed? false
lineset-instruction " ( count-Turtles ) "
extrainfo-extra? true
extrainfo-instruction "Number of"
extrainfo-breed "Turtles"
extrainfo-var ""
extrainfo-kind "nothing"
extrainfo-with false
extrainfo-xy? false
extrainfo-xval? false
lineset-end 9
lineset-id 10
lineset-name "name10"
lineset-order 2
lineset-type 1
lineset-color -7434610
lineset-displayed? false
lineset-instruction " ( count-Turtles ) "
extrainfo-extra? true
extrainfo-instruction "Number of"
extrainfo-breed "Turtles"
extrainfo-var ""
extrainfo-kind "nothing"
extrainfo-with false
extrainfo-xy? false
extrainfo-xval? false
lineset-end 10


`turtle shapes`
H4sIAAAAAAAAAO3c2bIkR33A4UJsAgTCeDfGlPG+CEsz0kjyeq64cXDrCwcXkuyx
RQQgLIkg7Kt+UD8Ab2FThU73TOp0V3VXZuX2fRHuX3TNqc7Kmpozi8V/ePmdj3/2
4cc/ejp+9P67P3360Tt3Lw737ubXl37146/MPz4d+Mwv/++zv/y/F49fQs8O08v/
/VLY8Ni5r4t1/jWf/dDnbT1/7eds3UeB+//6r74tAAD9eWF+vfbPESX02j+jpVp3
7+vYa/1zn7t2/VuvK/XPYa7riPXzsNe61u97/a3r3nodsdeNdR1rr2/p/AI7DsPn
BgAAAAAAAACgBb/63xEV8t8kaAdd+prc12f/++639fth//bf0v6vvd7Y+899v3rb
f8p7uUftv6/nIfUaufeXe/+l3Y/c99z+7d/+7d/+7d/+7b/1/efeb+77kXt/e+8/
935y34/c1597/9fej9j3b+v69q96sZ8ZXvrov3727oen8aHzmEDjQ7l3KORR1Uwd
jA8FgI69kP3PIqqqqrp/B+NDAQAAAAAAAKAhL2b/bxFUVVVVVVVVVVVVVVVVVVV1
e4dpINBLP3364Ucf/OQ4PvSFaU6g8aHcO0wvDz1CDzxOF7/u2vMjPuabrj/2+bde
79r7eev1Xvhx40MBoFsvzK9b/oy09c9cude/9c9qt65f+vm99dpzYn+e9ctef+tn
tLZ+7K8vbf2t97PC80fjQwEAAAAAAACgFS/Or1v+W42lbv2M1Ndn//bf8/5Tr597
/9a3vvXTfg9R1Tqbeo3Sr8/+7d/+7d/+7d/+999f7ffH/u3f/tNdn/3bv/3n2//W
z7C+9a1f9PqfHb768dMPf/zDj58e54d+tsn5oXcvH57rtT9e+/obHKaXrc/imud7
j/OfdenHLn3ell93ude/8f6ZHwqF2vp7R8G/96xi/4cHm+o8enX9/NDeG+vParHX
TX0dudfPff9zrP+sLefGuK4cP/8l7X/tfYi1zq17uKS2n3/r7/L8jeaHAgAAcM65
/1/DXv8/h9zrQ89y//rLvT70bOnXX+xfj3uvBwDQvvTzQ1W13279jNzXn2vftd6H
1Gvk3p/927/9738fcu8n133Iff327/l/6FrOybl2Cfdpj/3n/vm3/773f0nOtUu4
Pz38/Oe4D7n3k+s+5L7+c9e01p5rxVrTz3/+fdd6H1KvkXt/9m//9m//e9+H3PvJ
dR92uM7PDd+4nx/68w8++PfjENHPXRwieve9H1zskq3n3yr3EM/c629wmF4eekAv
WfOAbzn/oV9k16675ppu+cVd8vo33r9VQ0SXfm2n/rXf+/r0yRDNw3Pd+/zcDBFl
H+uGiG618S823a+/5s+It/6ZsZb1115HqnVzrP+sLefGuK4cP/8l7X/tfYi1zq17
uKS2n3/r7/L8jTGGiG79u3Ltf9e2f/vP2dzsv+/9AwDtyz3EK/f60LPcv/5yrw89
M0QUAKB2cYaI5pbiv7m4prnZv/3nbG72n3f/z3aPe13CPu3f/u3f/ve6D7n3k+s+
5L7+XPsu+T5cknPtEu7THvvP/fNv/33v/5Kca5dwf3r4+c9xH3LvJ9d9yH39565p
rT3XirVmCT/vNTwHe+y7tvtg//Zv//bf6/5T3Yfc+8l1H3a4zs8PL3347nvv/fDj
4/jQz18eH3r/n12+863n3p9z983hwa879/7+65c+51M9c97Z88+8j33+8euubHj+
0ued+/pz7r7/i3VfeOX40EuPcvg1595f+ry11lzHnuff6pp7denrl/az8HXrxoeG
vybvv0cE3ytuHvN37pm/8j8VP3cd5z7/3I9vXffc97Bb1//U11/540vrn72eSPu+
VjHrn7uOK3/c+hvXP/d79NLxK9e/9ff0a3/v33vda7//xLqupc+/9cdj7W+tT63z
yZ+xjt34+VdfT7D+dmnGh97y16KHzt9q6fNjrXOta9Zfe6+u2Uvsn++t61nf+iWs
n1qudZeu49yPx1rn1vVvvY5rPz/2c3Ht52+9no2fN8YYH3ov9t+ha7F6X+98+5M+
/G8oue/D6r+7XPvzedz3mUZ6LlL9HfBTXx/734o27v/Wv4OuPT/Zv5FF/je2ZPvP
vc+N92FJrP1/6nO3Ptc77f+43sb7cPP133p+pH0f16vt10Hk/Z9T+v5TK+452Pvf
3nL/utjpOT9n8/4Tn5+a/a9s7P1H+vPdVva/svb/cHvZ/7n9xP56+3+usV2938J6
q9zXnfs+5L7eXPvPfZ2578Py59wFzb2v665nydr11n992p6u4y7o5a8/59b7t9/z
cJfk+pc+Z/nr71atn3r/t15/LKv38f3/fb6Rv4/ntnrfK+9DK5b234ty9x1nfGju
/4Ynd1PLtY9c+10S+7+RuXa93LZef2n7Sc3+0+9/62em/DnZ4/t4ifsv7fexvaX6
fbE0sfZp//b/UEtn//afsqWzf/tP2dLZf1/7XdLrvkP23+e+Q/YfZ/+l3K9br/vW
/Zfy3MS+/qXPKe3XTezrr+XPC3vto7T7kHs/e92X3NeX6z7kvp5P+oXhaz96+h8f
v/Jv7354HCD6henHzw4Q3eruX277yPvzbj2fmx2ml2cfnEsP+TW/IG79sbVrLV1v
LT23/6X7E/HHVw0QpSy5vlfm+l4drrvX+ufW9XsV0I51A0S1rKb62jWflWP9h6S8
Z5fW3bqnpa/Z6xlSHT5x6ceedctn33L+ktbP3/n+jzEHiALAs3r/N7Re99/rv6H2
+m/IS/tudf9r993a/q/ddyv7v3XfrewfAAAAgNrEHSCqqqr6bJ8V47Ny7yfn/mu6
Dw/pYf+XpFgr937X7Dv1tZa+772usdR957i2kva99/5j34e9r7uU+5P7+nLtP/d1
qaqqarrees4le1xzjvWv1cr6W1nf+tavd/1bryPWuqWsv/Y6Uq2baP0vDi9/+MP/
fP/5CaJfnL4g2QTRc7b+L2X8L26SOUwvDz1Bl57SS0/emqf7mvMu/epYc17pvbTH
pXsQ6cdNEG1I7u+Rub9X5/5fafpfiwL1MUG09K792mflXj/GdVx7ziUp112z/qXr
iPlztfY6c66vZXXpx551y2ffcv6S1s/f+f6PJogCUIre/w3N/u8ebC96/zfl3icx
9j6RsvfJnCaUAgAAABCXCaKqqhqnWz/jISXsK/W+7f/8/ku+D7E/c40W933N/nPe
h9Rr3KKFfW/Zf8r7sNe+Y+z/lvuw9/72vI8973/tfch9fbnvQ+7rUlVVzdFbz7lk
j2vOsf61Wll/K+tb3/r1rn/rdcRat5T1115HqnUTrf/i8OWPfv7uT47DQ+f/KODm
4aF337n2jOfPO/bJuq9bOn728xd663mxeuv1Lwnv67n7/IzD9HLrQxrr4V76uqXj
W7+J5HLr9V/787NwXhfDQ6/9tZRq3aXvgXuvn/o6Yt/3a783bl0/9vf2VOte+3tc
qnVr/b24lj8DpFo/9fXcKte6n7qOhe+Tyb+PLny/3v79/IX5NfVfcHI3lGvdva9j
rVru+7XXv3X9a8Vaf6tY9yu1XOvmXr+U+77Xc5D6+1fsdc9dx60/Hvv7XuTvc6Ph
odRur78TlGbvvxOV4uq/G+70b197sf8r++Rya2P/l9u60vef+t/sSt1/Kf9Wm1ru
f7O2/9vOu9Ve+127n73/fwK59x/uI9X3la2fX0uX5L6+Ur+vtNJQ7uux/316Tu7r
sv+0XSv3debefyj3de+1zyW595Vr3+f0tt9Q7/sPbf33xOr/PdL+Lzb1+bnVv3/D
Q7X+Lsl9fbn23er+t8p9/fafd/+13w/7b2s/re3/Wq3sP5bS978X+y9j/7ltvZ7a
939v6/XUtt9U7L/Pfd/rdd/3et2/577P/ff++17tf+5ZK/afe2u5D6n2Xer92Hu/
9n/d/dj7/Ny1/8tSn5+7le//S8NLT3/yP//946fH8aFfmuYEHseH3v3zx/Nl3H3v
/VUN3Z+/ZO35W9cPv+7W82Ptf/G+rrx/Zz/3/ufvxg6fjA+91rnHfO0vh6XjW9df
+rzU61/7bWDp/K2fu2AeH/qpZ+R7P4jaJaWtv1Vr6+e+/6Wtf+31tbZ+7vtf2q//
zd+nKl9/8/UWtn5vvR8fmtpOf6aJtn7sv0LWvv5Wra1/7fW1tv61al//2vNTX29p
68e+3tzrd2acxocu/pkh8t/N9/67/hL7t/+LLWSfufafm/3b/6Vu/nz7v9it19f6
9z/7t/+c3Sr1/reeb//2v+XzF9e3/4tdPN/3v6zdyv7t/1JTy33/7N/+LzW13vef
mv3b/8Xav6p22vvxobXr/b8NsX/739LUn1/69dm//dv/7Z+fm/3b/5Zu/fzcSt9/
6vtn//a/pamvv/f9p2b/9r+lWz8/t9z7T71+bvZv/ylbutT7L/3+5r5++7f/nPsH
mvXl4cvvP/rg0XF46JefGx56/1V3r/z0uYZ6+fElS18XrrO47r9+98Gu/bqt5w+f
DA8995vJ0m82rf742t90b/1Nee3Xb/3NfuX58/DQ0LXPsvOd7/x2z9+qtvWXzr+2
W6Vef+ufMbZ+nvXzrn8/PHTrn2Wc73znt3v+0tfH/rzc6197P5fEvv7Y6+f+POtn
XX+chocuaf3Pwta3vvWtb33rW9/61re+9a1vfetbP/3nb2X/9n+ppX/+Vrmvb+v3
p9zf37ayf/vP2c3Xn/m/Xch9ffZv/ym7Ve7rt3/739Ktcl9/6/u/Hx6a+79Fsb71
rW9961vf+ta3vvWtb33rW9/65a+/9fNLvz77t/+e9791/dRKv/+p2b/9b2nv15ea
/dv/ltbO/u1/S2tX+P6/Mrz03s/ee+9HT4/jQ7/y4PjQe3ffvNxzls479zmf+vHv
/+L5Xvm5m8/fufduPS90w3mH6eXaxzLW49zKt4Gttt6/jT9/X39ofGgo1rN+q73X
3+vXfinrX/29de/vtdbPu7423dDe65W2fuzr2Sr9+g+PD439V5bcf2Uq7K9oxa0P
9Cv395/S1s/9+8/O649rxocuKe3Psnuz/7zNrfX9595f7vuT+/rtf1u3yn39qfe/
eZ2lf6ts/d8y7d/+7d/+7d/+e9y/qqqqVtclua8v9f6W5L5++9/WrXJff+79L2l9
f0vsP29zq3//68aH5v5vN5ZsvX77t/8tza31/W1l//a/pbVrfX8AAADAstb/fcC/
/9j/ltZu6/5Lvz+p92f/9n+puW28/peGF+e5oa+89mh+N1wYHUp3DtNL7l9iKfrQ
L+M9z6+oq0aHAgAtWjc6VFXLanist/VVNUrHGKNDAQAAAAAAAIASxBkdqqqqqqqq
qqoPNzyW+3rsX1VVVVVVVbXpfvU4OvTx/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3
jA5VrbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqq
Tfdrx9Ghr8/vBqNDOTlML4U8qlEbHtv7/IpqdCgAdMvoUNUaGx7rbX1VjdLR6FAA
AAAAAAAAaIXRoaqqqqqqqqopGx7LfT32r6qqqqqqqtp0Xz6ODn1jfjcYHcrJYXop
5FGN2vDY3udXVKNDAaBbRoeq1tjwWG/rq2qUjkaHAgAAAAAAAEArjA5VVVVVVVVV
TdnwWO7rsX9VVVVVVVXVpvv14+jQJ/O7wehQTg7TSyGPatSGx/Y+v6IaHQoA3TI6
VLXGhsd6W19Vo3Q0OhQAAAAAAAAAWmF0qKqqqqqqqmrKhsdyX4/9q6qqqqqqqjbd
XzuODn1zfjcYHcrJYXop5FGN2vDY3udXVKNDAaBbRoeq1tjwWG/rq2qUjkaHAgAA
AAAAAEArjA5VVVVVVVVVTdnwWO7rsX9VVVVVVVXVpvuN4+jQt+Z3g9GhnByml0Ie
1agNj+19fkU1OhQAumV0qGqNDY/1tr6qRulodCgAAAAAAAAAtMLoUFVVVVVVVdWU
DY/lvh77V1VVVVVVVW26v34cHfr2/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3jA5V
rbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqqTfc3
7keHPnp1fjcYHcrJYXop5FGN2vDY3udXVKNDAaBbRoeq1tjwWG/rq2qUjkaHAgAA
AAAAAEArjA5VVVVVVVVVTdnwWO7rsX9VVVVVVVXVpvubx9Ghr83vBqNDOTlML4U8
qlEbHtv7/IpqdCgAdMvoUNUaGx7rbX1VjdLR6FAAAAAAAAAAaIXRoaqqqqqqqqop
Gx7LfT32r6qqqqqqqtp0f+s4OvTR/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3jA5V
rbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqqTfe3
j6NDH8/vBqNDOTlML4U8qlEbHtv7/IpqdCgAdMvoUNUaGx7rbX1VjdLR6FAAAAAA
AAAAaIXRoaqqqqqqqqopGx7LfT32r6qqqqqqqtp0f+c4OvT1+d1gdCgnh+mlkEc1
asNje59fUY0OBYBuGR2qWmPDY72tr6pROhodCgAAAAAAAACtMDpUVVVVVVVVNWXD
Y7mvx/5VVVVVVVVVm+7vHkeHvjG/G4wO5eQwvRTyqEZteGzv8yuq0aEA0C2jQ1Vr
bHist/VVNUpHo0MBAAAAAAAAoBVGh6qqqqqqqqqmbHgs9/XYv6qqqqqqqmrT/b3j
6NAn87vB6FBODtNLIY9q1IbH9j6/ohodCgDdMjpUtcaGx3pbX1WjdDQ6FAAAAAAA
AABaYXSoqqqqqqqqasqGx3Jfj/2rqqqqqqqqNt1vHkeHvjm/G4wO5eQwvRTyqEZt
eGzv8yuq0aEA0C2jQ1VrbHist/VVNUpHo0MBAAAAAAAAoBVGh6qqqqqqqqqmbHgs
9/XYv6qqqqqqqmrT/f3j6NC35neD0aGcHKaXQh7VqA2P7X1+RTU6FAC6ZXSoao0N
j/W2vqpG6Wh0KAAAAAAAAAC0wuhQVVVVVVVV1ZQNj+W+HvtXVVVVVVVVbbrfOo4O
fXt+NxgdyslheinkUY3a8Nje51dUo0MBoFtGh6rW2PBYb+urapSORocCAAAAAAAA
QCuMDlVVVVVVVVVN2fBY7uuxf1VVVVVVVdWm+wf3o0Mfvzq/G4wO5eQwvRTyqEZt
eGzv8yuq0aEA0C2jQ1VrbHist/VVNUpHo0MBAAAAAAAAoBVGh6qqqqqqqqqmbHgs
9/XYv6qqqqqqqmrT/fZxdOhr87vB6FBODtNLIY9q1IbH9j6/ohodCgDdMjpUtcaG
x3pbX1WjdDQ6FAAAAAAAAABaYXSoqqqqqqqqasqGx3Jfj/2rqqqqqqqqNt3xODr0
0fxuMDqUk8P0UsijGrXhsb3Pr6hGhwJAt4wOVa2x4bHe1lfVKB2NDgUAAAAAAACA
Vhgdqqqqqqqqqpqy4bHc12P/qqqqqqqqqk33D4+jQx/P7wajQzk5TC+FPKpRGx7b
+/yKanQoAHTL6FDVGhse6219VY3S0ehQAAAAAAAAAGiF0aGqqqqqqqqqKRsey309
9q+qqqqqqqradL9zHB36+vxuMDqUk8P0UsijGrXhsb3Pr6hGhwJAt4wOVa2x4bHe
1lfVKB2NDgUAAAAAAACAVhgdqqqqqqqqqpqy4bHc12P/qqqqqqqqqk33j46jQ9+Y
3w1Gh3JymF4KeVSjNjy29/kV1ehQAOiW0aGqNTY81tv6qhqlo9GhAAAAAAAAANAK
o0NVVVVVVVVVUzY8lvt67F9VVVVVVVW16f7xcXTok/ndYHQoJ4fppZBHNWrDY3uf
X1GNDgWAbhkdqlpjw2O9ra+qUToaHQoAAAAAAAAArTA6VFVVVVVVVTVlw2O5r8f+
VVVVVVVVVZvunxxHh745vxuMDuXkML0U8qhGbXhs7/MrqtGhANAto0NVa2x4rLf1
VTVKR6NDAQAAAAAAAKAVRoeqqqqqqqqqpmx4LPf12L+qqqqqqqpq0/3T4+jQt+Z3
g9GhnByml0Ie1agNj+19fkU1OhQAumV0qGqNDY/1tr6qRulodCgAAAAAAAAAtMLo
UFVVVVVVVdWUDY/lvh77V1VVVVVVVW26f3YcHfr2/G4wOpSTw/RSyKMateGxvc+v
qEaHAkC3jA5VrbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+q
qqqqqqqqTffP70eHvv7q/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3jA5VrbHhsd7W
V9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqqTfcvjqNDX5vf
DUaHcnKYXgp5VKM2PLb3+RXV6FAA6JbRoao1NjzW2/qqGqWj0aEAAAAAAAAA0Aqj
Q1VVVVVVVVVTNjyW+3rsX1VVVVVVVbXp/uVxdOij+d1gdCgnh+mlkEc1asNje59f
UY0OBYBuGR2qWmPDY72tr6pROhodCgAAAAAAAACtMDpUVVVVVVVVNWXDY7mvx/5V
VVVVVVVVm+5fHUeHPp7fDUaHcnKYXgp5VKM2PLb3+RXV6FAA6JbRoao1NjzW2/qq
GqWj0aEAAAAAAAAA0AqjQ1VVVVVVVVVTNjyW+3rsX1VVVVVVVbXp/vVxdOjr87vB
6FBODtNLIY9q1IbH9j6/ohodCgDdMjpUtcaGx3pbX1WjdDQ6FAAAAAAAAABaYXSo
qqqqqqqqasqGx3Jfj/2rqqqqqqqqNt1XjqND35jfDUaHcnKYXgp5VKM2PLb3+RXV
6FAA6JbRoao1NjzW2/qqGqWj0aEAAAAAAAAA0AqjQ1VVVVVVVVVTNjyW+3rsX1VV
VVVVVbXpfvc4OvTJ/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3jA5VrbHhsd7WV9Uo
HY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqqTfdvjqND35zfDUaH
cnKYXgp5VKM2PLb3+RXV6FAA6JbRoao1NjzW2/qqGqWj0aEAAAAAAAAA0AqjQ1VV
VVVVVVVTNjyW+3rsX1VVVVVVVbXpvnocHfrW/G4wOpSTw/RSyKMateGxvc+vqEaH
AkC3jA5VrbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqq
qqqqTfe14+jQt+d3g9GhnByml0Ie1agNj+19fkU1OhQAumV0qGqNDY/1tr6qRulo
dCgAAAAAAAAAtMLoUFVVVVVVVdWUDY/lvh77V1VVVVVVVW26j+5Hh77x6vxuMDqU
k8P0UsijGrXhsb3Pr6hGhwJAt4wOVa2x4bHe1lfVKB2NDgUAAAAAAACAVhgdqqqq
qqqqqpqy4bHc12P/qqqqqqqqqk338XF06Gvzu8HoUE4O00shj2rUhsf2Pr+iGh0K
AN0yOlS1xobHeltfVaN0NDoUAAAAAAAAAFphdKiqqqqqqqpqyobHcl+P/auqqqqq
qqo23dePo0Mfze8Go0M5OUwvhTyqURse2/v8imp0KAB0y+hQ1RobHuttfVWN0tHo
UAAAAAAAAABohdGhqqqqqqqqqikbHst9Pfavqqqqqqqq2nTfOI4OfTy/G4wO5eQw
vRTyqEZteGzv8yuq0aEA0C2jQ1VrbHist/VVNUpHo0MBAAAAAAAAoBVGh6qqqqqq
qqqmbHgs9/XYv6qqqqqqqmrTfXIcHfr6/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3
jA5VrbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqq
TffN4+jQN+Z3g9GhnByml0Ie1agNj+19fkU1OhQAumV0qGqNDY/1tr6qRulodCgA
AAAAAAAAtMLoUFVVVVVVVdWUDY/lvh77V1VVVVVVVW26bx1Hhz6Z3w1Gh3JymF4K
eVSjNjy29/kV1ehQAOiW0aGqNTY81tv6qhqlo9GhAAAAAAAAANAKo0NVVVVVVVVV
UzY8lvt67F9VVVVVVVW16b59HB365vxuMDqUk8P0UsijGrXhsb3Pr6hGhwJAt4wO
Va2x4bHe1lfVKB2NDgUAAAAAAACAVhgdqqqqqqqqqpqy4bHc12P/qqqqqqqqqk33
b4+jQ9+a3w1Gh3JymF4KeVSjNjy29/kV1ehQAOiW0aGqNTY81tv6qhqlo9GhAAAA
AAAAANAKo0NVVVVVVVVVUzY8lvt67F9VVVVVVVW16f7dcXTo2/O7wehQTg7TSyGP
atSGx/Y+v6IaHQoA3TI6VLXGhsd6W19Vo3Q0OhQAAAAAAAAAWmF0qKqqqqqqqmrK
hsdyX4/9q6qqqqqqqjbdv78fHfrk1fndYHQoJ4fppZBHNWrDY3ufX1GNDgWAbhkd
qlpjw2O9ra+qUToaHQoAAAAAAAAArTA6VFVVVVVVVTVlw2O5r8f+VVVVVVVVVZvu
PxxHh742vxuMDuXkML0U8qhGbXhs7/MrqtGhANAto0NVa2x4rLf1VTVKR6NDAQAA
AAAAAKAVRoeqqqqqqqqqpmx4LPf12L+qqqqqqqpq0/3H4+jQR/O7wehQTg7TSyGP
atSGx/Y+v6IaHQoA3TI6VLXGhsd6W19Vo3Q0OhQAAAAAAAAAWmF0qKqqqqqqqmrK
hsdyX4/9q6qqqqqqqjbdfzqODn08vxuMDuXkML0U8qhGbXhs7/MrqtGhANAto0NV
a2x4rLf1VTVKR6NDAQAAAAAAAKAVRoeqqqqqqqqqpmx4LPf12L+qqqqqqqpqu/1/
XbDPdBUPFQAAFQ8V

`template`
null

`settings`
patch-size 8
num-shapes 64
screen-half-width 25
screen-half-height 25
interface-window-xcor 505
interface-window-ycor 1
interface-window-size 716 827
output-window-xcor 43
output-window-ycor 403
output-window-width 636
output-window-height 455
info-window-xcor 0
info-window-ycor 0
info-window-width 500
info-window-height 400
control-center-xcor 4
control-center-ycor 37
control-center-width 812
control-center-height 953
shape-chooser-xcor 100
shape-chooser-ycor 100
shape-chooser-width 298
shape-chooser-height 155
turtle-command-center-height 150
observer-command-center-height 150
background-image ""
interface-locked? false

`string table`
H4sIAAAAAAAAAGNgYGBkYNJRAADRaZlZCAAAAAAAAAg=

`symbol table`
H4sIAAAAAAAAAGNgYGAAABzfRCEEAAAAAAAABA==

`double table`
H4sIAAAAAAAAAGNgYBBxdHz2kAEIHHx/zgSCWQ6+D0BcJgffN2eA4JyD72VjIDBz
8L0Jkp/j4PsZxDdx8H2WBgQZDr4HQOpZHIK/gfjpDsF/QPrOOgTDzANxz1xwCGEA
AwdjsDkz7T9A+RCKwX7lTIh6Dij/AYQGAMwYy9KkAAAAAAAApA==

`list table`
H4sIAAAAAAAAAK2SOw4CMQxExwkSIhR8RUnNGRANBT0NBVRI7DW4Ow68gLdBFKw0
stfj+C9pImllkoEEsuOGXu335L4ujw5h36HvnZvyZontWqVCPNcLsTR4+RgyITN8
579D4nRAwIg7DvzacYEr9snz1t11S42tT4VaW49yn5n1a4k20f8BveXszcb1+R/y
bJi/mPMp5D9/y8+X2y6dW4Q9JLgnApfZUavHAmfMsIQe4q3Em6kx602NfvF9APPT
ijyAAgAAAAACgA==

`bytecodes`
H4sIAAAAAAAAALVW2XbTMBAdL7ETZ7GTNm3TFmrapKxhX/vE4Rle4ZGGxi05pDEn
UeH0H+FD+AtkeSSNHZU89OAHz2i5V3NnZMlQP/5yyZKTdJwsjt/Cr+z5DQAdqCwS
dvGdux9BPfsOwGCPWxfAwj4LX1sV9G20Dlh9IP0SI9ueGLcixNrYt2vzvsw6wkLX
y6gADjzE+Ti3ge0qnxOhX+P+IfoB2jpXYyGHj32NEkcTbSufK/yQ8EY5b4GjXeLo
oF0jHOuEo1vkCLNE8OgXbDRno+k0j14+Mrt9V2c488M8fe54xEa8d7iMEDENFMri
YULs6Noon+e3VyNtl/iV0phHfB/HQOVftDH/VrSJMfBXH/Me2milbhvsszRLhI7f
x71RaLtL+qxOoLVFXbVvyntP1Ty0lT6rbWl9EWhtbQfjcsA9T38kvPe1Xri7rldX
K8YkCr26FW3geFVnWezins5yt5FHVtg9ldI8D9vbetdLXOgY8NUSvlbCB0W8UOtC
43Q+SWbjxfA8SRgf+kNUx0S1rOlnrXqHqpbjgVat6uSSXFcMdfEIl08yHGhliquW
nxdS0RJXnXA1DHE1CVeLcIUGrojMbZO45BfZyb/tAmaNYNYJJiRnwD76G+Rs2CTn
1hbaXjEmtLou20TfJfbtEP27Bv03SHw3SV32DPpjwnXLwLVPuA5ILvsGrgHhOjTU
+DbhukO47hq47pG59w11eWCoy5BgHhowjwyYxwTzxIB5asA8I5jnhvq/IPV/Ser/
itT/Ndo3xvrnX24F2u8uGEtnR3FcvEDEchU8PuWdAAj3cNCDlobjNS8xhUfMrau5
4swuL+JcuUhTAfG6KkPtK6GbH9LZhKXzo/gkvZix4Wk6naY/kzmIO7qwd6ROK7+H
+uSuC4MSsf8vYv9qQgGuwnYZPOfH5tfJ7Nu1A6ut4F4VW7CEZ/PsYE8Yu3Zs9RXc
q2JrQOv9ZJbEnybjs4QdxfzDya5PEc/uElZdKhnHQP7IkJ8U+oOixsnPIf0pUeM1
g66mIa7e/49HrN36CxbBPSd5CwAAAAALeQ==

`observer world`
H4sIAAAAAAAAAGMQSMhPKk4tKkstUiguSSxJTXBggAMrBq6CnPyS8syU9NQSIJ+F
gS0nNS+9JAPIFmBgB8kVpOaBlXKDNcNlOYCYiYE9Ob80ryS1CKyCpSQzNxVIM8Iw
E5QBAGPnwYaDAAAAAAAAgw==

`patch world`
H4sIAAAAAAAAAIXdW6ui3X7mYTuERBICHnhggwciIiIi7ve7R11uvkAfJ6wskoaQ
LNIvdPeZHzkfISubYTnK+j/XgGJWzat+Po565+SmqIO38jd/+8e/++33/9j6P7/9
3W9/+NtT5X3+V+XP/9/v/+Vf//Pnf/XHf/qX3/7v//77f/jDb3/6VbPyZ3/8/Z8+
1ip/8U9/+Od/+O0f//TzVuUv/+P3/PEP//ynXzQqf/7//yutVv76P1/44/dVKv/z
v39Ujv/2X49KHz/O//iPH+ndhF6F1+B1eAPehLfgbXgH3oX34H34AD6Ej+Bj+AQ+
hc/gc/gCvoSv4Gv4Br6F7+B7+AF+hJ/kr3Iv0Bfoz+jP6C/oL+iv6K/of4f+d+hv
6G/o7+jv6B/oH+if6J/lffr86YvzfQm9Cq/B6/AGvAlvwdvwDrwL78H7uaevl7cP
4EP4CD6GT+BT+Aw+hy/gS/gKvoZv4Fv4Dr6HH+BH+En+KvcCfYH+jP6M/pL3Hyfb
l9Cv6K/of4f+d+hv6G/o7+jvef/15/eowNE/0T/L+/e+VIP3X4FX4TV4Hd6AN+Et
eBvegXfhPXg/93BfIh/CR/AxfAKfwmfwOXwBX8JX8DV8A9/Cd/A9/AA/wk/yV7kX
6Av0Z/Rn9Je8/zj5vkSe9iV09GlfQkef9iV09GlfQs/7cF9CR/9E/yzv3/tSC95/
BV6F1+B1eAPehLfgbXgH3oX34P3cw32JfAgfwcfwCXwKn8Hn8AV8CV/B1/ANfAvf
wffwA/wIP8lf5V6gL9Cf0Z/RX/L+4+T7Ennal9DRp30JHX3al9DRp30JPe/DfQkd
/RP9s7x/70s9eP8VeBVeg9fhDXgT3oK34R14F96D93MP9yXyIXwEH8Mn8Cl8Bp/D
F/AlfAVfwzfwLXwH38MP8CP8JH+Ve4G+QH9Gf0Z/yfuPk+9L5GlfQkef9iV09Glf
Qkef9iX0vA/3JXT0T/TP8v69L42gr8Cr8Bq8Dm/k/nHyfYm8BW/DO/AuvAfv5x7u
S+RD+Ag+hk/gU/gMPocv4Ev4Cr6Gb+Bb+A6+hx/gR/hJ/ir3An2B/oz+jP6S9x8n
35fI076Ejj7tS+jo076Ejj7tS+h5H+5L6Oif6J/l/XtfmkFfgVfhNXgd3sj94+T7
EnkL3oZ34F14D97PPdyXyIfwEXwMn8Cn8Bl8Dl/Al/AVfA3fwLfwHXwPP8CP8JP8
Ve4F+gL9Gf0Z/SXvP06+L5GnfQkdfdqX0NGnfQkdfdqX0PM+3JfQ0T/RP8v79760
gr4Cr8Jr8Dq8kfvHyfcl8ha8De/Au/AevJ97uC+RD+Ej+Bg+gU/hM/gcvoAv4Sv4
Gr6Bb+E7+B5+gB/hJ/mr3NO+hI4+7Uvo6NO+tCo/n3xfIk/7Ejr6tC+ho0/7Ejr6
tC+h5324L6GjT/sSenn/3pf2r/1UgVfhNXgd3sj94+T7EnkL3oZ34F14D97PPdyX
yIfwEXwMn8Cn8Bl8Dl/Al/AVfA3fwLfwHXwPP8CP8JP8Ve4F+gL9Gf0Z/SXvP06+
L5GnfQkdfdqX0NGnfQkdfdqX0PM+3JfQ0T/RP8v79750gr4Cr8Jr8Dq8kfvHyfcl
8ha8De/Au/AevJ97uC+RD+Ej+Bg+gU/hM/gcvoAv4Sv4Gr6Bb+E7+B5+gB/hJ/mr
3Av0Bfoz+jP6S95/nHxfIk/7Ejr6tC+ho0/7Ejr6tC+h5324L6Gjf6J/lvfvfekG
fQVehdfgdXgj94+T70vkLXgb3oF34T14Hz7IPdyXyEfwMXwCn8Jn8Dl8AV/CV/A1
fAPfwnfwPfwAP8JP8le5F+gL9Gf0Z/SXvP84+b5EnvYldPRpX0JHn/YldPRpX0LP
+3BfQkf/RP8s79/70gv6CrwKr8Hr8EbuHyffl8hb8Da8A+/Ce/A+fJB7uC+Rj+Bj
+AQ+hc/gc/gCvoSv4Gv4Br6F7+B7+AF+hJ/kr3Iv0Bfoz+jP6C95/3HyfYk87Uvo
6NO+hI4+7Uvo6NO+hJ734b6Ejv6J/lnev/elH/QVeBVeg9fhjdw/Tr4vkbfgbXgH
3oX34H34IPdwXyIfwcfwCXwKn8Hn8AV8CV/B1/ANfAvfwffwA/wIP8lf5V6gL9Cf
0Z/RX/L+4+T7Ennal9DRp30JHX3al9DRp30JPe/DfQkd/RP9s7x/78sg6CvwKrwG
r8MbuX+cfF8ib8Hb8A68C+/B+7l/3X8AH8JH8DF8Ap/CZ/A5fAFfwlfwNXwD38J3
8D38AD/CT/JXuRfoC/Rn9Gf0l7z/OPm+RJ72JXT0aV9CR5/2JXT0aV9Cz/twX0JH
/0T/LO/f+zIM+gq8Cq/l/nHyfYm8AW/CW/A2vAPvwnvwfu7hvkQ+hI/gY/gEPoXP
4HP4Ar6Er+Br+Aa+he/ge/gBfoSf5K9yL9AX6M/oz+gvef9x8n2JPO1L6OjTvoSO
Pu1L6OjTvoSe9+G+hI7+if5Z3r/3ZRT0FXgVXsv94+T7EnkD3oS34G14B96F9+D9
3MN9iXwIH8HH8Al8Cp/B5/AFfAlfwdfwDXwL38H38AP8CD/JX+VeoC/Qn9Gf0V/y
/uPk+xJ52pfQ0ad9CR192pfQ0ad9CT3vw30JHf0T/bO8f+/LOOgr8Cq8lvvHyfcl
8ga8CW/B2/AOvAvvwfu5h/sS+RA+go/hE/gUPoPP4Qv4Er6Cr+Eb+Ba+g+/hB/gR
fpK/yr1AX6A/oz+jv+T9x8n3JfK0L6GjT/sSOvq0L6GjT/sSet6H+xI6+if6Z3n/
3pdJ0FfgVXgNXoc3cv84+b5E3oK34R14F96D93MP9yXyIXwEH8Mn8Cl8Bp/DF/Bl
7h8n35fI1/ANfAvf5R7uS+QH+BF+kr/KvUBfoD+jP6O/5P3Hyfcl8rQvoaNP+xI6
+rQvoaNP+xJ63of7Ejr6J/pnef/el2nQV+BVeA1ehzdy/zj5vkTegrfhHXgX3oP3
cw/3JfIhfAQfwyfwKXwGn8MX8GXuHyffl8jX8A18C9/lHu5L5Af4EX6Sv8q9QF+g
P6M/o7/k/cfJ9yXytC+ho0/7Ejr6tC+ho0/7Enreh/sSOvon+md5/96XWdBX4FV4
DV6HN3L/OPm+RN6Ct+EdeBfeg/fhA/gQPoKP4RP4FD6Dz+EL+BK+gq/hG/gWvoPv
4Qf4EX6Sv8o97Uvo6NO+hI4+7Uvo6NO+hI4+7Uvo6NO+hI4+7Uvo6NO+hI4+7Uvo
5f17X9L3ebQvkVfhNXgd3sj9635NeAvehnfgXXgP3ocP4EP4CD6GT+BT+Aw+hy/g
S/gKvoZv4Fv4Dr6HH+BH+En+Kve0L6GjT/sSOvq0L6GjT/sSOvq0L6GjT/sSOvq0
L6GjT/sSOvq0L6GX9+99Sd/H0b5EXoXX4HV4I/ev+zXhLXgb3oF34T14Hz6AD+Ej
+Bg+gU/hM/gcvoAv4Sv4Gr6Bb+E7+B5+gB/hJ/mr3NO+hI4+7Uvo6NO+hI4+7Uvo
6NO+hI4+7Uvo6NO+hI4+7Uvo6NO+hF7ev/clfZ9G+xJ5FV6D1+GN3L/u14S34G14
J/eP/w9Dvi+R9+D93L+eP4APc/96/RF8DJ/Ap7l/vb8ZfJ771+svcv/ql/AVfA3f
5P71/rbwHXyf+9fzD/Bj7l+vf5K/yr3I+6/np32JPO1L9PppXyK/oL/k/dfz076E
juenfQkd/S3vv56f9iXytC+ho0/7Ejr6tC+hl/fvfUnfh9G+RF6F1+B1eCP3r/s1
4S14G97JPdyXqO/B+/ABfJh7uC9RP4ZPcg/3Jepn8Hnu4b5E/RK+gq/hm9zDfYn6
HXwPP8CPuYf7EvVpX6I+7UvUp32JPO1L9PppX6I+7UvUp32J+rQvoed9uC9Rn/Yl
8rQvoaNP+xI6+rQvoaNP+xJ6ef/el/R9Fu1L5FV4DV6HN3L/ul8T3oK34Z3cw32J
vJf71+v34QP4MPdwXyIfwyfwae5f728Gn+ce7kvUL+Er+Bq+yT3cl6jfwffwA/yY
e7gvUZ/2JerTvkR92pfI075Er5/2JerTvkR92peoT/sSet6H+xI6+lvefz0/7Uvk
aV9CR5/2JXT0aV9CL+/f+5K+j6J9ibwKr8Hr8EbuX/drwlvwNryTe7gvUd+D9+ED
+DD3cF+ifgyf5B7uS9TP4PPcw32J+iV8BV/DN7mH+xL1O/gefoAfcw/3JerTvkR9
2peoT/sSedqX6PXTvkR92peoT/sS9WlfQkef9iX0vA/3JerTvkSe9iV09GlfQkef
9iX08v69L+n7JNqXyKvwGrwOb+T+db8mvAVvwzu5h/sS9T14Hz6AD3MP9yXqx/BJ
7uG+RP0MPs893JfIl/BV7l/PX8M3uYf7EvkOvs/96/kH+DH3cF9Cf5V7kfdfz0/7
Ennal+j1075EfdqXqE/7EvVpX0LP+/DvL6Gjv+X91/PTvkSe9iV09GlfQkef9iX0
8v69L+n7INqXyKvwGrwOb+T+db8mvAVvwzvwLrwH78MH8CF8BB/DJ/ApfAafwxfw
JXwFX8M38C18B9/DD/Aj/CR/lXval9DRp30JHX3al9DRp30JHX3al9DRp30JHX3a
l9DRp30JHX3al9DL+/e+pK/zaF8ir8Jr8Dq8kfvX/ZrwFrwN78C78B68Dx/Ah/AR
fAyfwKfwGXwOX8CX8BV8Dd/At/AdfA8/wI/wk/xV7mlfQkef9iV09GlfQkef9iV0
9GlfQkef9iV09GlfQkef9iV09GlfQi/v3/uSvo6jfYm8Cq/B6/BG7l/3a8Jb8Da8
A+/Ce/A+fAAfwkfwMXwCn8Jn8Dl8AV/CV/A1fAPfwnfwPfwAP8JP8le5p30JHX3a
l9DRp30JHX3al9DRp30JHX3al9DRp30JHX3al9DRp30Jvbx/70v6Oo32JfIqvAav
wxu5f92vCW/B2/AOvAvvwfvwAXwIH8HH8Al8Cp/B5/AFfAlfwdfwDXwL38H38AP8
CD/JX+We9iV09GlfQkef9iV09GlfQkef9iV09GlfQkef9iV09GlfQkef9iX08v69
L6f//hjtS+RVeA1ehzdy/7pfE96Ct+EdeBfey/3rfn34AD6Ej+Bj+AQ+hc/gc/gC
voSv4Gv4Br6F7+B7+AF+hJ/kr3JP+xJ63n+cfF9CR5/2JXS8/7QvoaNP+xI6+rQv
oaNP+xI6+rQvoef9x8n3JfTy/se+vH79/Aq8Cq/B6/BG7l/3a8Jb8Da8A+/Ce7nH
+xL4AD6Ej+Bj+AQ+hc/gc/gCvoSv4Gv4Br6F7+B7+AF+hJ/kr3Iv0Bd5/3F+2pfI
0b/3JXK8//e+RI7+vS+Ro7+hv6G/o7+jf6B/5P3H+WlfIi/v3/uSvo6ifYm8Cq/B
6/BG7l/3a8Jb8Da8A+/Ce7mH+xL5AD6Ej+Bj+AQ+hc/gc/gCvoSv4Gv4Br6F7+B7
+AF+hJ/kr3Iv0Bfoz+jP6C/oL+iv6K/o076Ejv6G/ob+jv6O/oH+kfcfJ9+X0Mv7
H/vy+vXzK/AqvAavwxu5f92vCW/B2/AOvAvv5R7vS+AD+BA+go/hE/gUPoPP4Qv4
Er6Cr+Eb+Ba+g+/hB/gRfpK/yr1AX6A/oz+jv6C/oL+iv6J/70vk6G/ob+jv6O/o
H+gfef9xftqXyMv7976kr4NoXyKvwmvwOryR+9f9mvAWvA3vwLvwXu7hvkQ+gA/h
I/gYPoFP4TP4HL6AL+Er+Bq+gW/hO/gefoAf4Sf5q9wL9AX6M/oz+gv6C/or+iv6
tC+ho7+hv6G/o7+jf6B/5P3Hyfcl9PL+x768fv38CrwKr8Hr8EbuX/drwlvwNrwD
78J7ucf7EvgAPoSP4GP4BD6Fz+Bz+AK+hK/ga/gGvoXv4Hv4AX6En+Svci/QF+jP
6M/oL+gv6K/or+jf+xI5+hv6G/o7+jv6B/pH3n+cn/Yl8vL+vS/pv2O0L5FX4TV4
Hd7I/et+TXgL3oZ34F14L/dwXyIfwIfwEXwMn8Cn8Bl8Dl/Al/AVfA3fwLfwHXwP
P8CP8JP8Ve4F+gL9Gf0Z/QX9Bf0V/RV92pfQ0d/Q39Df0d/RP9A/8v7j5PsSenn/
Y19ev35+BV6F1+B1eCP3r/s14S14G96Bd+G93ON9CXwAH8JH8DF8Ap/CZ/A5fAFf
wlfwNXwD38J38D38AD/CT/JXuRfoC/Rn9Gf0F/QX9Ff0V/TvfYkc/Q39Df0d/R39
A/0j7z/OT/sSeXn/3pf03yHal8ir8Bq8Dm/k/nW/JrwFb8M78C68l3u4L5EP4EP4
CD6GT+BT+Aw+hy/gS/gKvoZv4Fv4Dr6HH+BH+En+KvcCfYH+jP6M/oL+gv6K/oo+
7Uvo6G/ob+jv6O/oH+gfef9x8n0Jvbz/sS+vXz+/Aq/Ca/A6vJH71/2a8Ba8De/A
u/Be7vG+BD6AD+Ej+Bg+gU/hM/gcvoAv4Sv4Gr6Bb+E7+B5+gB/hJ/mr3N/7Ejn6
975Ejv69L5Gjf+9L5Ojf+xI5+ve+RI7+vS+Ro3/vS+R5/3F+2pfIy/v3vqQ/x2hf
Iq/Ca/A6vJH71/2a8Ba8De/Au/AevA8f5B7uS+Qj+Bg+gU/hM/gcvoAv4Sv4Gr6B
b+E7+B5+gB/hJ/mr3Av0Bfoz+jP6C/oL+iv6K/r0+dDR39Df0N/R39E/0D/y/uPk
+xJ6ef9jX16/fn4FXoXX4HV4I/ev+zXhLXgb3oF34T14Hz7IPd6XwEfwMXwCn8Jn
8Dl8AV/CV/A1fAPfwnfwPfwAP8JP8le5F+gL9Gf0Z/QX9Bf0V/RX9O99iRz9Df0N
/R39Hf0D/SPvP85P+xJ5ef/el/TnEO1L5FV4DV6HN3L/ul8T3oK34R14F96D9+GD
3MN9iXwEH8Mn8Cl8Bp/DF/AlfAVfwzfwLXwH38MP8CP8JH+Ve4G+QH9Gf0Z/QX9B
f0V/RZ/2JXT0N/Q39Hf0d/QP9I+8/zj5voRe3v/Yl9evn1+BV+E1eB3eyP3rfk14
C96Gd+BdeA/ehw9yj/cl8BF8DJ/Ap/AZfA5fwJfwFXwN38C38B18Dz/Aj/CT/FXu
BfoC/Rn9Gf0F/QX9Ff0V/XtfIkd/Q39Df0d/R/9A/8j7j/PTvkRe3r/3Jd0j2pfI
q/AavA5v5P51vya8BW/DO/AuvJf71/368AF8CB/Bx/AJfAqfwefwBXwJX8HX8A18
C9/B9/AD/Ag/yV/lXqAv0J/Rn9Ff0F/QX9Ff0b//3SJy9Df0N/R39Hf0D/SPvP84
+b6EXt7/2JdX9vHdV+BVeA1ehzcqP38+9ya8BW/DO/AuvJd7vC+BD+BD+Ag+hk/g
U/gMPocv4Ev4Cr6Gb+Bb+A6+hx/gR/hJ/ir3An2B/oz+jP6C/oL+iv6K/qd/F4/3
JfAb+hv6O/o7+gf6x9fnc3/vS+Tl/Xtffnof774Cr8Jr8Dq8kfvX/ZrwFrwN78C7
8F7u4b5EPoAP4SP4GD6BT+Ez+By+gC/hK/gavoFv4Tv4Hn6AH+En+avcC/QF+jP6
M/oL+gv6K/or+rQvoaO/ob+hv6O/o3+gf+T9x8n3JfTy/se+vH79/Aq8Cq/B6/BG
7l/3a8Jb8Da8A+/Ce7nH+xL4AD6Ej+Bj+AQ+hc/gc/gCvoSv4Gv4Br6F7+B7+AF+
hJ/kr3Iv0Bfoz+jP6C/oL+iv6K/o3/sSOfob+hv6O/o7+gf6R95/nJ/2JfLy/r0v
338Pyvcl8iq8lvvX+6vDG/AmvAVvwzvwLryXe7gvkQ/gQ/gIPoZP4FP4DD6HL+BL
+Aq+hm/gW/gOvocf4Ef4Sf4q9wJ9gf6M/oz+gv6C/or+ij7tS+job+hv6O/o7+gf
6B95/3HyfQm9vP+xL69fP78Cr8JruX+9vzq8AW/CW/A2vAPvwnu5x/sS+AA+hI/g
Y/gEPoXP4HP4Ar6Er+Br+Aa+he/ge/gBfoSf5K9yL9AX6M/oz+gv6C/or+iv6N/7
Ejn6G/ob+jv6O/oH+kfef5yf9iXy8v7fAdEeb4mdRQEAAAFFnQ==

`turtle world`
H4sIAAAAAAAAAI1YeVRTRxcP++4GAiJLCAghbAkJIYCaC0gFRMSCEBEhLAmhIgkh
LFJQ3Kj7hiKICxQVPj9al1ZQj5WBulYUaqmlYpUKLhWruNACH8XvTfC0/zXzznm5
Mznv9+7MXX73zqNNEqvylKosCT1XlaKSiIH293WEpp8lyc5QyajxbJpeqlIiSaeG
zjRjRZZcVZCZniFRUXMezQDPFZJsauJF00uTZ8mV1NCWprsqTT0ypZmoX/732wQ0
Q+rxdHlBtoKa+dD0cmUpCgk1ZNF0CycwujSdAplcvQ79XNmHJ7k0A5kkJT0zO4Oa
WFC3Fk1fki1RZqz6sGQdmolKSb05V6JSSZTqBwyl8qwseYF6pk0zkVK7UMkys1eo
/9B5T12UxPuiIUZUv1tr8CbEmycpuFJ8BxgTL4XkCaMIBz9o0VLf6l/qJxpL5Bb0
Lig7awbiy8pXxHWNQnzpBDZ6Avu3WbX/wWpPvEkbPJ5x1zuOWYOP+4vgGec8Icfm
6md3eUINWDzTaelf/ZRbvVkMAt6uBYHjY5C3b/vkRtlqDVgdbGEQWKiUzjeGETc0
mdulcgZJTb23nn+hBqwuJfWQ5/HgV1aBFsDawj+9stcaVDdtHESd/yNYs76wV8fJ
oHG4BnH2N6w3/dISVJJeSnEAgV4D5NqxM67uwmvgNldH8v2KQYFI1qxHScOWNxmZ
IzvC6Yi707u7jK0L8vyelU092QQ+MgLbK4vOpEhLwcIoTFpi0AXpkbKStJAXBFhj
YDDr5y2evwG5fy7ZJwm9D6opo9jBGrD6lDQBVvjkH5btswZ2wJ2BZ+uKQeq37uBF
iycEek3RFIcnES2HERLMce3YLR6DT8yo0ChJ14A1oKQZOER2znNidIPzzOAF/d0R
kNZGqX3cS4CdBB6GUb6ZTt2IaacTtYJZCqnn3G62RiURYCcjg5jQZ9uD6chDXm9T
+wUbkqopF608R2CrKcjv6qpDb4ufgE5fvsin2hBS60IGbBwSCLBTwTOXHXVjcjow
+ybbMu0cQV7YSTmpm2DN04D748918fWxyGNBYLv3JRVk7EgyVg7GEvjIHDh+Z6Jb
I08hTuPC3rNTdEHhOEQlcCbBmi3AvMxNu/mPLuTbs9fyarExqLZhFzUQ5P505Drc
WqxllI44lfUz3GO+hJx6jXGlhcsAjWYpfGrqItr2nAbeZQ+NfY8bQ9rRPeHOeyII
1myFZoX5OZ8sakbTeqz8N2TshfQEijZGrxNgrRHnD39WhoMC+M5Lf+5cvxNkr6hw
TvtIA9aQkjMQx+taWNyfHcDTpi2z0BVDisS/0O3mZQIf2SD7oqmPcmKHgf2IHnzV
qBpWJKjTlyA2ZoKT60/NCzeKwafqeNXm/KuwlI75qpgAawvOreXCPe9swWE+U/Fg
4V5IDcU8OZvAVnZIJ/6prHZEgaZnXq4a/D0WpD0keYSlPXLtL1kQM9IN7Parcrsv
hyH2VxyTWQR6HZCfZCYrf7MNTKtLiHGvNoXYhZhzZARYOgikw9IGKcWXVTltW1zm
QqotFc71PgRYR+TJGxFtz1gLguaEyp+ypJAjIslfjGWA23DAx+3FpmDWtWZn/bFu
yOvbTyWDJYGPnID76WknWeg68GmOO2wdowW+j7GPogns7NwyJLz/4MHdQWBVr3y+
pi0CcqgsCnfeS5C/s5CTPKmxmeWPPLN9l31/2BrE8+/y5p4+SlB/XWCqv3R4VFYM
TrVZ0UF2W2FeHu4ZSgn269ryduZfv4R39ILO1yY1HQ2VkFtFpVHrIgI7M8HHc+Ap
KgThq7NHkhe30CE2GtdBAQHWDQS3S2KKgo+jyV6iA7dyCmEJprp6NoGtWMix6fCq
ulvB4GPoYceoEcHKGOxfCwK97uAo/P6zs6e6QbCJ//z+QiUo9mKuCyewswdibIhb
9R23AXH7Ch92xxVCfjIOyk0asEaU9BSONjze8svPNMTk//UofuswxDCpdmPAmmC/
XsjjHf1/UaJXwJwdeDs+vAGUPByUugT79Ua+jS9EX9iZgc+ZPaAMS4XcDsyxIQR6
2ci9bcHqy4X3kKduatuhkWFQBCgHKVMTYDngyPrFLWgmGwnOnnqvsEyC3CHMz4gg
j3wQd/S3qfsv3kS+tzzqdgw1QOoa3NaPEcQzF9zmvGHs+XQX8orfYq8aF4FM3T8X
EejlIatjMvPeX98hs+i6Cy6CGkjEKVg7SLBfX+FgUPKh8MpB8M4yyG3lH4QVpbgu
qAiwfPC27zcaTnrWMtjmkLa4oBO4p2spgtaUv1j6tbw8OHbG4QId0fO69ryrbIcE
dSrcJ9ArQPyHPLasdityGunzNHFiw1IMfUzSI/kj846LHS5e7xBnSoeD1RUv4DXh
gqSphmK9AcI+8fyGz1NKwXVwTsk335dAThO28xsNWGNKBoKvn16QybUHyCWlYtMz
51LIE2PO4RDYajZih7QfXbJuB7JrCfoq/PUpkFvhDWvqgU0oOQc5fhW66ulzS/Dz
RDeG+KOQcQvXwUQCvXOBc++28u4QHehHAu3unbeAuZjqvDTlArazENHXnbpv23MO
XJ6Ul53Y8Ac4qX0kJsh9QFwBc0mB/ijY93uh2d0ikGzHTuoi4Ksg5KHNNekLugg+
ZaLzc1rbQbUYx6SmXhTrDUZMkdul98tZyOqH8tlGhUyQDuPa3U7Qi4aAe85rlex0
OmKV+TddvxYGSit8HJxFgJ0H7G3+L8QFl5GH/q9j+8uPQnYfdVwQaepFsQwFpk24
+bE+JtA7443E7UWwXE11mrgdx/NH4Lft6HvPr20Qx0p+4LkjD6SvqCW7/at/P6x5
PvKNOlDRX3cb+X534iPupliQpeN6NJdAbxjoiY4LBqbRgMOwviCX2EOeOiY1ncvw
LFz46C/trTM/L0X8KZ2V8m8iIN8Pk90hAltFtDw+5Fw+uhsJXwWmvin/lg55wTgm
NXEOjucFLT277m28oV0KNnLuy9KFpZCo7lU09aJ4v5GIWRj92MzoDri85NRa5d6D
ZWLMsSS96ELgezjWKxvswcZu3W7B01IAde6TnFOiEM/Lil1b1Ab244tHtgqKIQy3
3k0ktWwR8jkQsuH6zQpkHjPIOnzyGagacN23IoiNaJjlahji8HEhYvx5pSqRtgsA
f5IZPUXg38XI0x99899+OxDMWb86KOUlpBzEpMMiwH6MONcNuvIts5FgdrDg6gAb
0neT5n4MYqTsHecXMpHew5Nr5xUNg/ItLkjmBLaKRT6yAPlKdAXcK5att/WQQvx5
3IuGEcTGEqq/YUgdLxki3o+Zrl9MPwx5I7j33k2gNw5xHlnnnkz6BPh9CtWP+wxB
FYN5o5Ngv/HC8RkbpyeW1yDLtjjhbyORoLitLt4EekWIYzwmGL/+DvzqE2vCqxsg
8Rg+a/xr//whNpYiliL14p0VAci1YgvjcocpZKr7SRsCvQmI9Z804fLHSvApfn3+
tPwIpB82ptiukgC7DNjfvj3W0xjccu+rivXXEhEkqz/XeRDYKhH4n/iutTgxDsbb
Uoo44WJYOg233kwC/y5HXJ6L1/6WEmA7DKnolY0Qqf7kpik2sN4kpCXV0p8TLYKZ
1VWlR5qOwmK1regasKaUTEaTDNcWXS8QtwzsfEJ386iBlM3409ckgjWLgbtvpeuu
sONA5y4/wXEFyFtD8n0DY1MQ/0hF3yJWJHINcL0UecQZ8iJwQdpIkL+paNrl352e
twsQQ8Hoc2guhlQ1VlMtM6NkGrLlxXh62zJh6p3I6+llbFD0TmBEExAwpP1z/YOd
9H+SEu7fdxgAAAAAGHc=