Java StarLogo
2.0
english
`turtle`
turtles-own[speed parktime parkplan]; turtle besitzt eine Geschwindigkeit, eine Parkzeit und eine Variable, die angibt, 
;ob das Parken erfolgreich war
breeds [longTimeParker shortTimeParker] ; es gibt zwei Typen von Turtles, sie unterscheiden sich in der jeweiligen Parkdauer.


to park; die Hauptfunktion, entscheidet fuer jeden turtle was zu tun ist
 ifelse (parkingLot = false) and (parkplan = true)
  [
  ifelse 1 = (random 2) [trytoPark] [goForTheNext]
  ]
  [gohome]
end

to born; Ein neuer turtle, entweder LanzeitParker oder KurzzeitParker
 if breed = longTimeParker [set parktime longTime]
 if breed = shortTimeParker [set parktime shortTime]
 setxy (screen-half-width * -1) 0
 seth 90
 set speed 0.05
 setc red
 set parkplan true
end

to trytoPark; versucht zu parken
 ifelse ((count-turtles-towards 90 1) < 1) and (true = parkingLot-towards 90 1)  [parkin "right"] 
  [ifelse ((count-turtles-towards -90 1) < 1) and (true = parkingLot-towards -90 1) [parkin "left"] 
   [ifelse ((count-turtles-towards 0 1) < 1) and (true = parkingLot-towards 0 1) [parkin "forward"] [goForTheNext]]]
end

to goForTheNext ;wechselt zur naechsten Zelle auf der Suche noch nach einem Parkplatz  
 seth direction
 ifelse (true = exit) and (true = parkplan)
 [setnoparkers  (noparkers + 1) die]
 [fd 1]
end

to parkin :dir ;parkt mit der angegebenen Richtung und wartet dann die entwprechende parktime
 if :dir = "right" [rt 90 fd 1]
 if :dir = "left" [lt 90 fd 1]
 if :dir = "forward" [ fd 1]
 wait parktime
 gohome
end

to gohome ;parkt aus und verlässt das Parkhaus
 set parkplan false
 ifelse parkingLot = true [rt 180
  fd 1
  seth direction]
  [
  ifelse (exit = false) [seth direction jump speed] [die]
  ] 
end


`observer`
patches-own[parkingLot direction exit]; Turtles reagieren nur auf Eigenschaften und nicht auf die Farbe.
; als Eigenschaften sind definiert, ob es sich bei der jeweiligen Zelle um einen Parkplatz handelt.
; Die Fahrtrichtung
; der Ausgang ist ein einziger Punkt, der wenn die Turtles ihn erreicht haben, verschwinden. 
globals [noparkers] ; eine globale Variable, die zaehlt wieviele Turtles das Parkhaus verlassen, ohne geparkt zu haben. 

to setup

ct
set noparkers 0
 setuppatches
 every (parkers / 100) [if  0 = (count-turtles-at (screen-half-width * -1) 0)
  [ifelse 1 = (random 2) [create-longTimeParker-and-do 1 [born]] [create-shortTimeParker-and-do 1 [born]]]
 ]
end

to displayNoParkers ; dies Zeigt die Variablen mit den erfolglosen Turtles an
output noparkers
end

to setuppatches ; die patches werden gesetzt
 cp
 ask-patches [setparkingLot false setexit false]
 build 57
end
 
to build :repeattime
 let [:loopnum 0]
 repeat :repeattime
  [
  ask-patch-at  (screen-half-width * (-1) + :loopnum) 1  [setparkingLot true setpc yellow]
  ask-patch-at  (screen-half-width * (-1) + :loopnum) 0  [setparkingLot false setpc grey setdirection 90]
  ask-patch-at  (screen-half-width * (-1) + :loopnum) -1  [setparkingLot true setpc yellow]

  ask-patch-at  (screen-half-width * (-1) + :loopnum) 3  [setparkingLot true setpc yellow]
  ask-patch-at  (screen-half-width * (-1) + :loopnum) 4  [setparkingLot false setpc grey setdirection 270]
  ask-patch-at  (screen-half-width * (-1) + :loopnum) 5  [setparkingLot true setpc yellow]



  set :loopnum  :loopnum + 1
  ] 
  ask-patch-at screen-half-width 0 [setparkingLot true setpc yellow]
  ask-patch-at screen-half-width 2 [setparkingLot true setpc yellow]
  ask-patch-at screen-half-width 3 [setparkingLot true setpc yellow]
  ask-patch-at screen-half-width 4 [setparkingLot true setpc yellow]
  ask-patch-at (screen-half-width - 2) 2 [setparkingLot true setpc yellow]
  ask-patch-at (screen-half-width - 1) 2 [setparkingLot false setpc grey setdirection 0]
  ask-patch-at (screen-half-width - 1) 1 [setparkingLot false setpc grey setdirection 0]
  ask-patch-at (screen-half-width - 1) 3 [setparkingLot false setpc grey setdirection 0]
  ask-patch-at (screen-half-width * (-1)) 4 [setexit true]
  ask-patch-at (screen-half-width - 1) 0 [setparkingLot false setpc grey setdirection 0]
  ask-patch-at (screen-half-width ) 5 [setparkingLot false setpc green setdirection 0]
  ask-patch-at (screen-half-width ) -1 [setparkingLot false setpc green setdirection 0]
end

to displayAvailableLots ; Zeigt wieviele Parkplätze frei sind
output (count-patches-with [parkingLot = true  and count-turtles-here = 0])
end

to startup
show "designed by Harald Borsutzky & Theodor Foerster"
end


`information`



`interface`
SLCanvas
top-left 30 258

SLMonitor
top-left 277 57
width-height 149 36
name "Anzahl der freien Parkplaetze"
list-to-run "displayAvailableLots"
digits 0
delay 0.5
monitor-number 3
show-name? true
whichip 14
onewhichip 15

SLMonitor
top-left 333 65
width-height 136 36
name "keinen Parkplatz gefunden"
list-to-run "displayNoParkers"
digits 0
delay 0.5
monitor-number 2
show-name? true
whichip 16
onewhichip 17

SLSlider
top-left 136 40
width-height 177 25
name "Einfahrtszeit-Intervall"
variable "parkers"
min-value 0
max-value 99
current-value 11
slider-number 0
show-name? true

SLSlider
top-left 230 37
width-height 183 25
name "Langparkzeit"
variable "longTime"
min-value 0
max-value 150
current-value 10
slider-number 2
show-name? true

SLSlider
top-left 182 40
width-height 174 25
name "Kurzparkzeit"
variable "shortTime"
min-value 0
max-value 50
current-value 2
slider-number 1
show-name? true

SLButton
turtle-or-observer? turtle
top-left 80 97
width-height 50 30
name "Start"
line-to-run "park"
forever? true
button-number 3
show-name? true
whichip 12

SLButton
turtle-or-observer? observer
top-left 32 50
width-height 145 30
name "Setup und Ende der Einfahrt"
line-to-run "setup"
forever? false
button-number 2
show-name? true
whichip 13


`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 7
num-shapes 256
screen-half-width 28
screen-half-height 25
interface-window-xcor 96
interface-window-ycor 37
interface-window-size 667 420
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 10
control-center-ycor 362
control-center-width 531
control-center-height 338
turtle-command-center-height 238
observer-command-center-height 238

`string table`
H4sIAAAAAAAAAAXBzQmAMAwG0BwqrpGTV3fwIA7gApWkP1gMfI2ITu97RBRoFu01
Xyp8vLxFxCa8GPrt3/nyxHtREwOvpuiuoAE1F6fQNDmNyfBEyA8hUO1RSwAAAAAA
AEs=

`symbol table`
H4sIAAAAAAAAAGNgYGBiYE1LzClOZWApKSpNBQDlw1heEQAAAAAAABE=

`double table`
H4sIAAAAAAAAAGNgYODc/4EBDBwYoLRbA5i2h4l7Q/krZ4LALAc9iPiBMKj4Awgf
AGWAyqpMAAAAAAAATA==

`list table`
H4sIAAAAAAAAAH1TWw4CMQjk0VU3xk388ypexW+9oQcUFqhj07hJtzAzUEpbIroS
0YXtB+Pps3x9tiE5d5vC9m/R1GrEOX438wV5WFNvvgjoc43FxsNwlYyZ6HWCtd8c
vFUOjrq6PmunAZPB18Fvo34Sw4nhXpzT6tkfTmcc7I3l2/exX5Wn99/8hjlmOEVM
74NLWswHWKP2uO/NoK3szL1zUCvl+VVdh6rd3Jtz0AsuPcfarjuOfGEtekyTeEre
S16Bq9oxjvLOri38B+Quu5+X6c5wl6tXb3wDCrnz2++PxZzybWhiAph8ANh075B0
AwAAAAADdA==

`bytecodes`
H4sIAAAAAAAAAJVXCXfbRBBe+YyPxk5c5+qBaUO5hEncJrQFQ5qQ0rRJKU0DLSFQ
2do4orbkJ8ltwnv8B34Y/CbYXc0eWkduUV402mO++WZmd2eNSi87ZyHuejYOXm6g
v+nzD0KohrIBDkdD8vkQiedaGiEDvg14zaQQytPvlJxnRG1jmX+nkVFNw5Rb0JdB
xmU+niXjKfjOIWOJfFbnYf4N6M+DnCJjOWX8AvQXQBahPwu88pIXoYAW8pGM6ZZA
lt9Nt5IGmQJJ+itUCaGq7QTDvnX22Hti+a+wH8RRIHrGDNUyQMtAZRbsoRV2TzDV
WFBingJOpfHY1zIi1jzOrI9yup4RcY4IpEGRW02hbGfk9G3S86cc4iZy6F/yoMgp
Hq6/lJQZUcqy0TyjKtMezS1ISpyGoEtAL3KaSMHMJWDmAXNaLAGRcoFZjDD1dNbO
s3Mhwc60xr0CsqrYmUngPpuAWdMwL4KsK5hzCZjzCZgLWjwWQS4pmJeUeFwGeSUh
HlcT7LyncW+AfF+xcy3GnWNEY9cjLL6W2FYpKHaXNfwPQN5Q8D9MiM1Hmu7HID9R
dD9N0DU13c9ANhXdzxN0VzTdVZAtRfdmgu4tEg++x9Y0nHWQXyg4txNw7ig4d7W1
8CXIrxSctrIWvgb5TcJa2FCw72nYmyC3FOxvFextkPcTsL9TsB9o2DsgHyrYjxTs
XZB7CdiPlRLyPWDnoP0E5A8Juk8VXvsar2cgDxRePyq8fgL5PAH7hYb3M8hDBe8X
Be8I5K8JeL9peC9BWgpeR8HrgrRjeFEJSKOLUK7uvbacvtXp410vpAWohsTDrJVF
ZTBqPFIGK8LGJd5ORe3qVXbYp66XlRKXQfkgtPzoRpGT4LzcNHIwMYsyQ1I4Edto
2iyjhmKmhdnZoig2ggKjPSeLDxSe+N2B1/kpaUvcDfhYIT7Ga39sTml8DvMmhzId
z3cR297cmXpDeiSY5KVn4tZEBmYNcdOQeulz9DKKXjaup5dXXlLrfHsQ7+sLSJRU
Xk5neWKJd/UqEiUVSigbr0QhKIT+WchuPGSoN5Y44dpSRlkrc8IdPUmCbq2sJTQv
6eeBJjcikrIt3QKXpN2iYrc07hKT0xPsVibY5dWLh2pGsTur2K2BVG4CTM5NsDs/
we5bFqoqWbqmULnn3ff8Zyf4MT4NEaulWsbYVhOLQtnhNaRsPZk5ugXjzEsim8aM
ITOq3ulm0tFNV3iSkZmrlzXWBZSjB4NDN9OaJMrvpxM2FKovCv4SN6Xpnr+pUH1J
rspEXfVIyUj/1PngFzuqKsXxY4P5WES5nnfiDTD4GPdN+DMbz8c4/5LCfzHOX+ws
yK+I/bzgLTGnFEx+MBS0tVGMfKoXFayUzOvY6iuh6c1RGHru3UZjn5aECDu2kpUC
wXRzMFhGy1KX/mJqjFy7se3auGFjv7HtuMfWCUPMxn51wcMQrux5rhN6/t1GQumr
jP/eykMw+bOclsmoFDWSF95uYmoyNIOZRos6jPqbMomlEYdKZFmZDK8z1GAZRDXl
0Zre93pe8+H+7pY3GFiufWiukL9bd9ZPW6stk8B6o7D9u/XaOm0Gbxy31ySmjpsd
K3C6zU36fkbOoIOd5YOhbYX4AUHoY9+0+k7PHWA3fN52R/2+bL+I2qSqkoxPxN1k
U4LlPcvvOW7U2rBXrVWrYx73rV7Qbt1ZNwfWqTMYDfadP3DbHDiubAx9fIx9H9tR
s2v5ONzy+t45Vln3wc5THHgjv4sP/faK2SP/nfbKkUmiS1NvUz/fWX+1dZsg0HeH
vo9MbDshhWmH/ggT1tQnBtS03oTNHTfAYXAYesP2mtnHxyERHY/slAH58J3eCek4
MgPcx93wfzJpra0RJvTdoW+O4njuuztDo3Fznbqysn5kvnLiCyIkdJr74RmJ0bZN
V+QjJ9xYbd3EnRUzPBvyNRG0j5SNnUXKQzf2f1NW7STKEgAAAAASyg==

`observer world`
H4sIAAAAAAAAAGMQSMhPKk4tKkstUiguSSxJTXBggAMrBq6CnPyS8syU9NQSIJ+F
gS0nNS+9JAPI5mFgB8kVpOaBlXKDNcNlOYCYkYEzL78gsSg7tagYaiAjCIMIAK7E
8o13AAAAAAAAdw==

`patch world`
H4sIAAAAAAAAAJXbS6tr+Z3ecbnbJEpCggYaKKCBEEIIIYTu91u5fLfHGfSojbtw
F2ls4xSkM9NLzktIld2//2mfcs55PgvEWmJ/9N17w2brYYE6//Uf//ibb377z6P/
9c1vvvnqH1+ddvyPzg//9bd/+NOfr//zH//lD9/876//6XdfffPts2Hn7/7422/P
vc5/+Jevfv+7b/752+tF5z9+Z/741e+/fTLo/PD//OWl3c5/+XO4udGfX9/p/Pdv
H3//bfc3f/qfX//+d7/+wzd//j7/6Z++/tNXv/3m6z98V/lB54df/evX333h757/
9y8/U53/3fGD7x5//28X353rV4hsF2wPbB/sAOwQ7AjsGOwE7BTsDOwc7ALsEuwK
7BrsBuwW7A7sHuwB7BHsCewZ7AXsFewN7B3sA+wT7EvsO7dfQPcL6P4Iuj+C7pfQ
/RK6P4buj6H7E+j+BLo/he5Pofsz6P4Muj+H7s+h+wvo/gK6v4TuL6H7K+j+Crq/
hu6v826Z1/fo/3/LRbYLtge2D3YAdgh2BHYMdgJ2CnYGdg52AXYJdgV2DXYDdgt2
B3YP9gD2CPYE9gz2AvYK9gb2DvYB9gn2Jfad2y+g+wV0fwTdH0H3S+h+Cd0fQ/fH
0P0JdH8C3Z9C96fQ/Rl0fwbdn0P359D9BXR/Ad1fQveX0P0VdH8F3V9D99d5t225
btDtgO2C7YHtgx2AHYIdgR2DnYCdgp2BnYNdgF2CXYFdg92A3YLdgd2DPYA9gj2B
PYO9gL2CvYG9g32AfYJ9iX3ntrZcZKFbWy6y0K0tF1no1paLLHRry0UWurXlIgvd
2nKRhW5tuchCt7ZcZKFbWy6y0K0tF1no1paLbN5tW64XdDtgu2B7YPtgB2CHYEdg
x2AnYKdgZ2DnYBdgl2BXYNdgN2C3YHdg92APYI9gT2DPYC9gr2BvYO9gH2CfYF9i
37mtLRdZ6NaWiyx0a8tFFrq15SIL3dpykYVubbnIQre2XGShW1sustCtLRdZ6NaW
iyx0a8tFFrq15SKbd9uW6wfdDtgu2B7YPtgB2CHYEdgx2AnYKdgZ2DnYBdgl2BXY
NdgN2C3YHdg92APYI9gT2DPYC9gr2BvYO9gH2CfYl9h3bmvLRRa6teUiC93acpGF
bm25yEK3tlxkoVtbLrLQrS0XWejWlossdGvLRRa6teUiC93acpGFbm25yObdtuUG
QbcDtgu2B7YPdgB2CHYEdgx2AnYKdgZ2DnYBdgl2BXYNdgN2C3YHdg/2APYI9gT2
DPYC9gr2BvYO9gH2CfYl9p3b2nKRhW5tuchCt7ZcZKFbWy6y0K0tF1no1paLLHRr
y0UWurXlIgvd2nKRhW5tuchCt7ZcZKFbWy6yebdtuWHQ7YDtgu2B7YMdgB2CHYEd
g52AnYKdgZ2DXYBdgl2BXYPdgN2C3YHdgz2APYI9gT2DvYC9gr2BvYN9gH2CfYl9
57a2XGShW1sustCtLRdZ6NaWiyx0a8tFFrq15SIL3dpykYVubbnIQre2XGShW1su
stCtLRdZ6NaWi2zebVtuFHQ7YLtge2D7YAdgh2BHYMdgJ2CnYGdg52AXYJdgV2DX
YDdgt2B3YPdgD2CPYE9gz2AvYK9gb2DvYB9gn2BfYt+5/QK6teUSW1sustCtLRdZ
6NaWiyx0a8tFFrq15SIL3dpykYVubbnIQre2XGShW1sustCtLRdZ6NaWi2zebVtu
HHQ7YLtge2D7YAdgh2BHYMdgJ2CnYGdg52AXYJdgV2DXYDdgt2B3YPdgD2CPYE9g
z2AvYK9gb2DvYB9gn2BfYt+5/QK6teUSW1sustCtLRdZ6NaWiyx0a8tFFrq15SIL
3dpykYVubbnIQre2XGShW1sustCtLRdZ6NaWi2zebVtuEnQ7YLtge2D7YAdgh2BH
YMdgJ2CnYGdg52AXYJdgV2DXYDdgt2B3YPdgD2CPYE9gz2AvYK9gb2DvYB9gn2Bf
Yt+5rS0XWejWlossdGvLRRa6teUiC93acpGFbm25yEK3tlxkoVtbLrLQrS0XWejW
lossdGvLRRa6teUim3fblpsG3Q7YLtge2D7YAdgh2BHYMdgJ2CnYGdg52AXYJdgV
2DXYDdgt2B3YPdgD2CPYE9gz2AvYK9gb2DvYB9gn2JfYd25ry0UWurXlIgvd2nKR
hW5tuchCt7ZcZKFbWy6y0K0tF1no1paLLHRry0UWurXlIgvd2nKRhW5tucjm3bbl
ZkG3A7YLtge2D3YAdgh2BHYMdgJ2CnYGdg52AXYJdgV2DXYDdgt2B3YP9gD2CPYE
9gz2AvYK9gb2DvYB9gn2Jfad29pykYVubbnIQre2XGShW1sustCtLRdZ6NaWiyx0
a8tFFrq15SIL3dpykYVubbnIQre2XGShW1susnm3bbl50O2A7YLtge2DHYAdgh2B
HYOdgJ2CnYGdg12AXYJdgV2D3YDdgt2B3YM9gD2CPYE9g72AvYK9gb2DfYB9gn2J
fee2tlxkoVtbLrLQrS0XWejWlossdGvLRRa6teUiC93acpGFbm25yEK3tlxkoVtb
LrLQrS0XWejWlots3m1bbhF0O2C7YHtg+2AHYIdgR2DHYCdgp2BnYOdgF2CXYFdg
12A3YLdgd2D3YA9gj2BPYM9gL2CvYG9g72AfYJ9gX2Lfua0tF1no1paLLHRry0UW
urXlIgvd2nKRhW5tuchCt7ZcZKFbWy6y0K0tF1no1paLLHRry0UWurXlIpt325Zb
Bt0O2C7YHtg+2AHYIdgR2DHYCdgp2BnYOdgF2CXYFdg12A3YLdgd2D3YA9gj2BPY
M9gL2CvYG9g72AfYJ9iX2Hdua8tFFrq15SIL3dpykYVubbnIQre2XGShW1sustCt
LRdZ6NaWiyx0a8tFFrq15SIL3dpykYVubbnI5t225VZBtwO2C7YHtg92AHYIdgR2
DHYCdgp2BnYOdgF2CXYFdg12A3YLdgd2D/YA9gj2BPYM9gL2CvYG9g72AfYJ9iX2
ndvacpGFbm25yEK3tlxkoVtbLrLQrS0XWejWlossdGvLRRa6teUiC93acpGFbm25
yEK3tlxkoVtbLrJ5t225ddDtgO2C7YHtgx2AHYIdgR2DnYCdgp2BnYNdgF2CXYFd
g92A3YLdgd2DPYA9gj2BPYO9gL2CvYG9g32AfYJ9iX3ntrZcZKFbWy6y0K0tF1no
1paLLHRry0UWurXlIgvd2nKRhW5tuchCt7ZcZKFbWy6y0K0tF1no1paLbN5tW24T
dDtgu2B7YPtgB2CHYEdgx2AnYKdgZ2DnYBdgl2BXYNdgN2C3YHdg92APYI9gT2DP
YC9gr2BvYO9gH2CfYF9i37mtLRdZ6NaWiyx0a8tFFrq15SIL3dpykYVubbnIQre2
XGShW1sustCtLRdZ6NaWiyx0a8tFFrq15SKbd9uW2wbdDtgu2B7YPtgB2CHYEdgx
2AnYKdgZ2DnYBdgl2BXYNdgN2C3YHdg92APYI9gT2DPYC9gr2BvYO9gH2CfYl9h3
bmvLRRa6teUiC93acpGFbm25yEK3tlxkoVtbLrLQrS0XWejWlossdGvLRRa6teUi
C93acpGFbm25yObdtuV2QbcDtgu2B7YPdgB2CHYEdgx2AnYKdgZ2DnYBdgl2BXYN
dgN2C3YHdg/2APYI9gT2DPYC9gr2BvYO9gH2CfYl9p3b2nKRhW5tuchCt7ZcZKFb
Wy6y0K0tF1no1paLLHRry0UWurXlIgvd2nKRhW5tuchCt7ZcZKFbWy6yebdtuXqP
+be/pX9nf/C9LZfYLtge2D7YAdgh2BHYMdgJ2CnYGdg52AXYJdgV2DXYDdgt2B3Y
PdgD2CPYE9gz2AvYK9gb2DvYB9gn2JfYd25ry0UWurXlIgvd2nKRhW5tuchCt7Zc
ZKFbWy6y0K0tF1no1paLLHRry0UWurXlIgvd2nKRhW5tuch+1P3V9+z3t1y9b/Q7
f8P+4L991391YvthyyW2B7YPdgB2CHYEdgx2AnYKdgZ2DnYBdgl2BXYNdgN2C3YH
dg/2APYI9gT2DPYC9gr2BvYO9gH2CfYl9p3b2nKRhW5tuchCt7ZcZKFbWy6y0K0t
F1no1paLLHRry0UWurXlIgvd2nKRhW5tuchCt7ZcZKFbWy6yH3X/5u77i21b7vgp
+9F9ucR2wfbA9sEOwA7BjsCOwU7ATsHOwM7BLsAuwa7ArsFuwG7B7sDuwR7AHsGe
wJ7BXsBewd7A3sE+wD7BvsS+c1tbLrLQrS0XWejWlossdGvLRRa6teUiC93acpGF
bm25yEK3tlxkoVtbLrLQrS0XWejWlossdGvLlf2bW+6j+3JBt225U+fj4/vdDtgu
2B7YPtgB2CHYEdgx2AnYKdgZ2DnYBdgl2BXYNdgN2C3YHdg92APYI9gT2DPYC9gr
2BvYO9gH2CfYl9h3bmvLRRa6teUiC93acpGFbm25yEK3tlxkoVtbLrLQrS0XWejW
lossdGvLRRa6teUiC93acpH962605comWy7oti13/rx9dcB2wfbA9sEOwA7BjsCO
wU7ATsHOwM7BLsAuwa7ArsFuwG7B7sDuwR7AHsGewJ7BXsBewd7A3sE+wD7BvsS+
c1tbLrLQrS0XWejWlossdGvLRRa6teUiC93acpGFbm25yEK3tlxkoVtbLrLQrS0X
WejWlossdGvLlU22XNBtW67+D//t7j/81ZZLbBdsD2wf7ADsEOwI7BjsBOwU7Azs
HOwC7BLsCuwa7AbsFuwO7B7sAewR7AnsGewF7BXsDewd7APsE+xL7Du3teUiC93a
cpGFbm25yEK3tlxkoVtbLrLQrS0XWejWlossdGvLRRa6teUiC93acpGFbm25yEK3
ttyn7V9vubJ/e8v9w19tuesn7V/fl0tsF2wPbB/sAOwQ7AjsGOwE7BTsDOwc7ALs
EuwK7BrsBuwW7A7sHuwB7BHsCewZ7AXsFewN7B3sA+wT7EvsO7e15SIL3dpykYVu
bbnIQre2XGShW1sustCtLRdZ6NaWiyx0a8tFFrq15SIL3dpykYVubbnIQre2XGQ/
6iafY711Pj6+vxE7YLtge2D7YAdgh2BHYMdgJ2CnYGdg52AXYJdgV2DXYDdgt2B3
YPdgD2CPYE9gz2AvYK9gb2DvYB9gn2BfYt+5rS0XWejWlossdGvLRRa6teUiC93a
cpGFbm25yEK3tlxkoVtbLrLQrS0XWejWlossdGvLRRa6teUim3fblrsH3Q7YLtge
2D7YAdgh2BHYMdgJ2CnYGdg52AXYJdgV2DXYDdgt2B3YPdgD2CPYE9gz2AvYK9gb
2DvYB9gn2JfYd25ry0UWurXlIgvd2nKRhW5tuchCt7ZcZKFbWy6y0K0tF1no1paL
LHRry0UWurXlIgvd2nKRhW5tucjm3bblHkG3A7YLtge2D3YAdgh2BHYMdgJ2CnYG
dg52AXYJdgV2DXYDdgt2B3YP9gD2CPYE9gz2AvYK9gb2DvYB9gn2Jfad29pykYVu
bbnIQre2XGShW1sustCtLRdZ6NaWiyx0a8tFFrq15SIL3dpykYVubbnIQre2XGSh
W1susnm3bbln0O2A7YLtge2DHYAdgh2BHYOdgJ2CnYGdg12AXYJdgV2D3YDdgt2B
3YM9gD2CPYE9g72AvYK9gb2DfYB9gn2Jfee2tlxkoVtbLrLQrS0XWejWlossdGvL
RRa6teUiC93acpGFbm25yEK3tlxkoVtbLrLQrS0XWejWlots3m1b7hV0O2C7YHtg
+2AHYIdgR2DHYCdgp2BnYOdgF2CXYFdg12A3YLdgd2D3YA9gj2BPYM9gL2CvYG9g
72AfYJ9gX2Lfua0tF1no1paLLHRry0UWurXlIgvd2nKRhW5tuchCt7ZcZKFbWy6y
0K0tF1no1paLLHRry0UWurXlIpt3P2y59+e7HbBdsD2wfbADsEOwI7BjsBOwU7Az
sHOwC7BLsCuwa7AbsFuwO7B7sAewR7AnsGewF7BXsDewd7APsE+wL7Hv3LYtl1jo
ti2XWOi2LZdY6LYtl1joti2XWOi2LZdY6LYtl1joti2XWOi2LZdY6LYtl1joti2X
WOi2LZfYvNu23Bcf009sucR2wfbA9sEOwA7BjsCOwU7ATsHOwM7BLsAuwa7ArsFu
wG7B7sDuwR7AHsGewJ7BXsBewd7A3sE+wD7BvsS+c/sFdGvLJba2XGShW1sustCt
LRdZ6NaWiyx0a8tFFrq15SIL3dpykYVubbnIQre2XGShW1sustCtLRfZvPthy70/
3+2A7YLtge2DHYAdgh2BHYOdgJ2CnYGdg12AXYJdgV2D3YDdgt2B3YM9gD2CPYE9
g72AvYK9gb2DfYB9gn2Jfef2C+i2LRfYtuUSC9225RIL3bblEgvdtuUSC9225RIL
3bblEgvdtuUSC9225RIL3bblEgvdtuUSC9225RKbd9uW+9HH9BNbLrFdsD2wfbAD
sEOwI7BjsBOwU7AzsHOwC7BLsCuwa7AbsFuwO7B7sAewR7AnsGewF7BXsDewd7AP
sE+wL7Hv3NaWiyx0a8tFFrq15SIL3dpykYVubbnIQre2XGShW1sustCtLRdZ6NaW
iyx0a8tFFrq15SIL3dpykc27H7bc+/PdDtgu2B7YPtgB2CHYEdgx2AnYKdgZ2DnY
Bdgl2BXYNdgN2C3YHdg92APYI9gT2DPYC9gr2BvYO9gH2CfYl9h3btuWSyx025ZL
LHTblkssdNuWSyx025ZLLHTblkssdNuWSyx025ZLLHTblkssdNuWSyx025ZLLHTb
lkts3m1b7suP6Se2XGK7YHtg+2AHYIdgR2DHYCdgp2BnYOdgF2CXYFdg12A3YLdg
d2D3YA9gj2BPYM9gL2CvYG9g72AfYJ9gX2Lfua0tF1no1paLLHS/hG5tucTWloss
dGvLRRa6teUiC93acpGFbm25yEK3tlxkoVtbLrLQrS0XWejWlots3v2w5d6f73bA
dsH2wPbBDsAOwY7AjsFOwE7BzsDOwS7ALsGuwK7BbsBuwe7A7sEewB7BnsCewV7A
XsHewN7BPsA+wb7EvnPbtlxiodu2XGKh+yV025YLbNtyiYVu23KJhW7bcomFbtty
iYVu23KJhW7bcomFbttyiYVu23KJhW7bconNu23L/fhj+oktl9gu2B7YPtgB2CHY
Edgx2AnYKdgZ2DnYBdgl2BXYNdgN2C3YHdg92APYI9gT2DPYC9gr2BvYO9gH2CfY
l9h3bmvLRRa6teUiC93acpGFbm25yEK3tlxkoVtbLrLQrS0XWejWlossdGvLRRa6
teUiC93acpGFbm25yObdD1vu/fluB2wXbA9sH+wA7BDsCOwY7ATsFOwM7BzsAuwS
7ArsGuwG7BbsDuwe7AHsEewJ7BnsBewV7A3sHewD7BPsS+w7t23LJRa6bcslFrpt
yyUWum3LJRa6bcslFrptyyUWum3LJRa6bcslFrptyyUWum3LJRa6bcslFrptyyU2
77Yt95OP6Se2XGK7YHtg+2AHYIdgR2DHYCdgp2BnYOdgF2CXYFdg12A3YLdgd2D3
YA9gj2BPYM9gL2CvYG9g72AfYJ9gX2Lfua0tF1no1paLLHRry0UWurXlIgvd2nKR
hW5tuchCt7ZcZKFbWy6y0K0tF1no1paLLHRry0UWurXlIpt3P2y59+e7HbBdsD2w
fbADsEOwI7BjsBOwU7AzsHOwC7BLsCuwa7AbsFuwO7B7sAewR7AnsGewF7BXsDew
d7APsE+wL7Hv3H4B3bblAtu2XGKh27ZcYqHbtlxiodu2XGKh27ZcYqHbtlxiodu2
XGKh27ZcYqHbtlxiodu2XGKh27ZcYvNu23I//Zh+Yssltgu2B7YPdgB2CHYEdgx2
AnYKdgZ2DnYBdgl2BXYNdgN2C3YHdg/2APYI9gT2DPYC9gr2BvYO9gH2CfYl9p3b
L6BbWy6xteUiC93acpGFbm25yEK3tlxkoVtbLrLQrS0XWejWlossdGvLRRa6teUi
C93acpGFbm25yObdD1vu/fluB2wXbA9sH+wA7BDsCOwY7ATsFOwM7BzsAuwS7Ars
GuwG7BbsDuwe7AHsEewJ7BnsBewV7A3sHewD7BPsS+w7t23LJRa6bcslFrptyyUW
um3LJRa6bcslFrptyyUWum3LJRa6bcslFrptyyUWum3LJRa6bcslFrptyyU277Yt
97OP6Se2XGK7YHtg+2AHYIdgR2DHYCdgp2BnYOdgF2CXYFdg12A3YLdgd2D3YA9g
j2BPYM9gL2CvYG9g72AfYJ9gX2Lfua0tF1no1paLLHRry0UWurXlIgvd2nKRhW5t
uchCt7ZcZKFbWy6y0K0tF1no1paLLHRry0UWurXlIpt3P2y59+e7HbBdsD2wfbAD
sEOwI7BjsBOwU7AzsHOwC7BLsCuwa7AbsFuwO7B7sAewR7AnsGewF7BXsDewd7AP
sE+wL7Hv3LYtl1joti2XWOh+Cd225QLbtlxiodu2XGKh27ZcYqHbtlxiodu2XGKh
27ZcYqHbtlxiodu2XGKh27ZcYvNu23I//5h+Yssltgu2B7YPdgB2CHYEdgx2AnYK
dgZ2DnYBdgl2BXYNdgN2C3YHdg/2APYI9gT2DPYC9gr2BvYO9gH2CfYl9p3b2nKR
hW5tuchC90vo1pZLbG25yEK3tlxkoVtbLrLQrS0XWejWlossdGvLRRa6teUiC93a
cpGFbm25yObdD1vu/fluB2wXbA9sH+wA7BDsCOwY7ATsFOwM7BzsAuwS7ArsGuwG
7BbsDuwe7AHsEewJ7BnsBewV7A3sHewD7BPsS+w7t23LJRa6bcslFrptyyUWum3L
JRa6bcslFrptyyUWum3LJRa6bcslFrptyyUWum3LJRa6bcslFrptyyU277Yt94uP
6Se2XGK7YHtg+2AHYIdgR2DHYCdgp2BnYOdgF2CXYFdg12A3YLdgd2D3YA9gj2BP
YM9gL2CvYG9g72AfYJ9gX2Lfua0tF1no1paLLHRry0UWurXlIgvd2nKRhW5tuchC
t7ZcZKFbWy6y0K0tF1no1paLLHRry0UWurXlIpt3P2y59+e7HbBdsD2wfbADsEOw
I7BjsBOwU7AzsHOwC7BLsCuwa7AbsFuwO7B7sAewR7AnsGewF7BXsDewd7APsE+w
L7Hv3LYtl1joti2XWOi2LZdY6LYtl1joti2XWOi2LZdY6LYtl1joti2XWOi2LZdY
6LYtl1joti2XWOi2LZfYvPv/AHK0ustK9AEAAAH0Sg==

`turtle world`
H4sIAAAAAAAAAFXSC1PTQBSG4Q/bUgUtIt4QRRRR8Y7iFQS8i6CigHewoV2aSkgy
6TLVX8Nf5d1thhkz88yck+ye3exZVap2J7ORGWnZwJrqnPafXXVHJm7YkPilShuZ
MXXCS+pJo8S2m/WGseSTKrs8NTHJLZVqSZRkhGdV/Ffz0WH1+uL71R7pIMPrSTtO
ye6q1AqD1BBeU/FvZ05RhXaY+H10t8J85D2VQxPUm3GD5DgKTE072xI1g2zLNrdd
oa5OlkaB29UBrxIlcWOF70t8MZkf1UftzP730g3eRp9bGkdQQQ96UcYht5z/M7dT
qZTPK+RH14XTGMApDOOiPzvpCm7jjv9f6QEeYwazeIPXuIkP+Iwn+I55TOMjfmIJ
q1hDDe9QxR/8xgWc8G2RjuJGfm5j6Mc5jOIMzmMFl/Ee13EM4xjCFAYx4nsrnfTX
QnqFL7450jffXGkB9/EQy3iOT3iBwN8Z6a1vvfQVc5iAuxzPsI4IG7iKX9jEIp7i
R94j13h3F7bg2t50h78HPQuDLtMCAAAAAALT