Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", "
", " ", 
  RowBox[{
   RowBox[{"DynamicModule", "[", "
", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Square1", ",", " ", "Square2", ",", " ", "Square3", ",", 
       "Square4", ",", " ", "Square5", ",", " ", "Square6", ",", " ", 
       "Square7", ",", " ", "Square8", ",", " ", "Square9", ",", " ", 
       "Square10", ",", " ", "Square11", ",", " ", "Square12", ",", 
       " ", 
       RowBox[{"Step", "=", "0"}]}], "}"}], ",", 
     "
", 
     RowBox[{"Labeled", "[", "
", 
      RowBox[{
       RowBox[{"Dynamic", "[", "
", 
        RowBox[{"Pane", "[", "
", 
         RowBox[{
          RowBox[{"Grid", "[", "
", 
           RowBox[{
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"{", "
", 
               RowBox[{"(*", " ", 
                RowBox[{
                 RowBox[{"Row", " ", "1"}], ",", " ", 
                 RowBox[{"Box", " ", "1"}]}], "*)"}], 
               RowBox[{"Square1", ",", "
", 
                RowBox[{"(*", " ", 
                 RowBox[{
                  RowBox[{"Row", " ", "1"}], ",", " ", 
                  RowBox[{"Box", " ", "2"}]}], "*)"}], "Square2", ",",
                 "
", 
                RowBox[{"(*", " ", 
                 RowBox[{
                  RowBox[{"Row", " ", "1"}], ",", " ", 
                  RowBox[{"Box", " ", "3"}]}], "*)"}], "Square3", ",",
                 "
", 
                RowBox[{"(*", " ", 
                 RowBox[{
                  RowBox[{"Row", " ", "1"}], ",", " ", 
                  RowBox[{"Box", " ", "4"}]}], "*)"}], "Square4"}], 
               "
", "}"}], ",", 
              "
", 
              RowBox[{"{", "
", 
               RowBox[{"(*", " ", 
                RowBox[{
                 RowBox[{"Row", " ", "2"}], ",", " ", 
                 RowBox[{"Box", " ", "1"}]}], "*)"}], 
               RowBox[{"Square5", ",", "
", 
                RowBox[{"(*", " ", 
                 RowBox[{
                  RowBox[{"Row", " ", "2"}], ",", " ", 
                  RowBox[{"Box", " ", "2"}]}], "*)"}], "Square6", ",",
                 "
", 
                RowBox[{"(*", " ", 
                 RowBox[{
                  RowBox[{"Row", " ", "2"}], ",", " ", 
                  RowBox[{"Box", " ", "3"}]}], "*)"}], "Square7", ",",
                 "
", 
                RowBox[{"(*", " ", 
                 RowBox[{
                  RowBox[{"Row", " ", "2"}], ",", " ", 
                  RowBox[{"Box", " ", "4"}]}], "*)"}], "Square8"}], 
               "
", "}"}], ",", 
              "
", 
              RowBox[{"{", "
", 
               RowBox[{"(*", " ", 
                RowBox[{
                 RowBox[{"Row", " ", "3"}], ",", " ", 
                 RowBox[{"Box", " ", "1"}]}], "*)"}], 
               RowBox[{"Square9", ",", "
", 
                RowBox[{"(*", " ", 
                 RowBox[{
                  RowBox[{"Row", " ", "3"}], ",", " ", 
                  RowBox[{"Box", " ", "2"}]}], "*)"}], "Square10", 
                ",", "
", 
                RowBox[{"(*", " ", 
                 RowBox[{
                  RowBox[{"Row", " ", "3"}], ",", " ", 
                  RowBox[{"Box", " ", "3"}]}], "*)"}], "Square11", 
                ",", "
", 
                RowBox[{"(*", " ", 
                 RowBox[{
                  RowBox[{"Row", " ", "3"}], ",", " ", 
                  RowBox[{"Box", " ", "4"}]}], "*)"}], "Square12"}], 
               "
", "}"}]}], "
", 
             "}"}], ",", "
", 
            RowBox[{"ItemSize", "->", 
             RowBox[{"{", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Scaled", "[", ".25", "]"}], ",", 
                RowBox[{"Scaled", "[", ".25", "]"}], ",", 
                RowBox[{"Scaled", "[", ".25", "]"}], ",", 
                RowBox[{"Scaled", "[", ".25", "]"}]}], "}"}], "}"}]}],
             ",", "
", 
            RowBox[{"Background", "->", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                "Green", ",", " ", "Blue", ",", " ", "Blue", ",", " ",
                  "Green"}], "}"}], ",", " ", "None"}], "}"}]}]}], 
           "
", "]"}], ",", 
          RowBox[{"ImageSize", "->", 
           RowBox[{"{", 
            RowBox[{"600", ",", "414"}], "}"}]}]}], 
         "
", "]"}], "
", "]"}], 
       ",", 
       RowBox[{"Dynamic", "[", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"\"\<Your steps: \>\"", "<>", 
           RowBox[{"ToString", "[", "Step", "]"}]}], ",", 
          "\"\<GenericButton\>\"", ",", " ", "Bold", ",", "20"}], 
         "]"}], "]"}], ",", "Top"}], "]"}], "
", 
     ",", " ", 
     RowBox[{"Initialization", ":>", 
      RowBox[{"(", "
", 
       RowBox[{
        RowBox[{"Wolf", "=", 
         RowBox[{"ImageResize", "[", 
          RowBox[{
           GraphicsBox[RasterBox[CompressedData["
1:eJztlduNLLuRRQ9GlsiS8WFMEKBvOSpjxoT5mQBupaqbxWI8dgTXBi4W1sVp
ckcmmfX3f/zrf/75tz9//vz7///7rz+W//3vPy/BcRzHcRzHcRzHcRzHcRzH
cRzHcRzHcRzHcRzHcRzHcRzH8U989e+q++E4juM4juM4jj/z6d9V98VxHMdx
HMdx/B6P3qd6PhzHcRzHcRzH53j0PtXz4TiO4ziO4zg+x6t7VM+P4ziO4ziO
43gfV+lhrtIDx3Ecx3Ecx3E9V+nxk6v0wHEcx3Ecx3G83lV6fOoqPXAcx3Ec
x3Ecj3eVHl6u0gPHcRzHcRzH8XNX6ZHlKj1wHMdxHMdxHN93lR5VrtIDx3F8
uqv0UHWVHjiO4+oevU/377JKDxzH8WpX6YF/5io98Bzf/bvqvnitP/9/dR+1
358Vs/t4u0oPHMfxbr8PeK2r9MC/c+91q+dR8+f/r+5TfX669T31FbP7eLtK
DxzHcbXvP97bVXrg7z16n+r5qn3176r7TT8/0f1WvmJ1v2hX6YHjOK7SA+/p
Kj3wnH2q54t+HqfrVc+rfn5W3qXfp6zu6+0qPXAcn+8qPaJ+L6r74Xuu0uOZ
W/p7e/X8as9j5dU9qvZV8dPfk1Oe9ld3lR44jvdzlR5e3/vo3wP1ftO9ukf2
vt367vr094f3cu/vdfXvQbffG5UeOI7Xu0oPr+959HeuG3fnm+7T74+3V5+n
275/uLZ7f3+rv/fdfj9UeuA4nu8qPVS+39F9utFyi0+7T95efV5u+x7i2u79
Pa3+nlff711X6YHjuL+r9Ij6Xqv1uZ2Wqd79fnmvV/3+p30P8V7u/b3sxmf/
alfpgeP4uav0UP1+wlhaprj6/Xp69X053e/bfj/9u+w++Gz3/j5247O/mqv0
wHFcp0fV9z17f5hLC/6dRz9/3m9v7/4+qs8X/J0WFVfpgeM3ukqPqu979f5Q
ixb8vUc/X95nb+/+Pqr7w99pUXWVHjg+wVV6dHUI/0qLimf3i36et72/lavP
0/35q50n+DstXVylB453dJUeXR3C32hROZ/Z+3k/v+nva+Xq83R/H+r94e+0
dHWVHjiu4Co9bnUId2ipOo/R63fnc15vp39u/27npxur+z/37+4qPXA8w1V6
qHr29w/C32jpet6n8zmvt3fr3/35d+vfjdXzrPY/7Xe6frSr9MDxb1ylh4pn
f/+8+8C7aVG9D7fT0uX5rPqq9d/tq9a/+3npdr6y99/dr9pVeuD4O1fpoeLq
3yMIf6NF5T7A32mp7uF1vqq56qfWd/p5UT9fq/3U9q92lR74na7SQ8Wrvzdq
31M4i5aq+wJn0VLd41ZaqntkzXf7vOqu0gO/w1V6qHj094XvOVSipeo8Qwj9
7u80Pue7fd5urtIDn+ne63a/n979+Z7DTrRk3ScIIfyJlk99GlfzdnOVHvgM
9163+/097VP9PYPQkxaV7wGE8B5aPvVpXM3bzVV64D09eh81dut72zywNy2c
TwhhNC2f+jSu5u3mKj3wHh69D/SlhecNFWnhewEhjKblU5/G1bzdXKUH3sOj
94G+tFT3gPATWrwcQgiNlk99Op/zdneVHrimR+8DfWmp7gHhN7R86xBCaLR8
6tP5nLe7q/TANT17X7hHC88TTqQlyyGEc2nh/v95SdTzWK3v7VX74pqevS/c
o4XnCW+gJcohhHNp4f7/eUnU81it7+1V++I9XKXHLd+j1Xwrh3AyLXxfIISn
34vbaFF5/t5etS+u6So98M8cwpto4b5BCHe/D7fRorJ/tqv0wHM8eh/OVa5D
eBMt3DcI76OF+6lByxRX6YG/9+h9bjvvag7hZFpUHEKoc/9hLi1TXaUH/t6j
97n9/Fc7hDfRouoQQr/7DbVoucVVetzq0ftwH7QcwptoUXEIIZxKy62u0uMW
z963232Yfp8hvImWLg4hhF1o+da916t2lR5TPXvf6vuR3be6/65DeDMtqg4h
hKq0fOve66m5So+pnr1v9X3J7qs+39MhhDr38XaHEPah5dv7vPr77q7S41N/
/v/qPrt9vT37vqj1VZ/36RDCuvuH/+4QQh1avr2vq7+f5io9nunSd7f/qVff
H7W+1fPtOoRQ5z7irw4hrKPF636u1pvm1T3U+532j/bo+1Pdr/r74e0Qwj73
dZqrvR94Fy3VPVRo8Xo+q/VOPXu/T/tE7aPeT23eXc++T9X9qr8n3g4h7Ht/
8T2Hd9NS3UOFFq/ns1rv1LP3+7af17pqfbI9ep/q+1XdT33+lUMI+9CCf+fR
zxNq01LdQ4UW1e9V9n7efrpO9f7Vnr2v2vmP7pf9fYl2CGFfWvAah9q0VPdQ
oUX1e5S9X7Sv/l32fupe3UPtPkT3q/7+eDuEsC8tuI/D3rRU97iFlqrnv9p/
uqv08PLsfdXPZ3eu5jt1COEcWvD3DmfTUt3jFlqqnv9q/+mu0sPLs/dVuy/V
/arnPXUI4RxabnF1du+vRgvPU4MWlfe/6rP792qu0iPKs/dVO6/Z/dTnXzmE
cC4tU119fuhLC8/7Tlq6fg9OXaVHlFf3qD6/1f3U5185hPAeWvDvHMbSwvuA
f03WefJ2r/Md3bPKq3uofc+y+6nPv3II4T204N85jKWF9wE9aFH5Xnz799E9
VTx732p266t+HyGE99Jyq8NaWng/0IMWle/Jt38f3VPVs/ftdj67czXfrkMI
4U+0dHVYSwvvD2bQUuWnfVTmqPLqHurnsztX8506hBD+RIuqQy1aeH8wg5Yq
9zr/0T1VvbqH+nntztV8pw4hhJ/Sgr/322jhecEKWlTu+7d/H92zi2fvW83u
/ZkfQgg/o6W6xy20eDmEJ7RUuXc/lblUPXvfbue5O1fz7TqEEMI7aYlyCE9o
qXLvPipzqXr2vt3Pczfuzrfr8JUWnheEsBstUQ5hJC0q59lrfe/eU7y6R/fz
3Y27860cvtLC84IQqtPi5RBW0pLl0X2q5urq2ftWc9o8zF9Lyy3PZ/p83BcI
IexBS5ZH96maq6tX95h23tV5Ot/Tb6Nl6vPZnW/l6jydb+UQQghjaIny7D5Z
c0316h7dz/vT1Xg6z8qncTXvrnfvH+3T5oMQQhVaqntEzePt2X2y5prq1T26
n/eVq/F0npV352q+Xe/WFz9zCCGEMbREeXafrLlu8ex9q+k9z65Xc9o8au87
6/t3y/Os9urnBSGERkt1j6p5Tz27T9QceM2+1fSeZ9er6T3P09V4Ok+1q/N0
PnWvnh9CCI2W6h5V8556dp+oOfD3Xt2j233w9mnzT5tn12EsLV0dQgiNlp/8
Nlq8PLtP1Bz4e6/u0f1+nPr0+bv19e4Pz2iZ4hDCe2n51LvxtP/z73dd5X2d
zoF/5tU9quk9j7dPn/+27zvco6WLQwjvpeVb70bveVbrna6f9f5O18G/8+x9
q+k9j7ffPv/T4d20qHr1/BBCnfu48m6Mnme1vvd+Ue/zdB3cx7P3rab3PNE+
bd7uXM03zadxNW83hxDqfA/UWT1Pt/1/6nO6Du7j1T3U72+1d5+/G3fnw199
GlfzVjuEsO7+qlNtvq777/4dnuPVPbrdZzVXn1+Np/N4+/T5nj6Nq3mjHcKb
aeG++cz39Ox+as+j6pzhn7lKj673u9rV5q+m9zy73o2783n7NK7m9XYIJ9PC
/XrP0/meXt1X7fmonEP8vUfvc3oO1M5zN5/2/VM7T/CVlq7nSW3+XYezacF9
XJ2n8618Op/z7rrKOcXfe/Q+p+dA7Tx396z7XvX+oBYtXc6X2ry7DmfTgn/n
6jydb9erGd3nuf6uq5xb/L17r+t9vqrP73SPuu9Z7wv2okXlvHWb9+nwLlrw
GVzN5+3VzO632u/TPqfr4DF+uk70eas+v/jvXv1+YG9app6H03lWDuFfaZnq
3bmaL9rV5q3e/9N+p+vgPu69rvr5w2Nd7X3B3rRMef+n86wcwt9oUfHpfM5b
7dXM7rfab9dV3uOtHr1P9fnHe7v3+4azaOlyHk77qs0DIay776eu/jyq9/+0
n/e6+GcevY/afcC1Pfo8wNm0qJ6H3X7q80B4My1dXP35qPX5qd/pOriPR++j
fh7xWs8+H3A2LV3Oo3pfCGHeffb2aqr13e3zU7/TdXAf915X/fzhtV5NtT4w
l5as87Dab9chhH3ua7SrUa3/bp9P+3qvi3/n3ut2O494rldTvR+MpSXr/a/2
23UIYd/7Gr1+NdX67/b5tK/3uvh3frqO+v3Atbya3vOoO3ylJer57a4f3QfC
m2mpuo/R63d7nl37nq6Dx/jpOurnD9dyNZ7O083hKy1Rz293fe/9q5+XWn84
m5Ysn37fu99/r76n6+A+7r2u+vnDtVydp/N189tpiXpeu+vjrw7vpkX1vGXv
1+35V9Or/+k6uI97r6t23nBt78bd+U49uy98pUXl/eCvDmfT0uU8Ve+v/vyn
9PdeF//OvddVO2+n/av7TPfuXM0X7dF9b6fl1u+husPetHQ9L9n7dXsf1Yya
x3td/Ds/Xaf6PHl79/7dvDtX80W7Wv/uXM236+r9ujvsRUvX81C9f/V8u17N
qHm818U/c+91s89T9/XxV5/G1bze3q3v7T6dz3mjHWrT0vV9qvdTu5/V9J7n
6Vn74O/de93s81W9fvX9mebTuJo32r37VXO3r7rfRgvPcyYtvK8etEy9f6fz
rDxrH/y9e6+r9n3L3o9zvee30aLiMJeW6h6qtHCeIay/TytX5+l8T896rvhn
7r2u93mKPr/d71M3h7/TwvOfQQvv4zNaON8Q5t+flXfj7nwrz3rO+Gfuva73
eYo+v93vk5pDCLkvUc/r1CGcRAv35bv5Vp71nPHv3Htd7/MVfX6rudtXzSGE
3J+q57frEE6i5db7sTvfrmftg3/n3ut6n7fT9bpxNU+1Qwi/v7/wd1q8HMLJ
tNxy/lfznnrWPriPe6+bff+8+1RzNU+2Qwj97u/ttEQ5hHAuLVGetQ/u497r
ep/H03PVnav5oh1C6Hdfb6clyiGEc2iJ/l5E74PHuPe63ufz9Jx152q+aIcQ
+t3P22iJcgjhXFqiPGsfPMa9160+v9O4mjfaIYTcH6/nsesQwntoifKsffAc
9163+jxP42reaIcQcl8+nd/bIYT30OLlUeviGh69T/R5ns7nvNkO4U203Hpf
VvNFO4TwHlqiPGsfXMO9140+z9P5nDfbIZxMy633YzWft0MIodES5Vn74Bru
va73eb6NliqHcBItt96H1XzeDiGEP9Hi5VHr4j3ce13v83sbLSoOoTItt573
3fm8HUIIf6IlyrP2wTU9eh/vczadz3mrHcJKWm4936fznTqEEH5LS5Rn7YNr
evQ+3udsOp/zqjmEnrTcel5P5/N2CCH8lpYoz9oH7+ne63qfu+l8zqvmEO7Q
wnn8bj5vhxDCKFqiPGsfvKer9Ng9z1O4mlfN4d20cN7ec3c+b4cQwixaojxr
H7ynR+8Tff67czWfukMtWlS9G3fnO/Vu3J3v6fSFsC8tUZ61D97To/dROf+q
PJ1PzaEvLV28O1fzebs6T+fz9up+EML8+xa9D97To/dRvQ8qPJ2nm99GyxTv
ztV83q7G03luc7hHS3UP5smhJfr+Re+D9/TsfdXux2k/9fvfzdV5Op+aT+dz
3mivpvc8u969/9PhHi3VPW7tX02L9/3zXhef4dU9qu+Hdz/1efDeDl9pmfL8
o/vvujpP53v67bRMeX7d+3ejxfs8ea+Lz/DqHmr3ZVpfvJfDPVqmvI/oeVbe
nav5Vn4bLVOfX/f+3WjxPk/e6+IzvLqH+v3B73KoTYvq+/bu5+230XLL81nN
F+3d5oG+tHi/H+918ZmevW+3+4RrO5xFi8r58O7j7fCVlinPb3eebFefD8bS
4v2+vNfF7/DsfavpPQ+u5VCbllsdntHS9Xnv9s/2bv1hLi3e7897XfwOz95X
jafz4Fp+Gy1dnseq7zSHvrR0ff67/bO9W38YS4v3+/JeF7/Tq3tM53NeXNvV
33d3rubLdtiLFtX3ueqH7zmspcX7fXqvi9/p1T1upwXHb+BzXm+Hs2lRff+r
fvjvDrVoOX2fp+vg+DtX6VF9T1VpwWc4hPBzWrrcp1Vf/NWhFi3e79d7XRxX
6sH37T0teA+HEH5PS5f7ttv3Noe9aDl936fr4PgnrtLj2/t0Gy04hHAaLV3u
/27faQ5703L6/k/XwfFvvLrH6f26jRYcQjiNFtX7v9tvmsPetHifB+91cfwT
r+5xet9upwWHEHajpcv93u07zdWeF/ydFu/n7b0ujn/j1T28799ttODvHUKo
Q0vX+3zaH/f122nJft7Z++K4Uo+s+zudz3nxM4cQ1n2P1Hk6H77nt9OS/byz
98Xxd67Sw+v7FL1+d1rwGIe1tPC+NGi55f3szofv+W20qLhKDxxX6qFyv2+j
per9Zu9X/TygLy1TXI2n8zx9Op/z4md+Gy0qrtIDx9+5Sg/V+z6dz3mznfcJ
T2jBNfx2WvDP/HZaVFylB46/c5UeU+5/d67my/bsfnAWLVHvf3f9aoe5tODv
/TZaVF2lB45/4io9qr8rU/pXz+/t1X1hb1p437CCFhz+NSqu0gPHP3GVHl2/
b9PnU/uuqfWFvWjhfcMKWqY6fKVF1VV64Pg3rtKj6/dw+nxq3zn1/lCbFt43
rKBlisPfaal+P9U9cNzDVXpM+R7uzrfr6jydz9vV54G1tPB+YQUtXRzu0ZL9
frL3xfEKV+kx5Xu5O9+uq/N0Pm9XnwfW0sL7hRW0qDrco6X6fVX3wPEIV+kx
5Xu5O1+0q/F0Hm/vNh/0peXb57/797vrw7toUXG4R0v1+6rugeMZrtJjyvdz
d75sV+PpPKfefT54RovX895db3d9OJuWKodntGS/r+x9cVzBVXpM+Z7uzlft
ajyd59SrOW0edVq8nt9qvV2Hs2lRcbhHS/X7qu6B4xmu0mPK93N3PnVX5+l8
uw5n0RL1vlfrnzqcRUuVwz1ast9P9r44ruAqPaZ+T3fn6+ZqPJ3n1GFvWrLe
72q/U4e9aalyuEdL9vvJ3hfHFVylx9Tv52q+aj/t24278+067EVL1fvd3f/U
oTYtnI8etGS/n+x9cVzRVXpM+Z7uzlft0f3VeDrPrkMtWlTf52m/6v7wjJYq
h3u0RL+P6H1wvIOr9Jjy/dydL9vV5lPn6Xwrh7W0qL6v3X6nDrVo4Txo0pL9
PrL3xXFFV+lR/R3q+j17erd5u3M1367DWFq6vJ/TvqcOc2lRcfg7LdHPP3of
HO/gKj26fi9P5zt1dZ7O9/Ru3J1v5XCPlin3Mbr/ymEsLVN9GlfzervKe8Rx
BVfp0fV7dzrf06dxNe+ud+dqvl2/jRZVv21+6EvLVJ/G1bynrvLecFzRq3uo
s/t83fvteneu5lt5d67mO/Xpz/+0/6nDPVqm+HQ+5/V2lfeI44qu0qP6O+T1
vVJnt/6rvrs+jat5n96Nu/Oduvf+1Tztf+rwd1qm+HQ+5412lfeK44pe3UON
6v2qv7fV9J7n6dM4fd7VfKfe/T559z11+EpLV7+NlujnGb0Pjnd0lR7V36Fb
aJn6PqfNk/28pvE536lH79fteXj77bR08dtoyX6+2fvieAev7gFjaeH9+sxz
6rCWlqr3l72f+n14+m20dPHbaIl+ntH74PhEr+4BY2nh/frMc+qwlpaq95e9
n/p9ePp0PudVc/hKS/Tzjt4Hxyd49r4wlxbe73dczZvtMJYWlfeTvR/nP5er
eav9dlqyn3f2vjjewat7wFhaeH8xtKg69KWl6n1Er9/9/Hfnar5sv52W7Oed
vS+Od/TqHnCPFt5PT1pUHf5OC8/3PZ/zZns37s4X7bfTkv28s/fF8QmevS/c
o6X6+wpjaOni8JUWnudn80a7Ok/ni/bbaKl+3tU9cLyjR+8zjat51RzOpqWL
T+dz3l2fzue83q7O0/mifRpX82a7Sg8cn+DR+3Tj7nxq3o278z0d7tGi6t25
mm/l0/mc19vVeTpftHfnar5sV+mB4xM8e99qes9T7d24O1+2wz1aprja87qd
linP73SeaO/G3fmyXaUHjk/06H34np15N+7O193hGS34Z34bLVOe1+k80d6N
u/NFu0oPHJ/o0ftM/z6tvDtX8+G+Dmtp6epQm5YuXk3vebJdpQeOT/Tofbp9
v26jpatXn+9qh1q0cB7gO1pUvZre82S7Sg8cv8Gj9zn9XsE9WqZ49/Ov5rA3
LbzvnrSo+u3z77pKDxy/0b3XhbG0TPXqHlX7qjjUpoX324OWLn77/CtX6YHj
N7r3unCPlltcpYeXq/RQdVhLC+9Lg5YuPm2eXVfpgeP4f7r3urfTgmv1qHKV
Hire7T5252q+lcMzWrr6tHlWrtIDx/G1e687jat5b3eVHl1dpYeqd7+/auze
vxstuIar9MBxfN+j91Hn6Xy3u0qPqa7SQ9Wn32/17x/cowWvcZUeOI6fu/e6
fO97u0oP/DtX6YFrevT3Fv5OC+7jKj1wHM9373X5vvdylR54jKv0wO9w+EoL
HuMqPXAcz3eVHriPq/TAZ7hKD3yGT+dzXnzPVXrgOK7vKj3wz1ylB46/c5Ue
eA+fxtW8t7tKDxzH+7tKj6mu0gPH8fmu0sP7+9mFu/N1d5UeOI7f5yo9prhK
DxzH8Wnfe3WezqfuKj1wHMdVevD9xXEc13aVHs/veRW958l2lR44juPdfn9O
XaUHjuP47V7dI5vR85y6Sg8cx/Epvy/VPXAcx/FYV+nx/P3xYnb/lav0wHEc
V/s9qe6P4ziO9/TqHqes7r9ylR44juM4juM4foNX91hRpV91DxzHcRzHcRzH
dXqouEoPHMdxHMdxHMf3XaVHlKv0wHEcx3Ecx3H83FV6RLlKDxzHcRzHcRzH
412lx0+u0gPHcRzHcRzHcX2v7lE9P47jOI7jOI7jfTx6n+r5cBzHcRzHcRy/
x0/Xqe6P4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4z38/wAknhcZ

             "], {{0, 0}, {204, 204}}, {0., 1.},
             ColorFunction->GrayLevel],
            Background->RGBColor[0, 1, 0],
            ImageSize->{127.20000732421838`, 127.19998786926385`},
            PlotRange->{{0, 204}, {0, 204}}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "140", "}"}], ",", 
             RowBox[{"{", "130", "}"}]}], "}"}]}], "]"}]}], ";", 
        "
", 
        RowBox[{"Goat", "=", 
         RowBox[{"ImageResize", "[", 
          RowBox[{
           GraphicsBox[RasterBox[CompressedData["
1:eJzt1e3N7biSHtCGHclEMjk4BAP+7RQngAnGIXj+EHOvbu9TKpEUi9Qi0Hiw
TrOoqq2P99/+9//9X//nf/7111//+V///cd//fc//mrr//37X/+0mJmZmZmZ
mZmZmZmZmZmZmZmZmf/Ovees7p+ZmZmZ+Uuu0scvV+mDmZn575a/d8xczVX6
8H1kZuZKrtKHv5/MvPv3LZtPzx/dNzMzn+0qfVR1lT6Yef33LvtdyOao/nrP
YWbms12lj6qu0gczz//e9ebo86Pz7l6v9xxmZj7L2brRfx/fzmi+X/1l65i5
nqN9s78vb3+/fl2/9xxmZt7b2brRf79W57WfyKvvF/PJ7j3na9+7p/Nk65iZ
+WxH+6r/PfT3k7muq/TR+/5Xyd55rs7evyr3hZn5tL9H1X+P0X+vqv/9rPJc
MO/oKn2M/j5X/V697Sp9MPP3XKWPXb+nT/sb9fer+t/TKs8F846u0sfo73OV
71W171SVPph5P1fpo4qr/97Vs3e+q6s8F8wV3XvO7Pd59Plvf6+qfQ+zrtIH
M9dzlT6qfE+r//6z8+kcVVylD+Y33HvO6uztf7Sr5ah5es9h5vOcrRv9/ar2
/az++19d5e/LW9cb1e/qPphnOFv3dmb7650n+v+75XWeyKufR2bex9G+0d8r
38u//nb19j+qfvX9mO0qfTCPcLbu7cz2V32e3X6/1c8nM9d1tG/292v197L6
7z/b1f+ejb5Pq+8380j3nrP6fa7296NaXufNevXzycx1na2r/v1+Ok+27i33
nnN6XueNvPp+Ms90lT5Wv9+nZDTv1VXuOzPXd+851XLUPL3njPLoc0/LaN6r
V99P5jc9+zrV3u+3+6s2/+rnjZn3dbauembnme2378+v65+S0bxXV3kOmFc4
W1ctd+/f942Zd3G2bnVm+13tt+/Pr+vvmtF8V1e578wrnK2rlrv37/vGzLs6
2rc6785RxW/fn1/X3zWj+a6uct+ZVzhbVz1Pm8f3jZmrukofs773b59393p3
60Zdb5d8Ol+2jvkEZ+uq52nz+L4x8y5e3Uf1HDXf03OeXm+XfDpfto75RGfr
quXu/fu+MfMpztadntd5s3Z//pxP58nWMZ/o3nNW5279+r4x81ecrTsto3kj
ux9/zqfzZOuYT3TvOatzt35935j5K87WnZ7XeSO7P3/Op/1n65i/4Gzd6tyt
X983Zv6qs3WnZTTv1dXux6/+/J7M+7v3nNW5W7++b8z8VUf7Tsto3qur3Y9f
/fk9mc9ztm517tav7xszf9XZutMymvfqavfjV39f/f2YT3K2rlp+tf9sHTPz
amfrds9ovqvdj2dzVPk9mXdy7zmrc7d+fd+Y+avO1u2e0XxXux9/zqf9ZuuY
v+hsXbX8av/ZOmbm1c7W7Z7RfFdX+/1/9ffV34/5ZEf7quXduarO87TfbB0z
82pn607Lu/NG+0Y5W7c67/aXnYuZ83XV8vT+Vz8fzMyjnK3bPaP5rnY/ns2x
6vdj3tnZumr51f6zdczM1Rzt2z2j+a6u9vv/6s/vx7y/s3XV8qv9Z+uYmas5
W7d73p0v2jfK2brVebe/7FzMHO+rlnfnWt3n6P6zdczM1Z2t2y3vzhPtG+Vs
3ep82m+2jvmLztatzt363e3vAzPzKkf7dstonl/zZevu+mk/fj/m89x7zi7f
g6p5t/9oHzPz7s7WVc/sPL/m6z3nunb9fZ/2n61j/qKzdbu8/1Xz6TzZOmbm
3Rzt2y2jeSLP/j1/Xa9KPu0/W8f8RWfrqr7vu+TT+bJ1zMy7OVtXPbPz/Jrv
bt3T86tmdp5f8/Wew3yie89Z/b7vlk/ny9YxM+/mbN3uGc139dd/v6fzZeuY
v+Dec6q837vk0/mydczMuztbt3tG8139td/r6XzZOuYvOFu3y/teNZ/Ok61j
Zj7N0b7TMpq317tnNN/Vq59f5krO1u3yflfNu/1H+5iZv+5o32kZzRv59LzO
e/Xq55W5krN1q3O3fn2fmJnnONp3WkbzZn1aRvNevfr5ZV7pbN3q3K3fbP+r
nwdm5l2crTsto3kjn5bRvFevfn6ZV7r3nF3e7yr5tP9sHTPz6c7WnZ7XeSOf
ntd5I69+nplXOlu3Oqv35/vEzPyOs3Wn5dfm7f09Iq9+npnfdO851d/vavm0
/2wdM/PpztbtntF8V38928r+Xtk65h3de87qrN6f7xEz8zuO9u2e0XxXV89s
v737I69+fplXuvec1d+P1f289T3P1jEzn+5s3e65+3y9/Ub11/+f9ernmXml
s3Wrvx+r+5k9z6/5snXMzKc72rd77j5fb7/Z+uv+yKufX+ZK7j3H97Cv/1/z
ZOuYmU93tq56fm2eKr9fto75RPeec9r3ZPU8v+bL1jEzn+ZsXfU8bZ7V2Vb0
+0X7mL/obF2V93mXjOb5NV+2jpn5NGfrqudp8+zy+2XrmL/g3nPefr93z7vz
RfuYmU93tq5aZvuvPs/qbCv7+2XrmL/obN3b7/fuGc139erngZl5lbN11XL3
/qtlW9nfM1vH/EVn695+v0/LaN6rVz8fzMxvOVtXLXfvf3W21ft79p7D/AX3
njP7fT8to3mvXv18MDPPcrauWu7Wb/VsK/v7ZuuYef33ePb51TKa9+rVzwMz
8yxn66rlbv1Wz7ayv2+2jpnXf4/fvt7qjOaLvPr5YGZ+6mxdtdy9/2rZVu/v
23sO8xedrVv9/p+W0bxXr35emJnvuvec1bl7/9Wyrd7fs/ccZs7XVXn/T8lo
3qtXPy/MzL/ce87q3K3f3bKt7O+brWPmet/r2efvnm35PvIOHn3u6nn4z+49
p1qeNs/qbMv7z1zfvefM/j58LdvyvazhbN3qfqv9Hr1ePS//9bfrlO/5afOs
zra878z13XvO6O+B/Odsa5fv56rrMlfqY1f3nlM9T59vdbblfWXez9m6Wd+D
XTM7z3V/r6s9H/xtj36fVrtKH089+zqr87R5qmdbX3l/mE92tm7W92HX7J0v
2h+d/6v+bl32/LvXl/KNbGuVq/RxXbu+z6P7jyz/nG2d8n4w829H+2Z9H07J
2fNdz3/bUn4p28q+H9m6p+49p9rv12s5Ntuq+vwz8zjPvs7pOXve6/mzLf+c
bfn9zsy2svc7W/fUT/ur8nuNthybbVV9/pl5nGdf5/ScPe/1/F7LP2dbfk/5
j2sX7zavXJttZe9Xto6Z67n3nK9nW6u+z7Iv26pyP3uvnz2/93qnZ1tVXW0+
uVe2lb2/2Tpmft+jz5X/nG2t+j7LXLbl/skZ2dbT5yGqn/08vt2P92VtthX9
3tE+Zl7v0efKtdmW+/Ms21rdh5T/uJ569vWq/R6rzzs924p+r2gfM7/v0efK
WtmW+/Us21rdh/xmtjXKo69X7ffwvr+bbWXvT7aOmcc7Wyf3yrbcTyn3y7aq
eHWO7qfafLtlW9nnJ1vHzOMd7ZN7Z1vur5Tfy7ZGeXX/s38Pmcu2sr9vto6Z
xzvaJ8/Ktlb3IaVc//5HljKTbUXPU7SPmce79xwppZR7Zlt3LWUm24qep2gf
M8de3YeUUso9sq1flrIn24qer2gfM9fpI/t+SymllPI72dYv393HfIKr9LHK
UkoppTw/27rrp3XMFb26j973c9b7LaWUUsrvZFt3/bSOuYJHn/v2+7j6PCml
lFLun23d9dM65grO1lV7H996v6WUUkp5brZ110/rmCs6W/f2+zj7/ZZSSinl
97Ktu35ax1zRvefMfh9nv99SSimllG3d9dM65orO1s1+/6qdJ6WUUsrzsq27
flrHXNHZutnv3+j3V0oppZTymm3d9dM65oruPWf0+zfrfZVSSimlbNnWXT+t
Y97B2brR79+s91VKKaWU8le29ct39zHP8PXfZ58fefT7Nur9lFJKKaW8m239
8t19zCMc7Vt9/V/9jH7fZl1fSimllLKtX767j3mEo32rr/+rn9Hv26zrSyml
lFK2dddP65jvOFu3up/Z79vo60sppZRStnXXT+uY/86951TrL/u+jXofpZRS
SimfZlu/fHcf89852lft+Rx1zihLKaWUUo7Otn757j7mO/t2ez5nnZudT0op
pZRyVLb1y3f38TedrdvteR11zihLKaWUUmazrbt+WsffcLTv7ef37fl+XX/W
7y6llFJKGWVbd/20jr/haF/v8zmqPurzrrN1b79HUkoppZTXbOuun9bxNxzt
630+R9VHfd51ti7bx6z3V0oppZTfybbu+mkdf9PRvt7ndVR91OddZ+tGvY+z
33cppZRSnpNt3fXTOv6mo329z2vv8/32vHf7ebr/rfdfSimllPtmW3f9tI6/
6Whf7/Na7XnuPSfbV5XvgZRSSin3ybbu+mkdz3GVPnqfp1Of51nnVv8+SCml
lLJutnXXT+v4mav0McunP8+zzt3t95VSSillnWzrrp/W8d+7Sh+7ePTzXe3+
jn5fs+e/9f2QUkopZZ1s666f1n3Vs69T9fl463pP+5t1naf9rPq9dns+pJRS
Stmfbd3107qvevZ1qj4fq65/t7/R517XLr/XadeXUkopZZxt3fXTuq969nVW
59v9Rdf7df1s3V33nrP6/szu7+3rSSmllDLOtu76ad1XnK2bdX+qPD+rr/+r
n2zdde1yf6o9X29fT0oppZT/vUZ51rm7Ols3+v6tztX9XK8fefT9/HX+Lvn2
PNH1Zl9fSiml/EK2Ncqzzt3V2brTstq8UT+jfVq+PW90vdnXl1JKKb+QbT31
qHNOcbbutKw2b9TPaJ+W0bxXn/48SSmllCdkW0896pxTna3bPavPF/VXvf/V
2daq3+vt60nZk23NspRSjsq27vpp3Vecrds9o/myXt2f/HO2ter3W319KaWU
8sRs666f1p3q3nN2y+x8kav3+/Vsq8rvtfr6Ukrvq5R3sq3VfYx6X3/Nk607
xb3n7Jan9Z/117OtVb/X6uvLsdnWLvezWj+9v+/X+5FyZra16/Me9f9rnmzd
Kc7WyXezrVH+era16vdZfX2Zy7aq3r9sf6v73X2e1deX8s1sq+p5ve/rr36y
dbs6WydrZVujfHpe57169fXf7ufr2VbV+1G9v2rZ1qnXk3JltjWqPvLofu9e
L1u3q3vPkbWyLffzXrZV5feo1s9u2ZbnX34h2/K8fyPbWt3HrP6v/z/aP/v9
GfWe7eJsnaydbT316Xmd9+qv9yOl3Od70Ltf7pVtre5j1fMfedb71ttXVWfr
5F7Z1lvv0255nffqav2s7k+OzbaqPk+99XJstlX1foy+/ur53r7eaf3Nni/6
/7Pep2xdVfeeI/fKttzfv5/36mr9rO7v69kWP7Psy7aq/t6jr796vrevd1p/
b8+X3f/0eYv27epsndw72/rq/Y7mvVp/72Y0b+TV1+c+yz9nW1V/v9n9jT6v
2vVOu1/V7s91/6/6aN+pztbJvbIt9/fv5726Wj/V+n17Pv6z377u7OtIuTLb
Wt3HrHkin5Z35432nepsndw726p6f2f3cz1/9vVG9/d2/7397O4qfezq0edW
f/9W9y+/nW15fnPzRPtOdbZO7p1tVb3fs69/PT/y6sz2W93Vv29XV/ndTnWV
PnaxlP+YbY36vj2tr5pP58nW7epsndw726p6v2df/3p+5NWZ7beaq/Txy9d/
X93P112lj10sv5VtzfoePz2vaj6dJ1t3iqN98qxsa3Ufq/q5Xu/t64/ud7ar
9MHf9Ohzo/Or9z/acm22VeV7fff8XTKa59d82bpdHe2TsnK2Nev7sDrv9hft
Y+b9XKWPVd/H2f3v5mrPX/WM+v81T7ZuV0f7pKycbc36PlT7Pv3qr/ccZj7P
Vfrge67Sx3Wt+vs4OqN5fs2XrdvF2brqmZ0nsvxWtrXb8zn6XGbmq6v0Mev7
V72/1Y72Vc+o/1/zZOt2cbRvt4zm6bU8O9uadf+j8+9ev/ccZubRnn2d1fNF
867uZ/X9rZ5R/3fn6z2niqN91TPqP5on+/+j/XLvbGvU/Y7Ou3u93nOYmZl7
HO17O3v7iep/nZetq+psXbXs7Teqz1runW2Nur/Reb/Oz9YxMzPPdLTv7Xw6
x6jzVt+P2ffz6mqZ7Xf0fL31cm22tcpV+mBmZs442vd2Pp3jqVf//rPv39XV
Mtvv6Pl66+W72ZbvBTMz83Nn62bn0zmeevXvf9r9G32/e+9T9vqyVrbl+8DM
zDzO2brZ+XSOp179+592/0bf792vJ/uyra+8z8zMzCsc7Xs7n84R9T/63FXu
Pada9s7Ta7k22/rq+8zMzLzC0b638+kcUf+jz63ibN1uOXq+7H45N9vyPjMz
M7/naN/b+XSO0efs4myd/Ha2ter5iK7/q59sHTMzM/92tO/tzM6x+vdb7d5z
5LeyrVXPx9PrZ+uYmZn5vqN9szPb9+rfq5qzdfJb2VZVV+mDmZn5ZGfrZufT
frJ1pzpbJ7+dba1ylT6YmZm/5Gzd7Lx7/WzfX3HvOVL+Kdvqfb56z2FmZubn
ztaNzqfXz9Z91dm63TOab7a/lm15n5mZmfd1tG903r3e3f75z87WVc/sPG/7
a9mW95uZmXkfR/t6M9vX6t/jNGfrqmW2/9nzjL7e6H5Hn+d9Z2ZmPs/Rvt7M
9rX69zjd2bq3M9tf9X5n1799nvedmZl5P2frsvn0/GwdP/Poc0fn29eb3W/U
f3Z/b39v34+o/u75vecwMzN/2dm60X/fV8/Pf/boc2c9P1Uz23+0P6of/fv2
9ut7wczMXM9vX3f1vJxzlT6i56lKju6/t352v739Za//6/zec5iZmb/kt6+7
el4e67evWz1HzzP6vNHz9O4fNW+2jpmZ+cuefZ3V8/G7nn2d6tk7T7Y+e/7b
8/X28/T83j6ZmZlP8uhzV8/Dax3ti7K3vlpG86z26nnfOj9bx8zMzMz3HO2L
srd+dUb9j3bv/bh7ftW823+0j5mZmZmfOdoXZW/96oz6z3r2/XjaT5W822+0
j5mZmZmfOdoXZW/96oz6/zVPtm6UR59b7fde/fsyMzMzn+5oX5TZ+lF93+2v
t/9f1+vte5ZHnzs6715v9BzMzMzM/Pf/ns3ePlbn3f6yc1V1lT6+8nszMzMz
V/P137MZXad6Rv3/midbt6vfvu7qeZmZmZlPd7Qvyt76anl3nmjfKZ59ndXz
MTMzM3/N13/PZnSd3fLuPNG+rzrat7o/ZmZm5q/7+u/ZjK6zW0bz/JovW8fM
zMzMvMKzr5PNt6/Xe/3V94+ZmZmZOeNsXZTR/tHXm513+8vOxczMzMy8wtG+
bPb2VS3v9hvtY2ZmZmau4GhfNrN9VM+7/Uf7mJmZmZkrONqXzdHnrc5onl/z
ZeuYmZmZmd9wtC+b2T52y7vzRPuYmZmZmVc42tebs8/PXv+t86//zszMzMxc
wdG+3lx9/urrr76/zMzMzMx/8vXfR2fUx+z6VfNE+5iZmZmZV7hKH3e9Op/2
m61jZmZmZp7h3nOyOfv8t/Nu/9E+ZmZmZuY3HO2bndm+q+fd/qN9zMzMzMwz
HO17O6v1M7r/X/Nk65iZmZmZR/j676sz6nv2+b3Xe3p+to6ZmZmZ+Ymjfavz
7hxPXa3/1c8DMzMzM3/L0b7VeXeOu67e/+rngZmZmZnPdrTvmr3X7c3V16/S
f+85zMzMzPxNv33d3lx9/dHZO8/Vq58nZmZmZt7L2bpqme2/2jy9/VdzlT6Y
mZmZ+Z6jfdXy7lyjvHtG8/V69fPLzMzMzH2O9q3Ou/392hfV97pa9s5z9ern
k5mZmZnHOluXzVXn/doX1b/t3pzVz+hzmZmZmbmms3XX7O0jyqfn3a3Lnn+a
q/TBzMzMzGvce87svHv93jmua/V96b0fq/tgZmZm5j2crZudT/vJ1s1ytm51
v8zMzMz8bWfrZufTfrJ1zMzMzMz8r87Wjc6n18/WMTMzMzNz/zmj8+71evtm
ZmZmZuZ/de852Rx1vd5zmJmZmZn5X12lj+YqfTAzMzMzf9Gjz109DzMzMzMz
MzMzMzMzMzMzMzMzMzMzM3M9/3++VOLQ
             "], {{0, 0}, {192, 
             204}}, {0., 1.},
             ColorFunction->GrayLevel],
            Background->RGBColor[0, 1, 0],
            ImageSize->{126.00000686645461`, 139.99998664856085`},
            PlotRange->{{0, 192}, {0, 204}}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "140", "}"}], ",", 
             RowBox[{"{", "130", "}"}]}], "}"}]}], "]"}]}], ";", 
        "
", 
        RowBox[{"Cabbage", "=", 
         RowBox[{"ImageResize", "[", 
          RowBox[{
           GraphicsBox[RasterBox[CompressedData["
1:eJzt1d2NLLtuBtADOxJH4hwcggE/O1A7GIfg+0LcPX1mRl2tH1LSIrDxYQF7
REqlqv63//zv//ivf/3rr7/+5x///vcf//7lr6j/+/e/vhQzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM+/p7Dmy98/MzMzM
zPu4yhw/ucoczMzMzMzcdpU5bnGVOZiZmZmZK7jKHDzHVeZgZmZmZv7OVebg
M11lDmZmZmbe01XmYP7OVeZgZmZm5jWuMkeWn2a1ebPn2c1V5mBmZmbm91xl
jioenebd21XmYGZmZj7VVeYIP83q861O+zvLVeZgZmZmruIqc4RbWX2+7Dx9
f9Xuw2pXmYOZmZl5lrPn6M3R/Uevt3u29vvq07K139NdZQ5mZma+x1XmCPfm
7P6z1z8to245j9Z+eayrzMHMzMzjnD3H6pw9T2v92f1Pz6hTz6+1P77bVeZg
ZmbOdPYcs3P1PE/7je5/ekbdcn6t/TL/6SpzMDMz9zh7jtWZPV92f/l7Ru36
vHrnZ17pKnMwM3MtZ8+RndXmrTaPfJZRXNOe59muMgczM8919hzZWW3eavPI
voziGs7O0fvh311lDmZmfubsOapl9fmrzSPXZtSu79/o+Wf79oziWnMwM5/u
7Dmq5277qT6fzM2oU+93tuXvGXWLq8zBzLy7s+fYLXfbz27zytyMOuV97t3P
bMu+jDrFVeZgZq7m7Dl2y933t9u8slZGnfI+jN7faMu+jNrVVeZgZs52lTmy
f9dm/f5Vz9P2I3Mz6tT79HR/sy37MuoUV5mDmXm0q8yR/bu16veuep62H1kr
o069T639zbacm1Hvnn/r/892lTmYmXtdZY7s36FZv1/2J+W8+7d7tva32rIv
oz4976d/P9pV5mBmfnWVOd79nlfL0/d3+35lrYw69X619rfacmxGfXrerb8f
7Sr3kJm5yhzZvyOrfo9evXu29teylCMz6tT793R/qy2fZdSo8+5db9Q82XMw
83muMkf270aV35vds7XflqWcmVGn3r/W/rIt+zLq0/Nt/f1oV7l3zLy/q8yR
/TtQ5Xt/Wrb227KUKzPqlvvZ2l+25e8ZNep8e9f7tP/qvsy8v6vMkf07YP9z
srXflqXMzKhb7mtrf9mWzzLq3fNs/f/ZrjIHM9dz9hzZOXo/T317RjkveUJG
3XJ/W/tdbfl7Rn16nk//vtdV7hUz5zt7jmo5ej+9f39bRjkveUJG3Xp/X/eb
bfk1o3Z1lTmYeb5X962Wvft59eh+t2eU85MnZtSt97m139WWXzNqV1eZg5nH
e3af7By9n1fP7i+/ZpTzkydmlPv815fKsvyaUbu6yhzM/Nyz++z2/cyeVz7L
qKrPW8qZGXXr/X7d72rfnlGnuMoczNz26HV3+15W+97LZxm1y/OXcmRGue/f
73e1b8uoU11lDmYev26171+13H3+3TLKeUv5z7r1/r/ud7Vvy6hPz+fp32e7
yhzMN3j0utV+X6rl7vPvllHOW8p/lvv/15da5dsyatT5PF1vtavMwXyiR6+7
+vditzx9f7tllOch5fP34/R83e9o35ZRs86rd/3ZrjIH8wkevW7296t6tvb3
ajk3ozwfKce/P6dla7+9vi2jZp3P0/VXu8oczDt49LrZ36fd8nW/r5a5GeV5
Sel96t3PU9+WUavO52m/1a4yB3NFj1539Ht3er7u99WyVkZ5XlJ6v57O3+vb
MmrVebT6ZbvKHMwZHr1u73t1W0Y5nz0zyvOUUo7+PrR8W0ZlnUerf7arzMG8
wqPX7X2Pbsso53NGRnmeUsqoWT49X/fbcvY8q5//T/1X92XOcO86o9+b0/N1
vy3LvTPK85fyvoya5dPzdb8tV5sv+378NM/qvswz3LvO6Pfi9Hzdb8ty74zy
/KWUUb4P7+XrflvOzqfzPN1fr7P6Mo9wlTmyvzNVvm+vlndllPsg5fkZNcqn
ZWu/LWdn77xP/77XWX2ZP3GVObK/M1W/b/KujHI/pDw/o0b5tGzt99XVs3c/
T/++11l9md9xlTmyvytVvlevlvLPjHJfpNw/o0b5tGzt99XVc/R+nq73af/Z
fZg/cZU5sr8rWd+nlqX8M6PcHyn3z6hRPi1b+331btm7v6d/3+usvszfucoc
2d+RWd+f277HMjej3C8p62fUKO+erf29evds7a/l1ffrp/6z+zB/5ypzZH9H
Vn1fe/9eyt8yyn2Tsn5GeX/v2N/o57/6fv3Uf3Yf5u9cZY7s78io93/1elI+
ySj3Ucr8jLr1/TxtP6uf/+r79VP/2X2Yv3OVObK/I6u+r631eteX8reMuuX9
lbJyRt3y/p22n93O5+n6n84zuw/zij5P73X170XvvLPXl/JJRq2ylPLc92v3
+bMzatX59fZ7d57ZffhOz+7z9B5X/17s1k/KJxm1ylLenFGnvE+7z5+dUavO
r7ffu/PM7sN3enafp/e42vci+/sk5cqMyrKUN2XULu/P6HlXz189o1ad5+h+
P/Wf3Yd5xrqte1z9+3Bafyl/y6hZ73vvelKelFG7vC+7zbtbRq0639H9fuo/
uw/zjHWzs9q81eaR8reMWnV/e/v19pdyZUbt4t79yN8z6t3ze/r/s+9jlXvM
Z3r0utlZbb7WPNnzSflbRq26v0/79VrKzIza9f7PXv/0jHr3/J7+/+z7V+We
8x3uXafa+28+Kdfd31dXn6/XUvZk1K73M7v/7hn17vk9/f/Z93HVPWcesU61
9998Ut57n5/OO9pS/pZRu963avPsllHvnl/r/z9db9V9HL0u83fuXSf7fV89
z+rvi5SVMurW+93ab8vy7oza9T5Vm6d6Ro06r9Z6T9d/ut67/Uavy/yde9fJ
fv9XzzP6PZVyp4y69X639tuyvDujdr1P1eapnlGjzqu13tP1n673br/R6zJ/
59HrVn//V89XfX4pezLKfX8vo5zPnRm1y/uT3X/3jJp1nr3rt/7+qWety/yd
R687+30c3W/1vNXml7Ino9z39zLK+d2ZUVWff3b/0zJq1nn2rt/6+6eetS7z
dx697uzvebV8On/LUu6cUe77Zxnl/M7MqKrPO7v/7hm16jx7138671Ov6sN3
enaf07+Xrfl7LeVOGeV+j8ko57lnRo1y9nzy94yq8vxW38+f+s/uw3d6dp9q
7/vq70evpdw5o9z3MRnlPPfIqCrPb3W/0zOq6vN82v/peu/2G70u83ceve7p
39PW/L2W8qSMcv/nZJTzzMmoUXY/amdU1nm2+vfON2r93nWY33GVObK/S6u+
J0/Xk/KkjDr1eyDvyqis+z17ffk1o7LOu9W/d75R6/euw/yOq8yR/V1a9T2p
/n2UcmZGue9yx4wa5dnzyLEZlXXerf69841av3cd5necPcfu2drfq6t/H6Vc
mVG3fj9k7Yya5d555NyM2uX8e+dt/f1Tr3qPmDP67p6t/b369O+nlD0Z5f7L
Chk1y0/7y7kZtev5987f+vter+rDd3p1392ztb9XZ3+fpNwpo7LeN3lXRs2y
zM2oU59X735afz/aWX35TK/ue1rO3u/s9aWsnFGfWso/M2qV5dqMuuX59O6v
9fejndWXz/TsPqfn635ffXp/KTMzyvsg38moVZZzM+rW83/db8vV3pes95LP
9Oh1T8/X/b769P5SVsoo74f8LqNmWc7NKM/j+/22XPV9md2H7/DodU/P1/2+
Orv/6nmkrJxR3pc7MmqV5diMct7fZ9Ss+9q7/rv9Z/fhOzx63dPzdb+vzs7q
80kp5aiMyrIcm1HO+/uMmnVfe9f/dJ7VfflMj173tNxtv615q88vpZQ/ZdQq
y76Mcr6fZdSq+9vb7915ZvfhOzy7z+65+/5a8++2HynlPRmVZfkso5znmIxa
dX97+707z+w+fIdn99k9T9tfaz8tSynlrIzKsnyWUc5zTkZl3efe/u/ON7sP
3+HR656Wp+/39P1JKetmVJbl7xnl/NZkVNZ97u3/7nyz+/Adnt1n97x9f6+W
UspPM6qK5e8Z5fzWZFTWfe7t/+58s/vwnZ7dZ/c8fX+93xkppYyMqmL5NaOc
X42Myno+vf3fnW92H77Ts/vsnqfvr9r3VEq5b0ZlWf6eUc6zRkZlPZ/e/u/O
N7sP3+nZfXbP0/c3+vsmpbw3o7J8e0Y5zz0yKuv59PZ/d77ZfZhnrLt7nr4/
5yGlnPU9mG35NaOc7x4ZlfV8evu/O9/sPswr+pyWp+9v9PdQSrlvRmX59oz6
9Lx6/16Ozais59Pb/935Zvdh/s6j1z0tT9/fbt9jKWXd9/up5deM+vS8Wn//
dD3Zl1FZz6e3/7vzze7D/J1n99k9T9/fad9rKWXe+9vy7Rk167xGryf7Mirr
fent/+58s/swf+fZfXbP0/dX7XvdspRyn/f11bdn1Kzzmb2+fJZRWe/P6P4/
zTO7D/N3nt3ntDx9f7t9z18tpfQ+Vj3P0/vfnlGjnsfsv/903tHrMn/i2X2k
/DOjsizlzRnlfZuTUVnnkd3/toya9X7M/vtP5x29LvMIj1739Hzd76vls4yq
8r1+2l/KShnFa5yd1ec7LaNmnf/T9Z7O8+76o9dlnuHZfU7L2/a7+3m21n9q
KStlFM9x9dx9/t0yatb5P13v6Tzvrj96XeYVHr2ulE8yKqtfr6WcmVHuq/yz
PN81GZV13q3+vV7Vh3mGR68r5ZOMyuo32lKOzCj3U/5Znu+cjKpy3k/n+XT+
2X2YZ3h2n9Pzdb+vls8yKnsO919mZJT7d2dGeb5rMqrq+ffO99O8o9dlzvDs
PrdlVPYcu2ZU1fNszVd9flkro9wv+Wd53msyqur5987307yj12Wu4Nl9pPwt
o3a9P7vPL+dm1CjLszLK856TUbu8f6Pm612HeUfP7nN63rbf2d/r3fK0/cjf
M2qW5dkZ5fmPyahd38dR8/Wuw7yjs+c4LU/fn/O6az+3ZdQqy7Mzyn2Yk1Hv
nmfr/7f+Pvt+/DRf7zrMJ3h1XymlrJJRsyzvyqjsOXbNqFHv29P/v8v+etdh
PtHZc0gp5aiMmmV5d0a5H59l1Kjz7P377P39NG/vOsw3OHsOKaV8N6OyLO/O
KPfjvYya9b71/n32/n6ad/S6zCe6yhzZ31kpZX5GVbWUctz7W2392fO8O+/o
dZlvcJU5sr/DUsrxGXWKpbw5o2a9L7PXX73/n+btXYeZ/+7sOaSU+2bUqZby
poxa9X7MXn/1efw0f+86zPx3Z88hpaybUVWcPa+UO2dU1n3P7j973p/m712H
mf/u7DmklOsyqqp325+UMzNq1/u8ul+18856jsw3OHsOKeW8jNrFu+1XypEZ
dcr9ze6ffd5Zz5X5BmfPIaV8P6N29ennJe/OqFvv3+nzPnWVe8F8grPnkFK+
n1G7uHr27u+p5VkZ5f6csb/e+X/az+h1mXn8ulLKnzPqVO+erf2NtqydUZ7v
exm1y/k8nfeps74rzCe6dx0p5c8ZdYtPz9f9zrZcm1Ge15iMqnperfl6nfXd
YL7Bs/tIeVJG8Wc+LVv7HW05N6Oc/2cZtct5Pp33qbO+E8w3eHYfKXfOqF1c
fT+nZWu/oy1l5Yza5T4/nffd/Yxel5n/7uw5pByZUbt692ztr9e75dP99VrK
zIyqcl+fzvPp/LP7MHPbVeZY/f2Re2bULr49o24539799FrKlRlV5X4+nefT
+Wf3YebnrjJHVcuxGVXVcm5Gnfr8Ru/nqaWcmVFZ9/Fp/3fnG70uM893lTlO
9W0Ztatlbkad+vxnz9+ylD0Ztep+tfr1usp7yczjXWUOHuPqvyej51/dTz7L
qF192v6l/C2jVt2fVr+nrvKeMfN6V5mD73D279/p+bpffubTn4eUf2bULu9D
lfeImfd3lTk4x6tz9n5enZ2j91PN1c7H8/xqeXZGjXr+rfV6XeW9YObzXGUO
XuPs39ds37bfp87OavM+nSfb8uyMGvX8W+v1usp7wcw821XmqOpq2buf2736
vOXvGXWL5d4Zlf096V2Hmfl2V5lj1O9LtWztr+XZ61fzac/ntIxiuWNGZX8v
etdhZr7ds/vcnlGzzuvp+tX7986T/fyqzZ/9/Frebd6nlntn1Oj7MHpdZubb
vLrv6fm635ZX95s9z+z5Zs9b7flmzz/ap+2n1/JZRu36vlS5d8zMp3l1392z
tb9XV5tn9Xynz18to7JcPXv3N9vya0bNOq/W+rNdZQ5m5t09u8/u2drfq6vN
s3q+3c+3ekZlefds7W+15deMmnVerfVnu8oczMy7O3uO6ll9/tZ81ea9bT+r
z6PXp+frfnfz6fm636eu/vyrzMHMfJqrzLHL72d2Vp/vtucxe3+jfVtGneLT
srXflnd73lXmYGY+3VXm+PT3rPd3o3ruNm/v/lqulk/nf+rs/ru72vOc7erZ
u7/dXGUOZubTXWWO2b8nskZG7fL8ns771NXn2827Pf/Rrp69+6vuKnMwM9/m
KnOs/r2RORmV9Xxa/Ue7WvbuJ9vO55mrZ+/+sl1lDmbm211ljtW/P/KMjHKf
PsvW/lb79v3PdvXs3d9sV5mDmZn7XGWO2b9X8vuMOtXy94yqer698/FXV8/e
/bVc5TkwM/NYV5lj9e/Zqfm639ssf8+orPN82p/nOjtH7+fVVc6ZmZlzXWWO
2b93WTl6P1zL1e/T7vc3e46svvy9q8zBzMy1XWUO5grOztHzPl1vtavM8VrZ
c9ziKnMwM/PdrjIHv2eZm1GnuMocWa4yR1VXmYOZmbnHVeZg+UlG3eIqc+zq
KnO4H8zMzHmuMgfzCa4yB9eaw/1gZmZe56d/V30+5pGuMgePce862fMzMzPz
+a4yB+e4yhzMzMzMzBVcZY5dXWUOZmZmZmauM0eWq8zBzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMt/j/Ae8HaXI=
             "], {{0, 0}, {204, 
             203}}, {0., 1.},
             ColorFunction->GrayLevel],
            Background->RGBColor[0, 1, 0],
            ImageSize->{134.40000663757235`, 131.99998741150023`},
            PlotRange->{{0, 204}, {0, 203}}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "140", "}"}], ",", 
             RowBox[{"{", "130", "}"}]}], "}"}]}], "]"}]}], ";", 
        "
", 
        RowBox[{"Boat", "=", 
         RowBox[{"ImageResize", "[", 
          RowBox[{
           GraphicsBox[RasterBox[CompressedData["
1:eJztlcGNND1yBT/sWiJL5INMWEBnOamjjFkTtJeHnSn039nsJJkvyXjAIBAD
kpVJVrH/4x//81///fc/f/7837/+/vdff3/7o/zzP//8Co7jOI7jOI7jOI7j
OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j5/novOp6cRzHcRzHcRz/
3F3q+NRd6sBxHMdxHMfxE92ljl3uUgeO4ziO4/itnl2nuv7TvboO936qzwfH
cRzHcfw0d6lD7lKHq89et7qf3ftRXS+O4ziO43h3d6njU3epY5dn16mu332/
quvFcRzHcRzHx3z2utX90L+Xz163uh8cx3Ecx3H8vc9el37u9tXPqe4Px3Ec
x3Ecf+/ZdW6v73Z3qYP3AcdxHMdx3MNd6vjUq+uoei778Zm71IHjOI7jOH6L
u9Qhr66j6rmn7ufq/a6uH8dxHMdxPPLn/6vr2d3vbD+tH3d3qQPHcRzHcbzK
XeqY5S51nOLZdarrv70/HMdx/EyvrqO6f3yvu9TB+97DR+dV11vd/9Or68dx
HMd7uEsdVe5SB75m3e71P736fNw9Glddn9t+RF5dP47jOF7jLnV0dZc6TvXR
edX1un+P1f257Wd1fe6eXae6fhzHcfw7d6nj+Xuyiqvrz7pLHV08Glddn9t+
ZL26P94fb5+9bnU/OI7jt/ru557OZ7/V7lJHlT//X12Pu+9+brd+q+s93V3q
OPV9x3Ec/9RXPweOUXF1lzpwT3epg+/jDnepg/cHx/HTffa60ItKlbvUgXu6
Sx2873e6Sx28PziOu/nq58DeVKrcpQ68h1fXUd0/juM4jq/w2etC+JPKLq/+
nnAcx3Ecx0/z7DoQrqSyy6u/RxzHcRzHcTfPrgOhM5VVXv394jiO4ziOr/bs
OhB2prLLq793HMdxHMfxUc+uA+HNVFZ59f2A4ziO4zieXQdC+DmVWV59f+A4
juM4fp7PXhdCOI/KKq++f3Acx3Ec9/fsOhBCXyqzfNW6OI7jOI77enYdCGFf
KrN81bo4juM4jtd5dh0I4T1UZvmqdXEcx3Ecn+fZdSCEUFRm+ap1cRzHcRz/
3LPrQAjht1S+9Vnr4DiO4zj+155dB0IIV1GZ5avWxXEcx/GTPbsOhBC6UPnW
Z62D4ziO4yd5dh0IIexCZZavWhfHcRzHnX10HoQQnkJllq9aF8dxHMcrfXQe
hBDeSuVbn7UOjuM4jlf66Lzq31/8vUMI91GZ/f3OXhfHcRzHM+5SB97TIYSf
U8l+b9l1cBzHcTzjLnXgdzqEN1OZ/T3NXhfHcRzHX2XXc+FeKqc4hDdRyX4v
2XVwHMdx/FWi3x8IX1FxcQhPppL9PrLr4DiO43d7NA7CmVRcHMLOVLLvf3Yd
HMdx/C6PxkHoRMXFIXSmkn2/s+vgOI7jZ/vz/26/Z6vrg72puDqElVSy7292
HRzHcfwsf/7f7fdr1CH8SaWLQ7iSSvb9zK6D4ziO9/bn/91+r9wcnk2li0M4
k0r2fcyug+M4jnv78/9uv0e3O/Sm4uoQZqhk37/sOjiO47iXR+NW//5U/77d
7tCLCu8D7EAl+75l18FxHMf3ejRu9e9LNaP6bnfoTYX3ATpQyb5f2XVwHMfx
vf78/+rfk9uonOrQiwrnDSuozH7fZq+L4ziO5/z5/92/J7dR2bU/o8/b7XAv
Fc4TVlDJvl/ZdXAcx/GcR+NW/17cRsVlf0br2e1wLxXOE+6gkn2fsuvgOI7j
Yx6NW/37cDuVLvs1Wu9uh2upcH5wBZXs+5NdB8dxHH/v0bjdvw+3Ubl1f6J+
VzucS4XzgiuoZN+f7Do4juP4n5epuv9vp8J+vaayy+FcKpwXnEEl+75k18Fx
HL/do3Gr73v4mwr79xmVXQ5zVDgfOIPK7Pdn9ro4juOneTRu930Pf1Nh/+ZQ
WeUwR4Xzgd9Qmf2+zF4Xx3G8u0fjdt/v8DcV9m8PlVUOc1Q4D/gJldnvy+x1
cRzHu3s0bvf9Dn9TYf88qMxymKPCecBPqGTfj+w6OI7j3T0at/v+hu+psJ8e
VFY5zFHhPOArKrPfj9nr4jiOu3k0bvd9DceosL+eVFY5HKPC/sNXVGa/H7PX
xfFv3KUOvo8zPRq3+r6GY1RGv1foQWWVw/dU2G/4CZXs+5FdB8dfuUsdfB93
ejRu930Mx6iwv2dQWeXwPRX2F76ikn0/suvgd/ju51bXU73f+JhH43bfxzBH
ZfR7hT2orHL4mwr7C19Ryb4P2XXwnr76OdX9Zfutrhcf8+f/q+9fmKPCft9B
ZZffToX9gz8z+/2YvS7+3bzV66+ux82z61TXj/95mei8dt23cC4V9v9OKrv8
NirsH/yZ2e/D7HVvdZc6OO/XPjqvut7bPRpXfd/CHJXsfQbPpLLKb6fC/sGf
yb4P2XXwmudW99vNZ6/rVn/1/q7ut/o+hXOpZL8/eCaVXX4bFfYL/kz2fciu
g7/20XnV9Z7uLnXw/b72aFz1fQrnUsm+/7AHFVe/jQr7BX8m+z5k18E9ffVz
qvtz24/V7lLHLI/GVd+fcC2V7PcAa6is8up6Tuez31GHZ1HJvg/ZdfA57lLH
Knep4688u051/d38+X+3+xOupZL93uAaKqv89nrd+Ow3cngWlez7kF0H/8xd
6qhylzrwGo/GVd+XcC+V7H0CP6OyyrvXP+qnMer36fAsKtn3IbvOp179/NX9
zPbT+nl69fnhaz0aV31fwloq2fvjViq7vFs/u9fvzqjfyGFvKtnzz67zTNXz
q/uJvLoft/14enV/+FyPxlXfj7CWyi3nFfW327v361Zfd0b9RQ57U8mef3ad
Z3bVk33ebHepY5fPXre6Hzzn0bjq+xF6UcneF671rfZu5+XWz+r+unG0v6fD
3lSy559d55ld989qd6mji69+zu76qvezm0fjqu9D6EUlex+sWn+3d9t/t37c
9qMbR/t7OuxNJXv+2XX+ylet69If/t5d6uD9WePRuOr7D3pROcXdmO0n8tuo
3LJfo/09HZ5FZfT8R+fh+CfuUgffwxyPxrndd3Atla7uzmx/ow5/U7llP0f7
ezo8i8ro+Y/Ow/EZvvo51f2d5tG46vvtdiqnendG/c12mKNyy/6P9vd0eBaV
0fMfnYfj+PkejXO7307ns9/ufhqjfrMOa6mcel6j/T0dnkVl9PxH5+E4fr5H
46rvs9P57LfaT+ez39kOe1M59fxP7w+OUcm+D9l1cBzv59E4t/vsNEb9Ph2+
p7LK4d1UTn1fTu8Pvqcyev6j83AcP8+f/3e7v07jbf2u3q/ZDuFPKre8T6f3
B99TGT3/0Xk4jvf3aJzb/dWdp/Uz+3xXO4QzqZz6/p3eH3xPZfT8R+fhON7P
o3Fu91V3nt7PbofQicop7+9oP936g2NURs9/dB6O4/08Gud2X3Xj7Pqf653m
EHamcur7fnp/8DeV7Pln18Fx3M+jcW73VTdG/ZzuEN5M5dTv57R+4Hsq2fPP
roPjuJ9H49zuKzdG9XZ3CGHd/eDO0/qB76lkzz+7Do7j9R6Nc7uf3BjVW+0Q
Qh8qp37Pp/UD31PJnn92HRzH6z0a53Y/uTGq171+COE+Kp96N57eH/xNJXv+
2XVwHN/v0Ti3+8iNUb3u9UMI66h86u4c7adbf/A9lez5Z9fBcXy/R+Pc7iM3
dqsXQuhD5Vt342n9wDEq2fPProPj+H5//t/9/qlmt3ohhL5UvnU3ntYPHKOS
Pf/sOjiOr/donNv948Zu9UIIfal86248rR84RmX0vEfn4Ti+36Nx1XSrZ9b9
CCGEEZVv3Y2n9QPHqIye9+g8HMf3ezTO7b6pZlSfW70Qwr5UvnU3dq8fjlHJ
nn92HRzH13s0zu3+qWZUn1u9EEIfKrvcjaf1A99TyZ53dh0cx+d7NM7tvnFj
VK97/RDCdVRc3I2n9QPfU8med3YdHMfnezTO7b6pZlSfW70QwrrvP+uz63Fj
9/rhGJXR8x6dh+P4eo/GdblfqBdCuPt7znp1/W7sXj8cozJ63qPzcBxf79E4
t/vFjVG97vVDeDKVXV5N9/pmnxfsRSV73tl1cByf79E4t/vFjd3rh7ATlVXe
nVF/T3dj9/rheyrZ886ug+N43qNxbveLG6N6u/UDYSWVVX4bla77071++J5K
9ryz6+A4nvdonNv94sao3m79QDiTyi6Hv6l02a+o3m79wPdURs93dB6O4/M9
Gud2n7gzqr97fxD+pLLL4RiVrvvbvX44RmX0vEfn4Tg+36NxbveJO6P6u/cH
z6ayy+FaKl3Po3v98D2V7Hln18FxfNxH57ndJ+4c7adbf7AXlV0Ovah0Pb/u
9cP3VLLnnV0Hx/FxH53ndp+4c7Sfbv3BvVSqHPam0vW8u9cP31MZPd/ReTiO
z/donNt90o1RP5HDs6lUObyLStf3o1u9cIzK6HmPzsNxPO+j89zuk26M+okc
9qJS5RC+o9Ll/Ynqda8fvqcyer6j83Acn+/RuC73SReO9hc53EulyiHMUOn6
vnWvH76nMnq+o/NwHJ/v0Ti3+6Q7o/5GHeaoVDmEO6l0fT+71QvHqIye9+g8
HMfzPjqvy33SlVF/kd9OpatDOJPKqe9nt3rhGJXR8x6dh+N43kfnud0npzHq
N/LTGPU7293qhfAnla7fx+r+YW8qo+c9Og/H8byPzutyn5zCqN/I3Zntb9S7
9wfPotLVq+leH8xRGT3v0Xk4jud9dF6X++QURv2Ount9o+7ObH+RQy8qrp6t
343d6oVjVEbPe3QejuN5H53X5T45hVG/ke9+3mzvzqi/rMO5VFy9ut9qutcH
c1RGz3t0Ho7jeR+dV81u9Vb37+63U2F/51Dp4m7sVr97fTBHJTrfaByO4+t9
dF41u9Xrth+jDvdSueX8sv3t9tP57Ddy6oMzqUTnGY3DcXy/j86rpnt9bvvx
dOhNZZW717fab6fSdf+61QvHqJx27+D4DR6Nc2O3eiEcoYLDT6jcch7u9cEx
KtXvNY7j4z46r5rd6oUwQ+UUh7+pdHW3/YK9qETnGY3DcbzeR+dVs1u98G4q
XR2+p9LFs/1U070++J5KdH7ROBzH/Xx0XjW71Qu9qJzicIxKV6/en2q61wd/
U4nOKxqH47ifj85zY/f64Xsqtzh8T+UUd6N7/W71wPdUovOKxuE47u+j89zY
vf7bqXR1+J7KKX46n/0+vZru9d1OJTqfaByO4/08GufO7vXfRqXK4Xsqpzgc
o+Kyn1E91fXdTiU6j2gcjuP9fHSeG7vXfxuVWX47lVscrqXieh5u9cDfVG6/
p3D8Rh+d587u9Xenwv6/pnKqw95UXM/Xvb7bqETnEY3Dcby/j85zY/f6u1M5
db+j/ro5hO+ouLw/UT3V9d1GJdr/aByO4/19dJ47T+vHnUqX/Y3q7eYQrqRS
XQffgweVaP+jcTiOn+ej89x5Wj9uVHbtZ/Q8d4ewExWX9zmqp7q+06lE+x2N
w3H8fB+d587T+qmmcotDeDMVl+8jqqe6vtOoRPsbjcNx/D6PxnVj1E/3/tz2
z90hhN9/79V0r687lWh/o3E4juPRuG6M+unen9v+ZR1C6Pu9u9VTXV93KtF+
RuNwHMdH53Xj6f1V71fkEEJfKq7fs3t93ahE+xeNw3Ecf3o0rjuj/p5+OxX2
D8Lzqbh+z+71uVOJ9i8ah+M4/vTRed0Z9ff026mwfxCeT8Xle47qqa7PnUq0
X9E4HMfxyEfndefp/e3er6dDCPtQcf2e3etzoxLtVzQOx3F81EfndeNof0+/
nQr7B+F5VFy/X/f6qqlE+xONw3FH3/3c6n67++i8bhzt7+m3U2H/IOxPxfX7
da+vmkq0H9E4HN/hLnXw/ezxaFx3Rv1FfjsV9g/C/lRcv1f3+tz24+nfzsPx
T9yljl3uUoerj87rzqi/p99OZfb3CCGsp+LyvUb1VNfXZT9G5+HfeTSuur7Z
/cz27v3w/vx5mVvu76i/p8PfVNhPCP2odP1e3epx6//pq84df+2j87rVm/Xq
ft32Y9Rd6vjWR+d1Z9Tf0+FvKuwnhH7fV9bd+z2dz36f7vKe4HPWWb3+7HpO
8+o6qvuv3s/ujPqL/HYq7Ce8kcqp7r6fp/HTfqNxeI271MH7M8ez61TXX+2j
87oz6u/p8DeV2fcdhDuo4B50r6+q32gc7uG7n1vdb3Y/quvD1/rovO6M+ns6
/E1l9v0I4SdUTvHq/XI/v+78tL9oHN7Dn/+vrieqz91d6sA/89F53Rn193T4
m8rs+wKeSeUU70a3ftzqqeovGofjn7hLHavv2+o68M98dF53Rv09Hb6nwv6e
SaWr30bFZT/c6qnqLxqH4051uLpLHfhrz67Tjaf3576fkcP3VE5xOJeKy367
1bOrn2gcfqfPXre6n939V9ePv/fRed0Z9fd0+J7K7PvxFipdHdZScT0vt3pW
1R+Nw1/76Lxu9Y56dX/d9m93vdX75+6j87oz6u/p8D2V1ferK7P97XZ4FhWX
869+/q76o3H4a3epo8pd6qjy2evurqd6/9x9dF53Rv09HY5RmX1fdK1/tkP4
k0rV+xI9f3c9q/YvGod/5i51rHKXOrq4Sx2c5xwfndedUX9Ph2NUVn/fVc/P
OoQZKi7vW/XzZ9fvck/c6qufU90f/t53P7e639M8u043nt6fG5VTHMJKKlXv
a/XzV9fvcs/g+I2eXae6/ts9u043nt6fG5WuDqETlar3tfr5q+qNxuE4juNj
PjrPnaP9dOuvG5Vd57F6fQh3Utn1/kbPW/38Vfsz2heO4zg+5qPz3DnaT7f+
4G8qnC88gUrV+7z7eavqi8bhOI7jc310njtP6wf+psL5whOpVL3P1c//tp5o
HI7jOD7Xs+u487R+bqfCecIbqOx6v6PnrX7+t/2P1o3jOI6v9dF57hztp1t/
p1PhfOANVKre/93P+/b50Tgcx3G81kfnufO0fk6nwvnAG6nsev+j51U//9s6
cRzH8VofnefO0/o5jQrnAeG/s+t7cH1eNA7HcRz39tF57jytn+5U2H8I/51d
34fb876tC8dxHPfy7DruPK2fblTYbwjrv4/Vz/t0/WgcjuM43tuz67ize/3u
VNhfCMe/j6e7P+/T9UbrwHEcx3t7dh13dq/fjQr7CWH+e3m62/M+nT/6XBzH
cfwsz67jxtP6qabCfkHo//1kn/fp/GgcjuM4frePznPjaP3u/bjtH4TQ53vK
rv/p/GgcjuM4frdn13Fj9/rd9gtCOO/7qv5+Px0fjcNxHMfxV/l2HTd2r796
fyCEvt/X6Pqfjo/G4TiO4/iIj85z52n9zO4fQtjne4vWH/VV6+I4juN3++g8
N47W797P7P4hhH2+t2j9UV+1Lo7jOI6/Svb3qord65/dL4Rw3fcVucvzs+vg
OI7j+Ihn16lm9/qz/UEI190PkVfXt6tPHMdxHH/n2XWq2b3+0X4gvJlKlVfX
77IPOI7jOP7Os+tU87R6IexMxcWr+W29o/NwHMdxvNKz6+zmafVCWEnF1bvx
2/5G5+E4juO4k2fXqaZb/bufB++m4uqnMeo3cpdzwXEcx/GZnl2nmtX17n4e
9KZyqp/OZ7+j7nJOOI7jOL7TZ6+7m7vrnb0enEsFf+23UVm9n6ufg+M4juOd
PLvObq6uNzv/dCr4Zw7HqKw+j9XPwXEcx/GbfPa6qzm73si7cbS/0x3upVJ9
3tV14DiO4/hNPnvd1ZxdL77XYS2VLu5SB47jOI7jf+2z113N2fXivx3WUjnV
XerAcRzHcXyez153NWfX281hLZVT3aUOHMdxHMf7enad1czWt7re1evDMSqn
uksdOI7jOI7jz8xaF95N5VZ3qQPHcRzHcbzKs+vAWiq4Vx04juM4juO3+Ox1
uzPqD8+5Sx04juM4juP4HJ+97m7Orv92d6kDx3Ecx3Ec7+EudeDfuUsdOI7j
OI7j+J3uUscqd6kDx3Ecx3Ecx2/w6jqq+8dxHMdxHMdx/Ht//r+6HhzHcRzH
cRzHcRzHcRzHcRzHcRzH8fP9/wGajZ73
             "], {{0, 0}, {196, 
             204}}, {0., 1.},
             ColorFunction->GrayLevel],
            Background->RGBColor[0, 0, 1],
            ImageSize->{128.00000648498502`, 135.19998710632447`},
            PlotRange->{{0, 196}, {0, 204}}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "140", "}"}], ",", 
             RowBox[{"{", "130", "}"}]}], "}"}]}], "]"}]}], ";", 
        "
", 
        RowBox[{"BoatWolf", "=", 
         RowBox[{"ImageResize", "[", 
          RowBox[{
           GraphicsBox[
            TagBox[RasterBox[CompressedData["
1:eJztfQmcFMXZ/tzHzrUzu7MzO7Ozsze77M3eB7vsLiwssAssl0QQEUUJgkaN
xFtj9O8RjUc0XlGDuUzMFz9QE4N8asR4cElE8IoikQh4EBHlZv611czQc/V0
dVcfM1PP7xF3erqr3nrf95nqrq6uLjznouElKoVCcakB/DO8aGXPJZcsumJm
Jvgwe8WlS89fcd65AysuO+/88y5pPUcNNlYrFQo/+G/kb4UiQEhISEiIgwry
o0pIKAAZILlthITJSyRIbi0hYbKQDyQ3npBQtsQLyZtDSCgTSgvJm09IKARj
5XoUiNAICRHJSlnxQIRGSBiHvJRFejdCwjjErCzpZCi5JwkJQ5RSVgwgWiNM
cspUWfFAtEaYJERQlgwFyFtoRGuEQpC7rJDTlwiNMI2IJgEceZugCiI0wpQg
ctrjyFWE6rCDv72EhImInOe80xIZ4siNR+skDyKhDImcyfxVwCl7uVTEH6hG
ERIGiZy0fHJ+3759d91115NPPnny5ElOqcu9alxgaQhh2hMtORnymbkQSkqf
fPJJf3+/Vqu1Wq333ntvaDti3nIBHl2x8EZEtYTpSrQMZE7ahOU89dRTTU1N
SqWS2iczM/P+++/HkcDIQFIQGySskDDleEShOBHnK+SUS3gIc1GPPPJIdnY2
+ErvcMwqLFSoVEBlNptt9erVwuQzW3CrHd0qyZOBECP3KRRTlMqzFYoHfb6/
+nxfmEyHad+i5Rib/Rm+vfnmm4GOwHbzqFG/ra8/YbHMra+n9vT7/atWrRI4
sREgpBmSpwQhHjqd34G8pYKqVqvz8grLyyc4nVeD/sLr9aJmFJv9o3c4fvz4
q6++esYZZ1AbS0tLAxoNZd8a2s5lZWXg/PDDDz/kn9jMZqNCgKqlTwxC/vR4
Ag0NrRGhpa53HA6H2WwG0jOZTPv27QMSQEoSsPHIkSO7d+9+//33P6BBS8Pr
r7/+8MMP9/T0GI3GkWMMhgGgLIXiZNC+rT5fls9HLxbYc+21177yyiuHDx/m
k9X8kh+zyoi4UpIZGYGWllkgnM2trRWdndmjRkWE2WAwgIug5ubmSy65BKQ0
m9wAW0D/8vjjj8+dO7exsbGgoKCwsBD86/P5wB8GGpxO58gBFosKyvnxlpbj
BgPdvhMZGRPt9ojyNRoNEP78+fPXrl0bMYooHIRWGRFXSnJ4+B4QzqWTJlGf
3xw7dvLkyUAIoGeJyBmr1XrDDTd8/PHHDFn32Wef3XnnnUBKoeE+Ci6XCwiN
vgX0VkBrixcv/jAnx+x0XnDBBTHtu7m9PXRIfX09vRBQwsqVKyPsERrCSYyI
K/VYU7M+IyNDk5cHPpxUKkNffFZff31T0xlOp9/rVZpMocCDa59bbrllz549
EZkGOpR77rkHXDGFZZheX2m3X9vQsK+qKuD19hsME1yua+vrH542baTXhBX9
T15eRU9PRO2n6fPp9XqqMJVKNbq0dE5uri03l27Pbbfd9tVXXwmgJCRF8FJZ
xBGEqUGL5XMfvK55YHAwxtda7Yd5ef9nMi3o67MEhQOSHPQgDQ0NlZWV4KNO
pwMfW1tbT3d2KpWzsnLB4OCLSuXnTufp0gyGozZbWPk22+i6umfHjGEwcdy0
aaG0y8nN/ZfXuzE39wLQhRkM1Ea1Wj0wMLBx40ahpcROGly0RsSVolRQA4NA
I+DDuv7+pqam9t7eV5qaone98MILwc7UKR+QErhoAt2K2WwGx4byvKKi4tau
roS13r5gQWtnJ9D18qIi5j0/z8sLpZ3GYnnZYqG2rx0cDNULAM5F//GPf4gs
q/gCIeIiHEF+fj44MwR/3DhhArX1rkmTSvx+ZX6+wm731NVdMHHiS1rtQag+
0Jf9pbd3RVGRG0hSrQadlM7hqLXZznG57h037nhOTlgFGs27TudLFstzavXK
8eObZ86cOnPmgtLSs8vLB1wulVbbWFV1zO+PsOlPFRXXzJhB39La0hLKvD8E
xUVx0dixSquV+gp0oP/+979F1hSjTFiJK3oXwiTnaQBxUXdvexyOE3Y79fUe
rxeI4oHc3NapUy1FRYrc3Ba9/md9faGbUO/m5/9VqwWq+bvd/lXwqFPMyHh6
woSVlZVDBoOnsHD0xIkPVVX9Ta9fl5GxKzeX2ud9u11dUPBpQUGEWSMjGBaL
u7aWvvF3cNoGhb7WVvpXR4zGDWZzQUODAp6vgm53586d4msqGkRc6cowfPfd
d5MnTx75y2hcZzTGPOBrp/Ocvj6NRmPLzX0lM5Oh6CuXL3fn5oI8B6eLkyZM
+CRKPhSLW1sX9/dHbPx/HR2n9F5fT9++o7jYU1x8ylytNmaBYyZMoL6/++67
xZcSA5jFFVN/hMnJ2D+kDzzwAPWxoLc3QJ3+xaTbPQh6MZ2ua8aMrRbLoeCI
3wh1urvB6SUc9KgvLLyxu/tQHFkB3tLbm5WZudtk+qi4eE1+/rdwlGN9TY3N
5aLMuBB0keGHXEQbh+wKP2mkuD87e3pTE/jWbrevW7dOdA0xAaXbIuJKUsZW
FsB///vfkpISauOyqiqGIjZ7PCY4AJLd2roRDuADbuvoOBNs1Ourh4b+otH8
J3juF5OPeb0qnW6eyRQoKSkfPfqyzk5qe2VFBWWAze/f6vNFHPVNXh592ORH
ZWWHXK7Iwh2OUfC+2ODg4BdffCGiepiA2G0RcSUj4yqLwvXXXx/6av3AAP3I
Y+F92bBO193dHfoI5Gb3eJRK5cjdq/AqB7///Y3hQnvV4TA6HKCKR1esKC8t
raysPG1fcGh9fpzTzgsvvJBuf26cHwFF5shbuS+99FKx1JMAiN0WEVcykklZ
ANu2bbMGh906zOZDanXoyNtnzJgxMPCczfY2ONNTKl/s6NjW0kJ9td5u93V3
TyooOFxYGNr/sFb7RGVlQWfnbyIGDxWK77e19Vmt4AKqsbkZVPSfoEB6Z8+m
qs4vLw9E3AuDpG4xV8A7ayF87+yzPwA9YPiey/v7wVfZ2dlvvfWW8NJJAJbK
CpAZGknMBMqiMDQ0dGoPtfruoHwoPjR6tCY3N6egYE5W1h+Dc6XWd3SozObJ
ZWVHoRJPTbjV6ebU16srKtZHDCGGaLW+mZPj7+jQezwR9mkLC6NPCOl8prxc
Azs+AKvXu85k+mdWVsQ+//J4PPDW2Pjx4/fv3y+gcliAiCvVyUpZAG+88cap
ybQgz93uiFLOysqivtJoNJmZmc+fdVa309kfPuJ3fWOjwWDQWK1/t1qZbdrk
8WTV1Z36SM3OzchYRx8hicO5ZvOpPi58RJHOc91usIPNZnvqqaeEkg0LsFdW
gIgrKclWWQBffvllW1tbaOfO8Guo3fBE7jT0+kF4xXQy2GfdV1yssFjAN0tL
S08GxXUgK+v9OMOG83y+d+EzJtd0doKjupqaPqP1ZfF4eXX1KY1HD2gE+Wlj
owneGisrK9u8eTN+2bAAs9uJuJKfCMqiEBqTV8B7sjvDJ0GVl5eHvvXZ7V/A
UzJKWaDPopQ1qr09EByRuLy5uae9/a1QDxXOL5zOYnDNZbd3OZ1qp/Ob+GKh
81l4SUXhvsmT4+32evC+c2tr6759+3DKhh2QlBUg4komIsuKwqFDh+gHXhk+
U2J4eJja7nK5PqLp7jo4QWIEZjO15RdTpoCzR6vLtSHq9JLOoqKixsZGndt9
OM7N64Rt+8Ps2fF2a6HujCsUixcvPnDgAAbBsAaz52N+S5SVDIwEUlaA3qq0
tFStVp/62c/IOBzUywj1etA99bjdX4weHdq4sbDQRD0DolZf1dt7wmK5A3y0
2+eYza8mmsELuhVw3Lljx3JuoSEn51FwdhrrYu0zk6ksP18xcjGXcfHFF1OP
yYgAlsoi4ko2cldW6BCv1+sIjshluFyvwbO1bWPGvFhfP9HpPKu7+1hweiHF
efCKCaDQ6/2sqWnI6wX91/XxhgrD2dXVNcrrPQquy1pbP62v/6S2dmdNzTeM
nV10I5Vm8ySr9Y6SkkBU9/ep0eiAUzt0Ol1DQ8P27dt5yQbFjQnFFWe75ClE
GJMYlEWBfrt2DSy6rq8P/L1ixYroWlXBAca6ujpqmsdQYeFRxvmHdIuNRmN+
fn4uRFtb28DAwPTp089ZvPjyFSver65m1c4gembNirl/YfD5ZWCeoNN62SuL
iCupyFFWgShlgS1btmzxeDzUx+7eXrDHC1ptIxz0i3he+Mlgt6WAC3hSf9id
zqKentl5eU8nOt/7UVXVilGjtjU2xvz2aEbGXY2NExYt2qrXH6f1SqcWtIkF
TW7ubnAeG27kl9nZl1dWOkCXqtM1NTV9/vnn3LSD5EnmHeJ/JXkiEUaQu7Ji
psSxY8fmz59/ahO8nFk+e/ZmOGweQUvw5hcdhXb7GnCSlsjok+za9lpWVvHA
wGu0q6ra2troSi/t7PyTw3HupElVXV2bYl2CbfF6b3M4VHr90NDQ119/jeol
Dm5E2oGIS5bErCwKt956a2j73Llzb2pri6747uBTHpF5Xl6Ot4Xg1LSGNuq+
ZMmS6Epvam9nU9Sl8G7CAw88gOoozp6M3oHxW8nTiTBEQZQFcN111536QqO5
PtYj/0fM5r6odc9Ow+FQuN3uxsams89+2eU6FtWVfGMy/bOwcHtRUSDO81l0
7na7e4NPSVPnpQraGjUhZDY0vGAwJChQrwdnrdhnHrJXFhFXkpC7spiPPXHi
xLx586ivzoWjCqFTuC2dndc0Nc3PzByXk6OkLWFBhy0v76GionUZGRtzc1+2
WIC4vnU4DoZPx33d5fLW1OQWFc202xfl5Py4ufm98EeMI3h2bu5DQ0Ohj49W
VeloZ6TFxcVOatFFrXZ5bS3zTI/bYdN++MMfInmMpTO57RAg4pIXhVIWwJ49
e8aMGTPyncGwNrhQ54NDQxFrD8ZERkbGgzEXkgrntoICV0EB2P+s6dPPmjHD
Amd31La2vhD+tEuI6wYG8oKPj1G8saWFOgqgo6PjhN3+wzPOGAUl9vtE06hA
x9rQ0IDkNDbOxLGP5HlFiE1ZMQ9fv359Tk4O+Mrncn2UlfVtTs4cOLFQbbFc
XlLy044OQ/DZq0jodCqTyVdVNXrq1BX9/c8pFECbm3JzA1EPhgD+IS8vIyur
0Od7Gc6Puqi+vsXrHXkay+u9Ki9vB31IRKt9D96u+mNQeqGe9Nqurhq/H/wI
/GbcOGrLT/r6KsrLV8ef1huA4lIqle+++y6S6xL6k9sO4btJnlppTmGVBbB6
9WpqEcIzrNZvxozpAjmv0TQODYWeIpkUfPzqNPT6ha2tL2o0QE3P63TPa7Wr
VapJM2ZkjxmjKyoasFoX5+T8bPz4/RUV9Jb8IyvL1dqqzs6+a/x48PEbpxNs
+bHfry8rc5SXX15W9o/u7p/19Z3hcmXD67uzs7Oj3QFOAl+yWH42OHg0eGX3
pdu9nvFOtMJq1Wg0WJZiSxgIIq7koeDKArjxxhupHVadeeZ0eFPphuZmuhHv
1dXRy7H6fHujVkijc2D+fOr+sslkmnHuufSvjpvN58GpiTUtLduLi+lV1LS3
Z2dn9/f3L1y4cMGCBaNHj+7KyDgZvrQaB26DvTD49eAvLlzKChBxSU8xlAVw
0UUXUUJYV14OzvR+Dp+OpN+W2hGaqQvOBLOyop9YjMljfv9vBgYW2WyOmprh
+vo3aYvx3tnXV2i3Kx2O2t7ejRbL0VinkYD/izgLMSb/VVVFiQuc/SL5kMGl
fPYJ31PyHEtPcldWgMUgBh318K1z3d3d6xSKlljTJ+jiOruh4SiLhxzp3OB2
3+XxWNvbzzCbPwr2iXuys8/v6VFkZSnM5sHi4r3hE/Ix8qhOp4DdMc+7XRiV
FSDikpLiKQsAnICB3S6++OL1SuUVU6dGW0MX17bgSAIH9vb2+vLzP6KdDQKW
wQc2DQbDfXFGDvkzD87xGB4eRvVktEvZ+BylQMkzLd0oqrI+/fTTkZVqTKaT
RuPHfn9+Q8ORqMucR2fMoEqz8LgCos4zz+noGIzQr9n8YE2N3eNRZGT8PNFK
8tz4MPz1yM3N3b17N6o/A4gnhIhlSp5sklAhUfNFVRbA9u3bgWS8NTXg4P1u
d3NX18rgijQh9gYfB64IH/3jQp1uYU/P01G3xjZ7vYVjxyo0mp9SLxjC6tO3
/X47fLfLj370Iw5v0BOs20o3ccWD2LWjJkCAk7ICQXH54L2ns1as+MLjyY1a
5DN093akWJWKfztrY11h7SoqGgVXsb6IxTRgVFJPT7vd7i1btnDzKs99Yu6f
0snM0hixXYEU/ah4oZVAFxe4Ntnldq8aHLyFttLa/4SvVHPO2LG7mR9vZFgf
O0hXnAU0NsFHWjQu14vh12VIfNvtLu/vf1al+pRWywmvtxaugnjhhRceO3aM
g1f57BP/EPFzWMyURjVJcANYBihefFFL2LFjR0hcSr9/IxwVzy8t/RTeQd5n
t5cFH/U6BZWqwO1+INa4x2GH48rS0qkm07zc3J30t+BFcUas5d8Bv4D9yySn
cx/KIhuRVKmunzRJode31NR86XCEtu8qLASXlqCxLFeIYulSDm4XJpd4QvDE
lsgGWunoiLQPEe+8847NZqPEVdnVVQ/nTiiysm6Az3ScQXvPIx16vT66GaGd
Fzidu1pawLnfC0NDx+Cef5wyZdH55y9ZsmThwoXTp08fE+vlktuLi73w1vMC
FosGnH311e/QVv2N5ub2dm1mZkP4QotNQHQKxR133IHkVf67xTlKPsrCbg+D
SQz7CGsA+wBFB5dbCQDl5eUq2NF8brd3V1QY4JsX7Dk5Y6dPZx+JTaCD02gU
cNBjb2fnT9va8kpL13R2ngx/JGSn359TVvbQtGnfqVTndXVllJWNcNQojc+n
oR5p0WgW5+cn9p1KddeoUaPGj5/Y2bnGZtvj97/t9/+iuPifcOoINR6y3WzW
qFQlzc0ngne9n4U3vAYGBpAcy2Y3JIcLkEsYIZw9CfeUkbICvLstCiDZwLEP
TZ8Oijuend1IWymUZQx+63aby8oocWVnZzcbjaYxY7bHGlffZLE0LFwI/pjU
2AjOMP+m0wG+oNE8WFCQVV9fNTj4F41md/h8eAbuKCm52+Mx1dcXuVzPNjdf
N2GCIy/vr6HXPajVa+Brhm4JrlG/wevNcLurqqpOnDjB0qss/Y/kcMFyCYsE
eNqGsSg8NiCFhkMOMIOaW9gVXBht1fe+xywrCi8Eh9OBiPoXLTpos+1zua5c
smTp0qU3LVhwMNbrFQDnzJy5Bj7/WNLSoghfV4oPb1i6VKFUtrW1VVZWZmRl
vUl7JcQ1y5a5iorehSOQJ6zWcVarVqv94IMP2DiWpf9RHS5d1rFXBDcL5aCs
MDNQQxMRWZ7KAnj44YfVarUTnhmeevI3znORdEz2eqnFzZ6sqvoo1vT1aG72
eEDy74IVrYIPlcyYM4e/Kymbfz1hQoHDoadWs8nKehmusE19NVhT8ziwFu48
F74PmuHBZFRlpYS4wprDSSPcjhK2Iahx4R/ZaGzdujUbLge9ITi1KbOuTmky
MfjabrdX9vef19Pzg7KyQSAWFn3QB21tNrd7QTDJ3/L5HH4/KOp/aS/tYsMt
bW3PTZsG+EzU0mo7jcYV48dTvwxaq/X/gvMk33c6B4MqXgSfXPv973+f0Lcs
Q8DB4bIUV1hS4YDETeAQlwBuZQEcPHhw4sSJoLQV8CrpjvPO21FT82ac5WiA
DCsqKnzw1T+fVVeXlpZeTluPNx53FRUVFxSMPFwcnPR7JCurEz65P8zivliI
c+bMoRuTk5PTM3nytvBhwxfNZjV8N0pbTs63wfPDlcGTXupFzOeffz6zb4UL
gdTph5CfPCCx5ahBiQ4r50KisWzZMlBatcWyuqCgJfiG4lLai4kpeEtKHpg/
vxmOeBwI9kGP9/W9mp39qsOxOz8/cv4G+AjX1pjV0NCemxugDeBvyskxwVf/
9NpsJxO9gSjEYafzDItlHuR8i6XR5TKBckaNural5XWr9Wjw7tjTxcXuwkKF
xfJ48M0s4N+v4DjJM2PHKuBCAd9++20837KPAgdXS52BIuhLYoM5BCUgmLIA
brrpppESlUqFwxF6hrEtfNhwXkXFjpKSTYqRhTPAP+cFxXXEYNiUne1taSko
KZljsVxaXv5yc/PBkpIrqqvnOhxjMzO9ra2/8/sPhZ86zg6uRjhVqw3Q3muJ
xANu9xaf71mXKwNIyWi8BN7apq6zQHd2fl6eIjiq/5vS0juol89qtQ5g1dix
oL+O51v2UeDgakmTMIBYr/xlJXdlgd/w3ODaZbfSFqOgHkWhMC4/nzrFGpo5
k9qSV1r6XvjCof8sLh43MADOGIshwEng0rPO+jR8XP2VtrbeyZP9fn8+hNPp
/D6bu1osuKq5WaHRgC749EaVamlJyfLly8HfN3d0FAVvDbS0tBQWFu7atSum
e9kHgpu3JUpF/oqQm6ZiWMU7IpiVRS/c5HJtDE5bWkutBwXR5/Mdg5m5E3QQ
ej3YkpWXd3N9/cyOjklz574MJGO372SeDahUzgPHBlFWVnaStrw8rjnwb/T0
DDidt4RPzaKWYby1qwvU+wyccj80Ywa4ctyxY0dM97IPBE9vi5977CCaAThL
5h0L7oUwF6tSqag/phcWUk/c783KqoRDeQBnlpcfCo60N0LFOevr34L90RG7
/VGfT+FyaW020FXd1Nd3/7x5YS4wGp+ZOPGR6dOva2vzwqn1GrV6XF9fZnFx
dWvrzkTvN+HAk+Cysbj4P1GLrd0KL7Vmgp8Oler5yZOVRqPNZkP1LZYoCJbG
bBKbvegElRX/WtAClygQfGMar1hw8hZ6M/L64LPAl48bR20Zrqr6Ljh36Hdw
pM5gt78aPvcvNDpHfVy6dOmyM8/8T0nJkiVLwImfRqMpKCjweDyh9dmWwufF
jmm1x1isvsuNJ6Kei6HEZfd4NkHdKTIzQy9OYu9eLIHAmsDsc5ubBARVFp7y
eUeBb0DjFWs2m0PvNxnT0REIjgYo4SXYD2mPRp4wmQbgvbALysqilyW8Ii+v
Dl6sUYcft1iuGD16ikJxTl7e2w0NI/vodNv7+hY5neMdjnz4IhWRSYlLYTS+
BBVt8vmq4MI17N2LKxA4Ugspt/lrgXPVCcG3dbxDgCGg8UoGlx5m2Omos7Pf
DT6ieNeECSMrxsNXTIauhjYYjVqr1ehwBGgzi0I8ZrFcHutlXtE8kpGxIc4b
ydlwQU3ND+K8gYiZp8SlUCyDNxqMXi99uAbJaZj8z9kHSOmHURd8SsBiXmQV
/PyPJ5rxSlar1RlwUB1gCW1xmLKysg6v92C4iPrnzgW7/R0+kCIhPyoqqqqu
9nq9f5syBenAO+Hr/EYAey5PdXVFRQV7D2OMBY+8Qk1CzgcmBPv98ZrHVxSR
xmFCdLOLioqo6w613f5a8Ezv6s5Ovdn8ZvgST5vgu4ZHh68UipHvajSLJ0/2
1NXpwOmo1bpiyZKHh4efmDbtWMxHJq3WHiAMlepbpAcq8/JCDX+up2dsfz+1
zjwbD2MMB4uskwn5Q1iT+DkfQyjjFUvhqquu0sCHRLozM4/AWUkfGwyZev19
4Q8YBrzekbc0KpW/Dt41xkXqnHNlR4cLnpqG0JCX9wx8QVi8IfqvPJ7JfX1r
6e9GR4nNuIkTx3Z2lsNXdyG5DmsgpNUO96xmAWFt4O15PKGMWSxV8pEjRyrh
mhIK2iDhuRMn2keNimjVtfDRe1dBwds8rpXikZrTGAK4BszPz9fr9TqdbunS
pQwHPq3TPc16UuL24uK9cOkbCqAKoKyRlaxQXIc7FlIpBUN6E2XFLDZU8h13
3EF9rAy+6m4LOHFyODaEdwebPR4DnAF4FeMz9Ry4vra2MKjuEPJKS59pbAwt
cfNd/L7pG4fj20Srar8ZnFU12N/vDY4NUp01+HdkkSsU7+EOh7RKwZPqojSH
ry5EUxZV+FdffQUuuEY+qNVUf/T6uHGOvLxOo/Fw8P1c1CnZEDx3yqutPcHu
iS2WfGLu3KxY76l0OZ2GwsJpNTU7E71yC/BP1FzBKK6G299pbHTk5OyFz2wa
4TUjpanGxsbq6mo2fhY4IpJrJFmYTMoCWLVqFfXx1CChXj8Dpvq94cuBzpo1
a2Qn2jwlnnxyzpz6lhaQ3kqlMmQSSPjRo0fX1dWB87QpZ53FvrSrg7P3IzgI
fweoh1PmTZ369/HjQ3VlZmaCfxsaGmw224033sjegQIERfKkTQryDYE4ygp9
tW/fvgZ4GZXjdL4HhXMf6MWUSjucd0HdBT5sMi2AU+LVBsMjwSehOPOdoqJZ
PT0ZtLmFpwAkplYbfb5NcdYEYOYa2kvJ6ewpLg4YDKeel1Eq9cEusq2tjXrH
H7jm+sEPfnDTTTeJHJQAERca5aisAGNvuHHjRuoHfAocfgdnaGY4H2Na8MHe
R4eH6wwGBXwd3lXTpp1EeZgxkhbLXRUVbuoUFHQcxcVNkyaNmTABsGFw8Of5
+c+p1a/l5ByM8wohZv4tzk03a23tXpcrwgOgW9ywYUPo40cfffTkk0+KHJQA
ERcak0xZANdccw21/cGJE3fAueIUHps//z2320MbVQt7fIMT26ZOpYoyORyr
4dKIGBlTXCMvZFGpJoQ/Rp2dnb127Vr2ribikgF5hYBZAjjCF6PYAwcOUK8R
Lysr211U5IWnSRQ0RiP1HisArdF4M5wCQZ0lcuCz1dVOOBhiycs7MzPza/ii
B/7cR1uh+i8TJ0bvMH3BgtMt0oA2GceMGfPaa6+FPIPkQ1xBiRUdybNX5sSj
LAECF7fYd955xw6vQcBlV+GoUYqMjLq+Poq1vb3gX43brVQqn2puDnCask6J
8ef9/Va4SkxFXt4r/F+MEuS3NtvVcB1givuCA5jrgvNJvqivp94ZoVar586d
e++99/7qV7/au3dvQB7KChBxsaWslRWv8CeeeIL6qp2WpRHsjjPEzZLUS2AV
ev1TUasz8eSGsWNXBJf3pHPIZvuwuhr8cSa8ltRqtSMntLH8g+RGPIGJW77k
CSxbyktZgTjiiq7o9ttvH/kMxyjiTS66ffbsLznd1Tqp0108ebI5J+eS8vJv
WK+ay54Ds2ZdFrXS1FGTqV2ny6+svN/vp1a8KSwsjHjJHUuHC62sABEXK3IM
gSTKouOxxx4b+V/4WjEPL1iwl3Ytc9xoPD9WB8FA6mzwru7ucZ2dW+Gqa0Kw
qanpN1H3tv6u1SrCl1i85ZZb6KtVs/c5EZcMKC9lBVDElZOTY7VaTTD//9rd
3UNN7dNqn9dqj+l0NwRvIneUlh6mvXyHDVesWAHKeYnHe10TUh1rkagFg4P0
BnZ2dsZzjlTRiVOL5GksQ3IMQUSSCxayBMjMzHRR94DCJ6I/CGe8A+3daDb/
VaOZWVbGZhHdU1Qqfw7f67qyuDjAbnTxc59vF+39lR85nf8Kf2vD+1HzBve7
XNSz0oAvB9c5PJidraAthWEymf785z/HdA6SD/FGJ04tkmeyDMklBIIqK7p8
ZkQv9TkiNZ/vYGlpRUsL+LtmypS97KZMUGeDv+zqMqpUGUAsPt+1UZda1D43
9PZeS3vZcX1BwffA1VPw3vH5Pt9YOA+E+vY/TucE+MoVOmdXVKwPruSmtVo3
wlGXhfBNlEql0mKxNDY2rlmz5ujRozE9w96B2KMTpyLJM1lulKOyAvFTKKa4
/H4/ODOM3g5+9g12+/NRL0Rm5i8WLqQO3+v3z586VRHrjcmXXHwxtc8gfDHK
MbiulM5mewVKeFtBgaugAGxZEpys+wjYIarf3B98MnprT48CvqZ5DFyKymAw
rFy5cvv27UieYfAStqgkqEvyZJYVZaqsAOvfZwp6vb6lpYWur/GNjdeOGXNl
be14j+eJWK8Cj0Gz+cX8/MrgUqJajaaitZX6+1lw1aNQPEmNPGg094VPlmgx
GpfC/hGgtrNzf27urPb2U99ZLKsqK3cWFbnq6kBvdDDOEyWX0haWAcp68MEH
+biFKEselKmyAuhnNUeOHDGbzdnZ2Tp4q1el1f4Wrql+UKVq8PuHVKqPaS8c
j+ABj2dZWVm/zaZxOBRwcjvQaSFtUm59a+sWu70E3kd7vLWVqmLJkiV9cBUL
UJdCrQ7tPLGmRkV7XZEjN7c8+PT9ErhI1L/gDazTNBim0q4W58+fD9rC7BO8
ruMDIi5mZXEWl3Ah41zRgQMHHnroIWNwytOVw8NUU8vLy4v9/l1R74U85HIN
Dw/7fD56dTU1Na+99tpzzz0X2pKZmQk25sEe0AZFN3JXOhDYuXNnb2+vgjVG
wWeizwlO8Pjj5MmflJdvz893BYUMLNm/fz+zQ4TwG2cQcSWdsnjWtXnzZiAZ
atHd9tra1dnZWwyGx4qLjaWlP+7sfMVgeMlsXqNQFNGeiqLgcrkMENTHrKys
xsbG2bNn33bbbXfeeWd3V5c1qIJ77rmHqgvIkJp8RSkanJ3Og1iwYEFouRgF
nGKhVqu9Xi84ha2GA4PHDYZOk8lXWfmYw6GFd7VAh3jDDTckdIhwfuMAIi4G
ZbEPgXRR41Ldl19+efPNN5uoW7F6vcpkcrjdKnjKpwqupksHEBQ4FQTJTz0y
T8FisXg8ntBabWAfNTz9a25u3rdvX6iu9evXA+ktW7bssssu27NnzzEIsP3l
l18GesnJyQFC+/Wvf33FFVcolcoLwMUXfNL/F+C6DKpYBVUJdrv99tuPHz/O
7A32fuPgNA4g4mIQF7oPRYpaINbAIGoJL7300plnnhlzIJGO9vb2mIP50QDq
AHtq4XNhEXVt3br166+/pm85dOgQ0NRnn31Gfdy0aRP1tHJOeTlom72kJFRs
cXHxL3/5SzZ+YOkxVEdxBt00Qg65yie9+YA5zxMefvLkSeoP0IutXbv2/vvv
fyAcjz32GP1hQ5aIuR57qC5mgDNMsH9RYeF4uB6pAqq1v7+fmjcYrxCWTZYk
TPQ6055o+RnlQBmJSyCTWFbKzZI33ngDnP4pIRTwVSxAbvFGMCLsYW85Qmv5
IaL16U3knBQ0jVFrx5jkEloyl9ZnAWWxrJe9hRxbyAkRbU1voqWf0BnLwQb+
uS2hSdThP/nJTxRwbH/58uURb1llqIu9SXgayQ70atOeaP6XKmQJjeGT25Jb
RQ2J3HffffRHSJgLZ28GpmaxBd276U20NBM6LfmDQ2IL1yL2VYcuuJjNYG+t
hJGi15zGRPO/hPHiDPbpLWjrsJiBZKGEkaKbma5EyyVBc08EcEtv7I3lYwCS
VRJGim5muhI5UgLlm/jgkOFCtJqbGUjxwm4z+6qp+tOSaDkjaI5JAs6JLZAT
8FYtYaQijE0/cgwWlnhJFfQIG3BBfNtYloDdMJagW5p+5BIpLPESOi25mcFs
T8JU55D8fOxkfxQuM1BBNzb9iJYGuIIldCrysQEpadkDu81I+2OpnQPo9qYZ
pYmUaKnIwQCMRWFvmlTx4gO6yelEtIjjynzRUpGDAcKVjKU6pAMF9SFLRDQ3
nYjmfCzBQk0/ntnIvnaeJbOviHPtnPfn1xReiGhl2lDYyLJwdWRRGPOQZe3i
pB/LdjFbgmqtaK1jaQNlSNoQwfkC5TabfVCTkH3tIice+6bFNAzJYEkayGyG
1Nme7spi2JlN+nEojXNz+IBl6+hGotoseRsDRFmiKAtLSidMP9QDubUFO5jb
xc1sOTQzwuq0IYLn+YcJb1ajJh7n/BQZzO1CslwmLY0wPG2I4HyeYRIosVkm
Ief8lBAJG8X+cKFNZWmG1Nkud2Vxi5TQic2kLh75KR9wsFwOjU1XZSE4X+bK
YqgoBWQV4Op/ObQ3XcWVaspiqDHZ9ZUSykofcSGkGecwSZvVKSMxDgbLoY3p
qiwE52NUFtco8UKyS4woK9mYLspiNkmGRkaAKCvZiKwspDDJPGmTSGL8/S+c
bextSE9xsfcPP8fKJVfpkL++iLKSkGydzz+4MslSBiSUmFT2c7NBhpZLne3S
iIu9i3g4VtbKCkGGEktSZUWbIXW2E2XJBTLRF3//C2cbexvSU1nMzucco2RX
VgjSSowoKznJyvlprqwQJJEYUVZyEk1ZnIObGsoKgVlieBubQspKK3Gx8j9R
VjyIIDGirKQlK/9ziFQ6KIsOgfTFrSiZeJ4oC0lc3BzLL0RJAwZ9cXMCf2VJ
6Pz0VhZbySRvfCUBLokltbKiLZE61eWorAB6tyWf+EoInhIjykpmsg0BarDk
E185gLPEiLKSmWxDwCfE/EKUOkDVF39lSeh8oiyiLPHBILGQxzgLRCaeT3tl
sZUMarw4J0ZaIaHEeCpLQs8TZbEPAVGWcEgDZaWvuJB8xcG3vGOVFkgZZUVb
InWSS6YsJHFxcCzvQKURiLJSiKwCgRQy+YQ4GUGUlSpE1gsH3/KOVRoBl7Ik
dHu0JVInuazFhRovOYQ4GZECyopljORJngTKYhkymYQ4ucBHHTKWFVEWW49x
8DC/WKUL+KhDPsqKNkbqDE8acXHwMI8opRFi/NaLcix2EGVxUxb7qMkk0MkC
oqxUJJq4uDmZR6zSAjzVQZQlS6Ipi33gZBLrpEDqKouIK3FEOAQulp+lj748
QZSVomQVEbzikk8+yAFEWSlKVkHBEneitWhglBVRlvyIoCzRxCWHbBEBPBsr
H18RZcVTFntx4fA5R3ANu3zBs4Hy8U/McBEiKYtbBOMdmOYSI8pKdbIKDc8I
sj82fSSWMsqKNkbqlJYPE0eHfxCx5E8qqYwoKw3IKjr8g4jl8JSRWCopK9oe
qVNaPkwOcUVbkrwSw6ssyZtMlCWtsgL4xBVdZhKpLMVkFWWS5PksKyKIC1cU
eJbDULLMJcbfMLk1jSgLi7IwiksSlWGvi6dtPA+XX4skT2a5UWJxCSEEeeor
1ZVFxMVFWQERByIwppAQZeIyhufhkjQhkUmSJ7PcyCpSGAOKKCwMuSREmTxt
4Hm4mJazNknyTJYb2UYKb0DRhcU3r7AXyKdq8UvAjmiLCLmJS4SYshYW5iwV
OmP5VyGOnfxMkjyNZUi2wZIkrCgiQzMPSyEcapGqELyItihJiJZK4ohLqrAi
eiPKO/yqwG45lnL4WIUFEeagJ3NSKAuLnaxCJklkGZIK2U2IdaEezqY01EKi
y+FQAl5Et4lfGstWVrjMSxw1SYIbo6nsdkvgL8RKObSd5+HxyuFQAl5Et0k2
HQQfWcXbE1vVLL0qThADnM6F0MLJoxzUY5EbH6soboVgRHSzsPYRzGUKIStB
FX3aAJZeFSeIEZVyq5ptLLmWwP4QVMtjFsWtEIyI2TLcymIoFqOyRNCUrMUV
6Q58RcV2N6fDE+6Gy2bO5eBCzMYlSmk++c/ycDnLKjmUhatqxlAmqIXhEA6l
odrJuSgsiNk4HMoSQgsMEFlZicUlfohFyCvGEMStkfkoLDZjLAoX0FOUzT7Y
JZYgIFIpizmCIkdZzNRiCgb6IfwNxlsaFoiepQm8i7KzOAYnjbgkSa24UcG0
P2czeBbIH9IlKhZIKCu2qhEt0BJmV9zwcNqNvwH8C+QPqXOVD/jXJYa4RAt3
jOaJjrihYtwBe738C+QPAZJNHIkJVL6A4hI/miLUyMaMBB4XoDr+ZfIHjtQS
WWUiyBaplsTRFC3ickuwxF4WphYsxeI1CTGpkoWcgVlcIgdU6OpYgsm/wpSP
pVi8JqGkE8Ykl1BZuGxLEFNxgi63BKPA5H1hysdSLE/wyCW8GS5c7dxqQTUp
cUxFiLvcEixBpIWpAkuxPCFKYqMqC68lYjYwQWRFCL2scixBdAWrBVfJfCBu
4iWsLm4QsFYqeAPZOFycgApUCwdLBDJM0ML5QIA0Zp/n7NXHxzBpWpfQ4eLE
VLhakMwQziQRqsBllfC5x00RnC0Uv3USi0vyHGOKnPB1Ya+CA+StLCwSk6pp
clGW+JkmpqxiVidELahIEmUl1Fe05Wz2EcPahJ4XIaxCVMGyaqHNEK0iVEia
e4JKjCnCchCXmPkmRBVs6hXBBtEqQoWkiSeVxMS2MKHzhY6sEOUz1yhCtotW
EQfIIPHE1JqUJiUMgaDBxV44c3XiZLvI1SFBTumXwmSKuDjKEjrfxJdVvEqF
qw4JRFkpLC45KEvkGoWrDgnxnEEonLiYYyFofPEWzlBRStaIBKIs+YhLoNwQ
IeuIrKJBlCWJssQUl9C5Jx9ZyV5ZkudeyjOxuIQLsXAli5bhRFmEzOJijohA
IRaiTDFzW/6aChBZSa2sZBQXg6aIrCgwuIdQJuISKNa4ypGJrOSmrADps6Rn
3MTAnjN88pBZUKLldjLLiigrZcXFLRvZaEpaWRFlEcZn3PTAmznss5GloIis
YoLISjZkShKM+cMmIZE0RWQVE0RZcmLcVMGbRcxpSWTFH/GMJZSOcbMFYy6h
akfCTJaVMSxBZCVXCiguPpoismIPoixZMm7msEwqnvKRSSbLyhgkxLSXUB6M
mz/MqYVHQpLmsDytQkJMewllw7j5EzO7+OpHBtkrW8OQEM9kQjkxbhbxFo2M
klbm5qEiptWEMmPcdErqVESSkmxbERNEVslD7uISP6+YkapqCoHIKtnIRVzi
5xUzUltTASKrZCVTysk/FVNbUxSIspKWyZp4qS2oEIiykpnJl4TpoKkAGWlP
BSZHNrLpp5KiISxBZJX8TIKcTDdZBYiyUoSyy1iWUkpVWQWIslKHyQqpFSAI
YjaUMGmZTJA69wVEvBYTJjnlDqkTX3DEbDRhSlB2kDrZRUVMBxCmChMnNhGU
EIjnCcLUIlqSR+9P1IQKIqu0IUl78UA6rPQjEZcYIMpKV5L+S0AQWaU9ib4E
AVEWYYzwE/ADkRUhjURf2ECURRhFoi8MIMoijMU4aUHADkRWhIwk4uKIeD9N
UgeUUG4k+kIDkRUhCkkXxgpEVoScSPTFBCIrQt4k+opEHFkRZRFyINHXaRBl
EWIlOT8cAZEVoTBMa33FlxVRFiEupp2+iKwIRWS66IvIilAipqzEGDVFZEUo
DlNNX0RWhHJiiuiLyIpQlkxufRFZEcqbsZJS3kikKSIrQvkwafRFZEWYhJS1
vlhoisiKUM6Mk7JEVsI4NnnsJ8TC+OGXo6bknJaokNxgNmZLbl5qMI5ziaDQ
nYaCpLBZcj8nOxP5NyllJWhicDNewtTlDNEsTG0m8rJImsIVUIFyg7/ZImcv
TwhtXlqRhbtlramIhojjGT5FSRJKSRxImDAutAjhkZWgTRDaIVgKFC2CArma
kAOFhmjGC+QEXBaKEzhBvU3IjUJAEssxNhy7eYLGSxxvE3ImLsjBZj4tFc5C
IZosprcJsVCGOuJpqlTNwViFDJ1PmA6Uoazi2YaldZI7nDDdKI6mOBzLuWrx
fwoICdkTY2ZyTnVUdaPuT0iYvEwI/iXwr4KQMOmIMf/FURbRJqH8KYQKpCpQ
cmcSEobIkKL80xiLFpAguT8JCTlkpviZzAGSO5YwncknJ8VMZqIgwuQi/0QV
J9WJrAhlwoS5hzdXhc55oilC+ZAbsFcqRFsk9y1hmlNkWTFUirdMyR1LSCiy
rBLWi6Uoyb1KSEinOJpiWSnLeomsCAmZiQWSt4KQULYkyiIkFJREWYSEgpIo
i5BQHBJBERISEhISEhISEhISEhISEhKO8P8DwiRahA==
              "], {{0, 
              301}, {287, 0}}, {0, 255},
              ColorFunction->RGBColor],
             BoxForm`ImageTag[
             "Byte", ColorSpace -> "RGB", Interleaving -> True],
             Selectable->False],
            BaseStyle->"ImageGraphics",
            ImageSize->{116.5499957275402, Automatic},
            ImageSizeRaw->{287, 301},
            PlotRange->{{0, 287}, {0, 301}}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "140", "}"}], ",", 
             RowBox[{"{", "130", "}"}]}], "}"}]}], "]"}]}], ";", 
        "
", 
        RowBox[{"BoatGoat", "=", 
         RowBox[{"ImageResize", "[", 
          RowBox[{
           GraphicsBox[
            TagBox[RasterBox[CompressedData["
1:eJztnQtwVdXZ9zfkQhISQhKTEMiNkBDAhBAg4SIQLgkkkEAI4X6/ByKBotBW
bcWOOugHU21lrNqbVawOzuh8+nVaR1sqFetorfqVqVpkXhh8vSDjpYhWx9nv
w95mvztnX8667ss5zzN/mJNz1l7rWet5fmft21l7+KbdHdv6K4pyXQr817Hx
u7P27t34/SWD4Y+lPdft2N6zdUtLz/Vbt2/dO3lTArxZ1U9RyuDfldeKoqLi
TwqGHoWSKRfz3TcUKgZEZb57i0KFTjzmu/MoVPAl1nzvDgoVNPlrvncfhZIq
u6S3GBKHQrGKCDEnQ+JQqGjiQgznOxQqmgQj5h+Pvo8kCmWVn3y5GEKHihUF
FDEnQ+hQYRMFYgEkkZs4hA4lVex8UecxEoeKR9GxICKBozSBxKFiS9T5LyJp
KZoTbvz+olDEok547vykNm+44+id70FEBVnUKc2PA1MaszTEb7ROoVAWUWev
2OSnzGGRTbMZoSMoVK/ostQlsYWkOjVUxMbsEp+3vscX5bvoUtE9eyWlNAtR
UVNftEVtEBWXos69qJtITWNCfxjMK698jzjKe9ElG0l5ealLaLy8CfLcpW5U
3IgltUjKi81VIeYjcQhavEoAXy6bBJAyF/MGN6QszsSSOVSbhIsyw2TjhpTF
jaQjpoaWMsPksYaUxYG8QEwNP2URJgq3iC1QsSiPEFNjjjLdSFhz7zVSFuvi
hYWKl5ikTDekDOUgTxFTY5oy3RgosxZBxYqIvmOjpgRPEtJuGy5DyuJejKTw
MxI/lBnmPtq2IKJCruhfrSTZIiTlmCsJndFMZEhZ2OUzYgLrCZFRTmRIWagl
BjGkjNZc+ouUxZz8R0yNP8oIEev7p++pgmJTIBCzplbMG1IWNwoKYtbUim0j
R0xFysKtACFmm12xau49RcpiSMFCzDa7YtWoEFORslCKHROpIMQJZe59tP0U
EQuVIo0tPSRREA+UESKGlIVW7IjxsMnWiqQm/LWoHXT6FCkLiYKOWERbUlvx
xcgRQ8rCKXZMvERMRcocPkXKAi8uTKQi9oVmts0Jb8tf45nIVKQs6AouYu4t
etOcZ8YzkalIGYfKyx9esOD/tLYeAlVUHJXQRMgQU2OUMs6JTEXKmDR58peK
cgBGrbCwsKGhoXcMjwtthR0xTjx5LPYo40dMRcrolZt7pLGxcfHixV+mpupv
jRs3LiPjsNBWQomYGnOU0RCElAnUgaqqqm8SEoy/i4qKtHntf8vU1HwM4mhC
GGJIGacJmchUpIxGMGENGjRo9uzZxluPrFihI1ZYeHr06McaGm6urt41QzN4
AX/CsVv8IKbGLmVRCyBlgnRg+PDhl9PT9/f0LFy4EP5+ffLkESNGlJWdKy7+
5fTp0wcOHJiWljZ16tSGXktPT09OTo6Y6WIYMTW2KBOFmIqUkQlmMTgQi3gX
JqySkpKCgpUwfIDb8uXLIwrAJvARTH9kR22hR0yNIcpIBhMpE6idOz+EGepP
c+dGfFBcXJyYmDht2rTHli0zv79mzRqYyFpbW4cMGZKTkwODm5HRJg8x1e8z
Hrae+OiDEBOImIqUEWjChOtKS0sfWLdu165dxrurV6+GUZvbF709e/YAeiNG
bG5svLWq6vHs7DdAinI8I+Nv8YCYGiuUiUVMRcqiaciQNwsLC89XVJjfra+v
Hzx4cFVV1cWCAuPN3bt3Z2dnJyffTtlEmBBTLOZUQLYn8oxkPGm7iZT1TfXI
j8aP/7/3bNxofguOv3bs2PF1cvLv2tqe7OjQ3+zu7s7Ly8vPvzdWEbPyZUtc
LFEWtQBhN12yKz7kmC+6Jk/+EoAyb1BbW2s9DfLJFb7ys7N/wtw6TzIEBDEv
/ZFnJP7T9tFzyqJkdTAQi/Bq5tq1a6/fvv1727YtXbp0/Pjx1opmzZpVUvKr
mESMYJQcxi6ERuI/Qx8tGeVLMkfGJwB8GXa8oveIrLGxMSkpqampCaYzc11L
liwZPnx4cfEZRMxq8nwTboRuM3TN2MLvZLYPke9epaQcbG9v1zcrLi6+a/Nm
/fXjnZ0flJQY7/frd0uMIeYWFYIyLlsF0whdZeuRsUXwEJPhGEkrfSwlpXnn
zp3w7se5udnZ2baV5uXlEd+Nb2mYIxnYamBrJWpbZNGU5TC/0XaTqfLAUibQ
PfKav7WCgoKhQ4fqlC1cuDA/P99atLu7u7b2O94gpnoykTnGgGNb5gq9MXKv
2Jx3TTYhWS2QTYF8EW1YUPAWUNbZ2Ql/zJs3r7m5uaGhIaIQHKzV1f0/Wh9k
JwN//fwNuYZSZEP8RugDs6vcCSxPjtHwBjGDsoMbNpwbMaK8vNy20PDhw0tL
/4vKDc5MkJGQ8jLfOY7OAfbWCNvl8ZA28YIBGqHPbFtFUqb/YUvZP+rr3SnL
zPymtfWVTZs21dXV8aSQ1CT0INWjhdI5xvKNsC0elxhyL0igUQeNlrKS3hOJ
o0aNspaYOHGiE2WjRr2fmnpHQUEz1JCUlJSYmMicM1Kzzn6YpBl75CT7Q+42
cxN+o+QNa9TtAmWlpaWGB0DK4a1bzSWKiooSEubYIfZoR0cHbNLU1HTttdfW
1NTA6+PHj/OkgYxksx8mr4w9kKIdEFjSZVu/IfIANJZGc3NPlZWVPTV/PvxR
WVlpLQGUVVRUNDS8Y7wH81d6euuAAQOWLVtmXFD7q7b8DgNlkrLLtnLh9fP7
QxRXEc2JKhltc98Jkocbl29ZWYv1n0XbHpfB7qJy5ar0tLq6fYsW/V1f1aq2
tvakackC0G9WrVLoKROVTiSVC6+fx+hDzNIF8q04h0hUKnLA5ThgXtUQRYmJ
t8IRWVdXl+1c9mxLC7TU0NCQlpZWUFBg/oHM452dLS0t+uu2trZJkyZdunSJ
KTTs8SWsnKH+//znP4899tgTTzzx97//XaxvZnONbxQjr1lUSYIaAgKX45j5
R/cB47MfdHdbPzbucoR57ZEVK/TX8AJ2GvXq/jlhAry45ZZb6IPCHtmo1XJW
DnDB1w7UMHLkyHvuuUeUk4TGlEIs3RcSBXOD/iFGTp83gBuFj+uIlZaWwi4f
KDU19ZO8vIga16xZo2r7hHv37NHfaWxsvHf9+u3bt+tU1tXVXX311e+88w5D
/vAE16VaIZXfeOONirYQJfx/9913C/GTwchi6hBp4soFeegLYmwsSEXs2/pz
c0/l5+dnZWW9NW6csf2wYcOamprMNX6TkABTGLyoqqrS39mzZ48+o+mLhGza
tAlqPHToEEPC8ETWpVpRld9xxx36nTDQx2nTpn344Yf8dfIYcXxJR0DUWEWk
loeI8UMhgy9zzQcUbcfPXAtMWElJScZCOl8nJ0OarV+/XjWdgTSohG21pRqV
AwcOMCQJZ2RdahZVOVCWkpKidxaOOufPn3/y5EkhNfNb9BjT1CDIGQ8QYyaa
hAi2GhzdGzLkzYKCgoq+C33oenXq1IEDBxpF4WvcpeGysrKSkpIzZ87QZgVn
WF1qFlg5UJaWlqb3FHaPoeaf/vSnoioXZY6xJ95QnA/eUKZytEVi/Gx++1Fi
4q2KZSKj0tq1a6dMmQKVzJw5kzYT+MNqW63YylXTHqMuOHrt6uoSWL9Aox0E
gSNGkHVBE79FbwWOyOD4y3YiI9HL06fD/AUtDRgwAHaolGh7jJIosO+8UIug
bOHChfX19e+++67YVkSZL4ipoaSMhzjSmqdNezY/P3/JkiXMlG3u/T21+u0q
+spTTz0VNaBSERNVs9kOHTpkXtoLdp7HjBlz6tQpGW1xml+IqaGnjIo1ijor
K7f379//v8vKIj7409y5NTU1dXV1ra2t8IK8RtiVuu6669wDGjrEvv76a/OX
CehSZqainWs9cuSIjBZ5DCmTiRt1PZMmfaE/SyLig+XLlz/e2QkT029WrYL/
V65cSV7pli1bhg4det99972n2cWLF9Uw7yjqdvny5a19b5zWZ22wpUuXymiR
2ciHQnJEfGckKBo8+LWsrCwrZXCodTk9HWDR78nX72wkV3t7u6L9dgZs3bp1
+kW08CKmaruLM2bMMPexoKBAbxH6CF8mktqlNaqhQMq80nFFe1BLxLuw1/dZ
Ts7VV1+9SjOY72jrraioSExMBDwBVZgF9FsmpCImqmZbg91m8yMDfrVmDbQ4
ZcoU+Dqqrq4OzjkQfxFTkTJnyp5vbIx4t7i4uKurq6mpqaioKDc393R1NW29
kJaNWrX6bY0yo8lS84kTJ8gLP/fcczAOxtN+Ve162dixY/f39MA3yZVbzgJj
hAMi79sJKXOizPruP+rrR4wYsWzZMjguY6u3trb25enT9ddQj0J8TwhlKKPn
yWeffXbu3Lnjx4/v3bt3Zq8BHbAfe+TIkUceeeTRRx/dt2+f/v7+/fs/+uij
iBoOHz48YMAAax/fGjcuNTX1l7/8pah+cZrvE5mKlNFQxizjXPeiRYvM72/Y
sEFh/fW0cxyjJMmZM2eeeeaZa6+9Fr4xBg0apGhzNOz4fZOQsGfPHn1z+Cii
QpiC77rrLuNu5y+//BKcv62ry9rZHZr9+9//5u+UECOnRhJiKlJmp8rK34oa
DvNtxnv37IlYymCvltXGVLJz585jx45BAkfEyP1OfitfMD/qFV5//fVHjx79
9a9//eCDDwJB+ptw0DRx4sS1a9e+PnkyeUdg8/79+wOP+uT78MMPT7bb/N71
6+GoM2jnPchLykBMRcrsNG7cHrbh6OjoeKp3oW9d5rv3jSV6DDVoaxT062tz
58417t4/derU7bffXlFR4bRjGYHYhAkT9LN8/ewMZihokeeesebmZqh869at
cIAZcQ4fdDk9HT6FXVAZicpmhOAQ7gZwuoGUGcrJ+f9wUD9y5EjaLf85YUJS
UpLTp39YsCDizP+6devguCbi+bnwZ0ZGhjHB5ebmwgwCf2ZlZf3whz98wGQP
PfTQ66+/rmiXgGGKGa/Z0KFDYYoxT6DCVV5erjjf3gmMw6wnI1EZjBAc2Yip
SJlFM2b8cdiwYRGXgUhUX19vLHVlm5z/qK83vwMgO11x29/TA5NOe3v749qC
xpDSwFpCQoK+0FxCr1VWVubn519zzTUwS8JHMFvBhu5OQlVwROb06TLTc7Gh
aeuPVfUaIn5ed9a0el5wKCNnBynzWPX1l1evXm176sxd+j0Pu3fvdioQsWDI
ypUr6+rqeHw9X1EBkMKx1enq6ju2bSPZ5PnGRvj2mN13zR9jCaCvk5PN7/+1
70X5iD1hsyZNmgTfCfp5V/iCunIFLQAWHMRUpKyvEhJOwKRAe7lZR8x8fTZC
N+zaZaxUAAI0YB8varUrVqz4XVubwO59UFICR46DBw+u7zurkmibA8gA4w29
HQfwYWJ99dVX5aUruQXkiMzSig9ZHTSlpByEgbA9Qe0k/Wy87ZrDumBHsazv
Xcc1NTWEpyCACzigi1hxDubBnTt3Ol0TFwumu8y3Cvf09KxaterYsWPycpXc
AjWRqUiZSUVF7wAsTgPRY3fI09zcnJaWZp6nrJowYYJ55/CBdevcy1sFSB62
nNCzFSBp/hOI+wf9tOWuJzs6PrCcLP0mISE5OZlwYRMPjIQdpa9544/vSe67
8vP/OWTIEKezi3DoAVPSr7S1qnRB5hcVFblX+llOzpgxY4w/gS99HZ5YEnwJ
VFVV/eQnP5GaqOSGiAVZM2b8cejQoU5nFyMO1p7SbrCHgziX0wIgOAgy7xxW
VFTAXCDKYzi+a29v30M5M4qV/oOyKz8CCoYFbV9RRcr6qrX1kKLd5GD7ccSp
ucLCQpjIpk2bpjhfPFq6dOn27dv111AGDsdepb+NP+BasmSJop9cDYAFEDEV
KeurpUuPwEB0dXU9tmxZct/T2o93do4YMcL4E5AZOHAg7CO9//77+r1/VtDg
HWNxJ1W78YPnpovACiw1NfXmm2/2IF2jGlIWfDU3/xX2GLOysvr167eiLxHD
hg0zr8utaOc99DH84IMPYEaLONpatGiRcXwH5cePHy/8LERANGXKFPjCgWNP
L/PWPZkFlhRiSJlZubmn4LhJHw7zXRA92p0Y+mtAJiMjQ7/9yRjGgwcPGiP4
hwULIPEyMzONW6dGjRoVk7OYrokTJwJlMGsrduZNGqs005OvvvkerkBo0KBX
U1IOwi6Qot0BFZEzcFR1obBQL3rlSS69dvz4cfi0s7Nz3bp1SUlJxlVagGvs
2LEXCwr875g05ebm2vLlMW60iCFlfksBNKqrq7M0m60ZvDCP0Zepqea57Ec/
+hF8mp+fr/Q9eTJ69OgYnsW+HSztQRskoMnLbfLKfUUMKTNnzbc2ePBg47Fc
r732WsQtRsXFxfqvLwsKCoqKisrLy+FQDjbRP924cSOgejk93ff+eDBeTz/9
tCWdKExUGgssKdCQMoessYnFV199ZVwv0w+4SkpKnn/+eaX3lH5lZSUcyul3
Ut27fj3Ma+7X0WJGNTU1P//5z11TSy5xhNsK5JrKEDE7OQZix44d+nNe9Gte
Vsra2toU7UleLvc0xp5gim9qajp79ixBmonHjby8L4ipSJmN3KL8wgsvAE3G
jYJbtmzRS06fPh32HuHFVVddBf8PHDjwbDxRdlH7afZ9991Hk29icCOnkoFf
UYaU9VX0QBw4cODqq69WtZ/kw86hXlhHTF9bQH/he088Fuwe2y5OTpB47LhR
geMXYipS1kekIdu3bx8coMH+YWlpqV5eX69G1Z5TtmLFijLL0voxr8GDB7P9
PpqHNQbKGDzkN6TMJNKQvfHGG7DfqJ+0N0y/AXjx4sXd3d0VFRXWZ1jEsP40
d25ycrL1BAhHNjJyF7VmTg8ZLMLT+BZFyM6fPz9//nz98hnYrbfeatxJtWDB
ght27QLKVq9e7XuXPNNfGxrS0tJeeuklacnJhZgalIkszimjjpq+iBPYW2+9
BfuKxi6ivt/Y2dnJ/GzBMEqnTL9bRnKWslDmI2Iq7i5+K5aQGYX//Oc/5+Tk
GMt96JT9c8KEuDo0g+kb9hiTkpKY5xrKdGWJlyg3aA0p00SXDxGFgS/z8BmL
msbVacY5c+boZ1ndTXTS+r9cMJUDfkfJR3GF7OjRo/B6lemxFJBs+prY+3t6
XNY8jDEpvdcyCE1ExoYDMRUpowy9tfB3v/tdeD106NDa2lr9GUyQbG3a+lH7
Tb+UiW1t27atqqrqwoULKv1JQuaMpUzvIExkSBlj1B566KG6urqRI0cOGTJE
0VbYVrSVdVeuXKlol61976EHmjp1qnXFDxm4MZcnKSzJ4p4yMSE+d+7cu+++
e+zYsY6OjgEDBhhlYv7XLoby8/O///3vE2caI26ykZRh1s7FnyiiQFj45MmT
Bw4cgDI/6O72vXskGjt2LOG63076w4IF6enpJMucUrFmHefQIabiRCYBMcNm
zpzJQNnOnTs9HgJ96RJFW2vOePN0dbUxCzut120WHI3SXo9mwI02BEGgDBGT
hxgYHKSUl5fT+lTYu8qBB/okLw+agx6tXr26paVlY+9DQnVdc801+o8OrM/U
turaa69NTk5+4YUXRKQiEXEyQibcEDGpiIE9/fTTdXV1/fv3v8u0gHxUWZ8e
aNV/l5WZ181mPvT7LCcHejRr1iz9z/nz5+u/MjC0atUqvfIL0dgHJM3LMrBZ
jCGmImVMlNEO8ttvvw25p2jn811cMU8WhGt6w0RpwLV7927jqRMwPZFAt27d
ukGDBtXW1irakzqN98eNG5ebm9tNv6O7YMECIPTDDz9kSkbHAUfEwiwWxNhC
pm+Ynp6emZnp5M0a03r7CQkJ2dnZUDgqLFCA4fGFqvYIDHDpwIEDxzWDF+l9
1yTJysrKyckBH2wfumEr2LeEOu+//36GIRI+/kGgLO4Ro4gCZ7yKioqKi4sb
Ghpenj5d6V0kxKr169erveAo2mo8YGlpaSuEXgUAEH6zahXMqpWVlRFPptbX
3TLvFr4+eTLMaxMnTlS0iY+kfgBz2bJlX331FcNAORnb+PuOmIqUeYWY0rts
mr5eXGlpKbBm69CzLS2q9sO0UaNGjRkz5syZM7D5Sy+9BCykpKQM0gymG6A1
OTm5wWLAo/FaLwyAwIb6bHixoKClpaWgoCBbM9iDtX34O7wJ0yjMX9ZDsMGD
BysEZxr1rwinJ8uzWUwgFoeUUYDDHC9jwzlz5hhDXFJS4vKATrX3wTF33HGH
uaoHH3wQ5jVAY4JmsG8JBTZt2jSh19ra2gCiCX1t8uTJugNjx44dPXo0HMRV
VVXpS0q69Oi3v/3tqlWrbJcD2rJlC7D2WU6O++AuWbIEJspXXnmFdsTch5E8
BJxfjEIs7hGjiAI/Yop2Wt4Y5Xnz5rmPeGJiosuKGZ9pdunSJfOfYJ9//vmn
n376WV/74osvDB9gFgPuLKG37xrUv2PHDviow/LIJwAwz+4B7mbpT1Zqb2/n
Pw2CiIVWniIGlpGRYX46zMiRI79MTbX17Afd3TDZvfHGG6zhJXUpKm4ACOz1
DRs2bNGiRdbhi3qdfefOnQr3fiMiFlpRI0YVL9vsffLJJ5W+Hjg5N3z4cJj4
/vWvf/HFmc49F9b0XxnYDmLUgd66dSscFT777LP8rsreSqwhZVIRsxvhK5vr
jzMzPHC54lxWVtbQ0AC7f+wxZnLSCbSjR48CKcuXL4/wc/HixSTX48Duuusu
Tg9lbyXWEDHyKPBH2dj29OnTRUVF5qvMTpR9kpcHmxw8eJArzBze2vo/c+bM
sWPHRrj6TUICfBp1zf+KiorZs2e/++67PI5J3UqsIWJmysjHimOEv932tttu
S05ONj+u3YmylStXXjlP7q2RsGalDJSWlma+jG6rZ1taRo8e/f777zO7xNYL
+mEQY0iZL4ip2lyg9L3R3ZayX61ZU1pa+uKLLzIGmNtcKJtsct4Q7NlWVVVZ
3x82bJjx+vHOTlrK+MefvutiDBEjjAJzsJwQ039fZj6E2bVrly1lsHO1YsWK
N998kzHGgiyiIzU1NZmZmU4/w7GlrLW1Ff5fu3atqj1ydMaMGeR7jIhYyEUU
BbGInThx4qqrropYIw4QW9D79ApDe/fsycjIEHUZl9+MvsBEnJWV5TSmVsou
FBY+oN2IBf+/OnWqon2r0DaKiIVTdIgxRzliw56eHqV3KW9DI0aMsN5hlZ2d
LfaWJCGmaN8JJ2fPdhrW6upql0HfunUr1HDkyBHCtmIFsfikjCgQwhHTnyt9
y44dEd5YV7Jqa2srLi5+5513GMMszaALKSkp7iPr9BEckSnEV6URsfCLKBAM
IXNBTO2lLMKVG3btsv7EbPjw4UVFRadPn2YJs0wDRhYuXOg+rE6fwn7ypEmT
SC6vuw8jyVZ8veQyRMyMGDllbCNs/dRKGRynmO+zCjhlzzzzTLrz5bBrrrlG
6Xs60TruJE9W4kfMR8oQsQjKyIeLbYStBax7jOPHjy8tLQ0LZXBQOXDgQCfE
jKWDbQvAERnJk5VCjZjVE79TPdCIqfQTGUmgH374YUU7eWh4U15ebktZfX19
0Cj79NNP4TvBdkybm5uhX7/4xS/0vtveNgwMbtiwwb0JRCwmRBoL2qiRBPrs
2bPWX7j8ae5cW8qAvqBRBkdkS5YssR1WmHmNcxqbNm1Ktfy4QP8Vp/5YUpcm
ELGYEGkseGLtVEa/d3H06NERPtk+XwnyFo7X3n77bdIYS7aHHnpowIABtmOa
kpJyww03GCVvu+0267FbXl5egfb0dpch4kfMR8oQsSAgpmo/bYYC1itNtiEB
xKLuX3lmH3/88erVq63XzXUBU4888ohR+KabboqgTF/YxExZxIgxkxIEvlRE
jJ4y2sCRZ8jGjRutAbA9x3hYu3T7s5/9jCLSMm337t1w5GU7ptu2bTOvG/zJ
J58AjBEX1BYuXOjyfEAhiPlIGSJGi5hKOZFRBXrmzJlzLQtV1dbWWu9gbGlp
mTp1qtgVn5gN5qmMjAynYa2vrzdfZbbeogmaOHGiXiYOEEPKKBATTtmdd96p
aAuymX06M2YMJLB1eWE4KLuyQFwwbO3atYMGDbId09u6usaPH//pp5/qJT/6
6KPq6urs7GxzmfMVFdDx3//+90aFMYOY1RO/k9x/xKgoYxhhl5KnT58eNWqU
dc9w1qxZ8+bNs7rbr1+/w4cPk0Zaph07dmzcuHFOwwpAtbe3X7x4US/85JNP
wjv6jfeGVq5cOWbMmHPnzpmrRcRiUUQRoYodVaxfe+012C2MuFldX4jedrFT
oOyBBx6giLcce++99+DLwemkhz4EN954o1F+w4YNivbjbnMZgBQoi1i3ChGL
OVGDwzDI7oW/853vKNqJDrNbO3bscFr3PiCU3X333S7Zs3HjxszMzEcffVQv
DEde/fv3h6ktohjMbhGUiULMR8qsnvid5L6LKCK0gSOPtX5XlfWue9izsr0e
fSkzMwiUvfLKK+Ce080eqjZJwfHa3/72NygM/8PrpqYmazF400xZDCBm54zv
SR4mxAhjR1X+0KFDinZyPsKzhQsX2lLW3d0N5f2l7M0334S5KTU1taCgwGlB
fgAwPT395ZdfVrVr1krfO8cM5eXl6ZTxYBJgvhAx0qDQho884hcuXJgyZUpF
RYXVOdhdbLR7xJ5+Wc1fytasWRNxl9TcuXOnT59eVlamaL+GBnAU0y/FNm/e
nJycbBuDnJycMZoxYxIcxKzO+J3hQRAdZQxDHbXk888/n5+fX1RUdL4vaPu1
X0xHHKkFhDJgJy0tzeoYHGENGDCgtbW1sLCwvLz85ptv/vzzz99+++2bbroJ
EPuDw0mS5uZmHspsZg7/DBHjREzGRAam7/4tXry4s7OzsrLSuFx71VVXOa1O
89a4cQrNyhhi7f7774fWr9zcZTeg+k1fp06dMhb8gaNLpXfZHFvBfB1BGbkz
iFjgRUcZ22i7l4QjMviS1x+NpAtwW6MZzG6fOD++oV+/frt37yZ3SaCZV+c2
s6OvaGq+zePy5cv79+9XtPWpFi1adEffhyv9oLsb9Lu2tszMzLa2trFjxzJg
gogFW/5PZO+9915dXZ31SrSeb3C0AqDBjpmZQV3r16+HT0+cOEHoklj73ve+
Z9y8YTyg0BhT2Es0Sj744IP9+/c3nhIIO5Pz588/qz16Sf+di2H6021iCDGk
jIIyhgjaDbh9JefPnx8/fvywYcPg4Oup9vaOjo7ly5cDUzU1NeYz3rfPmPFn
bfUq/UgtQZsytmzZAptTZ4MI27dvn6JddwBTtN1XELzWfxp29913GyWBQXjn
a9NJj+cbG2Gaht7pXyO5ubl5eXkpKSmIWIyKKDRiKbMmhn4O3zD45le0M9tW
X2HHUtHWOayqqvJ3dbgXX3wRDglnahbRo0GDBj333HN6sUuXLsFMbVwEjDiN
k5+fP3LkSGZMELEwiCg6QhIgqsFRSalmP/7xj2fNmmUbJNiHzMrKgl012Mm8
cOECR1IItuMmO3jw4J133ml8ZL73/rFly+417Vvqz2qfNGmSkOEV3ScuZ/xO
7ECJAjHZlEWY8eX/Uu+J/T3ac28DuLqpu8FMZ9wWMmfOnAdMz3DftGmTov0i
hoERRCwkIgoQcxx5EIPjFH3d3bP5+cYdjHD8Ascy/A+B9dg2b94MPZoxY0ZL
S8vAgQPhqHP37t3Tpk2Dd/TOFhQU0NaJiIVHFIixhdJpQxLKEhMT9ddJSUld
TU36j/SfeOIJBjf8tZMnTwJf0It+/foZPdJ/Da3vIdNWiIiFR0Qx4gwl+bbW
aA0ZMkS/RDtlypSRI0fOmzcvPz/f36RitvPnz//lL3+55557urq6Kisr8/Ly
jO8Q2qqCg5jVGb9TOoCKHib+aApJpLKysoqKCtiBDFSCsRlnFwI1AogYP2Iq
90SmslJmdcDFmCv33mIJMas/fqd0ABUOyqyehJc1sYj53mVELCCIqeIos9YZ
ItxijC+LS77nczBFQZmocHDW41JzwFnjdyxoXUPExCImkDJfcBPeFqdvnJsH
r0e+J3Ng5TNlMogIJmixjhhSxoWY6uFZC4G5JKNOUc5wbu5LF6K55HsyB1ZE
IRMYWUrCBCSVjDo5feDc3EvPiV3yPZMDK9KQiY0sPWG8CSa8Qp6mva9BuFk9
QnFS5kFwiQkTnK6yU5e/CW/85HPJ9zQOskij5kt8aWijc09IJQyt+FWJWLN6
FBLRpZLHlPkVX8phsQwTXxPCPRdSD49XQizCHfqsDgViYv0kip0vIXbJLurx
omyLdnOS2mgrsdbDUINYs/aJL58Dy5dw96KHz5co2/SZrFiUgaNslKHvnJs7
1cNQg1iz9il4UwaDM04lxftAOLzeRFNl2k2iiytHPbTbUnferiq2SgSatVtC
Zw33OmXwJRVtG08Ih9ebaEY0ytY0aVBZayDfhNZz26rYKhFotj0TjZhLtQIR
8xKuQFMWOS7iqrIfd6bNoxYT5TNzPaLMtnPRcpsHBMLNQ8FXOBAT1bRrTKO0
4rIJQ220fjJXJcRsOycCMRlQuJhfiEWnzPtYe5BgrrFwbNF9KyE+C6xKlNHn
KkkZ4axFCYjviLmH0uNwe5ljblGh34TfYbG1CTHP0zXK6NIU9sbh8FHmS445
hkdQeWY3OCvkN/8yVoj5DhcpYsZQ+xFTPw8DbR0gLMbvAH+F/OZ30vIYf1ue
UuZZ3G366bk5xsy1gPB2+SvkN5lZJ5U1SfV7QZn3YfWgRRI3ogy9hOb46+Q3
oTnmDW4e8MvVCsloexxW2c3R+mMz3HJaEVKtWJdYsyvgYjZZlHkcWdnNEZrb
QMupX0i1Yl1iyiv+bPcRMeG+RQmuN9EPWqbp5hYGOfULqZbTRCSVkFSX1zpb
K8wuRQ+uBwkQtEyLEnI5TQipltM8yXBaxMR64nEHiSjzIAcClWxRwiytFVE1
85jnGejenGMQhDbqAWJq1BDLToPgJJtzWEU6JrVyHpOQz+QJT44hj2Me9y6y
3agj701w5bVC5YY8lzxoQpRXHiYhFRrMHvrYO58p8z3Z3EIovy3hTTBYsBET
wprvXQsKYt6nnJd82TYnoxVaCwliUUGzek5SxlO3o4bAg/jKaIKwadlueNYQ
rQUjCWWw5hbhQFHmZeLJaIKkXQ988KwhWgtGBnrMmm+uRo2C7BDLqN+9RQ/S
3rOGGCxIGegBdIHwLWospEZZeOXuzXmT9h43R2WBzMMYllvovUFMduJ5z5dT
o/KaozJELB4oCwJiHrcorzkqcxoMlAeUuQdFaqDFVu7SUEy2SGWIWAApk5Qk
HqQf8mU1RMxfxLykTHYSBoevwCPme+7Fj6JTJi/W8mr2LNURMRQhZe6hkRRr
GXV6meTBh0tFvgIht8QIMmUucCFfurkMDypolEkKuqh6AsJX0BBTcRYLkBwz
RHjy8CSkO1meJXmY+ULEfJRHlLGlJQlc/vKFiKEI5JgnYlOIPC0JyUK+bA35
Cp7cskVgIpFkJhVcyJetIWKBlGPOiE0n9/xEvvjNyVlUAOSYNgKTihYiH1M6
UM4QGvIVeEmkjAcu5IvcELFgyzGFCLOLk6OApHSgnKEyW39RAZNjIrnnmBiW
fE3mYHpFZbb+ooInx0SyTTNekAKQxoF1jMqcXEYFUo7pxE1PgLI34O7Rmq3X
qKDKMa9CnZNUTAW2F7aGfIVQ7JR5n2DuFqtYGYZ8hVYslHmfYO4W23CpyFfo
5ZZ7wc/J2IZLN0Qs/AprBsY2WYYhYjGh8GVjPMCl4on6mFI40pJk5gpFRwgN
+YohhSA5440vFRGLNQUudQmZilW+VEQsBhVW8xsFKWbbUVT4FSbzGwKJ5tRj
VKwo6OY3AdLNttOo2FLgzO+s99RsBwAVc4qe4UiWDHMaCVSMii7breURK1pD
vuJPmP/eGU5hcSykzAtDxOJeOKNJNOQL1SsETYohYiiTLHmAxmfIF8pOCJow
Q8RQzkLQBBgihnKVQ36gkRnyhSITUsZoTt9RfgcUFVghaHSGfKGYhJMakSFf
KD4haG6GfKHECUGLNAe+EDEUjxC0/zVEDCVHuOt4xZAvlGTFNWjOfCFiKOGK
O9CQL5QfihfQkC+U34pZ1lzhQr5QHivWQEO+UIFUjICGfKGCrXCDhnyhQiK7
7Ay2RYML+UIFUKEBDflChVmBBo0ALuQLFQo55C7yJWdgw+M/Sqyc8yCIcAU5
P2nNd4dJ3PbdvRiTwygjWfSDRmOh8Nn3cY4ZRRvoUPIlNUPYnPcxh5nNMw/j
RNGG2yO4REVWUpLwu+1xGnOabPfiUwTjHmi4IjrizcjwVOVLKH0ZQBR5gEyh
EsOX1C7IHhAhFXoWQUlDjeKRbPPMeUmDIMpDbwIndbRRnJJhvngusOPC3ZMa
L29GG8UvURYEn3l6Ks9DGV32crRRYhVAoDhd9as7ApsI4OCj4koB5MvJNyG9
833AUXErb+Bi2Ja5ae+/E1AoBglMUeacp8WctjwKFQOKavw18DeBQoVXAkHw
BjGEFBUiycDBrwp9H0wUyiqXXOXPZyFQUJnv44lCGWJIUe9TmsF8H1gUSuVL
Ti+zGlFChVT8GetNziNfqKApahKKTVrZyY9woQIoNhPeqIy++D62KJQuj/ly
aVRsnb4PLAplyGO+orYrpCrfRxWFspU3cBE2Stgu8oVCEUqI+d4LFCr4QsRQ
KG+EiKFQ3ggRQ6E8FpKFQqFQKBQKhUKhUCgUCoVi1P8AXlpHmg==
              
              "], {{0, 300}, {290, 0}}, {0, 255},
              ColorFunction->RGBColor],
             BoxForm`ImageTag[
             "Byte", ColorSpace -> "RGB", Interleaving -> True],
             Selectable->False],
            BaseStyle->"ImageGraphics",
            ImageSize->{118.0999956512462, Automatic},
            ImageSizeRaw->{290, 300},
            PlotRange->{{0, 290}, {0, 300}}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "140", "}"}], ",", 
             RowBox[{"{", "130", "}"}]}], "}"}]}], "]"}]}], ";", 
        "
", 
        RowBox[{"BoatCabbage", "=", 
         RowBox[{"ImageResize", "[", 
          RowBox[{
           GraphicsBox[
            TagBox[RasterBox[CompressedData["
1:eJztnXtwV9W1x38YCS/lTXgECCAJSAlEIq8IhGAAkxAK4RWBECIPoRJk8KKj
nU61z4uCpQ/aznSs9c70Tm39o9UpQ8HRGdpeKXbs0NuXyHVwplChf1CxKoOG
c1fPnpwefue133uf81trvjB5nLP32mutT/Y+53ce4+97sGX7Tblc7qHe8F9L
xyN1e/d2PLpqIHyzZvdDO+/fvW1rw+7/2Hb/tr1z7iuCH07rkcuNh3//+jqX
c1AoFAqFQqHSoxwuYFAoZYox476hUGkXkxn3FoVKl0TMuPMolOWSa8aHg0JZ
JbNmfPgolDqFVXzAEDcUiktUfEUZ4oZCxUqIL5zpUKhYSebLHIzGI4lC5ckk
XDGGxKEyIUv5ijIkDpUqMfBlIYbCuCFxKHXih4u5iBE3VMGJDQQZ1ZvQBeKG
ypCYi19GxTJ0J93E/UWh6MRc7cLFyWx6oBMYnfEkoqwVcz2Ls8BVwzwdiRur
UyjUjWIuXbmVz1jAMrvmM0pHUChXbCUaU9VS6pyZKGrjdknMW+P5RZkVWx3G
l66ieubBKbHuZVtih6jCE3PhJe6itIYp/eEwXV4ZzzhKs9gqjWZ7dXVLaaKw
SfI8pm1UYYinrmi2l1uoUswgbkhZQUoCXDG7WIhYjOlhDRErJPGUDdMu6ULM
M9WsIWKFIeV8OalFzDN1oCFiWZcOvpz0I5ZnsljL2wOVOWniy8kcYsRoQIsf
NSKWaYmSwgRLJhEjhoihwqSVLyfTiBHjQCy4CSoTovrrmlgPIhXIum+6DBEr
bHFiIg5I4SDmWXy0QylEpVnJf1RpSkVKvXE3kjpjmcIQsVTLMF8S20mRMU5h
iFh6JYcvRIzVYsaLiGVL5vlyCg8xSr5u/NZ4qaA4ZAVfwbrKvCFihSFb+ArW
VbaNni8HEUuxLOIrtLSyavEjRcSyIrv4Ci2trBoTXw4ilj7xM6KUggJBLH6M
ob9FvtKjfOOrDUUIFAJilHwhYukUP18iYPL1oqgLs5Y4wKjfImJpkO185fWl
tBcjRs8XIpZC8TOiky8HEYv4LSJmt4QY0cmXk13ERKYwBxGzWmniy0HEEn5r
vJxQeUoZX05GEROcwhxEzFLx8yXIpohlDzFxvhxEzEalki8nc4ix4IOIpUjS
+ELEBE3KFOYgYnYpxXw52UUscQNELCVKN19OthCTxZeDiNmi1PPlZAgxmmAi
YqmSECCW8OVkEbHEDWgGi4iZVkb4crKCmFy+HEQM+eLtLthjBhCjiSfrMBEx
f1CRL5q+Qs3JFmKJG1AO01x12aDIYtHcu0glWMKXTn/UGY3/rGPUW1dmS5rS
GT1eCVWjtnqmiFJE7FJoNP5zjFF9RTEnxwK49MVEsBL4WuDriMPU+SbdKN3m
GJrKWhLNjwVeFShfcRGh2CZmLzuN0lW+ESmrJSmmx6WYbdQ6IFIJfC3w9ZLY
F1UylTksbqzD5GrcTsQk+kbfsvSu5fDlaJnCInMgsC93g3qM3is+5xXUkr+i
JIIpES7pg2XzQXUliLcv3lFsKmV2JG6UPnC7aq7q+FhLI18S6FBajerKPjqP
0QnWa5T9inhotPD4KKN0mG8v5Et+L0mpjM6xeqPsS8Qlo7UnSBlzxpCvmMbV
9RLfHVXmFPtD7zZ3F6ZR0gBa6vmSXmnhYdJl/ImU7YDELWP2NQ2RasoMO8yR
Gkc7X3LbF/eHKq8yupO1ZdLuZvFRx5qpEYmWgaxaomlcevsixp5iniHQ7yUv
j4brMC9aulpAvuS3L8ti85tg9C3L2pKiBRvIigyYZWinD67w0abTuEqIZ/hS
AuXv0BBf9OjpoRv5SpPR5TQi09SNS/JQP198ICjlS077wrkQTWtMs3Ibt8eo
80sbAVmxklFaHBUuToQKuETiwJC7pERISGtMy3Ibt9OSc8zSgiRnVPPFzbI4
DpT78rmHfFltkbmn3lGeDxoQcwQ6ojFxMPncE61e1uzzNSu38XQZaxAkRoyi
6qySuKl1SSwFMhEIH3wBG30Q5EZMZe3ZhptaH4Tjr5YvWS2n1Ezx5aQbMSbQ
kK+CNkRMGWuauhOLvFq+EDH6UCjOiHFG0iXkKx3GFApEzBqJJkIPX7JaTrWZ
5ctBxLLCl6NsZky7UQZEXegQMW7EhAOOfCk341OYg4jx8sWXCEUgIF9RRh8Q
ddFDxPgQEws1wqXDbODLQcQyxBdSlmeUAVEdPUQspXw5EYgha8Qo46AhYoiY
asSM8FXgrNEPHxGzRnbx5bAgVoC42cOXg4ix8MWaCKXlzYdYgYBGOUxEzBrx
JEJ1VYsglm3WKEenLQ6IWBr5cqILCXGjGZHOsSNiaeTLof5bHepShrlDvtIm
S/lyuNY53KClBTdKV3UOChGj4YsbMXWJk9JRxlizkC8HEUstX3L74mbNKtwQ
sVSJp4rM5U7tFVmpII7eAc2uImKJiLFHUkfurl27dv78+WCFw8+ltC/Omk7c
6Ds16pvxqrZHzEWip66uXr169uzZY8eOHTp0aO3atRUVFfEV3tXVJaVfXsJ0
xCTPQ/qBqHYprFPjhW2JeGpDeu6uXLny6quvAko/+9nPTp48+dprrz3zzDOb
N28uLy/v3bt3UVHRrQHjq3Do6C9/+csLL7xw4MAB6Ovdd99lGiyrSQlOlD8S
t5RleaNHcdSDxBKCNd65c+eOHz8O1b506dKRI0dCg/27rUePHl4vd999d9D1
C6NH/+/06e3t7fX19X369Onbt69/lzy7fv069PXNb35zyZIlY8eOhe1JX3fd
dRf88P3332d1nhE1ORFz7ObLQcRiEWMPIGfugKzf//733tqPTFIDBw4Eyta5
Vl1d3atXL39Ho0aNamhogF+tX7++vduO1dV5w1jr2hs1NbNmzaKp817dBl+D
A3v37oVFKd9wgmGhN5G+6F3iGhOn+btF+RFjDyBP4t57770jR450dnZOnjwZ
sCLtjB8/ftu2bUHP3qyqam1tnT179pgxY7xlIdD3fv/+wY2/s3p1WVlZV1ER
fH2ytnbhwoWhJT148OBly5adnjOH7PXX8vI5c+bAz4H08+fPc4woPkTSWaPf
3ghfDiIWwRdlIgT5+vGPf7xq1aoBAwaQFm666aZBgwZ9b9OmeBcvTJjgEdfS
0gJ7LV682L/B2+XlTU1NgCG0CSvAj4uLyc+BTb/DU6ZMyetrx44d8EOYwsgG
shALDZcU1ujjL5gpEUPETPH1gx/8gJwPhLXZpEmT9u7ZA4s6QCPRS5i2/N9u
3rwZKKurq/ugXz8AtrKysry8HOYsssKEn8ycORM2+1ZHB2GnZ8+esA1862/k
py0tJSUlN998M2uR85kU1pg8NMWXg4iZ46tfv36w7/Tp0/9n0SLPiSd27vzy
jh3etwsWLCArPf9PYPLKc/3h3bt79OgBjMydOzc4MCAOfkVcveOOO15uaAhu
M2zYsBP19Zs2bWKtc0FjpczvAJNXpvhyEDEuxASr7vXXX583bx7sOHXq1KAf
d955J/kCDqBgevIAhG9hpffsxo3elv8cMMD7Gg6mxo0bB21W+QD8R0kJUEPm
Jlg3PvDAA1GD37lzJ/mib9++rKUuyxgwY/REnc/0XZP+C1hslcNXaVevXr18
+fKZM2cefvhh2PHWW29tbW0NunKkuXmOe/KhubkZNlu6dOm9995722239enT
Z0f3BPfO5MnwW/98R7R69eqBAwcCZUBiY2MjrAlz7kIUfk4ZCMrTj6xFzmpy
uzbFl4OIBfhiSlnixldcO3r06NNPP/2FL3yhra0N2CktLSVLxJx7fgNs+PDh
cCy2ZcsWz6GD27YBKTkXw4aGBjhMA4PZraysrL6+fuLEiUDN8uXL/WOAgylv
X9Is7A7zV01NjXe6I14vuBj+1/r1rHyxRo/JxHtU5BilIV98+aLZ+NKlS8AF
MDVkyJBgYRCyRrlW4xpQA/OUd64e4ILJK89XOFyC+WipazNmzBgxYgQsHWGC
A5S8Nef6bkZgLvvDrFn0gfBmOjjcg90PHz4cP3xK4yxNuq7p95LlBqshYqzF
QLnxuXPn1qxZk1cPABH5NBkOfGClF3Rlw4YNQBlsM23aNGDw+bVrY/yGYzSY
EEeOHLlq1arPdR9kwdRG+PWOrTgQe3vKlB49eoAPv/3tbykqRytrivKlzgoe
MSX56urqevzxx3u4Bss8mMsAAf9pinh1dnZWV1fDLFZRUQHQXSwry9vgHyUl
7e3tc+fOPeRbW4JmzpwJvg0aNAgWexyxAPZP1taSr6HfnPtxwMWLF6lLSDlr
qePLKXTE2PJOv/E777wDx00wlTzW2SniHyz5xo4dm3NPBjY1NUHZw3oSlpd1
dXV/LS/P23jx4sWw5dChQ4NI+nW1T5+oXwG2D+/e7X0LwMKfiN27d3/wwQfs
5aSENT6+DCKWN9zCE+efRJrt9+7dC8dHeR/v8gkaqays9F9F3xFotr6+Puee
3Hh1yZLEBltaWj7zmc8Efw7rQ/8J/9Nz5sBfid69e7/44otipSWHNe7tWZ2X
aIWNmNr8vvTSS/3794eaLy4ufn3+fCke+y+18n8kDbMP4etEfT19a3v37Gls
bFy0aJH/w7K7777bf5AI30LL+/btE7npTAprqvOlwoKDKzAxpIAjXydPngTE
yC5tbW0S/V67di2sFaHZkpIScp3GLbfcknN/ztfgEzt3rly50jus83sLa06Y
xWDRe+HCBbFyuyGGHKylji8HpzCVfIE999xzHmJMkwulYAKCpWPPnj1Hjx4N
XZTFHn/RCJaF5LQkrEv989qkSZMqKirOnTsnUGuR8aRkjTUFNiCGfCnl69Kl
S3V1dWSvlu5PhFWooaGB9FIvg+KzlZXNzc3/HDDAP5E1NTXBRHb8+HGBcqMK
LyVuTG2q8JnVB9PVrl/K+QI7fPgwuSxwvqSjsBjt37592LBhQ4cOpTnRQRSz
JRyIbdy4cd26dRs2bCA/eXvKlF69eh04cIC33JItY3w5iBg7Ykzh/d3vfjdt
2rScO8UweXakudn/7cnaWihvyn3nzp2bc699otx+U+wtabDsHDVqlPctILZ0
6dIrV67wVhytIV/pFw9frPl67LHHcu79I6zO+U88PtbZCVXNtPvy5cv79esX
f0GIp+Ybcc7TwW3b4CjP+xYQGzFixBtvvMFbdDzGEX8bECtsvhhSwJ2sd999
d8aMGbDXfffdx+SZd18/LNUmTZp0zz33cAyvtra2qKjopxRHf3+urg79aMxT
RUUFuYkGJlNyxvIrX/mKQOmxGV/8jfPlFDpiyvkCO3bsWM79sx/s/h8lJTHO
rVy5Ev7funXrzJkzj8ROMfGqqqoij7gZM2ZMZWVlfX19e3v7ggULampq8ia4
FStWxLSzZcsWMtOtX7+e3NoGx5WXL1/mLT02ywRfhYYYAzXcyfJ2DF0lxtxR
AljBsc/nou+XpNeFCRPII6RCCeoqKvKuvU881QlHlL9oavrPNWvga5gcwcOY
q4IlGsefOJG/irKssPliSIE4X2ALFy7M6z7mukGYvwQvZcwT+bwAVnehv4Uj
voPu/TKJx3qwVpw4cSL5GvgCyr797W/zFiBPGNXtIt2QL5185Xx3R3r6Tnt7
0C2YUyjPTjCJXFuYc1kL3eB7mzYtW7Zs3Lhx8e3MmjVrQPeDCwAxaHDXrl2y
Ht+dGEZ1u0g35IuVL6ZkBcKb85/uJvpzdbV3k4hf5MFQKkQehJhz70YJ3QAo
69GjR+g9a57WrVs3q3tVSRBrbW1Vh5h4/BU5xuRDISNGHyWx8ObWuAcvfm3f
vj3olor5yxOsBokzN998c9Rpli/v2BH6NFRPgNjs2bPJ1+SqSMHrgaXHH/my
QLQpEE+xZ/6nQhGRs4WeYBlZGzapyVVLSwvxJ+a0xkE6xP5v4kRYecKx2PPP
Py9Wj1RhVLqXXCt4vhzK+EvkK3iiw/E9P81x+cojTp3IayBGjx4ds03MxVQe
YnDgBu2Ulpb+6U9/EitJafG3ga+gG6arXb+08kU+PNqzZ0+eE3+YNctbEz67
cWP8B740ujJkCOWWsEDNuc/x+EXsE4ZhxXi2sjL4c0CMPOSqrKws514Q8uGH
H4qVpJL4S3eJw4dC5is+BdyZygvua6+9Rp7JFrw17FsdHd6zRu+//36RIZ2o
r2edAcnDSxPPq+zatSt4FrTdPQt63D2s69+//3PPPSdWktLij3zZIaoUSOEL
fnLgwAHyGq853ddBeVq9ejVBbG9ggmPSEzt3sl616Ljr0pz7vLjELWGGzXvY
TmNjo+M+Pz/n3u9J814/7jCq3kuuIV+sfHGnmOx49epVmFzg6+Li4vHjx+e5
AlwcaW5OfNlKvGAqXEJ9r0qeGhoaYK1IPjWIv3LywQcf9L7+uLj49ttvd1w8
VZR0hvgqQMSosiCLL7DLly/Pnj0byhiOs4LPtf7Upz41derUF6ifdx2qT3/6
01G/ormgERax3is14ydT78E7cBy3YMGCvw8fHny5rVCBSgq+uA98hny5osoC
R76iKu3MmTOlpaXkgqU3q6ryTmiMGjVq+PDhIuNZtmzZ3yPOCm7evJnm4qt5
8+b1737H3zuTJ8fcLOa9eoncRh182qp4hfM1ZQNfDi4RfXzRI8YXXv/PT506
NWLEiEmTJhEP8u5DAcToX9kQ1C+amrwXteTpv1tbKZ9ttW7dOv9n0DEPTYW1
Irmvc8aMGfB/TU1NKGLcpS7Ol0HEkC9XbHxJyfKPfvSjoqIi71xEZ2en//Ey
ZWVleacRmASLzLwz6kDKhg0bgo9SjBEglnP/934SM5GRJ1mRJ+STq39jKGMq
+FTzFfTEdKkbEW0W5Gb50KFDUIfewy6cG29mgRWX/w19TIIDIu+zbJizgOJp
06a1h11RHC+C2NixY72f3HHHHVEbL1++/Mnlyx91LwODgzgYGvwNCSswtspH
vtIv2kSwpiw+y11dXTCh5G68lv7LO3Z4V3QAF9yI9enTp6Wl5YmdO4Hf4KvE
6EVOvMNx1qtLlvy1vByOFseMGRO1MSwRybnEa+78VVxcfPTo0ehKo0UA+Uq/
aBMhkujgb8+fPz99+vScexSzatUqz5uKigrycBtuxAi5JSUlncJ3k8Gs6v9o
7M2qqgEDBkQxCxuTpzKSd/mNGzfuzJkzSSWXAII4XwYRQ75y5vgCe+uttyZO
nJhzz6uTUwREr8+fT86TcyPWt29fgDf+fhNK5SHmuI9uy3snu6fbbruNrEXJ
6fpHH3302rVrdLUXAgU3JjbA5SBf/xZVLlizRlMer7zyCnl6zJ133ll543kJ
mH3gIGjRokUciMGiTuKt0IBYLvBOFji4y3vPJgiWkb169fra1762ceNG2GXk
yJGJD55KBE2QL4OIIV/dok2EdL7A/vjHP8JxDWwAS6/gIzt+2tIyderU3b43
CiXq4+Ji1qdXJYogFiS9pqYm77R/W1tbY2PjAw88QK4H+/znP89bjdnjq9AR
Y4oYR4SjNoNjMTjsyrk3P8ISK9Q/phc6iHyIFqUoxGAiy7v7Bpa1sEokl9av
WbPm0qVLDEUZDRp3C0y9yzXkq1u0uVDBF9gnn3xC3uAAs1XU1bZwSEU5mLq6
ugsTJkiP0bBhw3Luo0KCv/Ivbk/W1nZ0dNx1112w8YQJE44cOUJbjtGhQ77S
L6p0MCWOKdFdXV1f+tKXcu4jr/Pe1eVpyZIlNFcSAl98L5CN12n3OR5R+HuP
0LlYVlZdXV1VVQUbDx48+JlnnmGoSN7oSdlRuiFfPjFTwxHhxO3hcAxWYqNH
jwbW5s2bFzwZDuuxZcuWxY/k0JYtrM/ADxUAlfeOWnLPctRnzd5ZULI4BOvZ
s+f+/ftpAiUeuqgdDSIW9MR0kZsVVTpYs8aaaJjI9u3bl3PfYum4T+oIXoAx
IWn5B4SGLuToFfqoxhP19T1deynsyaXAPrlbc37343R69er1xS9+8fr165Sx
iopbSvkKc8Z4kRsUG1+UieNL9KlTp8aPHz9w4EDyyN/vtLdPnjzZ/8iOe++9
93Tgbk1Pmzdv9r9kmUOwQA0iBj0OGjQIBhK8i40I+Lr99tvJR8w5d/565JFH
PvroI/qBB4MmyBdr1xItOArTFW5WtBlhzR13uh9//PGioiL/dYAwRyxevBjg
It/GQARTmMj1UcBXcAZ8ff58whe4FPqs75O1tf7BDhky5Mknn+SYv0QYsYev
oDOmK9y42BDjiDNrgt5+++0lS5bAjmPGjPE/1qmjo6OkpGTdunXwf+jZjAsT
JgwIPBeOXqHPA4HFKnmH4JToN5TNnTuXPNkDrHfv3l//+tdZh+xInb/MIoZ8
ifBFnzvBdP/85z+HJRnZ3X+9ouM+volcEBUcDMxBMRflxiv4rNF3Jk+urKwk
PsQ8FQeWsrA6bWtrI1t2dnZevXqVdbzIV3bFhhhfqPmS9Y1vfAOmJNJC8J4s
KP7g2Xv/Q3eZ5D/WI1q9ejW5vQumsKhHbTvuyzSBTdgYqM+5byU7ffo060gF
GUG+LBYbX/Tpk5VxoGzw4MGkneBF8vPmzcv7SXV1dWtrK2sUgvyuX7+edFpa
WhrzqJCzlZXz588HvsglUjU1NceOHWMdY3b5QsQcyrxwpC8s2pw18PTTT3tP
lcl73O7ePXvyPp4uLy9/k/F04qJFiz688d1Gy5cvJ92VRb9lifQ+cuRIclEl
4euVV15hHV0wVtr2lWvIVwxi9NETCzgncdeuXfvqV786YsSInHv2I28Aec/i
qAx7Em+Mqqqq8k4/emfd50c/yuNiWRn5DNqzxsZGjvkrGCht+8o15CuGr8TU
SMm+OHE/+clPyDnGoUOH+h/fcWHCBP+bvwAxyg+dd+zYAZMUOUkIEx+5ntA7
9PM+HfD0zwEDHt69u6mpyZu2cu77LuHgC1azf/vb35jiEwyRYHhZe5doyFc8
YvTREw47mwXbPHXq1MqVK8kpiPW+M/aPdXbu6J6JALHQKxv9emLnzoULF0IL
5GzJqlWryNtm/QaTY0NDQ7lrvbot5z4ZoLdr/fv3B7ieeuqps2fPMkUmND6a
d5dooalDeXwlZkdWDYiYv9lLly7t27dv7NixOZcC7xoMmHRedi9KBF6iXmcZ
JdJaqAFHAwcOnD179hzX1qxZ893vfveoa7/+9a8vXrzIGpbQ4GjeXaKFpgvl
R4w+gNzxp8tLsnm7f/TRR8ePH4dDoZtuugkQ8J5VVVNT89KKFc3NzeSJankK
faRAZ2cnLDtJ+9AasHbPPfc89NBDT7n2/e9//5e//CVMne+9994V1ziuhkoc
vubdJRrylcgXPWIiKeBNVgJoMJ3t37+f3L85atQoWCvu2rVr8ODBsITLu9ME
1pDe87GJYH0IExN5XxgsOydOnLh06dKDBw+eOXOG4yNjJssMX0FnTJe0bUrO
kXgqpVRRDGvXr1//1a9+tX379r59+8IcVFJS4v129erV3+roaGpqIq98HT9+
/IoVK2bNmgUw3nLLLbBxz549YQXY1tZ2+PDht956C8jiux5eZGiad5dryJcg
X47wFObwIhZ0IB60jz/++Nlnn4VDMFjmBV/K4DeY4EpLS6urq7du3frDH/7w
N7/5jQasooajeXfphohlALGgJzGgwTQEy7yXX375s5/9bGNjI8xr3nk/WAS2
trbu27fvxRdfhG1ghal6NZg4BMHdjSOGfNnAlyMPsWCbMax1dXV98sknJ06c
8M77AVBdrsn1hM9hwd2NwxVwyXg9WygGxGTlQrCdmJajQLPExB2zbWjIl0S+
JCJmhDXpfQn6Jri7fSMyXsx2yjBiKnCwk7Ks84WI8fPlaDxNIbGQVLQpyxnB
3Y0MIckl48Vsp6jyJTGtjHhJqCgVbQr6ILi7Ts+pXTJeyXaKNl9y08qOl2h1
SW9QpGv9LUi3oEcoEcQ0ZJYaL8m1qrpuxbvQ46eYS8bL2FrRpsxIcllQY3NP
SiMcvZhqRK4FPUqJ2EpJJ2KmkssYk0CMxLqQ7rmUdkS8kmJ57rCXdCr4kugn
VeKM5DemtJiDxdgX6+40rbE2EmyHowW5FhyTWDFbC5dc95JzZyTFIQOm2ywh
aoydcoxdcPeodjhakGvBMVk2WfA5E7WlZAcoY6snlQ7X6ogtqQLtsO7LPPiw
pvgakWjBYUmdL+LbVAGXUq7z3aCMrZ5U5nXK1zVtRnlboN+F1fPQpvgakWih
I5PNV0yzEvnSRpbViOUHRV5T4UHn2j1xM1k+c7cjy0IHl1TYIhRQ7m4/XOng
S1bXsQlN6CVmF47WWP3kbkqKhQ5OBl8qiIgxI3wlI6Y/0RqqKzYRkT3G7yXF
Z4lNyTL2QqXZRjpoCQkxy1d8HjXnWmeBxaWEfRdxh+W2JsW012pCdFk21uNw
yhAzUmCRuZG0Pbcbgg2Km7lylWLG4aJlR1u6DdZYZJK4NhN3QLxBcTNdsSIm
3pc+xLQlPWSQ2i0yYbEbSO9XvEFxU1ZyqkFT1L5yxPTnVEOPNG4kxF1Bd+Jt
ipu8AtPGmgZ4OXpJzqm2vNtWZsmxVtOLlGblusRVWvaL25QgpjmtqrujtLgo
q2lfSrNyXWIvKimlbpAvub4lZFZP6m0rM2JxOVDTvpRmBU24omTVubre+Xrh
cyk5sxqyb1uZJeRbTRdSmhU0LeXNypdcTzQPMBkfDQVgVaUl5FhZL7JaFjHt
5RffXWQSpHaqmi8nMb+qa8CeSovOqUzHlDYuYgqKmb7a6RkUcUzz6G7oNDHs
ejKrrhcmN9S5pKELWV7pqkBWLrg9NDU6w4gZr7S4/KnvS3oXHGY3X1JAMzs0
W/jSX2864QrtTkUvrJYSvhIpC3pOs40+nxPjryG5Krqg7Fq1G9o6YjULKlAR
aHEZtgcxnVWnoguafjX4oK0jVrOg/PSDZsbPxBSozq+K9uN71FDz2jriMGvK
Tw9x5h1LTITSFEtvPL47PTWvuTsms68IM6y4vOvhS3XV6YcrqlN13TEZ8pV5
xGzgS3OP6rpjsqhgoFQjFp8RpVmW23hMR5nskcmQL9sQU1QhGmoP4Qoa8mWQ
L52Iqa5Ae+Cyni/jtVcgSkZMXaLVtaytzpEvFA1i8XlRlGgVbeqscPvJchAu
84qrCpsRiyEL4SIWEx6UVYgpyrisdiyByza+HJy/bFFkeUivHJFqjMdKW4Wn
GS7ky5Q0IcZXkzRkmYUL+UIlKbJI5NYPfU1SYoVwhRrCZZniSkViFdGUJRNZ
CFeoIV/2KbJg5NZSfHEiXOIW5SzKtCJrRmJFsRJksJ6tcobSEC67pRAxEbIQ
LnpDvixWZP1QlpYgRJbUs1XOMFmovyibFFlF8QUmBySjlWynV0wW6i/KMkVW
UWiNiVJkQQ1b6xiTRbmMsk+RtSSMjkWla7l7rBbqNcpKRRZVqguSCShrRxFq
CFfaxI+Y/uqKt6wy5RnClU7xIKa/uuIt22Q5CFe6FVd49hdktskihnylXGkt
v2xj5RnylX6lrxQLgSwHz8lnR+moSZo5KxUDoTSEKytKQWUWGlwO8pUpWVe3
lEBlFS4H+cqa0mqmOVBioQNFpVxpMtMEKLSoEaMyIdvNdPkrt9BBozIk68x0
yWu10ACgsqXk8kasVFhUJFBZFFupB7dHplgN4SowYfHrM5y8ClWImA5Dvgpb
OJcpNIQL5QopU2LIF6pbgSJAEzOECxUQUibNkC9UhJAyCYZ8oaIVURxodIZw
oSiEiHFa1B8o0wlF2SmkjM0QLhS7cDqjMoQLJSCkLM4QLpQkIWX5FgEX8oXi
FlL2b0O+UAqEK8Z/GcKFUqmCpiwaLuQLJVcFRxnChdKuQqEM4UIZVWZBiyUL
4ULpVNYoQ7hQ9ikjlCFcKIuVbsoQLlQaFFaadlsSWQgXyjalhjKEC5VaWU0Z
BVkIF8p+RRQuwqUmsOnxHyVR0UVgI1k2FyerGXeYxm3j7mVJESFGrNiDxmKp
8Nl4nLOhpCinEi6l5cHnvMEC5jZtHhaCkmKtiSxZaVVUIeJua65hQVPtXgGK
IuhWk5U3ED2REWnKSCqNBBBFmR1fnuTApXQIqgMipUFtGVQUahS3VJs25xUF
QZaHehKnNNooEakwI55LHLh095TmS0+0UYKSZTb4LDJSdR6qGLLOaKMkykKa
BF01NRyJXVgYfFThyEK4onyTMjrjAUcVpvSQxbEvd9f6/yCgUKySWJ/cBc/K
OOv2KFTalWjiLYh3gUKlVBIp0MMXEopKi1SwYKpB48FEofIUU6jixSyFCCYz
Hk8UioijPvXXM4cZDywKJVKZOksaOUKlUeLlqqfgES6UVUqsQLkVq7rykSyU
beIz6Z2qGIvx2KJQjna4YjqV26bxwKJQRJrhSuxXSlPGo4pCBaWHLMpOKftF
uFAoGkkx46NAoSwX8oVCaRDyhUJpEPKFQukUYoVCoVAoFAqFQqFQKBQKhaLS
/wPWI1Pc
              "], {{0, 302}, {289, 0}}, {0, 255},
              ColorFunction->RGBColor],
             BoxForm`ImageTag[
             "Byte", ColorSpace -> "RGB", Interleaving -> True],
             Selectable->False],
            BaseStyle->"ImageGraphics",
            ImageSize->{121.04999534607026`, Automatic},
            ImageSizeRaw->{289, 302},
            PlotRange->{{0, 289}, {0, 302}}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "140", "}"}], ",", 
             RowBox[{"{", "130", "}"}]}], "}"}]}], "]"}]}], ";", 
        "
", "
", 
        "
", 
        RowBox[{
         RowBox[{"ShowGreen", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Green", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], 
             "]"}], ",", "Null", ",", 
            RowBox[{"Enabled", "->", "False"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"ShowBlue", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], 
             "]"}], ",", "Null", ",", 
            RowBox[{"Enabled", "->", "False"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square1MoveHerePlz", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Green", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Text", "[", 
                  RowBox[{
                  "\"\<Move wolf here?\>\"", ",", " ", "Center", ",", 
                   " ", "Center"}], "]"}], ",", "Black", ",", " ", 
                 "15"}], "]"}]}], "}"}], "]"}], ",", 
            "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square1", "=", 
               RowBox[{"Square1WolfClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square5", "==", 
                 RowBox[{"Square5GoatNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"Square5GoatClick", "[", "]"}]}]}], "]"}], 
              ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square9", "==", 
                 RowBox[{"Square9CabbageNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"Square9CabbageClick", "[", "]"}]}]}], "]"}],
               ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], 
           "
", "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square4MoveHerePlz", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Green", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Text", "[", 
                  RowBox[{
                  "\"\<Move wolf here?\>\"", ",", " ", "Center", ",", 
                   " ", "Center"}], "]"}], ",", " ", "Black", ",", 
                 " ", "15"}], "]"}]}], "}"}], "]"}], ",", 
            "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square4", "=", 
               RowBox[{"Square4WolfClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square8", "==", 
                 RowBox[{"Square8GoatNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"Square8GoatClick", "[", "]"}]}]}], "]"}], 
              ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square12", "==", 
                 RowBox[{"Square12CabbageNoClick", "[", "]"}]}], ",", 
                
                RowBox[{"Square12", "=", 
                 RowBox[{"Square12CabbageClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}], ",", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}]}], 
           "]"}]}]}], ";", "
", 
        RowBox[{
         RowBox[{"Square5MoveHerePlz", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Green", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Text", "[", 
                  RowBox[{
                  "\"\<Move goat here?\>\"", ",", " ", "Center", ",", 
                   " ", "Center"}], "]"}], ",", " ", "Black", ",", 
                 " ", "15"}], "]"}]}], "}"}], "]"}], ",", 
            "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square5", "=", 
               RowBox[{"Square5GoatClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square1", "==", 
                 RowBox[{"Square1WolfNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"Square1WolfClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square9", "==", 
                 RowBox[{"Square9CabbageNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"Square9CabbageClick", "[", "]"}]}]}], "]"}],
               ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square8MoveHerePlz", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Green", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Text", "[", 
                  RowBox[{
                  "\"\<Move goat here?\>\"", ",", " ", "Center", ",", 
                   " ", "Center"}], "]"}], ",", " ", "Black", ",", 
                 " ", "15"}], "]"}]}], "}"}], "]"}], ",", 
            "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square8", "=", 
               RowBox[{"Square8GoatClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square4", "==", 
                 RowBox[{"Square4WolfNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"Square4WolfClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square12", "==", 
                 RowBox[{"Square12CabbageNoClick", "[", "]"}]}], ",", 
                
                RowBox[{"Square12", "=", 
                 RowBox[{"Square12CabbageClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"CheckForEnd", "[", "]"}]}], 
             "
", "}"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square9MoveHerePlz", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Green", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Text", "[", 
                  RowBox[{
                  "\"\<Move cabbage here?\>\"", ",", " ", "Center", 
                   ",", " ", "Center"}], "]"}], ",", "Black", ",", 
                 " ", "15"}], "]"}]}], "}"}], "]"}], ",", 
            "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square9", "=", 
               RowBox[{"Square9CabbageClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square5", "==", 
                 RowBox[{"Square5GoatNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"Square5GoatClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square1", "==", 
                 RowBox[{"Square1WolfNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"Square1WolfClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square12MoveHerePlz", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Green", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Text", "[", 
                  RowBox[{
                  "\"\<Move cabbage here?\>\"", ",", " ", "Center", 
                   ",", " ", "Center"}], "]"}], ",", " ", "Black", 
                 ",", " ", "15"}], "]"}]}], "}"}], "]"}], ",", 
            "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square12", "=", 
               RowBox[{"Square12CabbageClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square8", "==", 
                 RowBox[{"Square8GoatNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"Square8GoatClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square4", "==", 
                 RowBox[{"Square4WolfNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"Square4WolfClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"BoatNoClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{"Boat", ",", "Null", ",", " ", 
            RowBox[{"Enabled", "->", "False"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}]}], 
           "]"}]}]}], ";", "
", 
        RowBox[{
         RowBox[{"Square6CannotMoveBoat", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Text", "[", 
                  RowBox[{
                  "\"\<Cannot move boat!\>\"", ",", " ", "Center", 
                   ",", " ", "Center"}], "]"}], ",", " ", "White", 
                 ",", " ", "15"}], "]"}]}], "}"}], "]"}], ",", "Null",
             ",", 
            RowBox[{"Enabled", "->", "False"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square7CannotMoveBoat", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Text", "[", 
                  RowBox[{
                  "\"\<Cannot move boat!\>\"", ",", " ", "Center", 
                   ",", " ", "Center"}], "]"}], ",", " ", "White", 
                 ",", " ", "15"}], "]"}]}], "}"}], "]"}], ",", "Null",
             ",", 
            RowBox[{"Enabled", "->", "False"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", "
", 
        RowBox[{
         RowBox[{"Square7MoveBoatHere", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Text", "[", 
                  RowBox[{
                  "\"\<Move boat here?\>\"", ",", " ", "Center", ",", 
                   " ", "Center"}], "]"}], ",", " ", "White", ",", 
                 "14"}], "]"}]}], "}"}], "]"}], ",", 
            "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square1", "==", 
                 RowBox[{"Square1MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square4", "==", 
                 RowBox[{"Square4MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square5", "==", 
                 RowBox[{"Square5MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square8", "==", 
                 RowBox[{"Square8MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square9", "==", 
                 RowBox[{"Square9MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square12", "==", 
                 RowBox[{"Square12MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square12", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square1", "==", 
                 RowBox[{"Square1WolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"Square1WolfNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square5", "==", 
                 RowBox[{"Square5GoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square9", "==", 
                 RowBox[{"Square9CabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square6", "==", 
                 RowBox[{"Square6BoatWolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"Square4MoveHerePlz", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square6", "==", 
                 RowBox[{"Square6BoatGoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"Square8MoveHerePlz", "[", "]"}]}]}], "]"}], 
              ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square6", "==", 
                 RowBox[{"Square6BoatCabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square12", "=", 
                 RowBox[{"Square12MoveHerePlz", "[", "]"}]}]}], "]"}],
               ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square6", "==", 
                 RowBox[{"Square6BoatWolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7BoatWolfClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square6", "==", 
                 RowBox[{"Square6BoatGoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7BoatGoatClick", "[", "]"}]}]}], 
               "]"}], ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square6", "==", 
                 RowBox[{"Square6BoatCabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7BoatCabbageClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square6", "==", 
                 RowBox[{"BoatNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"BoatNoClick", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square7", "==", 
                  RowBox[{"BoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfNoClick", "[", "]"}]}]}], ",", 
                " ", 
                RowBox[{"Square4", "=", 
                 RowBox[{"Square4WolfClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square7", "==", 
                  RowBox[{"BoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"Square8GoatClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square7", "==", 
                  RowBox[{"BoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square12", "=", 
                 RowBox[{"Square12CabbageClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"Square6MoveBoatHere", "[", "]"}]}], ";"}], 
             "
", "}"}], ",", "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square6MoveBoatHere", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{
            RowBox[{"Graphics", "[", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", 
               RowBox[{"Rectangle", "[", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Text", "[", 
                  RowBox[{
                  "\"\<Move boat here?\>\"", ",", " ", "Center", ",", 
                   " ", "Center"}], "]"}], ",", " ", "White", ",", 
                 " ", "14"}], "]"}]}], "}"}], "]"}], ",", 
            "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square1", "==", 
                 RowBox[{"Square1MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square4", "==", 
                 RowBox[{"Square4MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square5", "==", 
                 RowBox[{"Square5MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square8", "==", 
                 RowBox[{"Square8MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square9", "==", 
                 RowBox[{"Square9MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square12", "==", 
                 RowBox[{"Square12MoveHerePlz", "[", "]"}]}], ",", 
                RowBox[{"Square12", "=", 
                 RowBox[{"ShowGreen", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square4", "==", 
                 RowBox[{"Square4WolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"Square4WolfNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square8", "==", 
                 RowBox[{"Square8GoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square12", "==", 
                 RowBox[{"Square12CabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square12", "=", 
                 RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square7", "==", 
                 RowBox[{"Square7BoatWolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"Square1MoveHerePlz", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square7", "==", 
                 RowBox[{"Square7BoatGoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"Square5MoveHerePlz", "[", "]"}]}]}], "]"}], 
              ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square7", "==", 
                 RowBox[{"Square7BoatCabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"Square9MoveHerePlz", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square7", "==", 
                 RowBox[{"Square7BoatWolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6BoatWolfClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square7", "==", 
                 RowBox[{"Square7BoatGoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6BoatGoatClick", "[", "]"}]}]}], 
               "]"}], ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square7", "==", 
                 RowBox[{"Square7BoatCabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6BoatCabbageClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square7", "==", 
                 RowBox[{"BoatNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"BoatNoClick", "[", "]"}]}]}], "]"}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square6", "==", 
                  RowBox[{"BoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfNoClick", "[", "]"}]}]}], ",", 
                " ", 
                RowBox[{"Square1", "=", 
                 RowBox[{"Square1WolfClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square6", "==", 
                  RowBox[{"BoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"Square5GoatClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square6", "==", 
                  RowBox[{"BoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"Square9CabbageClick", "[", "]"}]}]}], "]"}],
               ";", "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"Square7MoveBoatHere", "[", "]"}]}]}], 
             "
", "}"}], ",", "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", "
", 
        RowBox[{
         RowBox[{"Square1WolfClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"Wolf", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square1", "=", 
               RowBox[{"Square1MoveHerePlz", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"Square6BoatWolfClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"Square7MoveBoatHere", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square5", "==", 
                 RowBox[{"Square5GoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square8", "==", 
                 RowBox[{"Square8GoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], "]"}], 
              ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square9", "==", 
                 RowBox[{"Square9CabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square12", "==", 
                 RowBox[{"Square12CabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square12", "=", 
                 RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square4WolfClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"Wolf", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square4", "=", 
               RowBox[{"Square4MoveHerePlz", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"Square7BoatWolfClick", "[", "]"}]}], " ", ";",
               "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"Square6MoveBoatHere", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square5", "==", 
                 RowBox[{"Square5GoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], "]"}], 
              ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square8", "==", 
                 RowBox[{"Square8GoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], "]"}], 
              ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square9", "==", 
                 RowBox[{"Square9CabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square12", "==", 
                 RowBox[{"Square12CabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square12", "=", 
                 RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";"}], "
", "}"}], ",", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", "
", 
        RowBox[{
         RowBox[{"Square1WolfNoClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{"Wolf", ",", "Null", ",", " ", 
            RowBox[{"Enabled", "->", "False"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square4WolfNoClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{"Wolf", ",", "Null", ",", " ", 
            RowBox[{"Enabled", "->", "False"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", "
", 
        RowBox[{
         RowBox[{"Square5GoatClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"Goat", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square5", "=", 
               RowBox[{"Square5MoveHerePlz", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"Square6BoatGoatClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"Square7MoveBoatHere", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square1", "==", 
                 RowBox[{"Square1WolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"Square1WolfNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square4", "==", 
                 RowBox[{"Square4WolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"Square4WolfNoClick", "[", "]"}]}]}], "]"}], 
              ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square9", "==", 
                 RowBox[{"Square9CabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square12", "==", 
                 RowBox[{"Square12CabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square12", "=", 
                 RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", " ", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square8GoatClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"Goat", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square8", "=", 
               RowBox[{"Square8MoveHerePlz", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"Square7BoatGoatClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"Square6MoveBoatHere", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square1", "==", 
                 RowBox[{"Square1WolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"Square1WolfNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square4", "==", 
                 RowBox[{"Square4WolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"Square4WolfNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square9", "==", 
                 RowBox[{"Square9CabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square12", "==", 
                 RowBox[{"Square12CabbageClick", "[", "]"}]}], ",", 
                RowBox[{"Square12", "=", 
                 RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", " ", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", "
", 
        RowBox[{
         RowBox[{"Square5GoatNoClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{"Goat", ",", "Null", ",", " ", 
            RowBox[{"Enabled", "->", "False"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square8GoatNoClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{"Goat", ",", "Null", ",", " ", 
            RowBox[{"Enabled", "->", "False"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", "
", 
        RowBox[{
         RowBox[{"Square9CabbageClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"Cabbage", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square9", "=", 
               RowBox[{"Square9MoveHerePlz", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"Square6BoatCabbageClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"Square7MoveBoatHere", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square5", "==", 
                 RowBox[{"Square5GoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square8", "==", 
                 RowBox[{"Square8GoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square1", "==", 
                 RowBox[{"Square1WolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"Square1WolfNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square4", "==", 
                 RowBox[{"Square4WolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"Square4WolfNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", " ", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square12CabbageClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"Cabbage", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square12", "=", 
               RowBox[{"Square12MoveHerePlz", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"Square7BoatCabbageClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"Square6MoveBoatHere", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square5", "==", 
                 RowBox[{"Square5GoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square8", "==", 
                 RowBox[{"Square8GoatClick", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square1", "==", 
                 RowBox[{"Square1WolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"Square1WolfNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square4", "==", 
                 RowBox[{"Square4WolfClick", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"Square4WolfNoClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
                ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfNoClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatNoClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", " ", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", "
", 
        RowBox[{
         RowBox[{"Square9CabbageNoClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{"Cabbage", ",", "Null", ",", " ", 
            RowBox[{"Enabled", "->", "False"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square12CabbageNoClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", 
           RowBox[{"Cabbage", ",", "Null", ",", " ", 
            RowBox[{"Enabled", "->", "False"}], ",", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", "
", 
        RowBox[{
         RowBox[{"Square6BoatWolfClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"BoatWolf", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square1", "=", 
               RowBox[{"Square1WolfClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square5", "==", 
                 RowBox[{"Square5GoatNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"Square5GoatClick", "[", "]"}]}]}], "]"}], 
              ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square9", "==", 
                 RowBox[{"Square9CabbageNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"Square9CabbageClick", "[", "]"}]}]}], "]"}],
               ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square6BoatGoatClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"BoatGoat", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square5", "=", 
               RowBox[{"Square5GoatClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square1", "==", 
                 RowBox[{"Square1WolfNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"Square1WolfClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square9", "==", 
                 RowBox[{"Square9CabbageNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square9", "=", 
                 RowBox[{"Square9CabbageClick", "[", "]"}]}]}], "]"}],
               ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square6BoatCabbageClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"BoatCabbage", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square9", "=", 
               RowBox[{"Square9CabbageClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square6", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square5", "==", 
                 RowBox[{"Square5GoatNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square5", "=", 
                 RowBox[{"Square5GoatClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square1", "==", 
                 RowBox[{"Square1WolfNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square1", "=", 
                 RowBox[{"Square1WolfClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square7", "=", 
                 RowBox[{"Square7CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", "
", 
        RowBox[{
         RowBox[{"Square7BoatWolfClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"BoatWolf", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square4", "=", 
               RowBox[{"Square4WolfClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square8", "==", 
                 RowBox[{"Square8GoatNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"Square8GoatClick", "[", "]"}]}]}], "]"}], 
              ";", " ", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square12", "==", 
                 RowBox[{"Square12CabbageNoClick", "[", "]"}]}], ",", 
                
                RowBox[{"Square12", "=", 
                 RowBox[{"Square12CabbageClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square7BoatGoatClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"BoatGoat", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square8", "=", 
               RowBox[{"Square8GoatClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square4", "==", 
                 RowBox[{"Square4WolfNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"Square4WolfClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square12", "==", 
                 RowBox[{"Square12CabbageNoClick", "[", "]"}]}], ",", 
                
                RowBox[{"Square12", "=", 
                 RowBox[{"Square12CabbageClick", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"CheckForEnd", "[", "]"}], ";"}], 
             "
", "}"}], ",", "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"Square7BoatCabbageClick", "[", "]"}], ":=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"Button", "[", "
", 
           RowBox[{"BoatCabbage", ",", "
", 
            RowBox[{"{", "
", 
             RowBox[{
              RowBox[{"Step", "++"}], ";", "
", 
              RowBox[{"Square12", "=", 
               RowBox[{"Square12CabbageClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"Square7", "=", 
               RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
              "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square8", "==", 
                 RowBox[{"Square8GoatNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square8", "=", 
                 RowBox[{"Square8GoatClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Square4", "==", 
                 RowBox[{"Square4WolfNoClick", "[", "]"}]}], ",", 
                RowBox[{"Square4", "=", 
                 RowBox[{"Square4WolfClick", "[", "]"}]}]}], "]"}], 
              ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square9", "==", 
                  RowBox[{"Square9CabbageClick", "[", "]"}]}]}], ",", 
                
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square1", "==", 
                  RowBox[{"Square1WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square5", "==", 
                  RowBox[{"Square5GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square12", "==", 
                  RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}], ";", "
", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Square4", "==", 
                  RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
                 RowBox[{"Square8", "==", 
                  RowBox[{"Square8GoatClick", "[", "]"}]}]}], ",", 
                RowBox[{"Square6", "=", 
                 RowBox[{"Square6CannotMoveBoat", "[", "]"}]}]}], 
               "]"}]}], "
", "}"}], ",", 
            "
", 
            RowBox[{"Appearance", "->", "\"\<Frameless\>\""}], 
            ",", "
", 
            RowBox[{"ImageSize", "->", 
             RowBox[{"{", 
              RowBox[{"140", ",", "130"}], "}"}]}]}], "]"}]}]}], ";", 
        "
", "
", 
        RowBox[{"CheckForEnd", ":=", "
", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Square4", "==", 
             RowBox[{"Square4WolfClick", "[", "]"}]}], "&&", 
            RowBox[{"Square8", "==", 
             RowBox[{"Square8GoatClick", "[", "]"}]}], "&&", 
            RowBox[{"Square12", "==", 
             RowBox[{"Square12CabbageClick", "[", "]"}]}]}], ",", 
           "
", 
           RowBox[{"{", "
", 
            RowBox[{
             RowBox[{"Square1", "=", 
              RowBox[{"ShowGreen", "[", "]"}]}], ";", 
             "
", 
             RowBox[{"Square2", "=", 
              RowBox[{"ShowBlue", "[", "]"}]}], ";", 
             "
", 
             RowBox[{"Square3", "=", 
              RowBox[{"ShowBlue", "[", "]"}]}], ";", 
             "
", 
             RowBox[{"Square4", "=", 
              RowBox[{"Square4WolfNoClick", "[", "]"}]}], ";", 
             "
", 
             RowBox[{"Square5", "=", 
              RowBox[{"ShowGreen", "[", "]"}]}], ";", 
             "
", 
             RowBox[{"Square6", "=", 
              RowBox[{"Congratulations", "[", "]"}]}], ";", 
             "
", 
             RowBox[{"Square7", "=", 
              RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
             "
", 
             RowBox[{"Square8", "=", 
              RowBox[{"Square8GoatNoClick", "[", "]"}]}], ";", 
             "
", 
             RowBox[{"Square9", "=", 
              RowBox[{"ShowGreen", "[", "]"}]}], ";", 
             "
", 
             RowBox[{"Square10", "=", 
              RowBox[{"ShowBlue", "[", "]"}]}], ";", 
             "
", 
             RowBox[{"Square11", "=", 
              RowBox[{"ShowBlue", "[", "]"}]}], ";", 
             "
", 
             RowBox[{"Square12", "=", 
              RowBox[{"Square12CabbageNoClick", "[", "]"}]}]}], 
            "
", "}"}]}], "
", 
          "]"}]}], ";", "
", 
        RowBox[{
         RowBox[{"Congratulations", "[", "]"}], ":=", 
         "
", 
         RowBox[{"Square6", "=", 
          RowBox[{"Dynamic", "@", 
           RowBox[{"Button", "[", "
", 
            RowBox[{
             RowBox[{"Graphics", "[", 
              RowBox[{"{", 
               RowBox[{"Green", ",", 
                RowBox[{"Rectangle", "[", 
                 RowBox[{"{", 
                  RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", " ", 
                RowBox[{"Style", "[", 
                 RowBox[{
                  RowBox[{"Text", "[", 
                   RowBox[{
                   "\"\<CONGRATULATIONS\>\"", ",", " ", "Center", ",",
                     " ", "Center"}], "]"}], ",", " ", "Black", ",", 
                  " ", "11"}], "]"}]}], "}"}], "]"}], ",", 
             "
", "Null", ",", 
             "
", 
             RowBox[{"Enabled", "->", "False"}], ",", 
             "
", 
             RowBox[{"ImageSize", "->", 
              RowBox[{"{", 
               RowBox[{"140", ",", "130"}], "}"}]}]}], 
            "
", "]"}]}]}]}], ";", 
        "
", 
        RowBox[{
         RowBox[{"ResetGrid", "[", "]"}], ":=", "
", 
         RowBox[{"(", "
", 
          RowBox[{
           RowBox[{"Step", " ", "=", " ", "0"}], ";", 
           "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "1"}], ",", " ", 
             RowBox[{"Box", " ", "1"}]}], "*)"}], 
           RowBox[{"Square1", "=", 
            RowBox[{"Square1WolfClick", "[", "]"}]}], ";", 
           "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "1"}], ",", " ", 
             RowBox[{"Box", " ", "2"}]}], "*)"}], 
           RowBox[{"Square2", "=", 
            RowBox[{"ShowBlue", "[", "]"}]}], ";", 
           "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "1"}], ",", " ", 
             RowBox[{"Box", " ", "3"}]}], "*)"}], 
           RowBox[{"Square3", "=", 
            RowBox[{"ShowBlue", "[", "]"}]}], ";", 
           "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "1"}], ",", " ", 
             RowBox[{"Box", " ", "4"}]}], "*)"}], 
           RowBox[{"Square4", "=", 
            RowBox[{"ShowGreen", "[", "]"}]}], ";", 
           "
", "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "2"}], ",", " ", 
             RowBox[{"Box", " ", "1"}]}], "*)"}], 
           RowBox[{"Square5", "=", 
            RowBox[{"Square5GoatClick", "[", "]"}]}], ";", 
           "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "2"}], ",", " ", 
             RowBox[{"Box", " ", "2"}]}], "*)"}], 
           RowBox[{"Square6", "=", 
            RowBox[{"BoatNoClick", "[", "]"}]}], ";", 
           "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "2"}], ",", " ", 
             RowBox[{"Box", " ", "3"}]}], "*)"}], 
           RowBox[{"Square7", "=", 
            RowBox[{"Square7CannotMoveBoat", "[", "]"}]}], ";", 
           "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "2"}], ",", " ", 
             RowBox[{"Box", " ", "4"}]}], "*)"}], 
           RowBox[{"Square8", "=", 
            RowBox[{"ShowGreen", "[", "]"}]}], ";", 
           "
", "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "3"}], ",", " ", 
             RowBox[{"Box", " ", "1"}]}], "*)"}], 
           RowBox[{"Square9", "=", 
            RowBox[{"Square9CabbageClick", "[", "]"}]}], ";", 
           "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "3"}], ",", " ", 
             RowBox[{"Box", " ", "2"}]}], "*)"}], 
           RowBox[{"Square10", "=", 
            RowBox[{"ShowBlue", "[", "]"}]}], ";", 
           "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "3"}], ",", " ", 
             RowBox[{"Box", " ", "3"}]}], "*)"}], 
           RowBox[{"Square11", "=", 
            RowBox[{"ShowBlue", "[", "]"}]}], ";", 
           "
", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"Row", " ", "3"}], ",", " ", 
             RowBox[{"Box", " ", "4"}]}], "*)"}], 
           RowBox[{"Square12", "=", 
            RowBox[{"ShowGreen", "[", "]"}]}], ";"}], 
          "
", ")"}]}], ";", "
", 
        
        RowBox[{"ResetGrid", "[", "]"}], ";", "
", 
        RowBox[{"Step", "=", "0"}], ";"}], "
", 
       ")"}]}]}], "]"}], ",", "
", 
   RowBox[{"Row", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Button", "[", 
       RowBox[{"\"\<Reset game?\>\"", ",", 
        RowBox[{"ResetGrid", "[", "]"}], ",", " ", 
        RowBox[{"BaseStyle", "->", 
         RowBox[{"{", 
          RowBox[{"\"\<GenericButton\>\"", ",", "20", ",", "Bold"}], 
          "}"}]}], ",", " ", 
        RowBox[{"FrameMargins", "->", "5"}]}], "]"}], "}"}], ",", 
     RowBox[{"Alignment", "->", "Center"}], ",", 
     RowBox[{"ImageSize", "->", "622"}]}], "
",
     "]"}]}], "
", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.5509358849829435`*^9, {3.5509361216624813`*^9, 
   3.5509361375603905`*^9}, {3.5509361852231164`*^9, 
   3.550936325794157*^9}, {3.550936392181954*^9, 
   3.5509365026032696`*^9}, {3.5509365522781105`*^9, 
   3.5509365765614996`*^9}, {3.550936634587819*^9, 
   3.5509367441880875`*^9}, {3.5509367803091536`*^9, 
   3.550936793469906*^9}, {3.550936837174406*^9, 
   3.550936855903477*^9}, {3.550937021044923*^9, 
   3.5509370668895445`*^9}, {3.550937158382778*^9, 
   3.550937273297351*^9}, {3.550937479780161*^9, 
   3.5509374954730587`*^9}, {3.550937577515751*^9, 
   3.5509375917235637`*^9}, {3.550937713559532*^9, 
   3.5509377437882614`*^9}, {3.550937798676401*^9, 
   3.5509378228297825`*^9}, {3.5509378980470843`*^9, 
   3.5509379541812954`*^9}, {3.550937998783846*^9, 
   3.550937999113865*^9}, {3.5509380742461624`*^9, 
   3.5509380761572714`*^9}, {3.5509381145174656`*^9, 
   3.5509381285462685`*^9}, {3.55093850202063*^9, 
   3.550938510696126*^9}, {3.5509385517614746`*^9, 
   3.550938568714444*^9}, {3.5509386338211684`*^9, 
   3.550938641223592*^9}, 3.5509387842007694`*^9, {
   3.5510088259032507`*^9, 3.551008881541433*^9}, {
   3.5510090638958626`*^9, 3.551009071912321*^9}, {
   3.5510091740251617`*^9, 3.551009216111569*^9}, {
   3.551009333734297*^9, 3.5510093552515273`*^9}, {
   3.5510094436245823`*^9, 3.551009445952715*^9}, 
   3.551009561521325*^9, {3.5510097080367055`*^9, 
   3.5510097658390117`*^9}, {3.5510108276487436`*^9, 
   3.551010850012023*^9}, {3.5510116102225046`*^9, 
   3.5510116572101917`*^9}, 3.5510116944773235`*^9, 
   3.5510118431198254`*^9, 3.5510120541658964`*^9, 
   3.551012157707819*^9, {3.551012337829121*^9, 
   3.5510123386601686`*^9}, {3.5510124527036915`*^9, 
   3.5510124536107435`*^9}, {3.551012485679578*^9, 
   3.5510124923229575`*^9}, {3.5510129182723207`*^9, 
   3.551012941615656*^9}, {3.5510203148006396`*^9, 
   3.5510203190138807`*^9}, 3.55102035536796*^9, {
   3.5510204278201036`*^9, 3.5510205779136887`*^9}, {
   3.5510206133967185`*^9, 3.551020638764169*^9}, {
   3.55102067357316*^9, 3.551020695297403*^9}, 3.551020770111682*^9, {
   3.5510220269985714`*^9, 3.5510220556002073`*^9}, {
   3.551044341381295*^9, 3.5510443993671403`*^9}, 
   3.5510444498402915`*^9, {3.5510448380193496`*^9, 
   3.5510448573627343`*^9}, {3.551044923614896*^9, 
   3.5510449304402857`*^9}, {3.5510450573351793`*^9, 
   3.5510450757862344`*^9}, {3.551045116551677*^9, 
   3.5510451410198565`*^9}, {3.551045196169016*^9, 
   3.551045219329341*^9}, {3.551045291776759*^9, 3.55104530070927*^9},
    3.551045389382536*^9, {3.5510454601774225`*^9, 
   3.551045474432401*^9}, {3.5510455371721735`*^9, 
   3.5510455732843885`*^9}, {3.55104565488069*^9, 
   3.551045655066701*^9}, {3.5510457731811943`*^9, 
   3.551045773779228*^9}, {3.5510458695679026`*^9, 
   3.5510458716050186`*^9}, {3.5510459608664174`*^9, 
   3.5510459631128216`*^9}, {3.551045996049825*^9, 
   3.5510459969348755`*^9}, {3.551046040277437*^9, 
   3.55104604066846*^9}, {3.5510461002418365`*^9, 
   3.5510461159816413`*^9}, {3.5510462940482426`*^9, 
   3.55104629890452*^9}, {3.5510466675258512`*^9, 
   3.5510466731201715`*^9}, {3.551046727528619*^9, 
   3.5510467349633937`*^9}, 3.5510469617644653`*^9, {
   3.551047026246827*^9, 3.551047076781866*^9}, 
   3.5510471558683505`*^9, {3.5510472188042507`*^9, 
   3.55104734155562*^9}, 3.5510474623713484`*^9, {3.5510475964861*^9, 
   3.551047597999303*^9}, {3.5510477523002024`*^9, 
   3.551047756021415*^9}, {3.551047918150327*^9, 
   3.551047927429858*^9}, {3.5510484671116886`*^9, 
   3.5510484842733145`*^9}, {3.5510485210300455`*^9, 
   3.551048549064248*^9}, {3.5510486317138724`*^9, 
   3.551048637222187*^9}, 3.551096770274665*^9, {3.551532267609*^9, 
   3.551532280087*^9}, {3.551532356696*^9, 3.5515324385620003`*^9}, {
   3.551537710136961*^9, 3.5515377103769608`*^9}, {
   3.551537745770961*^9, 3.5515377460559607`*^9}, 
   3.7598141471981363`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Row[{
         Button["Reset game?", 
          $CellContext`ResetGrid[], 
          BaseStyle -> {"GenericButton", 20, Bold}, FrameMargins -> 
          5]}, Alignment -> Center, ImageSize -> 622]], 
      Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {
    600., {204., 234.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {}, "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
        Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> 
      DynamicModule[{$CellContext`Square1, $CellContext`Square2, \
$CellContext`Square3, $CellContext`Square4, $CellContext`Square5, \
$CellContext`Square6, $CellContext`Square7, $CellContext`Square8, \
$CellContext`Square9, $CellContext`Square10, $CellContext`Square11, \
$CellContext`Square12, $CellContext`Step = 0}, 
        Labeled[
         Dynamic[
          Pane[
           
           Grid[{{$CellContext`Square1, $CellContext`Square2, \
$CellContext`Square3, $CellContext`Square4}, {$CellContext`Square5, \
$CellContext`Square6, $CellContext`Square7, $CellContext`Square8}, \
{$CellContext`Square9, $CellContext`Square10, $CellContext`Square11, \
$CellContext`Square12}}, ItemSize -> {{
               Scaled[0.25], 
               Scaled[0.25], 
               Scaled[0.25], 
               Scaled[0.25]}}, 
            Background -> {{Green, Blue, Blue, Green}, None}], 
           ImageSize -> {600, 414}]], 
         Dynamic[
          Style[
           StringJoin["Your steps: ", 
            ToString[$CellContext`Step]], "GenericButton", Bold, 20]],
          Top], Initialization :> ($CellContext`Wolf = ImageResize[
            Graphics[
             Raster[CompressedData["
1:eJztlduNLLuRRQ9GlsiS8WFMEKBvOSpjxoT5mQBupaqbxWI8dgTXBi4W1sVp
ckcmmfX3f/zrf/75tz9//vz7///7rz+W//3vPy/BcRzHcRzHcRzHcRzHcRzH
cRzHcRzHcRzHcRzHcRzHcRzH8U989e+q++E4juM4juM4jj/z6d9V98VxHMdx
HMdx/B6P3qd6PhzHcRzHcRzH53j0PtXz4TiO4ziO4zg+x6t7VM+P4ziO4ziO
43gfV+lhrtIDx3Ecx3Ecx3E9V+nxk6v0wHEcx3Ecx3G83lV6fOoqPXAcx3Ec
x3Ecj3eVHl6u0gPHcRzHcRzH8XNX6ZHlKj1wHMdxHMdxHN93lR5VrtIDx3F8
uqv0UHWVHjiO4+oevU/377JKDxzH8WpX6YF/5io98Bzf/bvqvnitP/9/dR+1
358Vs/t4u0oPHMfxbr8PeK2r9MC/c+91q+dR8+f/r+5TfX669T31FbP7eLtK
DxzHcbXvP97bVXrg7z16n+r5qn3176r7TT8/0f1WvmJ1v2hX6YHjOK7SA+/p
Kj3wnH2q54t+HqfrVc+rfn5W3qXfp6zu6+0qPXAcn+8qPaJ+L6r74Xuu0uOZ
W/p7e/X8as9j5dU9qvZV8dPfk1Oe9ld3lR44jvdzlR5e3/vo3wP1ftO9ukf2
vt367vr094f3cu/vdfXvQbffG5UeOI7Xu0oPr+959HeuG3fnm+7T74+3V5+n
275/uLZ7f3+rv/fdfj9UeuA4nu8qPVS+39F9utFyi0+7T95efV5u+x7i2u79
Pa3+nlff711X6YHjuL+r9Ij6Xqv1uZ2Wqd79fnmvV/3+p30P8V7u/b3sxmf/
alfpgeP4uav0UP1+wlhaprj6/Xp69X053e/bfj/9u+w++Gz3/j5247O/mqv0
wHFcp0fV9z17f5hLC/6dRz9/3m9v7/4+qs8X/J0WFVfpgeM3ukqPqu979f5Q
ixb8vUc/X95nb+/+Pqr7w99pUXWVHjg+wVV6dHUI/0qLimf3i36et72/lavP
0/35q50n+DstXVylB453dJUeXR3C32hROZ/Z+3k/v+nva+Xq83R/H+r94e+0
dHWVHjiu4Co9bnUId2ipOo/R63fnc15vp39u/27npxur+z/37+4qPXA8w1V6
qHr29w/C32jpet6n8zmvt3fr3/35d+vfjdXzrPY/7Xe6frSr9MDxb1ylh4pn
f/+8+8C7aVG9D7fT0uX5rPqq9d/tq9a/+3npdr6y99/dr9pVeuD4O1fpoeLq
3yMIf6NF5T7A32mp7uF1vqq56qfWd/p5UT9fq/3U9q92lR74na7SQ8Wrvzdq
31M4i5aq+wJn0VLd41ZaqntkzXf7vOqu0gO/w1V6qHj094XvOVSipeo8Qwj9
7u80Pue7fd5urtIDn+ne63a/n979+Z7DTrRk3ScIIfyJlk99GlfzdnOVHvgM
9163+/097VP9PYPQkxaV7wGE8B5aPvVpXM3bzVV64D09eh81dut72zywNy2c
TwhhNC2f+jSu5u3mKj3wHh69D/SlhecNFWnhewEhjKblU5/G1bzdXKUH3sOj
94G+tFT3gPATWrwcQgiNlk99Op/zdneVHrimR+8DfWmp7gHhN7R86xBCaLR8
6tP5nLe7q/TANT17X7hHC88TTqQlyyGEc2nh/v95SdTzWK3v7VX74pqevS/c
o4XnCW+gJcohhHNp4f7/eUnU81it7+1V++I9XKXHLd+j1Xwrh3AyLXxfIISn
34vbaFF5/t5etS+u6So98M8cwpto4b5BCHe/D7fRorJ/tqv0wHM8eh/OVa5D
eBMt3DcI76OF+6lByxRX6YG/9+h9bjvvag7hZFpUHEKoc/9hLi1TXaUH/t6j
97n9/Fc7hDfRouoQQr/7DbVoucVVetzq0ftwH7QcwptoUXEIIZxKy62u0uMW
z963232Yfp8hvImWLg4hhF1o+da916t2lR5TPXvf6vuR3be6/65DeDMtqg4h
hKq0fOve66m5So+pnr1v9X3J7qs+39MhhDr38XaHEPah5dv7vPr77q7S41N/
/v/qPrt9vT37vqj1VZ/36RDCuvuH/+4QQh1avr2vq7+f5io9nunSd7f/qVff
H7W+1fPtOoRQ5z7irw4hrKPF636u1pvm1T3U+532j/bo+1Pdr/r74e0Qwj73
dZqrvR94Fy3VPVRo8Xo+q/VOPXu/T/tE7aPeT23eXc++T9X9qr8n3g4h7Ht/
8T2Hd9NS3UOFFq/ns1rv1LP3+7af17pqfbI9ep/q+1XdT33+lUMI+9CCf+fR
zxNq01LdQ4UW1e9V9n7efrpO9f7Vnr2v2vmP7pf9fYl2CGFfWvAah9q0VPdQ
oUX1e5S9X7Sv/l32fupe3UPtPkT3q/7+eDuEsC8tuI/D3rRU97iFlqrnv9p/
uqv08PLsfdXPZ3eu5jt1COEcWvD3DmfTUt3jFlqqnv9q/+mu0sPLs/dVuy/V
/arnPXUI4RxabnF1du+vRgvPU4MWlfe/6rP792qu0iPKs/dVO6/Z/dTnXzmE
cC4tU119fuhLC8/7Tlq6fg9OXaVHlFf3qD6/1f3U5185hPAeWvDvHMbSwvuA
f03WefJ2r/Md3bPKq3uofc+y+6nPv3II4T204N85jKWF9wE9aFH5Xnz799E9
VTx732p266t+HyGE99Jyq8NaWng/0IMWle/Jt38f3VPVs/ftdj67czXfrkMI
4U+0dHVYSwvvD2bQUuWnfVTmqPLqHurnsztX8506hBD+RIuqQy1aeH8wg5Yq
9zr/0T1VvbqH+nntztV8pw4hhJ/Sgr/322jhecEKWlTu+7d/H92zi2fvW83u
/ZkfQgg/o6W6xy20eDmEJ7RUuXc/lblUPXvfbue5O1fz7TqEEMI7aYlyCE9o
qXLvPipzqXr2vt3Pczfuzrfr8JUWnheEsBstUQ5hJC0q59lrfe/eU7y6R/fz
3Y27860cvtLC84IQqtPi5RBW0pLl0X2q5urq2ftWc9o8zF9Lyy3PZ/p83BcI
IexBS5ZH96maq6tX95h23tV5Ot/Tb6Nl6vPZnW/l6jydb+UQQghjaIny7D5Z
c0316h7dz/vT1Xg6z8qncTXvrnfvH+3T5oMQQhVaqntEzePt2X2y5prq1T26
n/eVq/F0npV352q+Xe/WFz9zCCGEMbREeXafrLlu8ex9q+k9z65Xc9o8au87
6/t3y/Os9urnBSGERkt1j6p5Tz27T9QceM2+1fSeZ9er6T3P09V4Ok+1q/N0
PnWvnh9CCI2W6h5V8556dp+oOfD3Xt2j233w9mnzT5tn12EsLV0dQgiNlp/8
Nlq8PLtP1Bz4e6/u0f1+nPr0+bv19e4Pz2iZ4hDCe2n51LvxtP/z73dd5X2d
zoF/5tU9quk9j7dPn/+27zvco6WLQwjvpeVb70bveVbrna6f9f5O18G/8+x9
q+k9j7ffPv/T4d20qHr1/BBCnfu48m6Mnme1vvd+Ue/zdB3cx7P3rab3PNE+
bd7uXM03zadxNW83hxDqfA/UWT1Pt/1/6nO6Du7j1T3U72+1d5+/G3fnw199
GlfzVjuEsO7+qlNtvq777/4dnuPVPbrdZzVXn1+Np/N4+/T5nj6Nq3mjHcKb
aeG++cz39Ox+as+j6pzhn7lKj673u9rV5q+m9zy73o2783n7NK7m9XYIJ9PC
/XrP0/meXt1X7fmonEP8vUfvc3oO1M5zN5/2/VM7T/CVlq7nSW3+XYezacF9
XJ2n8618Op/z7rrKOcXfe/Q+p+dA7Tx396z7XvX+oBYtXc6X2ry7DmfTgn/n
6jydb9erGd3nuf6uq5xb/L17r+t9vqrP73SPuu9Z7wv2okXlvHWb9+nwLlrw
GVzN5+3VzO632u/TPqfr4DF+uk70eas+v/jvXv1+YG9app6H03lWDuFfaZnq
3bmaL9rV5q3e/9N+p+vgPu69rvr5w2Nd7X3B3rRMef+n86wcwt9oUfHpfM5b
7dXM7rfab9dV3uOtHr1P9fnHe7v3+4azaOlyHk77qs0DIay776eu/jyq9/+0
n/e6+GcevY/afcC1Pfo8wNm0qJ6H3X7q80B4My1dXP35qPX5qd/pOriPR++j
fh7xWs8+H3A2LV3Oo3pfCGHeffb2aqr13e3zU7/TdXAf915X/fzhtV5NtT4w
l5as87Dab9chhH3ua7SrUa3/bp9P+3qvi3/n3ut2O494rldTvR+MpSXr/a/2
23UIYd/7Gr1+NdX67/b5tK/3uvh3frqO+v3Atbya3vOoO3ylJer57a4f3QfC
m2mpuo/R63d7nl37nq6Dx/jpOurnD9dyNZ7O083hKy1Rz293fe/9q5+XWn84
m5Ysn37fu99/r76n6+A+7r2u+vnDtVydp/N189tpiXpeu+vjrw7vpkX1vGXv
1+35V9Or/+k6uI97r6t23nBt78bd+U49uy98pUXl/eCvDmfT0uU8Ve+v/vyn
9PdeF//OvddVO2+n/av7TPfuXM0X7dF9b6fl1u+husPetHQ9L9n7dXsf1Yya
x3td/Ds/Xaf6PHl79/7dvDtX80W7Wv/uXM236+r9ujvsRUvX81C9f/V8u17N
qHm818U/c+91s89T9/XxV5/G1bze3q3v7T6dz3mjHWrT0vV9qvdTu5/V9J7n
6Vn74O/de93s81W9fvX9mebTuJo32r37VXO3r7rfRgvPcyYtvK8etEy9f6fz
rDxrH/y9e6+r9n3L3o9zvee30aLiMJeW6h6qtHCeIay/TytX5+l8T896rvhn
7r2u93mKPr/d71M3h7/TwvOfQQvv4zNaON8Q5t+flXfj7nwrz3rO+Gfuva73
eYo+v93vk5pDCLkvUc/r1CGcRAv35bv5Vp71nPHv3Htd7/MVfX6rudtXzSGE
3J+q57frEE6i5db7sTvfrmftg3/n3ut6n7fT9bpxNU+1Qwi/v7/wd1q8HMLJ
tNxy/lfznnrWPriPe6+bff+8+1RzNU+2Qwj97u/ttEQ5hHAuLVGetQ/u497r
ep/H03PVnav5oh1C6Hdfb6clyiGEc2iJ/l5E74PHuPe63ufz9Jx152q+aIcQ
+t3P22iJcgjhXFqiPGsfPMa9160+v9O4mjfaIYTcH6/nsesQwntoifKsffAc
9163+jxP42reaIcQcl8+nd/bIYT30OLlUeviGh69T/R5ns7nvNkO4U203Hpf
VvNFO4TwHlqiPGsfXMO9140+z9P5nDfbIZxMy633YzWft0MIodES5Vn74Bru
va73eb6NliqHcBItt96H1XzeDiGEP9Hi5VHr4j3ce13v83sbLSoOoTItt573
3fm8HUIIf6IlyrP2wTU9eh/vczadz3mrHcJKWm4936fznTqEEH5LS5Rn7YNr
evQ+3udsOp/zqjmEnrTcel5P5/N2CCH8lpYoz9oH7+ne63qfu+l8zqvmEO7Q
wnn8bj5vhxDCKFqiPGsfvKer9Ng9z1O4mlfN4d20cN7ec3c+b4cQwixaojxr
H7ynR+8Tff67czWfukMtWlS9G3fnO/Vu3J3v6fSFsC8tUZ61D97To/dROf+q
PJ1PzaEvLV28O1fzebs6T+fz9up+EML8+xa9D97To/dRvQ8qPJ2nm99GyxTv
ztV83q7G03luc7hHS3UP5smhJfr+Re+D9/TsfdXux2k/9fvfzdV5Op+aT+dz
3mivpvc8u969/9PhHi3VPW7tX02L9/3zXhef4dU9qu+Hdz/1efDeDl9pmfL8
o/vvujpP53v67bRMeX7d+3ejxfs8ea+Lz/DqHmr3ZVpfvJfDPVqmvI/oeVbe
nav5Vn4bLVOfX/f+3WjxPk/e6+IzvLqH+v3B73KoTYvq+/bu5+230XLL81nN
F+3d5oG+tHi/H+918ZmevW+3+4RrO5xFi8r58O7j7fCVlinPb3eebFefD8bS
4v2+vNfF7/DsfavpPQ+u5VCbllsdntHS9Xnv9s/2bv1hLi3e7897XfwOz95X
jafz4Fp+Gy1dnseq7zSHvrR0ff67/bO9W38YS4v3+/JeF7/Tq3tM53NeXNvV
33d3rubLdtiLFtX3ueqH7zmspcX7fXqvi9/p1T1upwXHb+BzXm+Hs2lRff+r
fvjvDrVoOX2fp+vg+DtX6VF9T1VpwWc4hPBzWrrcp1Vf/NWhFi3e79d7XRxX
6sH37T0teA+HEH5PS5f7ttv3Noe9aDl936fr4PgnrtLj2/t0Gy04hHAaLV3u
/27faQ5703L6/k/XwfFvvLrH6f26jRYcQjiNFtX7v9tvmsPetHifB+91cfwT
r+5xet9upwWHEHajpcv93u07zdWeF/ydFu/n7b0ujn/j1T28799ttODvHUKo
Q0vX+3zaH/f122nJft7Z++K4Uo+s+zudz3nxM4cQ1n2P1Hk6H77nt9OS/byz
98Xxd67Sw+v7FL1+d1rwGIe1tPC+NGi55f3szofv+W20qLhKDxxX6qFyv2+j
per9Zu9X/TygLy1TXI2n8zx9Op/z4md+Gy0qrtIDx9+5Sg/V+z6dz3mznfcJ
T2jBNfx2WvDP/HZaVFylB46/c5UeU+5/d67my/bsfnAWLVHvf3f9aoe5tODv
/TZaVF2lB45/4io9qr8rU/pXz+/t1X1hb1p437CCFhz+NSqu0gPHP3GVHl2/
b9PnU/uuqfWFvWjhfcMKWqY6fKVF1VV64Pg3rtKj6/dw+nxq3zn1/lCbFt43
rKBlisPfaal+P9U9cNzDVXpM+R7uzrfr6jydz9vV54G1tPB+YQUtXRzu0ZL9
frL3xfEKV+kx5Xu5O9+uq/N0Pm9XnwfW0sL7hRW0qDrco6X6fVX3wPEIV+kx
5Xu5O1+0q/F0Hm/vNh/0peXb57/797vrw7toUXG4R0v1+6rugeMZrtJjyvdz
d75sV+PpPKfefT54RovX895db3d9OJuWKodntGS/r+x9cVzBVXpM+Z7uzlft
ajyd59SrOW0edVq8nt9qvV2Hs2lRcbhHS/X7qu6B4xmu0mPK93N3PnVX5+l8
uw5n0RL1vlfrnzqcRUuVwz1ast9P9r44ruAqPaZ+T3fn6+ZqPJ3n1GFvWrLe
72q/U4e9aalyuEdL9vvJ3hfHFVylx9Tv52q+aj/t24278+067EVL1fvd3f/U
oTYtnI8etGS/n+x9cVzRVXpM+Z7uzlft0f3VeDrPrkMtWlTf52m/6v7wjJYq
h3u0RL+P6H1wvIOr9Jjy/dydL9vV5lPn6Xwrh7W0qL6v3X6nDrVo4Txo0pL9
PrL3xXFFV+lR/R3q+j17erd5u3M1367DWFq6vJ/TvqcOc2lRcfg7LdHPP3of
HO/gKj26fi9P5zt1dZ7O9/Ru3J1v5XCPlin3Mbr/ymEsLVN9GlfzervKe8Rx
BVfp0fV7dzrf06dxNe+ud+dqvl2/jRZVv21+6EvLVJ/G1bynrvLecFzRq3uo
s/t83fvteneu5lt5d67mO/Xpz/+0/6nDPVqm+HQ+5/V2lfeI44qu0qP6O+T1
vVJnt/6rvrs+jat5n96Nu/Oduvf+1Tztf+rwd1qm+HQ+5412lfeK44pe3UON
6v2qv7fV9J7n6dM4fd7VfKfe/T559z11+EpLV7+NlujnGb0Pjnd0lR7V36Fb
aJn6PqfNk/28pvE536lH79fteXj77bR08dtoyX6+2fvieAev7gFjaeH9+sxz
6rCWlqr3l72f+n14+m20dPHbaIl+ntH74PhEr+4BY2nh/frMc+qwlpaq95e9
n/p9ePp0PudVc/hKS/Tzjt4Hxyd49r4wlxbe73dczZvtMJYWlfeTvR/nP5er
eav9dlqyn3f2vjjewat7wFhaeH8xtKg69KWl6n1Er9/9/Hfnar5sv52W7Oed
vS+Od/TqHnCPFt5PT1pUHf5OC8/3PZ/zZns37s4X7bfTkv28s/fF8QmevS/c
o6X6+wpjaOni8JUWnudn80a7Ok/ni/bbaKl+3tU9cLyjR+8zjat51RzOpqWL
T+dz3l2fzue83q7O0/mifRpX82a7Sg8cn+DR+3Tj7nxq3o278z0d7tGi6t25
mm/l0/mc19vVeTpftHfnar5sV+mB4xM8e99qes9T7d24O1+2wz1aprja87qd
linP73SeaO/G3fmyXaUHjk/06H34np15N+7O193hGS34Z34bLVOe1+k80d6N
u/NFu0oPHJ/o0ftM/z6tvDtX8+G+Dmtp6epQm5YuXk3vebJdpQeOT/Tofbp9
v26jpatXn+9qh1q0cB7gO1pUvZre82S7Sg8cv8Gj9zn9XsE9WqZ49/Ov5rA3
LbzvnrSo+u3z77pKDxy/0b3XhbG0TPXqHlX7qjjUpoX324OWLn77/CtX6YHj
N7r3unCPlltcpYeXq/RQdVhLC+9Lg5YuPm2eXVfpgeP4f7r3urfTgmv1qHKV
Hire7T5252q+lcMzWrr6tHlWrtIDx/G1e687jat5b3eVHl1dpYeqd7+/auze
vxstuIar9MBxfN+j91Hn6Xy3u0qPqa7SQ9Wn32/17x/cowWvcZUeOI6fu/e6
fO97u0oP/DtX6YFrevT3Fv5OC+7jKj1wHM9373X5vvdylR54jKv0wO9w+EoL
HuMqPXAcz3eVHriPq/TAZ7hKD3yGT+dzXnzPVXrgOK7vKj3wz1ylB46/c5Ue
eA+fxtW8t7tKDxzH+7tKj6mu0gPH8fmu0sP7+9mFu/N1d5UeOI7f5yo9prhK
DxzH8Wnfe3WezqfuKj1wHMdVevD9xXEc13aVHs/veRW958l2lR44juPdfn9O
XaUHjuP47V7dI5vR85y6Sg8cx/Epvy/VPXAcx/FYV+nx/P3xYnb/lav0wHEc
V/s9qe6P4ziO9/TqHqes7r9ylR44juM4juM4foNX91hRpV91DxzHcRzHcRzH
dXqouEoPHMdxHMdxHMf3XaVHlKv0wHEcx3Ecx3H83FV6RLlKDxzHcRzHcRzH
412lx0+u0gPHcRzHcRzHcX2v7lE9P47jOI7jOI7jfTx6n+r5cBzHcRzHcRy/
x0/Xqe6P4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4z38/wAknhcZ

              "], {{0, 0}, {204, 204}}, {0., 1.}, ColorFunction -> 
              GrayLevel], Background -> RGBColor[0, 1, 0], 
             ImageSize -> {127.20000732421838`, 127.19998786926385`}, 
             PlotRange -> {{0, 204}, {0, 204}}], {{140}, {
            130}}]; $CellContext`Goat = ImageResize[
            Graphics[
             Raster[CompressedData["
1:eJzt1e3N7biSHtCGHclEMjk4BAP+7RQngAnGIXj+EHOvbu9TKpEUi9Qi0Hiw
TrOoqq2P99/+9//9X//nf/7111//+V///cd//fc//mrr//37X/+0mJmZmZmZ
mZmZmZmZmZmZmZmZmf/Ovees7p+ZmZmZ+Uuu0scvV+mDmZn575a/d8xczVX6
8H1kZuZKrtKHv5/MvPv3LZtPzx/dNzMzn+0qfVR1lT6Yef33LvtdyOao/nrP
YWbms12lj6qu0gczz//e9ebo86Pz7l6v9xxmZj7L2brRfx/fzmi+X/1l65i5
nqN9s78vb3+/fl2/9xxmZt7b2brRf79W57WfyKvvF/PJ7j3na9+7p/Nk65iZ
+WxH+6r/PfT3k7muq/TR+/5Xyd55rs7evyr3hZn5tL9H1X+P0X+vqv/9rPJc
MO/oKn2M/j5X/V697Sp9MPP3XKWPXb+nT/sb9fer+t/TKs8F846u0sfo73OV
71W171SVPph5P1fpo4qr/97Vs3e+q6s8F8wV3XvO7Pd59Plvf6+qfQ+zrtIH
M9dzlT6qfE+r//6z8+kcVVylD+Y33HvO6uztf7Sr5ah5es9h5vOcrRv9/ar2
/az++19d5e/LW9cb1e/qPphnOFv3dmb7650n+v+75XWeyKufR2bex9G+0d8r
38u//nb19j+qfvX9mO0qfTCPcLbu7cz2V32e3X6/1c8nM9d1tG/292v197L6
7z/b1f+ejb5Pq+8380j3nrP6fa7296NaXufNevXzycx1na2r/v1+Ok+27i33
nnN6XueNvPp+Ms90lT5Wv9+nZDTv1VXuOzPXd+851XLUPL3njPLoc0/LaN6r
V99P5jc9+zrV3u+3+6s2/+rnjZn3dbauembnme2378+v65+S0bxXV3kOmFc4
W1ctd+/f942Zd3G2bnVm+13tt+/Pr+vvmtF8V1e578wrnK2rlrv37/vGzLs6
2rc6785RxW/fn1/X3zWj+a6uct+ZVzhbVz1Pm8f3jZmrukofs773b59393p3
60Zdb5d8Ol+2jvkEZ+uq52nz+L4x8y5e3Uf1HDXf03OeXm+XfDpfto75RGfr
quXu/fu+MfMpztadntd5s3Z//pxP58nWMZ/o3nNW5279+r4x81ecrTsto3kj
ux9/zqfzZOuYT3TvOatzt35935j5K87WnZ7XeSO7P3/Op/1n65i/4Gzd6tyt
X983Zv6qs3WnZTTv1dXux6/+/J7M+7v3nNW5W7++b8z8VUf7Tsto3qur3Y9f
/fk9mc9ztm517tav7xszf9XZutMymvfqavfjV39f/f2YT3K2rlp+tf9sHTPz
amfrds9ovqvdj2dzVPk9mXdy7zmrc7d+fd+Y+avO1u2e0XxXux9/zqf9ZuuY
v+hsXbX8av/ZOmbm1c7W7Z7RfFdX+/1/9ffV34/5ZEf7quXduarO87TfbB0z
82pn607Lu/NG+0Y5W7c67/aXnYuZ83XV8vT+Vz8fzMyjnK3bPaP5rnY/ns2x
6vdj3tnZumr51f6zdczM1Rzt2z2j+a6u9vv/6s/vx7y/s3XV8qv9Z+uYmas5
W7d73p0v2jfK2brVebe/7FzMHO+rlnfnWt3n6P6zdczM1Z2t2y3vzhPtG+Vs
3ep82m+2jvmLztatzt363e3vAzPzKkf7dstonl/zZevu+mk/fj/m89x7zi7f
g6p5t/9oHzPz7s7WVc/sPL/m6z3nunb9fZ/2n61j/qKzdbu8/1Xz6TzZOmbm
3Rzt2y2jeSLP/j1/Xa9KPu0/W8f8RWfrqr7vu+TT+bJ1zMy7OVtXPbPz/Jrv
bt3T86tmdp5f8/Wew3yie89Z/b7vlk/ny9YxM+/mbN3uGc139dd/v6fzZeuY
v+Dec6q837vk0/mydczMuztbt3tG8139td/r6XzZOuYvOFu3y/teNZ/Ok61j
Zj7N0b7TMpq317tnNN/Vq59f5krO1u3yflfNu/1H+5iZv+5o32kZzRv59LzO
e/Xq55W5krN1q3O3fn2fmJnnONp3WkbzZn1aRvNevfr5ZV7pbN3q3K3fbP+r
nwdm5l2crTsto3kjn5bRvFevfn6ZV7r3nF3e7yr5tP9sHTPz6c7WnZ7XeSOf
ntd5I69+nplXOlu3Oqv35/vEzPyOs3Wn5dfm7f09Iq9+npnfdO851d/vavm0
/2wdM/PpztbtntF8V38928r+Xtk65h3de87qrN6f7xEz8zuO9u2e0XxXV89s
v737I69+fplXuvec1d+P1f289T3P1jEzn+5s3e65+3y9/Ub11/+f9ernmXml
s3Wrvx+r+5k9z6/5snXMzKc72rd77j5fb7/Z+uv+yKufX+ZK7j3H97Cv/1/z
ZOuYmU93tq56fm2eKr9fto75RPeec9r3ZPU8v+bL1jEzn+ZsXfU8bZ7V2Vb0
+0X7mL/obF2V93mXjOb5NV+2jpn5NGfrqudp8+zy+2XrmL/g3nPefr93z7vz
RfuYmU93tq5aZvuvPs/qbCv7+2XrmL/obN3b7/fuGc139erngZl5lbN11XL3
/qtlW9nfM1vH/EVn695+v0/LaN6rVz8fzMxvOVtXLXfvf3W21ft79p7D/AX3
njP7fT8to3mvXv18MDPPcrauWu7Wb/VsK/v7ZuuYef33ePb51TKa9+rVzwMz
8yxn66rlbv1Wz7ayv2+2jpnXf4/fvt7qjOaLvPr5YGZ+6mxdtdy9/2rZVu/v
23sO8xedrVv9/p+W0bxXr35emJnvuvec1bl7/9Wyrd7fs/ccZs7XVXn/T8lo
3qtXPy/MzL/ce87q3K3f3bKt7O+brWPmet/r2efvnm35PvIOHn3u6nn4z+49
p1qeNs/qbMv7z1zfvefM/j58LdvyvazhbN3qfqv9Hr1ePS//9bfrlO/5afOs
zra878z13XvO6O+B/Odsa5fv56rrMlfqY1f3nlM9T59vdbblfWXez9m6Wd+D
XTM7z3V/r6s9H/xtj36fVrtKH089+zqr87R5qmdbX3l/mE92tm7W92HX7J0v
2h+d/6v+bl32/LvXl/KNbGuVq/RxXbu+z6P7jyz/nG2d8n4w829H+2Z9H07J
2fNdz3/bUn4p28q+H9m6p+49p9rv12s5Ntuq+vwz8zjPvs7pOXve6/mzLf+c
bfn9zsy2svc7W/fUT/ur8nuNthybbVV9/pl5nGdf5/ScPe/1/F7LP2dbfk/5
j2sX7zavXJttZe9Xto6Z67n3nK9nW6u+z7Iv26pyP3uvnz2/93qnZ1tVXW0+
uVe2lb2/2Tpmft+jz5X/nG2t+j7LXLbl/skZ2dbT5yGqn/08vt2P92VtthX9
3tE+Zl7v0efKtdmW+/Ms21rdh5T/uJ569vWq/R6rzzs924p+r2gfM7/v0efK
WtmW+/Us21rdh/xmtjXKo69X7ffwvr+bbWXvT7aOmcc7Wyf3yrbcTyn3y7aq
eHWO7qfafLtlW9nnJ1vHzOMd7ZN7Z1vur5Tfy7ZGeXX/s38Pmcu2sr9vto6Z
xzvaJ8/Ktlb3IaVc//5HljKTbUXPU7SPmce79xwppZR7Zlt3LWUm24qep2gf
M8de3YeUUso9sq1flrIn24qer2gfM9fpI/t+SymllPI72dYv393HfIKr9LHK
UkoppTw/27rrp3XMFb26j973c9b7LaWUUsrvZFt3/bSOuYJHn/v2+7j6PCml
lFLun23d9dM65grO1lV7H996v6WUUkp5brZ110/rmCs6W/f2+zj7/ZZSSinl
97Ktu35ax1zRvefMfh9nv99SSimllG3d9dM65orO1s1+/6qdJ6WUUsrzsq27
flrHXNHZutnv3+j3V0oppZTymm3d9dM65oruPWf0+zfrfZVSSimlbNnWXT+t
Y97B2brR79+s91VKKaWU8le29ct39zHP8PXfZ58fefT7Nur9lFJKKaW8m239
8t19zCMc7Vt9/V/9jH7fZl1fSimllLKtX767j3mEo32rr/+rn9Hv26zrSyml
lFK2dddP65jvOFu3up/Z79vo60sppZRStnXXT+uY/86951TrL/u+jXofpZRS
SimfZlu/fHcf89852lft+Rx1zihLKaWUUo7Otn757j7mO/t2ez5nnZudT0op
pZRyVLb1y3f38TedrdvteR11zihLKaWUUmazrbt+WsffcLTv7ef37fl+XX/W
7y6llFJKGWVbd/20jr/haF/v8zmqPurzrrN1b79HUkoppZTXbOuun9bxNxzt
630+R9VHfd51ti7bx6z3V0oppZTfybbu+mkdf9PRvt7ndVR91OddZ+tGvY+z
33cppZRSnpNt3fXTOv6mo329z2vv8/32vHf7ebr/rfdfSimllPtmW3f9tI6/
6Whf7/Na7XnuPSfbV5XvgZRSSin3ybbu+mkdz3GVPnqfp1Of51nnVv8+SCml
lLJutnXXT+v4mav0McunP8+zzt3t95VSSillnWzrrp/W8d+7Sh+7ePTzXe3+
jn5fs+e/9f2QUkopZZ1s666f1n3Vs69T9fl463pP+5t1naf9rPq9dns+pJRS
Stmfbd3107qvevZ1qj4fq65/t7/R517XLr/XadeXUkopZZxt3fXTuq969nVW
59v9Rdf7df1s3V33nrP6/szu7+3rSSmllDLOtu76ad1XnK2bdX+qPD+rr/+r
n2zdde1yf6o9X29fT0oppZT/vUZ51rm7Ols3+v6tztX9XK8fefT9/HX+Lvn2
PNH1Zl9fSiml/EK2Ncqzzt3V2brTstq8UT+jfVq+PW90vdnXl1JKKb+QbT31
qHNOcbbutKw2b9TPaJ+W0bxXn/48SSmllCdkW0896pxTna3bPavPF/VXvf/V
2daq3+vt60nZk23NspRSjsq27vpp3Vecrds9o/myXt2f/HO2ter3W319KaWU
8sRs666f1p3q3nN2y+x8kav3+/Vsq8rvtfr6Ukrvq5R3sq3VfYx6X3/Nk607
xb3n7Jan9Z/117OtVb/X6uvLsdnWLvezWj+9v+/X+5FyZra16/Me9f9rnmzd
Kc7WyXezrVH+era16vdZfX2Zy7aq3r9sf6v73X2e1deX8s1sq+p5ve/rr36y
dbs6WydrZVujfHpe57169fXf7ufr2VbV+1G9v2rZ1qnXk3JltjWqPvLofu9e
L1u3q3vPkbWyLffzXrZV5feo1s9u2ZbnX34h2/K8fyPbWt3HrP6v/z/aP/v9
GfWe7eJsnaydbT316Xmd9+qv9yOl3Od70Ltf7pVtre5j1fMfedb71ttXVWfr
5F7Z1lvv0255nffqav2s7k+OzbaqPk+99XJstlX1foy+/ur53r7eaf3Nni/6
/7Pep2xdVfeeI/fKttzfv5/36mr9rO7v69kWP7Psy7aq/t6jr796vrevd1p/
b8+X3f/0eYv27epsndw72/rq/Y7mvVp/72Y0b+TV1+c+yz9nW1V/v9n9jT6v
2vVOu1/V7s91/6/6aN+pztbJvbIt9/fv5726Wj/V+n17Pv6z377u7OtIuTLb
Wt3HrHkin5Z35432nepsndw726p6f2f3cz1/9vVG9/d2/7397O4qfezq0edW
f/9W9y+/nW15fnPzRPtOdbZO7p1tVb3fs69/PT/y6sz2W93Vv29XV/ndTnWV
PnaxlP+YbY36vj2tr5pP58nW7epsndw726p6v2df/3p+5NWZ7beaq/Txy9d/
X93P112lj10sv5VtzfoePz2vaj6dJ1t3iqN98qxsa3Ufq/q5Xu/t64/ud7ar
9MHf9Ohzo/Or9z/acm22VeV7fff8XTKa59d82bpdHe2TsnK2Nev7sDrv9hft
Y+b9XKWPVd/H2f3v5mrPX/WM+v81T7ZuV0f7pKycbc36PlT7Pv3qr/ccZj7P
Vfrge67Sx3Wt+vs4OqN5fs2XrdvF2brqmZ0nsvxWtrXb8zn6XGbmq6v0Mev7
V72/1Y72Vc+o/1/zZOt2cbRvt4zm6bU8O9uadf+j8+9ev/ccZubRnn2d1fNF
867uZ/X9rZ5R/3fn6z2niqN91TPqP5on+/+j/XLvbGvU/Y7Ou3u93nOYmZl7
HO17O3v7iep/nZetq+psXbXs7Teqz1runW2Nur/Reb/Oz9YxMzPPdLTv7Xw6
x6jzVt+P2ffz6mqZ7Xf0fL31cm22tcpV+mBmZs442vd2Pp3jqVf//rPv39XV
Mtvv6Pl66+W72ZbvBTMz83Nn62bn0zmeevXvf9r9G32/e+9T9vqyVrbl+8DM
zDzO2brZ+XSOp179+592/0bf792vJ/uyra+8z8zMzCsc7Xs7n84R9T/63FXu
Pada9s7Ta7k22/rq+8zMzLzC0b638+kcUf+jz63ibN1uOXq+7H45N9vyPjMz
M7/naN/b+XSO0efs4myd/Ha2ter5iK7/q59sHTMzM/92tO/tzM6x+vdb7d5z
5LeyrVXPx9PrZ+uYmZn5vqN9szPb9+rfq5qzdfJb2VZVV+mDmZn5ZGfrZufT
frJ1pzpbJ7+dba1ylT6YmZm/5Gzd7Lx7/WzfX3HvOVL+Kdvqfb56z2FmZubn
ztaNzqfXz9Z91dm63TOab7a/lm15n5mZmfd1tG903r3e3f75z87WVc/sPG/7
a9mW95uZmXkfR/t6M9vX6t/jNGfrqmW2/9nzjL7e6H5Hn+d9Z2ZmPs/Rvt7M
9rX69zjd2bq3M9tf9X5n1799nvedmZl5P2frsvn0/GwdP/Poc0fn29eb3W/U
f3Z/b39v34+o/u75vecwMzN/2dm60X/fV8/Pf/boc2c9P1Uz23+0P6of/fv2
9ut7wczMXM9vX3f1vJxzlT6i56lKju6/t352v739Za//6/zec5iZmb/kt6+7
el4e67evWz1HzzP6vNHz9O4fNW+2jpmZ+cuefZ3V8/G7nn2d6tk7T7Y+e/7b
8/X28/T83j6ZmZlP8uhzV8/Dax3ti7K3vlpG86z26nnfOj9bx8zMzMz3HO2L
srd+dUb9j3bv/bh7ftW823+0j5mZmZmfOdoXZW/96oz6z3r2/XjaT5W822+0
j5mZmZmfOdoXZW/96oz6/zVPtm6UR59b7fde/fsyMzMzn+5oX5TZ+lF93+2v
t/9f1+vte5ZHnzs6715v9BzMzMzM/Pf/ns3ePlbn3f6yc1V1lT6+8nszMzMz
V/P137MZXad6Rv3/midbt6vfvu7qeZmZmZlPd7Qvyt76anl3nmjfKZ59ndXz
MTMzM3/N13/PZnSd3fLuPNG+rzrat7o/ZmZm5q/7+u/ZjK6zW0bz/JovW8fM
zMzMvMKzr5PNt6/Xe/3V94+ZmZmZOeNsXZTR/tHXm513+8vOxczMzMy8wtG+
bPb2VS3v9hvtY2ZmZmau4GhfNrN9VM+7/Uf7mJmZmZkrONqXzdHnrc5onl/z
ZeuYmZmZmd9wtC+b2T52y7vzRPuYmZmZmVc42tebs8/PXv+t86//zszMzMxc
wdG+3lx9/urrr76/zMzMzMx/8vXfR2fUx+z6VfNE+5iZmZmZV7hKH3e9Op/2
m61jZmZmZp7h3nOyOfv8t/Nu/9E+ZmZmZuY3HO2bndm+q+fd/qN9zMzMzMwz
HO17O6v1M7r/X/Nk65iZmZmZR/j676sz6nv2+b3Xe3p+to6ZmZmZ+Ymjfavz
7hxPXa3/1c8DMzMzM3/L0b7VeXeOu67e/+rngZmZmZnPdrTvmr3X7c3V16/S
f+85zMzMzPxNv33d3lx9/dHZO8/Vq58nZmZmZt7L2bpqme2/2jy9/VdzlT6Y
mZmZ+Z6jfdXy7lyjvHtG8/V69fPLzMzMzH2O9q3Ou/392hfV97pa9s5z9ern
k5mZmZnHOluXzVXn/doX1b/t3pzVz+hzmZmZmbmms3XX7O0jyqfn3a3Lnn+a
q/TBzMzMzGvce87svHv93jmua/V96b0fq/tgZmZm5j2crZudT/vJ1s1ytm51
v8zMzMz8bWfrZufTfrJ1zMzMzMz8r87Wjc6n18/WMTMzMzNz/zmj8+71evtm
ZmZmZuZ/de852Rx1vd5zmJmZmZn5X12lj+YqfTAzMzMzf9Gjz109DzMzMzMz
MzMzMzMzMzMzMzMzMzMzM3M9/3++VOLQ
              "], {{0, 0}, {192, 
              204}}, {0., 1.}, ColorFunction -> GrayLevel], 
             Background -> RGBColor[0, 1, 0], 
             ImageSize -> {126.00000686645461`, 139.99998664856085`}, 
             PlotRange -> {{0, 192}, {0, 204}}], {{140}, {
            130}}]; $CellContext`Cabbage = ImageResize[
            Graphics[
             Raster[CompressedData["
1:eJzt1d2NLLtuBtADOxJH4hwcggE/O1A7GIfg+0LcPX1mRl2tH1LSIrDxYQF7
REqlqv63//zv//ivf/3rr7/+5x///vcf//7lr6j/+/e/vhQzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM+/p7Dmy98/MzMzM
zPu4yhw/ucoczMzMzMzcdpU5bnGVOZiZmZmZK7jKHDzHVeZgZmZmZv7OVebg
M11lDmZmZmbe01XmYP7OVeZgZmZm5jWuMkeWn2a1ebPn2c1V5mBmZmbm91xl
jioenebd21XmYGZmZj7VVeYIP83q861O+zvLVeZgZmZmruIqc4RbWX2+7Dx9
f9Xuw2pXmYOZmZl5lrPn6M3R/Uevt3u29vvq07K139NdZQ5mZma+x1XmCPfm
7P6z1z8to245j9Z+eayrzMHMzMzjnD3H6pw9T2v92f1Pz6hTz6+1P77bVeZg
ZmbOdPYcs3P1PE/7je5/ekbdcn6t/TL/6SpzMDMz9zh7jtWZPV92f/l7Ru36
vHrnZ17pKnMwM3MtZ8+RndXmrTaPfJZRXNOe59muMgczM8919hzZWW3eavPI
voziGs7O0fvh311lDmZmfubsOapl9fmrzSPXZtSu79/o+Wf79oziWnMwM5/u
7Dmq5277qT6fzM2oU+93tuXvGXWLq8zBzLy7s+fYLXfbz27zytyMOuV97t3P
bMu+jDrFVeZgZq7m7Dl2y933t9u8slZGnfI+jN7faMu+jNrVVeZgZs52lTmy
f9dm/f5Vz9P2I3Mz6tT79HR/sy37MuoUV5mDmXm0q8yR/bu16veuep62H1kr
o069T639zbacm1Hvnn/r/892lTmYmXtdZY7s36FZv1/2J+W8+7d7tva32rIv
oz4976d/P9pV5mBmfnWVOd79nlfL0/d3+35lrYw69X619rfacmxGfXrerb8f
7Sr3kJm5yhzZvyOrfo9evXu29teylCMz6tT793R/qy2fZdSo8+5db9Q82XMw
83muMkf270aV35vds7XflqWcmVGn3r/W/rIt+zLq0/Nt/f1oV7l3zLy/q8yR
/TtQ5Xt/Wrb227KUKzPqlvvZ2l+25e8ZNep8e9f7tP/qvsy8v6vMkf07YP9z
srXflqXMzKhb7mtrf9mWzzLq3fNs/f/ZrjIHM9dz9hzZOXo/T317RjkveUJG
3XJ/W/tdbfl7Rn16nk//vtdV7hUz5zt7jmo5ej+9f39bRjkveUJG3Xp/X/eb
bfk1o3Z1lTmYeb5X962Wvft59eh+t2eU85MnZtSt97m139WWXzNqV1eZg5nH
e3af7By9n1fP7i+/ZpTzkydmlPv815fKsvyaUbu6yhzM/Nyz++z2/cyeVz7L
qKrPW8qZGXXr/X7d72rfnlGnuMoczNz26HV3+15W+97LZxm1y/OXcmRGue/f
73e1b8uoU11lDmYev26171+13H3+3TLKeUv5z7r1/r/ud7Vvy6hPz+fp32e7
yhzMN3j0utV+X6rl7vPvllHOW8p/lvv/15da5dsyatT5PF1vtavMwXyiR6+7
+vditzx9f7tllOch5fP34/R83e9o35ZRs86rd/3ZrjIH8wkevW7296t6tvb3
ajk3ozwfKce/P6dla7+9vi2jZp3P0/VXu8oczDt49LrZ36fd8nW/r5a5GeV5
Sel96t3PU9+WUavO52m/1a4yB3NFj1539Ht3er7u99WyVkZ5XlJ6v57O3+vb
MmrVebT6ZbvKHMwZHr1u73t1W0Y5nz0zyvOUUo7+PrR8W0ZlnUerf7arzMG8
wqPX7X2Pbsso53NGRnmeUsqoWT49X/fbcvY8q5//T/1X92XOcO86o9+b0/N1
vy3LvTPK85fyvoya5dPzdb8tV5sv+378NM/qvswz3LvO6Pfi9Hzdb8ty74zy
/KWUUb4P7+XrflvOzqfzPN1fr7P6Mo9wlTmyvzNVvm+vlndllPsg5fkZNcqn
ZWu/LWdn77xP/77XWX2ZP3GVObK/M1W/b/KujHI/pDw/o0b5tGzt99XVs3c/
T/++11l9md9xlTmyvytVvlevlvLPjHJfpNw/o0b5tGzt99XVc/R+nq73af/Z
fZg/cZU5sr8rWd+nlqX8M6PcHyn3z6hRPi1b+331btm7v6d/3+usvszfucoc
2d+RWd+f277HMjej3C8p62fUKO+erf29evds7a/l1ffrp/6z+zB/5ypzZH9H
Vn1fe/9eyt8yyn2Tsn5GeX/v2N/o57/6fv3Uf3Yf5u9cZY7s78io93/1elI+
ySj3Ucr8jLr1/TxtP6uf/+r79VP/2X2Yv3OVObK/I6u+r631eteX8reMuuX9
lbJyRt3y/p22n93O5+n6n84zuw/zij5P73X170XvvLPXl/JJRq2ylPLc92v3
+bMzatX59fZ7d57ZffhOz+7z9B5X/17s1k/KJxm1ylLenFGnvE+7z5+dUavO
r7ffu/PM7sN3enafp/e42vci+/sk5cqMyrKUN2XULu/P6HlXz189o1ad5+h+
P/Wf3Yd5xrqte1z9+3Bafyl/y6hZ73vvelKelFG7vC+7zbtbRq0639H9fuo/
uw/zjHWzs9q81eaR8reMWnV/e/v19pdyZUbt4t79yN8z6t3ze/r/s+9jlXvM
Z3r0utlZbb7WPNnzSflbRq26v0/79VrKzIza9f7PXv/0jHr3/J7+/+z7V+We
8x3uXafa+28+Kdfd31dXn6/XUvZk1K73M7v/7hn17vk9/f/Z93HVPWcesU61
9998Ut57n5/OO9pS/pZRu963avPsllHvnl/r/z9db9V9HL0u83fuXSf7fV89
z+rvi5SVMurW+93ab8vy7oza9T5Vm6d6Ro06r9Z6T9d/ut67/Uavy/yde9fJ
fv9XzzP6PZVyp4y69X639tuyvDujdr1P1eapnlGjzqu13tP1n673br/R6zJ/
59HrVn//V89XfX4pezLKfX8vo5zPnRm1y/uT3X/3jJp1nr3rt/7+qWety/yd
R687+30c3W/1vNXml7Ino9z39zLK+d2ZUVWff3b/0zJq1nn2rt/6+6eetS7z
dx697uzvebV8On/LUu6cUe77Zxnl/M7MqKrPO7v/7hm16jx7138671Ov6sN3
enaf07+Xrfl7LeVOGeV+j8ko57lnRo1y9nzy94yq8vxW38+f+s/uw3d6dp9q
7/vq70evpdw5o9z3MRnlPPfIqCrPb3W/0zOq6vN82v/peu/2G70u83ceve7p
39PW/L2W8qSMcv/nZJTzzMmoUXY/amdU1nm2+vfON2r93nWY33GVObK/S6u+
J0/Xk/KkjDr1eyDvyqis+z17ffk1o7LOu9W/d75R6/euw/yOq8yR/V1a9T2p
/n2UcmZGue9yx4wa5dnzyLEZlXXerf69841av3cd5necPcfu2drfq6t/H6Vc
mVG3fj9k7Yya5d555NyM2uX8e+dt/f1Tr3qPmDP67p6t/b369O+nlD0Z5f7L
Chk1y0/7y7kZtev5987f+vter+rDd3p1392ztb9XZ3+fpNwpo7LeN3lXRs2y
zM2oU59X735afz/aWX35TK/ue1rO3u/s9aWsnFGfWso/M2qV5dqMuuX59O6v
9fejndWXz/TsPqfn635ffXp/KTMzyvsg38moVZZzM+rW83/db8vV3pes95LP
9Oh1T8/X/b769P5SVsoo74f8LqNmWc7NKM/j+/22XPV9md2H7/DodU/P1/2+
Orv/6nmkrJxR3pc7MmqV5diMct7fZ9Ss+9q7/rv9Z/fhOzx63dPzdb+vzs7q
80kp5aiMyrIcm1HO+/uMmnVfe9f/dJ7VfflMj173tNxtv615q88vpZQ/ZdQq
y76Mcr6fZdSq+9vb7915ZvfhOzy7z+65+/5a8++2HynlPRmVZfkso5znmIxa
dX97+707z+w+fIdn99k9T9tfaz8tSynlrIzKsnyWUc5zTkZl3efe/u/ON7sP
3+HR656Wp+/39P1JKetmVJbl7xnl/NZkVNZ97u3/7nyz+/Adnt1n97x9f6+W
UspPM6qK5e8Z5fzWZFTWfe7t/+58s/vwnZ7dZ/c8fX+93xkppYyMqmL5NaOc
X42Myno+vf3fnW92H77Ts/vsnqfvr9r3VEq5b0ZlWf6eUc6zRkZlPZ/e/u/O
N7sP3+nZfXbP0/c3+vsmpbw3o7J8e0Y5zz0yKuv59PZ/d77ZfZhnrLt7nr4/
5yGlnPU9mG35NaOc7x4ZlfV8evu/O9/sPswr+pyWp+9v9PdQSrlvRmX59oz6
9Lx6/16Ozais59Pb/935Zvdh/s6j1z0tT9/fbt9jKWXd9/up5deM+vS8Wn//
dD3Zl1FZz6e3/7vzze7D/J1n99k9T9/fad9rKWXe+9vy7Rk167xGryf7Mirr
fent/+58s/swf+fZfXbP0/dX7XvdspRyn/f11bdn1Kzzmb2+fJZRWe/P6P4/
zTO7D/N3nt3ntDx9f7t9z18tpfQ+Vj3P0/vfnlGjnsfsv/903tHrMn/i2X2k
/DOjsizlzRnlfZuTUVnnkd3/toya9X7M/vtP5x29LvMIj1739Hzd76vls4yq
8r1+2l/KShnFa5yd1ec7LaNmnf/T9Z7O8+76o9dlnuHZfU7L2/a7+3m21n9q
KStlFM9x9dx9/t0yatb5P13v6Tzvrj96XeYVHr2ulE8yKqtfr6WcmVHuq/yz
PN81GZV13q3+vV7Vh3mGR68r5ZOMyuo32lKOzCj3U/5Znu+cjKpy3k/n+XT+
2X2YZ3h2n9Pzdb+vls8yKnsO919mZJT7d2dGeb5rMqrq+ffO99O8o9dlzvDs
PrdlVPYcu2ZU1fNszVd9flkro9wv+Wd53msyqur5987307yj12Wu4Nl9pPwt
o3a9P7vPL+dm1CjLszLK856TUbu8f6Pm612HeUfP7nN63rbf2d/r3fK0/cjf
M2qW5dkZ5fmPyahd38dR8/Wuw7yjs+c4LU/fn/O6az+3ZdQqy7Mzyn2Yk1Hv
nmfr/7f+Pvt+/DRf7zrMJ3h1XymlrJJRsyzvyqjsOXbNqFHv29P/v8v+etdh
PtHZc0gp5aiMmmV5d0a5H59l1Kjz7P377P39NG/vOsw3OHsOKaV8N6OyLO/O
KPfjvYya9b71/n32/n6ad/S6zCe6yhzZ31kpZX5GVbWUctz7W2392fO8O+/o
dZlvcJU5sr/DUsrxGXWKpbw5o2a9L7PXX73/n+btXYeZ/+7sOaSU+2bUqZby
poxa9X7MXn/1efw0f+86zPx3Z88hpaybUVWcPa+UO2dU1n3P7j973p/m712H
mf/u7DmklOsyqqp325+UMzNq1/u8ul+18856jsw3OHsOKeW8jNrFu+1XypEZ
dcr9ze6ffd5Zz5X5BmfPIaV8P6N29ennJe/OqFvv3+nzPnWVe8F8grPnkFK+
n1G7uHr27u+p5VkZ5f6csb/e+X/az+h1mXn8ulLKnzPqVO+erf2NtqydUZ7v
exm1y/k8nfeps74rzCe6dx0p5c8ZdYtPz9f9zrZcm1Ge15iMqnperfl6nfXd
YL7Bs/tIeVJG8Wc+LVv7HW05N6Oc/2cZtct5Pp33qbO+E8w3eHYfKXfOqF1c
fT+nZWu/oy1l5Yza5T4/nffd/Yxel5n/7uw5pByZUbt692ztr9e75dP99VrK
zIyqcl+fzvPp/LP7MHPbVeZY/f2Re2bULr49o24539799FrKlRlV5X4+nefT
+Wf3YebnrjJHVcuxGVXVcm5Gnfr8Ru/nqaWcmVFZ9/Fp/3fnG70uM893lTlO
9W0Ztatlbkad+vxnz9+ylD0Ztep+tfr1usp7yczjXWUOHuPqvyej51/dTz7L
qF192v6l/C2jVt2fVr+nrvKeMfN6V5mD73D279/p+bpffubTn4eUf2bULu9D
lfeImfd3lTk4x6tz9n5enZ2j91PN1c7H8/xqeXZGjXr+rfV6XeW9YObzXGUO
XuPs39ds37bfp87OavM+nSfb8uyMGvX8W+v1usp7wcw821XmqOpq2buf2736
vOXvGXWL5d4Zlf096V2Hmfl2V5lj1O9LtWztr+XZ61fzac/ntIxiuWNGZX8v
etdhZr7ds/vcnlGzzuvp+tX7986T/fyqzZ/9/Frebd6nlntn1Oj7MHpdZubb
vLrv6fm635ZX95s9z+z5Zs9b7flmzz/ap+2n1/JZRu36vlS5d8zMp3l1392z
tb9XV5tn9Xynz18to7JcPXv3N9vya0bNOq/W+rNdZQ5m5t09u8/u2drfq6vN
s3q+3c+3ekZlefds7W+15deMmnVerfVnu8oczMy7O3uO6ll9/tZ81ea9bT+r
z6PXp+frfnfz6fm636eu/vyrzMHMfJqrzLHL72d2Vp/vtucxe3+jfVtGneLT
srXflnd73lXmYGY+3VXm+PT3rPd3o3ruNm/v/lqulk/nf+rs/ru72vOc7erZ
u7/dXGUOZubTXWWO2b8nskZG7fL8ns771NXn2827Pf/Rrp69+6vuKnMwM9/m
KnOs/r2RORmV9Xxa/Ue7WvbuJ9vO55mrZ+/+sl1lDmbm211ljtW/P/KMjHKf
PsvW/lb79v3PdvXs3d9sV5mDmZn7XGWO2b9X8vuMOtXy94yqer698/FXV8/e
/bVc5TkwM/NYV5lj9e/Zqfm639ssf8+orPN82p/nOjtH7+fVVc6ZmZlzXWWO
2b93WTl6P1zL1e/T7vc3e46svvy9q8zBzMy1XWUO5grOztHzPl1vtavM8VrZ
c9ziKnMwM/PdrjIHv2eZm1GnuMocWa4yR1VXmYOZmbnHVeZg+UlG3eIqc+zq
KnO4H8zMzHmuMgfzCa4yB9eaw/1gZmZe56d/V30+5pGuMgePce862fMzMzPz
+a4yB+e4yhzMzMzMzBVcZY5dXWUOZmZmZmauM0eWq8zBzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMt/j/Ae8HaXI=
              "], {{0, 0}, {204, 
              203}}, {0., 1.}, ColorFunction -> GrayLevel], 
             Background -> RGBColor[0, 1, 0], 
             ImageSize -> {134.40000663757235`, 131.99998741150023`}, 
             PlotRange -> {{0, 204}, {0, 203}}], {{140}, {
            130}}]; $CellContext`Boat = ImageResize[
            Graphics[
             Raster[CompressedData["
1:eJztlcGNND1yBT/sWiJL5INMWEBnOamjjFkTtJeHnSn039nsJJkvyXjAIBAD
kpVJVrH/4x//81///fc/f/7837/+/vdff3/7o/zzP//8Co7jOI7jOI7jOI7j
OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j5/novOp6cRzHcRzHcRz/
3F3q+NRd6sBxHMdxHMfxE92ljl3uUgeO4ziO4/itnl2nuv7TvboO936qzwfH
cRzHcfw0d6lD7lKHq89et7qf3ftRXS+O4ziO43h3d6njU3epY5dn16mu332/
quvFcRzHcRzHx3z2utX90L+Xz163uh8cx3Ecx3H8vc9el37u9tXPqe4Px3Ec
x3Ecf+/ZdW6v73Z3qYP3AcdxHMdx3MNd6vjUq+uoei778Zm71IHjOI7jOH6L
u9Qhr66j6rmn7ufq/a6uH8dxHMdxPPLn/6vr2d3vbD+tH3d3qQPHcRzHcbzK
XeqY5S51nOLZdarrv70/HMdx/EyvrqO6f3yvu9TB+97DR+dV11vd/9Or68dx
HMd7uEsdVe5SB75m3e71P736fNw9Glddn9t+RF5dP47jOF7jLnV0dZc6TvXR
edX1un+P1f257Wd1fe6eXae6fhzHcfw7d6nj+Xuyiqvrz7pLHV08Glddn9t+
ZL26P94fb5+9bnU/OI7jt/ru557OZ7/V7lJHlT//X12Pu+9+brd+q+s93V3q
OPV9x3Ec/9RXPweOUXF1lzpwT3epg+/jDnepg/cHx/HTffa60ItKlbvUgXu6
Sx2873e6Sx28PziOu/nq58DeVKrcpQ68h1fXUd0/juM4jq/w2etC+JPKLq/+
nnAcx3Ecx0/z7DoQrqSyy6u/RxzHcRzHcTfPrgOhM5VVXv394jiO4ziOr/bs
OhB2prLLq793HMdxHMfxUc+uA+HNVFZ59f2A4ziO4zieXQdC+DmVWV59f+A4
juM4fp7PXhdCOI/KKq++f3Acx3Ec9/fsOhBCXyqzfNW6OI7jOI77enYdCGFf
KrN81bo4juM4jtd5dh0I4T1UZvmqdXEcx3Ecn+fZdSCEUFRm+ap1cRzHcRz/
3LPrQAjht1S+9Vnr4DiO4zj+155dB0IIV1GZ5avWxXEcx/GTPbsOhBC6UPnW
Z62D4ziO4yd5dh0IIexCZZavWhfHcRzHnX10HoQQnkJllq9aF8dxHMcrfXQe
hBDeSuVbn7UOjuM4jlf66Lzq31/8vUMI91GZ/f3OXhfHcRzHM+5SB97TIYSf
U8l+b9l1cBzHcTzjLnXgdzqEN1OZ/T3NXhfHcRzHX2XXc+FeKqc4hDdRyX4v
2XVwHMdx/FWi3x8IX1FxcQhPppL9PrLr4DiO43d7NA7CmVRcHMLOVLLvf3Yd
HMdx/C6PxkHoRMXFIXSmkn2/s+vgOI7jZ/vz/26/Z6vrg72puDqElVSy7292
HRzHcfwsf/7f7fdr1CH8SaWLQ7iSSvb9zK6D4ziO9/bn/91+r9wcnk2li0M4
k0r2fcyug+M4jnv78/9uv0e3O/Sm4uoQZqhk37/sOjiO47iXR+NW//5U/77d
7tCLCu8D7EAl+75l18FxHMf3ejRu9e9LNaP6bnfoTYX3ATpQyb5f2XVwHMfx
vf78/+rfk9uonOrQiwrnDSuozH7fZq+L4ziO5/z5/92/J7dR2bU/o8/b7XAv
Fc4TVlDJvl/ZdXAcx/GcR+NW/17cRsVlf0br2e1wLxXOE+6gkn2fsuvgOI7j
Yx6NW/37cDuVLvs1Wu9uh2upcH5wBZXs+5NdB8dxHH/v0bjdvw+3Ubl1f6J+
VzucS4XzgiuoZN+f7Do4juP4n5epuv9vp8J+vaayy+FcKpwXnEEl+75k18Fx
HL/do3Gr73v4mwr79xmVXQ5zVDgfOIPK7Pdn9ro4juOneTRu930Pf1Nh/+ZQ
WeUwR4Xzgd9Qmf2+zF4Xx3G8u0fjdt/v8DcV9m8PlVUOc1Q4D/gJldnvy+x1
cRzHu3s0bvf9Dn9TYf88qMxymKPCecBPqGTfj+w6OI7j3T0at/v+hu+psJ8e
VFY5zFHhPOArKrPfj9nr4jiOu3k0bvd9DceosL+eVFY5HKPC/sNXVGa/H7PX
xfFv3KUOvo8zPRq3+r6GY1RGv1foQWWVw/dU2G/4CZXs+5FdB8dfuUsdfB93
ejRu930Mx6iwv2dQWeXwPRX2F76ikn0/suvgd/ju51bXU73f+JhH43bfxzBH
ZfR7hT2orHL4mwr7C19Ryb4P2XXwnr76OdX9Zfutrhcf8+f/q+9fmKPCft9B
ZZffToX9gz8z+/2YvS7+3bzV66+ux82z61TXj/95mei8dt23cC4V9v9OKrv8
NirsH/yZ2e/D7HVvdZc6OO/XPjqvut7bPRpXfd/CHJXsfQbPpLLKb6fC/sGf
yb4P2XXwmudW99vNZ6/rVn/1/q7ut/o+hXOpZL8/eCaVXX4bFfYL/kz2fciu
g7/20XnV9Z7uLnXw/b72aFz1fQrnUsm+/7AHFVe/jQr7BX8m+z5k18E9ffVz
qvtz24/V7lLHLI/GVd+fcC2V7PcAa6is8up6Tuez31GHZ1HJvg/ZdfA57lLH
Knep4688u051/d38+X+3+xOupZL93uAaKqv89nrd+Ow3cngWlez7kF0H/8xd
6qhylzrwGo/GVd+XcC+V7H0CP6OyyrvXP+qnMer36fAsKtn3IbvOp179/NX9
zPbT+nl69fnhaz0aV31fwloq2fvjViq7vFs/u9fvzqjfyGFvKtnzz67zTNXz
q/uJvLoft/14enV/+FyPxlXfj7CWyi3nFfW327v361Zfd0b9RQ57U8mef3ad
Z3bVk33ebHepY5fPXre6Hzzn0bjq+xF6UcneF671rfZu5+XWz+r+unG0v6fD
3lSy559d55ld989qd6mji69+zu76qvezm0fjqu9D6EUlex+sWn+3d9t/t37c
9qMbR/t7OuxNJXv+2XX+ylet69If/t5d6uD9WePRuOr7D3pROcXdmO0n8tuo
3LJfo/09HZ5FZfT8R+fh+CfuUgffwxyPxrndd3Atla7uzmx/ow5/U7llP0f7
ezo8i8ro+Y/Ow/EZvvo51f2d5tG46vvtdiqnendG/c12mKNyy/6P9vd0eBaV
0fMfnYfj+PkejXO7307ns9/ufhqjfrMOa6mcel6j/T0dnkVl9PxH5+E4fr5H
46rvs9P57LfaT+ez39kOe1M59fxP7w+OUcm+D9l1cBzv59E4t/vsNEb9Ph2+
p7LK4d1UTn1fTu8Pvqcyev6j83AcP8+f/3e7v07jbf2u3q/ZDuFPKre8T6f3
B99TGT3/0Xk4jvf3aJzb/dWdp/Uz+3xXO4QzqZz6/p3eH3xPZfT8R+fhON7P
o3Fu91V3nt7PbofQicop7+9oP936g2NURs9/dB6O4/08Gud2X3Xj7Pqf653m
EHamcur7fnp/8DeV7Pln18Fx3M+jcW73VTdG/ZzuEN5M5dTv57R+4Hsq2fPP
roPjuJ9H49zuKzdG9XZ3CGHd/eDO0/qB76lkzz+7Do7j9R6Nc7uf3BjVW+0Q
Qh8qp37Pp/UD31PJnn92HRzH6z0a53Y/uTGq171+COE+Kp96N57eH/xNJXv+
2XVwHN/v0Ti3+8iNUb3u9UMI66h86u4c7adbf/A9lez5Z9fBcXy/R+Pc7iM3
dqsXQuhD5Vt342n9wDEq2fPProPj+H5//t/9/qlmt3ohhL5UvnU3ntYPHKOS
Pf/sOjiOr/donNv948Zu9UIIfal86248rR84RmX0vEfn4Ti+36Nx1XSrZ9b9
CCGEEZVv3Y2n9QPHqIye9+g8HMf3ezTO7b6pZlSfW70Qwr5UvnU3dq8fjlHJ
nn92HRzH13s0zu3+qWZUn1u9EEIfKrvcjaf1A99TyZ53dh0cx+d7NM7tvnFj
VK97/RDCdVRc3I2n9QPfU8med3YdHMfnezTO7b6pZlSfW70QwrrvP+uz63Fj
9/rhGJXR8x6dh+P4eo/GdblfqBdCuPt7znp1/W7sXj8cozJ63qPzcBxf79E4
t/vFjVG97vVDeDKVXV5N9/pmnxfsRSV73tl1cByf79E4t/vFjd3rh7ATlVXe
nVF/T3dj9/rheyrZ886ug+N43qNxbveLG6N6u/UDYSWVVX4bla77071++J5K
9ryz6+A4nvdonNv94sao3m79QDiTyi6Hv6l02a+o3m79wPdURs93dB6O4/M9
Gud2n7gzqr97fxD+pLLL4RiVrvvbvX44RmX0vEfn4Tg+36NxbveJO6P6u/cH
z6ayy+FaKl3Po3v98D2V7Hln18FxfNxH57ndJ+4c7adbf7AXlV0Ovah0Pb/u
9cP3VLLnnV0Hx/FxH53ndp+4c7Sfbv3BvVSqHPam0vW8u9cP31MZPd/ReTiO
z/donNt90o1RP5HDs6lUObyLStf3o1u9cIzK6HmPzsNxPO+j89zuk26M+okc
9qJS5RC+o9Ll/Ynqda8fvqcyer6j83Acn+/RuC73SReO9hc53EulyiHMUOn6
vnWvH76nMnq+o/NwHJ/v0Ti3+6Q7o/5GHeaoVDmEO6l0fT+71QvHqIye9+g8
HMfzPjqvy33SlVF/kd9OpatDOJPKqe9nt3rhGJXR8x6dh+N43kfnud0npzHq
N/LTGPU7293qhfAnla7fx+r+YW8qo+c9Og/H8byPzutyn5zCqN/I3Zntb9S7
9wfPotLVq+leH8xRGT3v0Xk4jud9dF6X++QURv2Ount9o+7ObH+RQy8qrp6t
343d6oVjVEbPe3QejuN5H53X5T45hVG/ke9+3mzvzqi/rMO5VFy9ut9qutcH
c1RGz3t0Ho7jeR+dV81u9Vb37+63U2F/51Dp4m7sVr97fTBHJTrfaByO4+t9
dF41u9Xrth+jDvdSueX8sv3t9tP57Ddy6oMzqUTnGY3DcXy/j86rpnt9bvvx
dOhNZZW717fab6fSdf+61QvHqJx27+D4DR6Nc2O3eiEcoYLDT6jcch7u9cEx
KtXvNY7j4z46r5rd6oUwQ+UUh7+pdHW3/YK9qETnGY3DcbzeR+dVs1u98G4q
XR2+p9LFs/1U070++J5KdH7ROBzH/Xx0XjW71Qu9qJzicIxKV6/en2q61wd/
U4nOKxqH47ifj85zY/f64Xsqtzh8T+UUd6N7/W71wPdUovOKxuE47u+j89zY
vf7bqXR1+J7KKX46n/0+vZru9d1OJTqfaByO4/08GufO7vXfRqXK4Xsqpzgc
o+Kyn1E91fXdTiU6j2gcjuP9fHSeG7vXfxuVWX47lVscrqXieh5u9cDfVG6/
p3D8Rh+d587u9Xenwv6/pnKqw95UXM/Xvb7bqETnEY3Dcby/j85zY/f6u1M5
db+j/ro5hO+ouLw/UT3V9d1GJdr/aByO4/19dJ47T+vHnUqX/Y3q7eYQrqRS
XQffgweVaP+jcTiOn+ej89x5Wj9uVHbtZ/Q8d4ewExWX9zmqp7q+06lE+x2N
w3H8fB+d587T+qmmcotDeDMVl+8jqqe6vtOoRPsbjcNx/D6PxnVj1E/3/tz2
z90hhN9/79V0r687lWh/o3E4juPRuG6M+unen9v+ZR1C6Pu9u9VTXV93KtF+
RuNwHMdH53Xj6f1V71fkEEJfKq7fs3t93ahE+xeNw3Ecf3o0rjuj/p5+OxX2
D8Lzqbh+z+71uVOJ9i8ah+M4/vTRed0Z9ff026mwfxCeT8Xle47qqa7PnUq0
X9E4HMfxyEfndefp/e3er6dDCPtQcf2e3etzoxLtVzQOx3F81EfndeNof0+/
nQr7B+F5VFy/X/f6qqlE+xONw3FH3/3c6n67++i8bhzt7+m3U2H/IOxPxfX7
da+vmkq0H9E4HN/hLnXw/ezxaFx3Rv1FfjsV9g/C/lRcv1f3+tz24+nfzsPx
T9yljl3uUoerj87rzqi/p99OZfb3CCGsp+LyvUb1VNfXZT9G5+HfeTSuur7Z
/cz27v3w/vx5mVvu76i/p8PfVNhPCP2odP1e3epx6//pq84df+2j87rVm/Xq
ft32Y9Rd6vjWR+d1Z9Tf0+FvKuwnhH7fV9bd+z2dz36f7vKe4HPWWb3+7HpO
8+o6qvuv3s/ujPqL/HYq7Ce8kcqp7r6fp/HTfqNxeI271MH7M8ez61TXX+2j
87oz6u/p8DeV2fcdhDuo4B50r6+q32gc7uG7n1vdb3Y/quvD1/rovO6M+ns6
/E1l9v0I4SdUTvHq/XI/v+78tL9oHN7Dn/+vrieqz91d6sA/89F53Rn193T4
m8rs+wKeSeUU70a3ftzqqeovGofjn7hLHavv2+o68M98dF53Rv09Hb6nwv6e
SaWr30bFZT/c6qnqLxqH4051uLpLHfhrz67Tjaf3576fkcP3VE5xOJeKy367
1bOrn2gcfqfPXre6n939V9ePv/fRed0Z9fd0+J7K7PvxFipdHdZScT0vt3pW
1R+Nw1/76Lxu9Y56dX/d9m93vdX75+6j87oz6u/p8D2V1ferK7P97XZ4FhWX
869+/q76o3H4a3epo8pd6qjy2evurqd6/9x9dF53Rv09HY5RmX1fdK1/tkP4
k0rV+xI9f3c9q/YvGod/5i51rHKXOrq4Sx2c5xwfndedUX9Ph2NUVn/fVc/P
OoQZKi7vW/XzZ9fvck/c6qufU90f/t53P7e639M8u043nt6fG5VTHMJKKlXv
a/XzV9fvcs/g+I2eXae6/ts9u043nt6fG5WuDqETlar3tfr5q+qNxuE4juNj
PjrPnaP9dOuvG5Vd57F6fQh3Utn1/kbPW/38Vfsz2heO4zg+5qPz3DnaT7f+
4G8qnC88gUrV+7z7eavqi8bhOI7jc310njtP6wf+psL5whOpVL3P1c//tp5o
HI7jOD7Xs+u487R+bqfCecIbqOx6v6PnrX7+t/2P1o3jOI6v9dF57hztp1t/
p1PhfOANVKre/93P+/b50Tgcx3G81kfnufO0fk6nwvnAG6nsev+j51U//9s6
cRzH8VofnefO0/o5jQrnAeG/s+t7cH1eNA7HcRz39tF57jytn+5U2H8I/51d
34fb876tC8dxHPfy7DruPK2fblTYbwjrv4/Vz/t0/WgcjuM43tuz67ize/3u
VNhfCMe/j6e7P+/T9UbrwHEcx3t7dh13dq/fjQr7CWH+e3m62/M+nT/6XBzH
cfwsz67jxtP6qabCfkHo//1kn/fp/GgcjuM4frePznPjaP3u/bjtH4TQ53vK
rv/p/GgcjuM4frdn13Fj9/rd9gtCOO/7qv5+Px0fjcNxHMfxV/l2HTd2r796
fyCEvt/X6Pqfjo/G4TiO4/iIj85z52n9zO4fQtjne4vWH/VV6+I4juN3++g8
N47W797P7P4hhH2+t2j9UV+1Lo7jOI6/Svb3qord65/dL4Rw3fcVucvzs+vg
OI7j+Ihn16lm9/qz/UEI190PkVfXt6tPHMdxHH/n2XWq2b3+0X4gvJlKlVfX
77IPOI7jOP7Os+tU87R6IexMxcWr+W29o/NwHMdxvNKz6+zmafVCWEnF1bvx
2/5G5+E4juO4k2fXqaZb/bufB++m4uqnMeo3cpdzwXEcx/GZnl2nmtX17n4e
9KZyqp/OZ7+j7nJOOI7jOL7TZ6+7m7vrnb0enEsFf+23UVm9n6ufg+M4juOd
PLvObq6uNzv/dCr4Zw7HqKw+j9XPwXEcx/GbfPa6qzm73si7cbS/0x3upVJ9
3tV14DiO4/hNPnvd1ZxdL77XYS2VLu5SB47jOI7jf+2z113N2fXivx3WUjnV
XerAcRzHcXyez153NWfX281hLZVT3aUOHMdxHMf7enad1czWt7re1evDMSqn
uksdOI7jOI7jz8xaF95N5VZ3qQPHcRzHcbzKs+vAWiq4Vx04juM4juO3+Ox1
uzPqD8+5Sx04juM4juP4HJ+97m7Orv92d6kDx3Ecx3Ec7+EudeDfuUsdOI7j
OI7j+J3uUscqd6kDx3Ecx3Ecx2/w6jqq+8dxHMdxHMdx/Ht//r+6HhzHcRzH
cRzHcRzHcRzHcRzHcRzH8fP9/wGajZ73
              "], {{0, 0}, {196, 
              204}}, {0., 1.}, ColorFunction -> GrayLevel], 
             Background -> RGBColor[0, 0, 1], 
             ImageSize -> {128.00000648498502`, 135.19998710632447`}, 
             PlotRange -> {{0, 196}, {0, 204}}], {{140}, {
            130}}]; $CellContext`BoatWolf = ImageResize[
            Image[CompressedData["
1:eJztfQmcFMXZ/tzHzrUzu7MzO7Ozsze77M3eB7vsLiwssAssl0QQEUUJgkaN
xFtj9O8RjUc0XlGDuUzMFz9QE4N8asR4cElE8IoikQh4EBHlZv611czQc/V0
dVcfM1PP7xF3erqr3nrf95nqrq6uLjznouElKoVCcakB/DO8aGXPJZcsumJm
Jvgwe8WlS89fcd65AysuO+/88y5pPUcNNlYrFQo/+G/kb4UiQEhISEiIgwry
o0pIKAAZILlthITJSyRIbi0hYbKQDyQ3npBQtsQLyZtDSCgTSgvJm09IKARj
5XoUiNAICRHJSlnxQIRGSBiHvJRFejdCwjjErCzpZCi5JwkJQ5RSVgwgWiNM
cspUWfFAtEaYJERQlgwFyFtoRGuEQpC7rJDTlwiNMI2IJgEceZugCiI0wpQg
ctrjyFWE6rCDv72EhImInOe80xIZ4siNR+skDyKhDImcyfxVwCl7uVTEH6hG
ERIGiZy0fHJ+3759d91115NPPnny5ElOqcu9alxgaQhh2hMtORnymbkQSkqf
fPJJf3+/Vqu1Wq333ntvaDti3nIBHl2x8EZEtYTpSrQMZE7ahOU89dRTTU1N
SqWS2iczM/P+++/HkcDIQFIQGySskDDleEShOBHnK+SUS3gIc1GPPPJIdnY2
+ErvcMwqLFSoVEBlNptt9erVwuQzW3CrHd0qyZOBECP3KRRTlMqzFYoHfb6/
+nxfmEyHad+i5Rib/Rm+vfnmm4GOwHbzqFG/ra8/YbHMra+n9vT7/atWrRI4
sREgpBmSpwQhHjqd34G8pYKqVqvz8grLyyc4nVeD/sLr9aJmFJv9o3c4fvz4
q6++esYZZ1AbS0tLAxoNZd8a2s5lZWXg/PDDDz/kn9jMZqNCgKqlTwxC/vR4
Ag0NrRGhpa53HA6H2WwG0jOZTPv27QMSQEoSsPHIkSO7d+9+//33P6BBS8Pr
r7/+8MMP9/T0GI3GkWMMhgGgLIXiZNC+rT5fls9HLxbYc+21177yyiuHDx/m
k9X8kh+zyoi4UpIZGYGWllkgnM2trRWdndmjRkWE2WAwgIug5ubmSy65BKQ0
m9wAW0D/8vjjj8+dO7exsbGgoKCwsBD86/P5wB8GGpxO58gBFosKyvnxlpbj
BgPdvhMZGRPt9ojyNRoNEP78+fPXrl0bMYooHIRWGRFXSnJ4+B4QzqWTJlGf
3xw7dvLkyUAIoGeJyBmr1XrDDTd8/PHHDFn32Wef3XnnnUBKoeE+Ci6XCwiN
vgX0VkBrixcv/jAnx+x0XnDBBTHtu7m9PXRIfX09vRBQwsqVKyPsERrCSYyI
K/VYU7M+IyNDk5cHPpxUKkNffFZff31T0xlOp9/rVZpMocCDa59bbrllz549
EZkGOpR77rkHXDGFZZheX2m3X9vQsK+qKuD19hsME1yua+vrH542baTXhBX9
T15eRU9PRO2n6fPp9XqqMJVKNbq0dE5uri03l27Pbbfd9tVXXwmgJCRF8FJZ
xBGEqUGL5XMfvK55YHAwxtda7Yd5ef9nMi3o67MEhQOSHPQgDQ0NlZWV4KNO
pwMfW1tbT3d2KpWzsnLB4OCLSuXnTufp0gyGozZbWPk22+i6umfHjGEwcdy0
aaG0y8nN/ZfXuzE39wLQhRkM1Ea1Wj0wMLBx40ahpcROGly0RsSVolRQA4NA
I+DDuv7+pqam9t7eV5qaone98MILwc7UKR+QErhoAt2K2WwGx4byvKKi4tau
roS13r5gQWtnJ9D18qIi5j0/z8sLpZ3GYnnZYqG2rx0cDNULAM5F//GPf4gs
q/gCIeIiHEF+fj44MwR/3DhhArX1rkmTSvx+ZX6+wm731NVdMHHiS1rtQag+
0Jf9pbd3RVGRG0hSrQadlM7hqLXZznG57h037nhOTlgFGs27TudLFstzavXK
8eObZ86cOnPmgtLSs8vLB1wulVbbWFV1zO+PsOlPFRXXzJhB39La0hLKvD8E
xUVx0dixSquV+gp0oP/+979F1hSjTFiJK3oXwiTnaQBxUXdvexyOE3Y79fUe
rxeI4oHc3NapUy1FRYrc3Ba9/md9faGbUO/m5/9VqwWq+bvd/lXwqFPMyHh6
woSVlZVDBoOnsHD0xIkPVVX9Ta9fl5GxKzeX2ud9u11dUPBpQUGEWSMjGBaL
u7aWvvF3cNoGhb7WVvpXR4zGDWZzQUODAp6vgm53586d4msqGkRc6cowfPfd
d5MnTx75y2hcZzTGPOBrp/Ocvj6NRmPLzX0lM5Oh6CuXL3fn5oI8B6eLkyZM
+CRKPhSLW1sX9/dHbPx/HR2n9F5fT9++o7jYU1x8ylytNmaBYyZMoL6/++67
xZcSA5jFFVN/hMnJ2D+kDzzwAPWxoLc3QJ3+xaTbPQh6MZ2ua8aMrRbLoeCI
3wh1urvB6SUc9KgvLLyxu/tQHFkB3tLbm5WZudtk+qi4eE1+/rdwlGN9TY3N
5aLMuBB0keGHXEQbh+wKP2mkuD87e3pTE/jWbrevW7dOdA0xAaXbIuJKUsZW
FsB///vfkpISauOyqiqGIjZ7PCY4AJLd2roRDuADbuvoOBNs1Ourh4b+otH8
J3juF5OPeb0qnW6eyRQoKSkfPfqyzk5qe2VFBWWAze/f6vNFHPVNXh592ORH
ZWWHXK7Iwh2OUfC+2ODg4BdffCGiepiA2G0RcSUj4yqLwvXXXx/6av3AAP3I
Y+F92bBO193dHfoI5Gb3eJRK5cjdq/AqB7///Y3hQnvV4TA6HKCKR1esKC8t
raysPG1fcGh9fpzTzgsvvJBuf26cHwFF5shbuS+99FKx1JMAiN0WEVcykklZ
ANu2bbMGh906zOZDanXoyNtnzJgxMPCczfY2ONNTKl/s6NjW0kJ9td5u93V3
TyooOFxYGNr/sFb7RGVlQWfnbyIGDxWK77e19Vmt4AKqsbkZVPSfoEB6Z8+m
qs4vLw9E3AuDpG4xV8A7ayF87+yzPwA9YPiey/v7wVfZ2dlvvfWW8NJJAJbK
CpAZGknMBMqiMDQ0dGoPtfruoHwoPjR6tCY3N6egYE5W1h+Dc6XWd3SozObJ
ZWVHoRJPTbjV6ebU16srKtZHDCGGaLW+mZPj7+jQezwR9mkLC6NPCOl8prxc
Azs+AKvXu85k+mdWVsQ+//J4PPDW2Pjx4/fv3y+gcliAiCvVyUpZAG+88cap
ybQgz93uiFLOysqivtJoNJmZmc+fdVa309kfPuJ3fWOjwWDQWK1/t1qZbdrk
8WTV1Z36SM3OzchYRx8hicO5ZvOpPi58RJHOc91usIPNZnvqqaeEkg0LsFdW
gIgrKclWWQBffvllW1tbaOfO8Guo3fBE7jT0+kF4xXQy2GfdV1yssFjAN0tL
S08GxXUgK+v9OMOG83y+d+EzJtd0doKjupqaPqP1ZfF4eXX1KY1HD2gE+Wlj
owneGisrK9u8eTN+2bAAs9uJuJKfCMqiEBqTV8B7sjvDJ0GVl5eHvvXZ7V/A
UzJKWaDPopQ1qr09EByRuLy5uae9/a1QDxXOL5zOYnDNZbd3OZ1qp/Ob+GKh
81l4SUXhvsmT4+32evC+c2tr6759+3DKhh2QlBUg4komIsuKwqFDh+gHXhk+
U2J4eJja7nK5PqLp7jo4QWIEZjO15RdTpoCzR6vLtSHq9JLOoqKixsZGndt9
OM7N64Rt+8Ps2fF2a6HujCsUixcvPnDgAAbBsAaz52N+S5SVDIwEUlaA3qq0
tFStVp/62c/IOBzUywj1etA99bjdX4weHdq4sbDQRD0DolZf1dt7wmK5A3y0
2+eYza8mmsELuhVw3Lljx3JuoSEn51FwdhrrYu0zk6ksP18xcjGXcfHFF1OP
yYgAlsoi4ko2cldW6BCv1+sIjshluFyvwbO1bWPGvFhfP9HpPKu7+1hweiHF
efCKCaDQ6/2sqWnI6wX91/XxhgrD2dXVNcrrPQquy1pbP62v/6S2dmdNzTeM
nV10I5Vm8ySr9Y6SkkBU9/ep0eiAUzt0Ol1DQ8P27dt5yQbFjQnFFWe75ClE
GJMYlEWBfrt2DSy6rq8P/L1ixYroWlXBAca6ujpqmsdQYeFRxvmHdIuNRmN+
fn4uRFtb28DAwPTp089ZvPjyFSver65m1c4gembNirl/YfD5ZWCeoNN62SuL
iCupyFFWgShlgS1btmzxeDzUx+7eXrDHC1ptIxz0i3he+Mlgt6WAC3hSf9id
zqKentl5eU8nOt/7UVXVilGjtjU2xvz2aEbGXY2NExYt2qrXH6f1SqcWtIkF
TW7ubnAeG27kl9nZl1dWOkCXqtM1NTV9/vnn3LSD5EnmHeJ/JXkiEUaQu7Ji
psSxY8fmz59/ahO8nFk+e/ZmOGweQUvw5hcdhXb7GnCSlsjok+za9lpWVvHA
wGu0q6ra2troSi/t7PyTw3HupElVXV2bYl2CbfF6b3M4VHr90NDQ119/jeol
Dm5E2oGIS5bErCwKt956a2j73Llzb2pri6747uBTHpF5Xl6Ot4Xg1LSGNuq+
ZMmS6Epvam9nU9Sl8G7CAw88gOoozp6M3oHxW8nTiTBEQZQFcN111536QqO5
PtYj/0fM5r6odc9Ow+FQuN3uxsams89+2eU6FtWVfGMy/bOwcHtRUSDO81l0
7na7e4NPSVPnpQraGjUhZDY0vGAwJChQrwdnrdhnHrJXFhFXkpC7spiPPXHi
xLx586ivzoWjCqFTuC2dndc0Nc3PzByXk6OkLWFBhy0v76GionUZGRtzc1+2
WIC4vnU4DoZPx33d5fLW1OQWFc202xfl5Py4ufm98EeMI3h2bu5DQ0Ohj49W
VeloZ6TFxcVOatFFrXZ5bS3zTI/bYdN++MMfInmMpTO57RAg4pIXhVIWwJ49
e8aMGTPyncGwNrhQ54NDQxFrD8ZERkbGgzEXkgrntoICV0EB2P+s6dPPmjHD
Amd31La2vhD+tEuI6wYG8oKPj1G8saWFOgqgo6PjhN3+wzPOGAUl9vtE06hA
x9rQ0IDkNDbOxLGP5HlFiE1ZMQ9fv359Tk4O+Mrncn2UlfVtTs4cOLFQbbFc
XlLy044OQ/DZq0jodCqTyVdVNXrq1BX9/c8pFECbm3JzA1EPhgD+IS8vIyur
0Od7Gc6Puqi+vsXrHXkay+u9Ki9vB31IRKt9D96u+mNQeqGe9Nqurhq/H/wI
/GbcOGrLT/r6KsrLV8ef1huA4lIqle+++y6S6xL6k9sO4btJnlppTmGVBbB6
9WpqEcIzrNZvxozpAjmv0TQODYWeIpkUfPzqNPT6ha2tL2o0QE3P63TPa7Wr
VapJM2ZkjxmjKyoasFoX5+T8bPz4/RUV9Jb8IyvL1dqqzs6+a/x48PEbpxNs
+bHfry8rc5SXX15W9o/u7p/19Z3hcmXD67uzs7Oj3QFOAl+yWH42OHg0eGX3
pdu9nvFOtMJq1Wg0WJZiSxgIIq7koeDKArjxxhupHVadeeZ0eFPphuZmuhHv
1dXRy7H6fHujVkijc2D+fOr+sslkmnHuufSvjpvN58GpiTUtLduLi+lV1LS3
Z2dn9/f3L1y4cMGCBaNHj+7KyDgZvrQaB26DvTD49eAvLlzKChBxSU8xlAVw
0UUXUUJYV14OzvR+Dp+OpN+W2hGaqQvOBLOyop9YjMljfv9vBgYW2WyOmprh
+vo3aYvx3tnXV2i3Kx2O2t7ejRbL0VinkYD/izgLMSb/VVVFiQuc/SL5kMGl
fPYJ31PyHEtPcldWgMUgBh318K1z3d3d6xSKlljTJ+jiOruh4SiLhxzp3OB2
3+XxWNvbzzCbPwr2iXuys8/v6VFkZSnM5sHi4r3hE/Ix8qhOp4DdMc+7XRiV
FSDikpLiKQsAnICB3S6++OL1SuUVU6dGW0MX17bgSAIH9vb2+vLzP6KdDQKW
wQc2DQbDfXFGDvkzD87xGB4eRvVktEvZ+BylQMkzLd0oqrI+/fTTkZVqTKaT
RuPHfn9+Q8ORqMucR2fMoEqz8LgCos4zz+noGIzQr9n8YE2N3eNRZGT8PNFK
8tz4MPz1yM3N3b17N6o/A4gnhIhlSp5sklAhUfNFVRbA9u3bgWS8NTXg4P1u
d3NX18rgijQh9gYfB64IH/3jQp1uYU/P01G3xjZ7vYVjxyo0mp9SLxjC6tO3
/X47fLfLj370Iw5v0BOs20o3ccWD2LWjJkCAk7ICQXH54L2ns1as+MLjyY1a
5DN093akWJWKfztrY11h7SoqGgVXsb6IxTRgVFJPT7vd7i1btnDzKs99Yu6f
0snM0hixXYEU/ah4oZVAFxe4Ntnldq8aHLyFttLa/4SvVHPO2LG7mR9vZFgf
O0hXnAU0NsFHWjQu14vh12VIfNvtLu/vf1al+pRWywmvtxaugnjhhRceO3aM
g1f57BP/EPFzWMyURjVJcANYBihefFFL2LFjR0hcSr9/IxwVzy8t/RTeQd5n
t5cFH/U6BZWqwO1+INa4x2GH48rS0qkm07zc3J30t+BFcUas5d8Bv4D9yySn
cx/KIhuRVKmunzRJode31NR86XCEtu8qLASXlqCxLFeIYulSDm4XJpd4QvDE
lsgGWunoiLQPEe+8847NZqPEVdnVVQ/nTiiysm6Az3ScQXvPIx16vT66GaGd
Fzidu1pawLnfC0NDx+Cef5wyZdH55y9ZsmThwoXTp08fE+vlktuLi73w1vMC
FosGnH311e/QVv2N5ub2dm1mZkP4QotNQHQKxR133IHkVf67xTlKPsrCbg+D
SQz7CGsA+wBFB5dbCQDl5eUq2NF8brd3V1QY4JsX7Dk5Y6dPZx+JTaCD02gU
cNBjb2fnT9va8kpL13R2ngx/JGSn359TVvbQtGnfqVTndXVllJWNcNQojc+n
oR5p0WgW5+cn9p1KddeoUaPGj5/Y2bnGZtvj97/t9/+iuPifcOoINR6y3WzW
qFQlzc0ngne9n4U3vAYGBpAcy2Y3JIcLkEsYIZw9CfeUkbICvLstCiDZwLEP
TZ8Oijuend1IWymUZQx+63aby8oocWVnZzcbjaYxY7bHGlffZLE0LFwI/pjU
2AjOMP+m0wG+oNE8WFCQVV9fNTj4F41md/h8eAbuKCm52+Mx1dcXuVzPNjdf
N2GCIy/vr6HXPajVa+Brhm4JrlG/wevNcLurqqpOnDjB0qss/Y/kcMFyCYsE
eNqGsSg8NiCFhkMOMIOaW9gVXBht1fe+xywrCi8Eh9OBiPoXLTpos+1zua5c
smTp0qU3LVhwMNbrFQDnzJy5Bj7/WNLSoghfV4oPb1i6VKFUtrW1VVZWZmRl
vUl7JcQ1y5a5iorehSOQJ6zWcVarVqv94IMP2DiWpf9RHS5d1rFXBDcL5aCs
MDNQQxMRWZ7KAnj44YfVarUTnhmeevI3znORdEz2eqnFzZ6sqvoo1vT1aG72
eEDy74IVrYIPlcyYM4e/Kymbfz1hQoHDoadWs8nKehmusE19NVhT8ziwFu48
F74PmuHBZFRlpYS4wprDSSPcjhK2Iahx4R/ZaGzdujUbLge9ITi1KbOuTmky
MfjabrdX9vef19Pzg7KyQSAWFn3QB21tNrd7QTDJ3/L5HH4/KOp/aS/tYsMt
bW3PTZsG+EzU0mo7jcYV48dTvwxaq/X/gvMk33c6B4MqXgSfXPv973+f0Lcs
Q8DB4bIUV1hS4YDETeAQlwBuZQEcPHhw4sSJoLQV8CrpjvPO21FT82ac5WiA
DCsqKnzw1T+fVVeXlpZeTluPNx53FRUVFxSMPFwcnPR7JCurEz65P8zivliI
c+bMoRuTk5PTM3nytvBhwxfNZjV8N0pbTs63wfPDlcGTXupFzOeffz6zb4UL
gdTph5CfPCCx5ahBiQ4r50KisWzZMlBatcWyuqCgJfiG4lLai4kpeEtKHpg/
vxmOeBwI9kGP9/W9mp39qsOxOz8/cv4G+AjX1pjV0NCemxugDeBvyskxwVf/
9NpsJxO9gSjEYafzDItlHuR8i6XR5TKBckaNural5XWr9Wjw7tjTxcXuwkKF
xfJ48M0s4N+v4DjJM2PHKuBCAd9++20837KPAgdXS52BIuhLYoM5BCUgmLIA
brrpppESlUqFwxF6hrEtfNhwXkXFjpKSTYqRhTPAP+cFxXXEYNiUne1taSko
KZljsVxaXv5yc/PBkpIrqqvnOhxjMzO9ra2/8/sPhZ86zg6uRjhVqw3Q3muJ
xANu9xaf71mXKwNIyWi8BN7apq6zQHd2fl6eIjiq/5vS0juol89qtQ5g1dix
oL+O51v2UeDgakmTMIBYr/xlJXdlgd/w3ODaZbfSFqOgHkWhMC4/nzrFGpo5
k9qSV1r6XvjCof8sLh43MADOGIshwEng0rPO+jR8XP2VtrbeyZP9fn8+hNPp
/D6bu1osuKq5WaHRgC749EaVamlJyfLly8HfN3d0FAVvDbS0tBQWFu7atSum
e9kHgpu3JUpF/oqQm6ZiWMU7IpiVRS/c5HJtDE5bWkutBwXR5/Mdg5m5E3QQ
ej3YkpWXd3N9/cyOjklz574MJGO372SeDahUzgPHBlFWVnaStrw8rjnwb/T0
DDidt4RPzaKWYby1qwvU+wyccj80Ywa4ctyxY0dM97IPBE9vi5977CCaAThL
5h0L7oUwF6tSqag/phcWUk/c783KqoRDeQBnlpcfCo60N0LFOevr34L90RG7
/VGfT+FyaW020FXd1Nd3/7x5YS4wGp+ZOPGR6dOva2vzwqn1GrV6XF9fZnFx
dWvrzkTvN+HAk+Cysbj4P1GLrd0KL7Vmgp8Oler5yZOVRqPNZkP1LZYoCJbG
bBKbvegElRX/WtAClygQfGMar1hw8hZ6M/L64LPAl48bR20Zrqr6Ljh36Hdw
pM5gt78aPvcvNDpHfVy6dOmyM8/8T0nJkiVLwImfRqMpKCjweDyh9dmWwufF
jmm1x1isvsuNJ6Kei6HEZfd4NkHdKTIzQy9OYu9eLIHAmsDsc5ubBARVFp7y
eUeBb0DjFWs2m0PvNxnT0REIjgYo4SXYD2mPRp4wmQbgvbALysqilyW8Ii+v
Dl6sUYcft1iuGD16ikJxTl7e2w0NI/vodNv7+hY5neMdjnz4IhWRSYlLYTS+
BBVt8vmq4MI17N2LKxA4Ugspt/lrgXPVCcG3dbxDgCGg8UoGlx5m2Omos7Pf
DT6ieNeECSMrxsNXTIauhjYYjVqr1ehwBGgzi0I8ZrFcHutlXtE8kpGxIc4b
ydlwQU3ND+K8gYiZp8SlUCyDNxqMXi99uAbJaZj8z9kHSOmHURd8SsBiXmQV
/PyPJ5rxSlar1RlwUB1gCW1xmLKysg6v92C4iPrnzgW7/R0+kCIhPyoqqqqu
9nq9f5syBenAO+Hr/EYAey5PdXVFRQV7D2OMBY+8Qk1CzgcmBPv98ZrHVxSR
xmFCdLOLioqo6w613f5a8Ezv6s5Ovdn8ZvgST5vgu4ZHh68UipHvajSLJ0/2
1NXpwOmo1bpiyZKHh4efmDbtWMxHJq3WHiAMlepbpAcq8/JCDX+up2dsfz+1
zjwbD2MMB4uskwn5Q1iT+DkfQyjjFUvhqquu0sCHRLozM4/AWUkfGwyZev19
4Q8YBrzekbc0KpW/Dt41xkXqnHNlR4cLnpqG0JCX9wx8QVi8IfqvPJ7JfX1r
6e9GR4nNuIkTx3Z2lsNXdyG5DmsgpNUO96xmAWFt4O15PKGMWSxV8pEjRyrh
mhIK2iDhuRMn2keNimjVtfDRe1dBwds8rpXikZrTGAK4BszPz9fr9TqdbunS
pQwHPq3TPc16UuL24uK9cOkbCqAKoKyRlaxQXIc7FlIpBUN6E2XFLDZU8h13
3EF9rAy+6m4LOHFyODaEdwebPR4DnAF4FeMz9Ry4vra2MKjuEPJKS59pbAwt
cfNd/L7pG4fj20Srar8ZnFU12N/vDY4NUp01+HdkkSsU7+EOh7RKwZPqojSH
ry5EUxZV+FdffQUuuEY+qNVUf/T6uHGOvLxOo/Fw8P1c1CnZEDx3yqutPcHu
iS2WfGLu3KxY76l0OZ2GwsJpNTU7E71yC/BP1FzBKK6G299pbHTk5OyFz2wa
4TUjpanGxsbq6mo2fhY4IpJrJFmYTMoCWLVqFfXx1CChXj8Dpvq94cuBzpo1
a2Qn2jwlnnxyzpz6lhaQ3kqlMmQSSPjRo0fX1dWB87QpZ53FvrSrg7P3IzgI
fweoh1PmTZ369/HjQ3VlZmaCfxsaGmw224033sjegQIERfKkTQryDYE4ygp9
tW/fvgZ4GZXjdL4HhXMf6MWUSjucd0HdBT5sMi2AU+LVBsMjwSehOPOdoqJZ
PT0ZtLmFpwAkplYbfb5NcdYEYOYa2kvJ6ewpLg4YDKeel1Eq9cEusq2tjXrH
H7jm+sEPfnDTTTeJHJQAERca5aisAGNvuHHjRuoHfAocfgdnaGY4H2Na8MHe
R4eH6wwGBXwd3lXTpp1EeZgxkhbLXRUVbuoUFHQcxcVNkyaNmTABsGFw8Of5
+c+p1a/l5ByM8wohZv4tzk03a23tXpcrwgOgW9ywYUPo40cfffTkk0+KHJQA
ERcak0xZANdccw21/cGJE3fAueIUHps//z2320MbVQt7fIMT26ZOpYoyORyr
4dKIGBlTXCMvZFGpJoQ/Rp2dnb127Vr2ribikgF5hYBZAjjCF6PYAwcOUK8R
Lysr211U5IWnSRQ0RiP1HisArdF4M5wCQZ0lcuCz1dVOOBhiycs7MzPza/ii
B/7cR1uh+i8TJ0bvMH3BgtMt0oA2GceMGfPaa6+FPIPkQ1xBiRUdybNX5sSj
LAECF7fYd955xw6vQcBlV+GoUYqMjLq+Poq1vb3gX43brVQqn2puDnCask6J
8ef9/Va4SkxFXt4r/F+MEuS3NtvVcB1givuCA5jrgvNJvqivp94ZoVar586d
e++99/7qV7/au3dvQB7KChBxsaWslRWv8CeeeIL6qp2WpRHsjjPEzZLUS2AV
ev1TUasz8eSGsWNXBJf3pHPIZvuwuhr8cSa8ltRqtSMntLH8g+RGPIGJW77k
CSxbyktZgTjiiq7o9ttvH/kMxyjiTS66ffbsLznd1Tqp0108ebI5J+eS8vJv
WK+ay54Ds2ZdFrXS1FGTqV2ny6+svN/vp1a8KSwsjHjJHUuHC62sABEXK3IM
gSTKouOxxx4b+V/4WjEPL1iwl3Ytc9xoPD9WB8FA6mzwru7ucZ2dW+Gqa0Kw
qanpN1H3tv6u1SrCl1i85ZZb6KtVs/c5EZcMKC9lBVDElZOTY7VaTTD//9rd
3UNN7dNqn9dqj+l0NwRvIneUlh6mvXyHDVesWAHKeYnHe10TUh1rkagFg4P0
BnZ2dsZzjlTRiVOL5GksQ3IMQUSSCxayBMjMzHRR94DCJ6I/CGe8A+3daDb/
VaOZWVbGZhHdU1Qqfw7f67qyuDjAbnTxc59vF+39lR85nf8Kf2vD+1HzBve7
XNSz0oAvB9c5PJidraAthWEymf785z/HdA6SD/FGJ04tkmeyDMklBIIqK7p8
ZkQv9TkiNZ/vYGlpRUsL+LtmypS97KZMUGeDv+zqMqpUGUAsPt+1UZda1D43
9PZeS3vZcX1BwffA1VPw3vH5Pt9YOA+E+vY/TucE+MoVOmdXVKwPruSmtVo3
wlGXhfBNlEql0mKxNDY2rlmz5ujRozE9w96B2KMTpyLJM1lulKOyAvFTKKa4
/H4/ODOM3g5+9g12+/NRL0Rm5i8WLqQO3+v3z586VRHrjcmXXHwxtc8gfDHK
MbiulM5mewVKeFtBgaugAGxZEpys+wjYIarf3B98MnprT48CvqZ5DFyKymAw
rFy5cvv27UieYfAStqgkqEvyZJYVZaqsAOvfZwp6vb6lpYWur/GNjdeOGXNl
be14j+eJWK8Cj0Gz+cX8/MrgUqJajaaitZX6+1lw1aNQPEmNPGg094VPlmgx
GpfC/hGgtrNzf27urPb2U99ZLKsqK3cWFbnq6kBvdDDOEyWX0haWAcp68MEH
+biFKEselKmyAuhnNUeOHDGbzdnZ2Tp4q1el1f4Wrql+UKVq8PuHVKqPaS8c
j+ABj2dZWVm/zaZxOBRwcjvQaSFtUm59a+sWu70E3kd7vLWVqmLJkiV9cBUL
UJdCrQ7tPLGmRkV7XZEjN7c8+PT9ErhI1L/gDazTNBim0q4W58+fD9rC7BO8
ruMDIi5mZXEWl3Ah41zRgQMHHnroIWNwytOVw8NUU8vLy4v9/l1R74U85HIN
Dw/7fD56dTU1Na+99tpzzz0X2pKZmQk25sEe0AZFN3JXOhDYuXNnb2+vgjVG
wWeizwlO8Pjj5MmflJdvz893BYUMLNm/fz+zQ4TwG2cQcSWdsnjWtXnzZiAZ
atHd9tra1dnZWwyGx4qLjaWlP+7sfMVgeMlsXqNQFNGeiqLgcrkMENTHrKys
xsbG2bNn33bbbXfeeWd3V5c1qIJ77rmHqgvIkJp8RSkanJ3Og1iwYEFouRgF
nGKhVqu9Xi84ha2GA4PHDYZOk8lXWfmYw6GFd7VAh3jDDTckdIhwfuMAIi4G
ZbEPgXRR41Ldl19+efPNN5uoW7F6vcpkcrjdKnjKpwqupksHEBQ4FQTJTz0y
T8FisXg8ntBabWAfNTz9a25u3rdvX6iu9evXA+ktW7bssssu27NnzzEIsP3l
l18GesnJyQFC+/Wvf33FFVcolcoLwMUXfNL/F+C6DKpYBVUJdrv99tuPHz/O
7A32fuPgNA4g4mIQF7oPRYpaINbAIGoJL7300plnnhlzIJGO9vb2mIP50QDq
AHtq4XNhEXVt3br166+/pm85dOgQ0NRnn31Gfdy0aRP1tHJOeTlom72kJFRs
cXHxL3/5SzZ+YOkxVEdxBt00Qg65yie9+YA5zxMefvLkSeoP0IutXbv2/vvv
fyAcjz32GP1hQ5aIuR57qC5mgDNMsH9RYeF4uB6pAqq1v7+fmjcYrxCWTZYk
TPQ6055o+RnlQBmJSyCTWFbKzZI33ngDnP4pIRTwVSxAbvFGMCLsYW85Qmv5
IaL16U3knBQ0jVFrx5jkEloyl9ZnAWWxrJe9hRxbyAkRbU1voqWf0BnLwQb+
uS2hSdThP/nJTxRwbH/58uURb1llqIu9SXgayQ70atOeaP6XKmQJjeGT25Jb
RQ2J3HffffRHSJgLZ28GpmaxBd276U20NBM6LfmDQ2IL1yL2VYcuuJjNYG+t
hJGi15zGRPO/hPHiDPbpLWjrsJiBZKGEkaKbma5EyyVBc08EcEtv7I3lYwCS
VRJGim5muhI5UgLlm/jgkOFCtJqbGUjxwm4z+6qp+tOSaDkjaI5JAs6JLZAT
8FYtYaQijE0/cgwWlnhJFfQIG3BBfNtYloDdMJagW5p+5BIpLPESOi25mcFs
T8JU55D8fOxkfxQuM1BBNzb9iJYGuIIldCrysQEpadkDu81I+2OpnQPo9qYZ
pYmUaKnIwQCMRWFvmlTx4gO6yelEtIjjynzRUpGDAcKVjKU6pAMF9SFLRDQ3
nYjmfCzBQk0/ntnIvnaeJbOviHPtnPfn1xReiGhl2lDYyLJwdWRRGPOQZe3i
pB/LdjFbgmqtaK1jaQNlSNoQwfkC5TabfVCTkH3tIice+6bFNAzJYEkayGyG
1Nme7spi2JlN+nEojXNz+IBl6+hGotoseRsDRFmiKAtLSidMP9QDubUFO5jb
xc1sOTQzwuq0IYLn+YcJb1ajJh7n/BQZzO1CslwmLY0wPG2I4HyeYRIosVkm
Ief8lBAJG8X+cKFNZWmG1Nkud2Vxi5TQic2kLh75KR9wsFwOjU1XZSE4X+bK
YqgoBWQV4Op/ObQ3XcWVaspiqDHZ9ZUSykofcSGkGecwSZvVKSMxDgbLoY3p
qiwE52NUFtco8UKyS4woK9mYLspiNkmGRkaAKCvZiKwspDDJPGmTSGL8/S+c
bextSE9xsfcPP8fKJVfpkL++iLKSkGydzz+4MslSBiSUmFT2c7NBhpZLne3S
iIu9i3g4VtbKCkGGEktSZUWbIXW2E2XJBTLRF3//C2cbexvSU1nMzucco2RX
VgjSSowoKznJyvlprqwQJJEYUVZyEk1ZnIObGsoKgVlieBubQspKK3Gx8j9R
VjyIIDGirKQlK/9ziFQ6KIsOgfTFrSiZeJ4oC0lc3BzLL0RJAwZ9cXMCf2VJ
6Pz0VhZbySRvfCUBLokltbKiLZE61eWorAB6tyWf+EoInhIjykpmsg0BarDk
E185gLPEiLKSmWxDwCfE/EKUOkDVF39lSeh8oiyiLPHBILGQxzgLRCaeT3tl
sZUMarw4J0ZaIaHEeCpLQs8TZbEPAVGWcEgDZaWvuJB8xcG3vGOVFkgZZUVb
InWSS6YsJHFxcCzvQKURiLJSiKwCgRQy+YQ4GUGUlSpE1gsH3/KOVRoBl7Ik
dHu0JVInuazFhRovOYQ4GZECyopljORJngTKYhkymYQ4ucBHHTKWFVEWW49x
8DC/WKUL+KhDPsqKNkbqDE8acXHwMI8opRFi/NaLcix2EGVxUxb7qMkk0MkC
oqxUJJq4uDmZR6zSAjzVQZQlS6Ipi33gZBLrpEDqKouIK3FEOAQulp+lj748
QZSVomQVEbzikk8+yAFEWSlKVkHBEneitWhglBVRlvyIoCzRxCWHbBEBPBsr
H18RZcVTFntx4fA5R3ANu3zBs4Hy8U/McBEiKYtbBOMdmOYSI8pKdbIKDc8I
sj82fSSWMsqKNkbqlJYPE0eHfxCx5E8qqYwoKw3IKjr8g4jl8JSRWCopK9oe
qVNaPkwOcUVbkrwSw6ssyZtMlCWtsgL4xBVdZhKpLMVkFWWS5PksKyKIC1cU
eJbDULLMJcbfMLk1jSgLi7IwiksSlWGvi6dtPA+XX4skT2a5UWJxCSEEeeor
1ZVFxMVFWQERByIwppAQZeIyhufhkjQhkUmSJ7PcyCpSGAOKKCwMuSREmTxt
4Hm4mJazNknyTJYb2UYKb0DRhcU3r7AXyKdq8UvAjmiLCLmJS4SYshYW5iwV
OmP5VyGOnfxMkjyNZUi2wZIkrCgiQzMPSyEcapGqELyItihJiJZK4ohLqrAi
eiPKO/yqwG45lnL4WIUFEeagJ3NSKAuLnaxCJklkGZIK2U2IdaEezqY01EKi
y+FQAl5Et4lfGstWVrjMSxw1SYIbo6nsdkvgL8RKObSd5+HxyuFQAl5Et0k2
HQQfWcXbE1vVLL0qThADnM6F0MLJoxzUY5EbH6soboVgRHSzsPYRzGUKIStB
FX3aAJZeFSeIEZVyq5ptLLmWwP4QVMtjFsWtEIyI2TLcymIoFqOyRNCUrMUV
6Q58RcV2N6fDE+6Gy2bO5eBCzMYlSmk++c/ycDnLKjmUhatqxlAmqIXhEA6l
odrJuSgsiNk4HMoSQgsMEFlZicUlfohFyCvGEMStkfkoLDZjLAoX0FOUzT7Y
JZYgIFIpizmCIkdZzNRiCgb6IfwNxlsaFoiepQm8i7KzOAYnjbgkSa24UcG0
P2czeBbIH9IlKhZIKCu2qhEt0BJmV9zwcNqNvwH8C+QPqXOVD/jXJYa4RAt3
jOaJjrihYtwBe738C+QPAZJNHIkJVL6A4hI/miLUyMaMBB4XoDr+ZfIHjtQS
WWUiyBaplsTRFC3ickuwxF4WphYsxeI1CTGpkoWcgVlcIgdU6OpYgsm/wpSP
pVi8JqGkE8Ykl1BZuGxLEFNxgi63BKPA5H1hysdSLE/wyCW8GS5c7dxqQTUp
cUxFiLvcEixBpIWpAkuxPCFKYqMqC68lYjYwQWRFCL2scixBdAWrBVfJfCBu
4iWsLm4QsFYqeAPZOFycgApUCwdLBDJM0ML5QIA0Zp/n7NXHxzBpWpfQ4eLE
VLhakMwQziQRqsBllfC5x00RnC0Uv3USi0vyHGOKnPB1Ya+CA+StLCwSk6pp
clGW+JkmpqxiVidELahIEmUl1Fe05Wz2EcPahJ4XIaxCVMGyaqHNEK0iVEia
e4JKjCnCchCXmPkmRBVs6hXBBtEqQoWkiSeVxMS2MKHzhY6sEOUz1yhCtotW
EQfIIPHE1JqUJiUMgaDBxV44c3XiZLvI1SFBTumXwmSKuDjKEjrfxJdVvEqF
qw4JRFkpLC45KEvkGoWrDgnxnEEonLiYYyFofPEWzlBRStaIBKIs+YhLoNwQ
IeuIrKJBlCWJssQUl9C5Jx9ZyV5ZkudeyjOxuIQLsXAli5bhRFmEzOJijohA
IRaiTDFzW/6aChBZSa2sZBQXg6aIrCgwuIdQJuISKNa4ypGJrOSmrADps6Rn
3MTAnjN88pBZUKLldjLLiigrZcXFLRvZaEpaWRFlEcZn3PTAmznss5GloIis
YoLISjZkShKM+cMmIZE0RWQVE0RZcmLcVMGbRcxpSWTFH/GMJZSOcbMFYy6h
akfCTJaVMSxBZCVXCiguPpoismIPoixZMm7msEwqnvKRSSbLyhgkxLSXUB6M
mz/MqYVHQpLmsDytQkJMewllw7j5EzO7+OpHBtkrW8OQEM9kQjkxbhbxFo2M
klbm5qEiptWEMmPcdErqVESSkmxbERNEVslD7uISP6+YkapqCoHIKtnIRVzi
5xUzUltTASKrZCVTysk/FVNbUxSIspKWyZp4qS2oEIiykpnJl4TpoKkAGWlP
BSZHNrLpp5KiISxBZJX8TIKcTDdZBYiyUoSyy1iWUkpVWQWIslKHyQqpFSAI
YjaUMGmZTJA69wVEvBYTJjnlDqkTX3DEbDRhSlB2kDrZRUVMBxCmChMnNhGU
EIjnCcLUIlqSR+9P1IQKIqu0IUl78UA6rPQjEZcYIMpKV5L+S0AQWaU9ib4E
AVEWYYzwE/ADkRUhjURf2ECURRhFoi8MIMoijMU4aUHADkRWhIwk4uKIeD9N
UgeUUG4k+kIDkRUhCkkXxgpEVoScSPTFBCIrQt4k+opEHFkRZRFyINHXaRBl
EWIlOT8cAZEVoTBMa33FlxVRFiEupp2+iKwIRWS66IvIilAipqzEGDVFZEUo
DlNNX0RWhHJiiuiLyIpQlkxufRFZEcqbsZJS3kikKSIrQvkwafRFZEWYhJS1
vlhoisiKUM6Mk7JEVsI4NnnsJ8TC+OGXo6bknJaokNxgNmZLbl5qMI5ziaDQ
nYaCpLBZcj8nOxP5NyllJWhicDNewtTlDNEsTG0m8rJImsIVUIFyg7/ZImcv
TwhtXlqRhbtlramIhojjGT5FSRJKSRxImDAutAjhkZWgTRDaIVgKFC2CArma
kAOFhmjGC+QEXBaKEzhBvU3IjUJAEssxNhy7eYLGSxxvE3ImLsjBZj4tFc5C
IZosprcJsVCGOuJpqlTNwViFDJ1PmA6Uoazi2YaldZI7nDDdKI6mOBzLuWrx
fwoICdkTY2ZyTnVUdaPuT0iYvEwI/iXwr4KQMOmIMf/FURbRJqH8KYQKpCpQ
cmcSEobIkKL80xiLFpAguT8JCTlkpviZzAGSO5YwncknJ8VMZqIgwuQi/0QV
J9WJrAhlwoS5hzdXhc55oilC+ZAbsFcqRFsk9y1hmlNkWTFUirdMyR1LSCiy
rBLWi6Uoyb1KSEinOJpiWSnLeomsCAmZiQWSt4KQULYkyiIkFJREWYSEgpIo
i5BQHBJBERISEhISEhISEhISEhISEhKO8P8DwiRahA==
             "], "Byte", 
             ImageSize -> {116.5499957275402, Automatic}, ColorSpace -> 
             "RGB", Interleaving -> True], {{140}, {
            130}}]; $CellContext`BoatGoat = ImageResize[
            Image[CompressedData["
1:eJztnQtwVdXZ9zfkQhISQhKTEMiNkBDAhBAg4SIQLgkkkEAI4X6/ByKBotBW
bcWOOugHU21lrNqbVawOzuh8+nVaR1sqFetorfqVqVpkXhh8vSDjpYhWx9nv
w95mvztnX8667ss5zzN/mJNz1l7rWet5fmft21l7+KbdHdv6K4pyXQr817Hx
u7P27t34/SWD4Y+lPdft2N6zdUtLz/Vbt2/dO3lTArxZ1U9RyuDfldeKoqLi
TwqGHoWSKRfz3TcUKgZEZb57i0KFTjzmu/MoVPAl1nzvDgoVNPlrvncfhZIq
u6S3GBKHQrGKCDEnQ+JQqGjiQgznOxQqmgQj5h+Pvo8kCmWVn3y5GEKHihUF
FDEnQ+hQYRMFYgEkkZs4hA4lVex8UecxEoeKR9GxICKBozSBxKFiS9T5LyJp
KZoTbvz+olDEok547vykNm+44+id70FEBVnUKc2PA1MaszTEb7ROoVAWUWev
2OSnzGGRTbMZoSMoVK/ostQlsYWkOjVUxMbsEp+3vscX5bvoUtE9eyWlNAtR
UVNftEVtEBWXos69qJtITWNCfxjMK698jzjKe9ElG0l5ealLaLy8CfLcpW5U
3IgltUjKi81VIeYjcQhavEoAXy6bBJAyF/MGN6QszsSSOVSbhIsyw2TjhpTF
jaQjpoaWMsPksYaUxYG8QEwNP2URJgq3iC1QsSiPEFNjjjLdSFhz7zVSFuvi
hYWKl5ikTDekDOUgTxFTY5oy3RgosxZBxYqIvmOjpgRPEtJuGy5DyuJejKTw
MxI/lBnmPtq2IKJCruhfrSTZIiTlmCsJndFMZEhZ2OUzYgLrCZFRTmRIWagl
BjGkjNZc+ouUxZz8R0yNP8oIEev7p++pgmJTIBCzplbMG1IWNwoKYtbUim0j
R0xFysKtACFmm12xau49RcpiSMFCzDa7YtWoEFORslCKHROpIMQJZe59tP0U
EQuVIo0tPSRREA+UESKGlIVW7IjxsMnWiqQm/LWoHXT6FCkLiYKOWERbUlvx
xcgRQ8rCKXZMvERMRcocPkXKAi8uTKQi9oVmts0Jb8tf45nIVKQs6AouYu4t
etOcZ8YzkalIGYfKyx9esOD/tLYeAlVUHJXQRMgQU2OUMs6JTEXKmDR58peK
cgBGrbCwsKGhoXcMjwtthR0xTjx5LPYo40dMRcrolZt7pLGxcfHixV+mpupv
jRs3LiPjsNBWQomYGnOU0RCElAnUgaqqqm8SEoy/i4qKtHntf8vU1HwM4mhC
GGJIGacJmchUpIxGMGENGjRo9uzZxluPrFihI1ZYeHr06McaGm6urt41QzN4
AX/CsVv8IKbGLmVRCyBlgnRg+PDhl9PT9/f0LFy4EP5+ffLkESNGlJWdKy7+
5fTp0wcOHJiWljZ16tSGXktPT09OTo6Y6WIYMTW2KBOFmIqUkQlmMTgQi3gX
JqySkpKCgpUwfIDb8uXLIwrAJvARTH9kR22hR0yNIcpIBhMpE6idOz+EGepP
c+dGfFBcXJyYmDht2rTHli0zv79mzRqYyFpbW4cMGZKTkwODm5HRJg8x1e8z
Hrae+OiDEBOImIqUEWjChOtKS0sfWLdu165dxrurV6+GUZvbF709e/YAeiNG
bG5svLWq6vHs7DdAinI8I+Nv8YCYGiuUiUVMRcqiaciQNwsLC89XVJjfra+v
Hzx4cFVV1cWCAuPN3bt3Z2dnJyffTtlEmBBTLOZUQLYn8oxkPGm7iZT1TfXI
j8aP/7/3bNxofguOv3bs2PF1cvLv2tqe7OjQ3+zu7s7Ly8vPvzdWEbPyZUtc
LFEWtQBhN12yKz7kmC+6Jk/+EoAyb1BbW2s9DfLJFb7ys7N/wtw6TzIEBDEv
/ZFnJP7T9tFzyqJkdTAQi/Bq5tq1a6/fvv1727YtXbp0/Pjx1opmzZpVUvKr
mESMYJQcxi6ERuI/Qx8tGeVLMkfGJwB8GXa8oveIrLGxMSkpqampCaYzc11L
liwZPnx4cfEZRMxq8nwTboRuM3TN2MLvZLYPke9epaQcbG9v1zcrLi6+a/Nm
/fXjnZ0flJQY7/frd0uMIeYWFYIyLlsF0whdZeuRsUXwEJPhGEkrfSwlpXnn
zp3w7se5udnZ2baV5uXlEd+Nb2mYIxnYamBrJWpbZNGU5TC/0XaTqfLAUibQ
PfKav7WCgoKhQ4fqlC1cuDA/P99atLu7u7b2O94gpnoykTnGgGNb5gq9MXKv
2Jx3TTYhWS2QTYF8EW1YUPAWUNbZ2Ql/zJs3r7m5uaGhIaIQHKzV1f0/Wh9k
JwN//fwNuYZSZEP8RugDs6vcCSxPjtHwBjGDsoMbNpwbMaK8vNy20PDhw0tL
/4vKDc5MkJGQ8jLfOY7OAfbWCNvl8ZA28YIBGqHPbFtFUqb/YUvZP+rr3SnL
zPymtfWVTZs21dXV8aSQ1CT0INWjhdI5xvKNsC0elxhyL0igUQeNlrKS3hOJ
o0aNspaYOHGiE2WjRr2fmnpHQUEz1JCUlJSYmMicM1Kzzn6YpBl75CT7Q+42
cxN+o+QNa9TtAmWlpaWGB0DK4a1bzSWKiooSEubYIfZoR0cHbNLU1HTttdfW
1NTA6+PHj/OkgYxksx8mr4w9kKIdEFjSZVu/IfIANJZGc3NPlZWVPTV/PvxR
WVlpLQGUVVRUNDS8Y7wH81d6euuAAQOWLVtmXFD7q7b8DgNlkrLLtnLh9fP7
QxRXEc2JKhltc98Jkocbl29ZWYv1n0XbHpfB7qJy5ar0tLq6fYsW/V1f1aq2
tvakackC0G9WrVLoKROVTiSVC6+fx+hDzNIF8q04h0hUKnLA5ThgXtUQRYmJ
t8IRWVdXl+1c9mxLC7TU0NCQlpZWUFBg/oHM452dLS0t+uu2trZJkyZdunSJ
KTTs8SWsnKH+//znP4899tgTTzzx97//XaxvZnONbxQjr1lUSYIaAgKX45j5
R/cB47MfdHdbPzbucoR57ZEVK/TX8AJ2GvXq/jlhAry45ZZb6IPCHtmo1XJW
DnDB1w7UMHLkyHvuuUeUk4TGlEIs3RcSBXOD/iFGTp83gBuFj+uIlZaWwi4f
KDU19ZO8vIga16xZo2r7hHv37NHfaWxsvHf9+u3bt+tU1tXVXX311e+88w5D
/vAE16VaIZXfeOONirYQJfx/9913C/GTwchi6hBp4soFeegLYmwsSEXs2/pz
c0/l5+dnZWW9NW6csf2wYcOamprMNX6TkABTGLyoqqrS39mzZ48+o+mLhGza
tAlqPHToEEPC8ETWpVpRld9xxx36nTDQx2nTpn344Yf8dfIYcXxJR0DUWEWk
loeI8UMhgy9zzQcUbcfPXAtMWElJScZCOl8nJ0OarV+/XjWdgTSohG21pRqV
AwcOMCQJZ2RdahZVOVCWkpKidxaOOufPn3/y5EkhNfNb9BjT1CDIGQ8QYyaa
hAi2GhzdGzLkzYKCgoq+C33oenXq1IEDBxpF4WvcpeGysrKSkpIzZ87QZgVn
WF1qFlg5UJaWlqb3FHaPoeaf/vSnoioXZY6xJ95QnA/eUKZytEVi/Gx++1Fi
4q2KZSKj0tq1a6dMmQKVzJw5kzYT+MNqW63YylXTHqMuOHrt6uoSWL9Aox0E
gSNGkHVBE79FbwWOyOD4y3YiI9HL06fD/AUtDRgwAHaolGh7jJIosO+8UIug
bOHChfX19e+++67YVkSZL4ipoaSMhzjSmqdNezY/P3/JkiXMlG3u/T21+u0q
+spTTz0VNaBSERNVs9kOHTpkXtoLdp7HjBlz6tQpGW1xml+IqaGnjIo1ijor
K7f379//v8vKIj7409y5NTU1dXV1ra2t8IK8RtiVuu6669wDGjrEvv76a/OX
CehSZqainWs9cuSIjBZ5DCmTiRt1PZMmfaE/SyLig+XLlz/e2QkT029WrYL/
V65cSV7pli1bhg4det99972n2cWLF9Uw7yjqdvny5a19b5zWZ22wpUuXymiR
2ciHQnJEfGckKBo8+LWsrCwrZXCodTk9HWDR78nX72wkV3t7u6L9dgZs3bp1
+kW08CKmaruLM2bMMPexoKBAbxH6CF8mktqlNaqhQMq80nFFe1BLxLuw1/dZ
Ts7VV1+9SjOY72jrraioSExMBDwBVZgF9FsmpCImqmZbg91m8yMDfrVmDbQ4
ZcoU+Dqqrq4OzjkQfxFTkTJnyp5vbIx4t7i4uKurq6mpqaioKDc393R1NW29
kJaNWrX6bY0yo8lS84kTJ8gLP/fcczAOxtN+Ve162dixY/f39MA3yZVbzgJj
hAMi79sJKXOizPruP+rrR4wYsWzZMjguY6u3trb25enT9ddQj0J8TwhlKKPn
yWeffXbu3Lnjx4/v3bt3Zq8BHbAfe+TIkUceeeTRRx/dt2+f/v7+/fs/+uij
iBoOHz48YMAAax/fGjcuNTX1l7/8pah+cZrvE5mKlNFQxizjXPeiRYvM72/Y
sEFh/fW0cxyjJMmZM2eeeeaZa6+9Fr4xBg0apGhzNOz4fZOQsGfPHn1z+Cii
QpiC77rrLuNu5y+//BKcv62ry9rZHZr9+9//5u+UECOnRhJiKlJmp8rK34oa
DvNtxnv37IlYymCvltXGVLJz585jx45BAkfEyP1OfitfMD/qFV5//fVHjx79
9a9//eCDDwJB+ptw0DRx4sS1a9e+PnkyeUdg8/79+wOP+uT78MMPT7bb/N71
6+GoM2jnPchLykBMRcrsNG7cHrbh6OjoeKp3oW9d5rv3jSV6DDVoaxT062tz
58417t4/derU7bffXlFR4bRjGYHYhAkT9LN8/ewMZihokeeesebmZqh869at
cIAZcQ4fdDk9HT6FXVAZicpmhOAQ7gZwuoGUGcrJ+f9wUD9y5EjaLf85YUJS
UpLTp39YsCDizP+6devguCbi+bnwZ0ZGhjHB5ebmwgwCf2ZlZf3whz98wGQP
PfTQ66+/rmiXgGGKGa/Z0KFDYYoxT6DCVV5erjjf3gmMw6wnI1EZjBAc2Yip
SJlFM2b8cdiwYRGXgUhUX19vLHVlm5z/qK83vwMgO11x29/TA5NOe3v749qC
xpDSwFpCQoK+0FxCr1VWVubn519zzTUwS8JHMFvBhu5OQlVwROb06TLTc7Gh
aeuPVfUaIn5ed9a0el5wKCNnBynzWPX1l1evXm176sxd+j0Pu3fvdioQsWDI
ypUr6+rqeHw9X1EBkMKx1enq6ju2bSPZ5PnGRvj2mN13zR9jCaCvk5PN7/+1
70X5iD1hsyZNmgTfCfp5V/iCunIFLQAWHMRUpKyvEhJOwKRAe7lZR8x8fTZC
N+zaZaxUAAI0YB8varUrVqz4XVubwO59UFICR46DBw+u7zurkmibA8gA4w29
HQfwYWJ99dVX5aUruQXkiMzSig9ZHTSlpByEgbA9Qe0k/Wy87ZrDumBHsazv
Xcc1NTWEpyCACzigi1hxDubBnTt3Ol0TFwumu8y3Cvf09KxaterYsWPycpXc
AjWRqUiZSUVF7wAsTgPRY3fI09zcnJaWZp6nrJowYYJ55/CBdevcy1sFSB62
nNCzFSBp/hOI+wf9tOWuJzs6PrCcLP0mISE5OZlwYRMPjIQdpa9544/vSe67
8vP/OWTIEKezi3DoAVPSr7S1qnRB5hcVFblX+llOzpgxY4w/gS99HZ5YEnwJ
VFVV/eQnP5GaqOSGiAVZM2b8cejQoU5nFyMO1p7SbrCHgziX0wIgOAgy7xxW
VFTAXCDKYzi+a29v30M5M4qV/oOyKz8CCoYFbV9RRcr6qrX1kKLd5GD7ccSp
ucLCQpjIpk2bpjhfPFq6dOn27dv111AGDsdepb+NP+BasmSJop9cDYAFEDEV
KeurpUuPwEB0dXU9tmxZct/T2o93do4YMcL4E5AZOHAg7CO9//77+r1/VtDg
HWNxJ1W78YPnpovACiw1NfXmm2/2IF2jGlIWfDU3/xX2GLOysvr167eiLxHD
hg0zr8utaOc99DH84IMPYEaLONpatGiRcXwH5cePHy/8LERANGXKFPjCgWNP
L/PWPZkFlhRiSJlZubmn4LhJHw7zXRA92p0Y+mtAJiMjQ7/9yRjGgwcPGiP4
hwULIPEyMzONW6dGjRoVk7OYrokTJwJlMGsrduZNGqs005OvvvkerkBo0KBX
U1IOwi6Qot0BFZEzcFR1obBQL3rlSS69dvz4cfi0s7Nz3bp1SUlJxlVagGvs
2LEXCwr875g05ebm2vLlMW60iCFlfksBNKqrq7M0m60ZvDCP0Zepqea57Ec/
+hF8mp+fr/Q9eTJ69OgYnsW+HSztQRskoMnLbfLKfUUMKTNnzbc2ePBg47Fc
r732WsQtRsXFxfqvLwsKCoqKisrLy+FQDjbRP924cSOgejk93ff+eDBeTz/9
tCWdKExUGgssKdCQMoessYnFV199ZVwv0w+4SkpKnn/+eaX3lH5lZSUcyul3
Ut27fj3Ma+7X0WJGNTU1P//5z11TSy5xhNsK5JrKEDE7OQZix44d+nNe9Gte
Vsra2toU7UleLvc0xp5gim9qajp79ixBmonHjby8L4ipSJmN3KL8wgsvAE3G
jYJbtmzRS06fPh32HuHFVVddBf8PHDjwbDxRdlH7afZ9991Hk29icCOnkoFf
UYaU9VX0QBw4cODqq69WtZ/kw86hXlhHTF9bQH/he088Fuwe2y5OTpB47LhR
geMXYipS1kekIdu3bx8coMH+YWlpqV5eX69G1Z5TtmLFijLL0voxr8GDB7P9
PpqHNQbKGDzkN6TMJNKQvfHGG7DfqJ+0N0y/AXjx4sXd3d0VFRXWZ1jEsP40
d25ycrL1BAhHNjJyF7VmTg8ZLMLT+BZFyM6fPz9//nz98hnYrbfeatxJtWDB
ght27QLKVq9e7XuXPNNfGxrS0tJeeuklacnJhZgalIkszimjjpq+iBPYW2+9
BfuKxi6ivt/Y2dnJ/GzBMEqnTL9bRnKWslDmI2Iq7i5+K5aQGYX//Oc/5+Tk
GMt96JT9c8KEuDo0g+kb9hiTkpKY5xrKdGWJlyg3aA0p00SXDxGFgS/z8BmL
msbVacY5c+boZ1ndTXTS+r9cMJUDfkfJR3GF7OjRo/B6lemxFJBs+prY+3t6
XNY8jDEpvdcyCE1ExoYDMRUpowy9tfB3v/tdeD106NDa2lr9GUyQbG3a+lH7
Tb+UiW1t27atqqrqwoULKv1JQuaMpUzvIExkSBlj1B566KG6urqRI0cOGTJE
0VbYVrSVdVeuXKlol61976EHmjp1qnXFDxm4MZcnKSzJ4p4yMSE+d+7cu+++
e+zYsY6OjgEDBhhlYv7XLoby8/O///3vE2caI26ykZRh1s7FnyiiQFj45MmT
Bw4cgDI/6O72vXskGjt2LOG63076w4IF6enpJMucUrFmHefQIabiRCYBMcNm
zpzJQNnOnTs9HgJ96RJFW2vOePN0dbUxCzut120WHI3SXo9mwI02BEGgDBGT
hxgYHKSUl5fT+lTYu8qBB/okLw+agx6tXr26paVlY+9DQnVdc801+o8OrM/U
turaa69NTk5+4YUXRKQiEXEyQibcEDGpiIE9/fTTdXV1/fv3v8u0gHxUWZ8e
aNV/l5WZ181mPvT7LCcHejRr1iz9z/nz5+u/MjC0atUqvfIL0dgHJM3LMrBZ
jCGmImVMlNEO8ttvvw25p2jn811cMU8WhGt6w0RpwLV7927jqRMwPZFAt27d
ukGDBtXW1irakzqN98eNG5ebm9tNv6O7YMECIPTDDz9kSkbHAUfEwiwWxNhC
pm+Ynp6emZnp5M0a03r7CQkJ2dnZUDgqLFCA4fGFqvYIDHDpwIEDxzWDF+l9
1yTJysrKyckBH2wfumEr2LeEOu+//36GIRI+/kGgLO4Ro4gCZ7yKioqKi4sb
Ghpenj5d6V0kxKr169erveAo2mo8YGlpaSuEXgUAEH6zahXMqpWVlRFPptbX
3TLvFr4+eTLMaxMnTlS0iY+kfgBz2bJlX331FcNAORnb+PuOmIqUeYWY0rts
mr5eXGlpKbBm69CzLS2q9sO0UaNGjRkz5syZM7D5Sy+9BCykpKQM0gymG6A1
OTm5wWLAo/FaLwyAwIb6bHixoKClpaWgoCBbM9iDtX34O7wJ0yjMX9ZDsMGD
BysEZxr1rwinJ8uzWUwgFoeUUYDDHC9jwzlz5hhDXFJS4vKATrX3wTF33HGH
uaoHH3wQ5jVAY4JmsG8JBTZt2jSh19ra2gCiCX1t8uTJugNjx44dPXo0HMRV
VVXpS0q69Oi3v/3tqlWrbJcD2rJlC7D2WU6O++AuWbIEJspXXnmFdsTch5E8
BJxfjEIs7hGjiAI/Yop2Wt4Y5Xnz5rmPeGJiosuKGZ9pdunSJfOfYJ9//vmn
n376WV/74osvDB9gFgPuLKG37xrUv2PHDviow/LIJwAwz+4B7mbpT1Zqb2/n
Pw2CiIVWniIGlpGRYX46zMiRI79MTbX17Afd3TDZvfHGG6zhJXUpKm4ACOz1
DRs2bNGiRdbhi3qdfefOnQr3fiMiFlpRI0YVL9vsffLJJ5W+Hjg5N3z4cJj4
/vWvf/HFmc49F9b0XxnYDmLUgd66dSscFT777LP8rsreSqwhZVIRsxvhK5vr
jzMzPHC54lxWVtbQ0AC7f+wxZnLSCbSjR48CKcuXL4/wc/HixSTX48Duuusu
Tg9lbyXWEDHyKPBH2dj29OnTRUVF5qvMTpR9kpcHmxw8eJArzBze2vo/c+bM
sWPHRrj6TUICfBp1zf+KiorZs2e/++67PI5J3UqsIWJmysjHimOEv932tttu
S05ONj+u3YmylStXXjlP7q2RsGalDJSWlma+jG6rZ1taRo8e/f777zO7xNYL
+mEQY0iZL4ip2lyg9L3R3ZayX61ZU1pa+uKLLzIGmNtcKJtsct4Q7NlWVVVZ
3x82bJjx+vHOTlrK+MefvutiDBEjjAJzsJwQ039fZj6E2bVrly1lsHO1YsWK
N998kzHGgiyiIzU1NZmZmU4/w7GlrLW1Ff5fu3atqj1ydMaMGeR7jIhYyEUU
BbGInThx4qqrropYIw4QW9D79ApDe/fsycjIEHUZl9+MvsBEnJWV5TSmVsou
FBY+oN2IBf+/OnWqon2r0DaKiIVTdIgxRzliw56eHqV3KW9DI0aMsN5hlZ2d
LfaWJCGmaN8JJ2fPdhrW6upql0HfunUr1HDkyBHCtmIFsfikjCgQwhHTnyt9
y44dEd5YV7Jqa2srLi5+5513GMMszaALKSkp7iPr9BEckSnEV6URsfCLKBAM
IXNBTO2lLMKVG3btsv7EbPjw4UVFRadPn2YJs0wDRhYuXOg+rE6fwn7ypEmT
SC6vuw8jyVZ8veQyRMyMGDllbCNs/dRKGRynmO+zCjhlzzzzTLrz5bBrrrlG
6Xs60TruJE9W4kfMR8oQsQjKyIeLbYStBax7jOPHjy8tLQ0LZXBQOXDgQCfE
jKWDbQvAERnJk5VCjZjVE79TPdCIqfQTGUmgH374YUU7eWh4U15ebktZfX19
0Cj79NNP4TvBdkybm5uhX7/4xS/0vtveNgwMbtiwwb0JRCwmRBoL2qiRBPrs
2bPWX7j8ae5cW8qAvqBRBkdkS5YssR1WmHmNcxqbNm1Ktfy4QP8Vp/5YUpcm
ELGYEGkseGLtVEa/d3H06NERPtk+XwnyFo7X3n77bdIYS7aHHnpowIABtmOa
kpJyww03GCVvu+0267FbXl5egfb0dpch4kfMR8oQsSAgpmo/bYYC1itNtiEB
xKLuX3lmH3/88erVq63XzXUBU4888ohR+KabboqgTF/YxExZxIgxkxIEvlRE
jJ4y2sCRZ8jGjRutAbA9x3hYu3T7s5/9jCLSMm337t1w5GU7ptu2bTOvG/zJ
J58AjBEX1BYuXOjyfEAhiPlIGSJGi5hKOZFRBXrmzJlzLQtV1dbWWu9gbGlp
mTp1qtgVn5gN5qmMjAynYa2vrzdfZbbeogmaOHGiXiYOEEPKKBATTtmdd96p
aAuymX06M2YMJLB1eWE4KLuyQFwwbO3atYMGDbId09u6usaPH//pp5/qJT/6
6KPq6urs7GxzmfMVFdDx3//+90aFMYOY1RO/k9x/xKgoYxhhl5KnT58eNWqU
dc9w1qxZ8+bNs7rbr1+/w4cPk0Zaph07dmzcuHFOwwpAtbe3X7x4US/85JNP
wjv6jfeGVq5cOWbMmHPnzpmrRcRiUUQRoYodVaxfe+012C2MuFldX4jedrFT
oOyBBx6giLcce++99+DLwemkhz4EN954o1F+w4YNivbjbnMZgBQoi1i3ChGL
OVGDwzDI7oW/853vKNqJDrNbO3bscFr3PiCU3X333S7Zs3HjxszMzEcffVQv
DEde/fv3h6ktohjMbhGUiULMR8qsnvid5L6LKCK0gSOPtX5XlfWue9izsr0e
fSkzMwiUvfLKK+Ce080eqjZJwfHa3/72NygM/8PrpqYmazF400xZDCBm54zv
SR4mxAhjR1X+0KFDinZyPsKzhQsX2lLW3d0N5f2l7M0334S5KTU1taCgwGlB
fgAwPT395ZdfVrVr1krfO8cM5eXl6ZTxYBJgvhAx0qDQho884hcuXJgyZUpF
RYXVOdhdbLR7xJ5+Wc1fytasWRNxl9TcuXOnT59eVlamaL+GBnAU0y/FNm/e
nJycbBuDnJycMZoxYxIcxKzO+J3hQRAdZQxDHbXk888/n5+fX1RUdL4vaPu1
X0xHHKkFhDJgJy0tzeoYHGENGDCgtbW1sLCwvLz85ptv/vzzz99+++2bbroJ
EPuDw0mS5uZmHspsZg7/DBHjREzGRAam7/4tXry4s7OzsrLSuFx71VVXOa1O
89a4cQrNyhhi7f7774fWr9zcZTeg+k1fp06dMhb8gaNLpXfZHFvBfB1BGbkz
iFjgRUcZ22i7l4QjMviS1x+NpAtwW6MZzG6fOD++oV+/frt37yZ3SaCZV+c2
s6OvaGq+zePy5cv79+9XtPWpFi1adEffhyv9oLsb9Lu2tszMzLa2trFjxzJg
gogFW/5PZO+9915dXZ31SrSeb3C0AqDBjpmZQV3r16+HT0+cOEHoklj73ve+
Z9y8YTyg0BhT2Es0Sj744IP9+/c3nhIIO5Pz588/qz16Sf+di2H6021iCDGk
jIIyhgjaDbh9JefPnx8/fvywYcPg4Oup9vaOjo7ly5cDUzU1NeYz3rfPmPFn
bfUq/UgtQZsytmzZAptTZ4MI27dvn6JddwBTtN1XELzWfxp29913GyWBQXjn
a9NJj+cbG2Gaht7pXyO5ubl5eXkpKSmIWIyKKDRiKbMmhn4O3zD45le0M9tW
X2HHUtHWOayqqvJ3dbgXX3wRDglnahbRo0GDBj333HN6sUuXLsFMbVwEjDiN
k5+fP3LkSGZMELEwiCg6QhIgqsFRSalmP/7xj2fNmmUbJNiHzMrKgl012Mm8
cOECR1IItuMmO3jw4J133ml8ZL73/rFly+417Vvqz2qfNGmSkOEV3ScuZ/xO
7ECJAjHZlEWY8eX/Uu+J/T3ac28DuLqpu8FMZ9wWMmfOnAdMz3DftGmTov0i
hoERRCwkIgoQcxx5EIPjFH3d3bP5+cYdjHD8Ascy/A+B9dg2b94MPZoxY0ZL
S8vAgQPhqHP37t3Tpk2Dd/TOFhQU0NaJiIVHFIixhdJpQxLKEhMT9ddJSUld
TU36j/SfeOIJBjf8tZMnTwJf0It+/foZPdJ/Da3vIdNWiIiFR0Qx4gwl+bbW
aA0ZMkS/RDtlypSRI0fOmzcvPz/f36RitvPnz//lL3+55557urq6Kisr8/Ly
jO8Q2qqCg5jVGb9TOoCKHib+aApJpLKysoqKCtiBDFSCsRlnFwI1AogYP2Iq
90SmslJmdcDFmCv33mIJMas/fqd0ABUOyqyehJc1sYj53mVELCCIqeIos9YZ
ItxijC+LS77nczBFQZmocHDW41JzwFnjdyxoXUPExCImkDJfcBPeFqdvnJsH
r0e+J3Ng5TNlMogIJmixjhhSxoWY6uFZC4G5JKNOUc5wbu5LF6K55HsyB1ZE
IRMYWUrCBCSVjDo5feDc3EvPiV3yPZMDK9KQiY0sPWG8CSa8Qp6mva9BuFk9
QnFS5kFwiQkTnK6yU5e/CW/85HPJ9zQOskij5kt8aWijc09IJQyt+FWJWLN6
FBLRpZLHlPkVX8phsQwTXxPCPRdSD49XQizCHfqsDgViYv0kip0vIXbJLurx
omyLdnOS2mgrsdbDUINYs/aJL58Dy5dw96KHz5co2/SZrFiUgaNslKHvnJs7
1cNQg1iz9il4UwaDM04lxftAOLzeRFNl2k2iiytHPbTbUnferiq2SgSatVtC
Zw33OmXwJRVtG08Ih9ebaEY0ytY0aVBZayDfhNZz26rYKhFotj0TjZhLtQIR
8xKuQFMWOS7iqrIfd6bNoxYT5TNzPaLMtnPRcpsHBMLNQ8FXOBAT1bRrTKO0
4rIJQ220fjJXJcRsOycCMRlQuJhfiEWnzPtYe5BgrrFwbNF9KyE+C6xKlNHn
KkkZ4axFCYjviLmH0uNwe5ljblGh34TfYbG1CTHP0zXK6NIU9sbh8FHmS445
hkdQeWY3OCvkN/8yVoj5DhcpYsZQ+xFTPw8DbR0gLMbvAH+F/OZ30vIYf1ue
UuZZ3G366bk5xsy1gPB2+SvkN5lZJ5U1SfV7QZn3YfWgRRI3ogy9hOb46+Q3
oTnmDW4e8MvVCsloexxW2c3R+mMz3HJaEVKtWJdYsyvgYjZZlHkcWdnNEZrb
QMupX0i1Yl1iyiv+bPcRMeG+RQmuN9EPWqbp5hYGOfULqZbTRCSVkFSX1zpb
K8wuRQ+uBwkQtEyLEnI5TQipltM8yXBaxMR64nEHiSjzIAcClWxRwiytFVE1
85jnGejenGMQhDbqAWJq1BDLToPgJJtzWEU6JrVyHpOQz+QJT44hj2Me9y6y
3agj701w5bVC5YY8lzxoQpRXHiYhFRrMHvrYO58p8z3Z3EIovy3hTTBYsBET
wprvXQsKYt6nnJd82TYnoxVaCwliUUGzek5SxlO3o4bAg/jKaIKwadlueNYQ
rQUjCWWw5hbhQFHmZeLJaIKkXQ988KwhWgtGBnrMmm+uRo2C7BDLqN+9RQ/S
3rOGGCxIGegBdIHwLWospEZZeOXuzXmT9h43R2WBzMMYllvovUFMduJ5z5dT
o/KaozJELB4oCwJiHrcorzkqcxoMlAeUuQdFaqDFVu7SUEy2SGWIWAApk5Qk
HqQf8mU1RMxfxLykTHYSBoevwCPme+7Fj6JTJi/W8mr2LNURMRQhZe6hkRRr
GXV6meTBh0tFvgIht8QIMmUucCFfurkMDypolEkKuqh6AsJX0BBTcRYLkBwz
RHjy8CSkO1meJXmY+ULEfJRHlLGlJQlc/vKFiKEI5JgnYlOIPC0JyUK+bA35
Cp7cskVgIpFkJhVcyJetIWKBlGPOiE0n9/xEvvjNyVlUAOSYNgKTihYiH1M6
UM4QGvIVeEmkjAcu5IvcELFgyzGFCLOLk6OApHSgnKEyW39RAZNjIrnnmBiW
fE3mYHpFZbb+ooInx0SyTTNekAKQxoF1jMqcXEYFUo7pxE1PgLI34O7Rmq3X
qKDKMa9CnZNUTAW2F7aGfIVQ7JR5n2DuFqtYGYZ8hVYslHmfYO4W23CpyFfo
5ZZ7wc/J2IZLN0Qs/AprBsY2WYYhYjGh8GVjPMCl4on6mFI40pJk5gpFRwgN
+YohhSA5440vFRGLNQUudQmZilW+VEQsBhVW8xsFKWbbUVT4FSbzGwKJ5tRj
VKwo6OY3AdLNttOo2FLgzO+s99RsBwAVc4qe4UiWDHMaCVSMii7breURK1pD
vuJPmP/eGU5hcSykzAtDxOJeOKNJNOQL1SsETYohYiiTLHmAxmfIF8pOCJow
Q8RQzkLQBBgihnKVQ36gkRnyhSITUsZoTt9RfgcUFVghaHSGfKGYhJMakSFf
KD4haG6GfKHECUGLNAe+EDEUjxC0/zVEDCVHuOt4xZAvlGTFNWjOfCFiKOGK
O9CQL5QfihfQkC+U34pZ1lzhQr5QHivWQEO+UIFUjICGfKGCrXCDhnyhQiK7
7Ay2RYML+UIFUKEBDflChVmBBo0ALuQLFQo55C7yJWdgw+M/Sqyc8yCIcAU5
P2nNd4dJ3PbdvRiTwygjWfSDRmOh8Nn3cY4ZRRvoUPIlNUPYnPcxh5nNMw/j
RNGG2yO4REVWUpLwu+1xGnOabPfiUwTjHmi4IjrizcjwVOVLKH0ZQBR5gEyh
EsOX1C7IHhAhFXoWQUlDjeKRbPPMeUmDIMpDbwIndbRRnJJhvngusOPC3ZMa
L29GG8UvURYEn3l6Ks9DGV32crRRYhVAoDhd9as7ApsI4OCj4koB5MvJNyG9
833AUXErb+Bi2Ja5ae+/E1AoBglMUeacp8WctjwKFQOKavw18DeBQoVXAkHw
BjGEFBUiycDBrwp9H0wUyiqXXOXPZyFQUJnv44lCGWJIUe9TmsF8H1gUSuVL
Ti+zGlFChVT8GetNziNfqKApahKKTVrZyY9woQIoNhPeqIy++D62KJQuj/ly
aVRsnb4PLAplyGO+orYrpCrfRxWFspU3cBE2Stgu8oVCEUqI+d4LFCr4QsRQ
KG+EiKFQ3ggRQ6E8FpKFQqFQKBQKhUKhUCgUCoVi1P8AXlpHmg==
             "], 
             "Byte", ImageSize -> {118.0999956512462, Automatic}, 
             ColorSpace -> "RGB", Interleaving -> True], {{140}, {
            130}}]; $CellContext`BoatCabbage = ImageResize[
            Image[CompressedData["
1:eJztnXtwV9W1x38YCS/lTXgECCAJSAlEIq8IhGAAkxAK4RWBECIPoRJk8KKj
nU61z4uCpQ/aznSs9c70Tm39o9UpQ8HRGdpeKXbs0NuXyHVwplChf1CxKoOG
c1fPnpwefue133uf81trvjB5nLP32mutT/Y+53ce4+97sGX7Tblc7qHe8F9L
xyN1e/d2PLpqIHyzZvdDO+/fvW1rw+7/2Hb/tr1z7iuCH07rkcuNh3//+jqX
c1AoFAqFQqHSoxwuYFAoZYox476hUGkXkxn3FoVKl0TMuPMolOWSa8aHg0JZ
JbNmfPgolDqFVXzAEDcUiktUfEUZ4oZCxUqIL5zpUKhYSebLHIzGI4lC5ckk
XDGGxKEyIUv5ijIkDpUqMfBlIYbCuCFxKHXih4u5iBE3VMGJDQQZ1ZvQBeKG
ypCYi19GxTJ0J93E/UWh6MRc7cLFyWx6oBMYnfEkoqwVcz2Ls8BVwzwdiRur
UyjUjWIuXbmVz1jAMrvmM0pHUChXbCUaU9VS6pyZKGrjdknMW+P5RZkVWx3G
l66ieubBKbHuZVtih6jCE3PhJe6itIYp/eEwXV4ZzzhKs9gqjWZ7dXVLaaKw
SfI8pm1UYYinrmi2l1uoUswgbkhZQUoCXDG7WIhYjOlhDRErJPGUDdMu6ULM
M9WsIWKFIeV8OalFzDN1oCFiWZcOvpz0I5ZnsljL2wOVOWniy8kcYsRoQIsf
NSKWaYmSwgRLJhEjhoihwqSVLyfTiBHjQCy4CSoTovrrmlgPIhXIum+6DBEr
bHFiIg5I4SDmWXy0QylEpVnJf1RpSkVKvXE3kjpjmcIQsVTLMF8S20mRMU5h
iFh6JYcvRIzVYsaLiGVL5vlyCg8xSr5u/NZ4qaA4ZAVfwbrKvCFihSFb+ArW
VbaNni8HEUuxLOIrtLSyavEjRcSyIrv4Ci2trBoTXw4ilj7xM6KUggJBLH6M
ob9FvtKjfOOrDUUIFAJilHwhYukUP18iYPL1oqgLs5Y4wKjfImJpkO185fWl
tBcjRs8XIpZC8TOiky8HEYv4LSJmt4QY0cmXk13ERKYwBxGzWmniy0HEEn5r
vJxQeUoZX05GEROcwhxEzFLx8yXIpohlDzFxvhxEzEalki8nc4ix4IOIpUjS
+ELEBE3KFOYgYnYpxXw52UUscQNELCVKN19OthCTxZeDiNmi1PPlZAgxmmAi
YqmSECCW8OVkEbHEDWgGi4iZVkb4crKCmFy+HEQM+eLtLthjBhCjiSfrMBEx
f1CRL5q+Qs3JFmKJG1AO01x12aDIYtHcu0glWMKXTn/UGY3/rGPUW1dmS5rS
GT1eCVWjtnqmiFJE7FJoNP5zjFF9RTEnxwK49MVEsBL4WuDriMPU+SbdKN3m
GJrKWhLNjwVeFShfcRGh2CZmLzuN0lW+ESmrJSmmx6WYbdQ6IFIJfC3w9ZLY
F1UylTksbqzD5GrcTsQk+kbfsvSu5fDlaJnCInMgsC93g3qM3is+5xXUkr+i
JIIpES7pg2XzQXUliLcv3lFsKmV2JG6UPnC7aq7q+FhLI18S6FBajerKPjqP
0QnWa5T9inhotPD4KKN0mG8v5Et+L0mpjM6xeqPsS8Qlo7UnSBlzxpCvmMbV
9RLfHVXmFPtD7zZ3F6ZR0gBa6vmSXmnhYdJl/ImU7YDELWP2NQ2RasoMO8yR
Gkc7X3LbF/eHKq8yupO1ZdLuZvFRx5qpEYmWgaxaomlcevsixp5iniHQ7yUv
j4brMC9aulpAvuS3L8ti85tg9C3L2pKiBRvIigyYZWinD67w0abTuEqIZ/hS
AuXv0BBf9OjpoRv5SpPR5TQi09SNS/JQP198ICjlS077wrkQTWtMs3Ibt8eo
80sbAVmxklFaHBUuToQKuETiwJC7pERISGtMy3Ibt9OSc8zSgiRnVPPFzbI4
DpT78rmHfFltkbmn3lGeDxoQcwQ6ojFxMPncE61e1uzzNSu38XQZaxAkRoyi
6qySuKl1SSwFMhEIH3wBG30Q5EZMZe3ZhptaH4Tjr5YvWS2n1Ezx5aQbMSbQ
kK+CNkRMGWuauhOLvFq+EDH6UCjOiHFG0iXkKx3GFApEzBqJJkIPX7JaTrWZ
5ctBxLLCl6NsZky7UQZEXegQMW7EhAOOfCk341OYg4jx8sWXCEUgIF9RRh8Q
ddFDxPgQEws1wqXDbODLQcQyxBdSlmeUAVEdPUQspXw5EYgha8Qo46AhYoiY
asSM8FXgrNEPHxGzRnbx5bAgVoC42cOXg4ix8MWaCKXlzYdYgYBGOUxEzBrx
JEJ1VYsglm3WKEenLQ6IWBr5cqILCXGjGZHOsSNiaeTLof5bHepShrlDvtIm
S/lyuNY53KClBTdKV3UOChGj4YsbMXWJk9JRxlizkC8HEUstX3L74mbNKtwQ
sVSJp4rM5U7tFVmpII7eAc2uImKJiLFHUkfurl27dv78+WCFw8+ltC/Omk7c
6Ds16pvxqrZHzEWip66uXr169uzZY8eOHTp0aO3atRUVFfEV3tXVJaVfXsJ0
xCTPQ/qBqHYprFPjhW2JeGpDeu6uXLny6quvAko/+9nPTp48+dprrz3zzDOb
N28uLy/v3bt3UVHRrQHjq3Do6C9/+csLL7xw4MAB6Ovdd99lGiyrSQlOlD8S
t5RleaNHcdSDxBKCNd65c+eOHz8O1b506dKRI0dCg/27rUePHl4vd999d9D1
C6NH/+/06e3t7fX19X369Onbt69/lzy7fv069PXNb35zyZIlY8eOhe1JX3fd
dRf88P3332d1nhE1ORFz7ObLQcRiEWMPIGfugKzf//733tqPTFIDBw4Eyta5
Vl1d3atXL39Ho0aNamhogF+tX7++vduO1dV5w1jr2hs1NbNmzaKp817dBl+D
A3v37oVFKd9wgmGhN5G+6F3iGhOn+btF+RFjDyBP4t57770jR450dnZOnjwZ
sCLtjB8/ftu2bUHP3qyqam1tnT179pgxY7xlIdD3fv/+wY2/s3p1WVlZV1ER
fH2ytnbhwoWhJT148OBly5adnjOH7PXX8vI5c+bAz4H08+fPc4woPkTSWaPf
3ghfDiIWwRdlIgT5+vGPf7xq1aoBAwaQFm666aZBgwZ9b9OmeBcvTJjgEdfS
0gJ7LV682L/B2+XlTU1NgCG0CSvAj4uLyc+BTb/DU6ZMyetrx44d8EOYwsgG
shALDZcU1ujjL5gpEUPETPH1gx/8gJwPhLXZpEmT9u7ZA4s6QCPRS5i2/N9u
3rwZKKurq/ugXz8AtrKysry8HOYsssKEn8ycORM2+1ZHB2GnZ8+esA1862/k
py0tJSUlN998M2uR85kU1pg8NMWXg4iZ46tfv36w7/Tp0/9n0SLPiSd27vzy
jh3etwsWLCArPf9PYPLKc/3h3bt79OgBjMydOzc4MCAOfkVcveOOO15uaAhu
M2zYsBP19Zs2bWKtc0FjpczvAJNXpvhyEDEuxASr7vXXX583bx7sOHXq1KAf
d955J/kCDqBgevIAhG9hpffsxo3elv8cMMD7Gg6mxo0bB21W+QD8R0kJUEPm
Jlg3PvDAA1GD37lzJ/mib9++rKUuyxgwY/REnc/0XZP+C1hslcNXaVevXr18
+fKZM2cefvhh2PHWW29tbW0NunKkuXmOe/KhubkZNlu6dOm9995722239enT
Z0f3BPfO5MnwW/98R7R69eqBAwcCZUBiY2MjrAlz7kIUfk4ZCMrTj6xFzmpy
uzbFl4OIBfhiSlnixldcO3r06NNPP/2FL3yhra0N2CktLSVLxJx7fgNs+PDh
cCy2ZcsWz6GD27YBKTkXw4aGBjhMA4PZraysrL6+fuLEiUDN8uXL/WOAgylv
X9Is7A7zV01NjXe6I14vuBj+1/r1rHyxRo/JxHtU5BilIV98+aLZ+NKlS8AF
MDVkyJBgYRCyRrlW4xpQA/OUd64e4ILJK89XOFyC+WipazNmzBgxYgQsHWGC
A5S8Nef6bkZgLvvDrFn0gfBmOjjcg90PHz4cP3xK4yxNuq7p95LlBqshYqzF
QLnxuXPn1qxZk1cPABH5NBkOfGClF3Rlw4YNQBlsM23aNGDw+bVrY/yGYzSY
EEeOHLlq1arPdR9kwdRG+PWOrTgQe3vKlB49eoAPv/3tbykqRytrivKlzgoe
MSX56urqevzxx3u4Bss8mMsAAf9pinh1dnZWV1fDLFZRUQHQXSwry9vgHyUl
7e3tc+fOPeRbW4JmzpwJvg0aNAgWexyxAPZP1taSr6HfnPtxwMWLF6lLSDlr
qePLKXTE2PJOv/E777wDx00wlTzW2SniHyz5xo4dm3NPBjY1NUHZw3oSlpd1
dXV/LS/P23jx4sWw5dChQ4NI+nW1T5+oXwG2D+/e7X0LwMKfiN27d3/wwQfs
5aSENT6+DCKWN9zCE+efRJrt9+7dC8dHeR/v8gkaqays9F9F3xFotr6+Puee
3Hh1yZLEBltaWj7zmc8Efw7rQ/8J/9Nz5sBfid69e7/44otipSWHNe7tWZ2X
aIWNmNr8vvTSS/3794eaLy4ufn3+fCke+y+18n8kDbMP4etEfT19a3v37Gls
bFy0aJH/w7K7777bf5AI30LL+/btE7npTAprqvOlwoKDKzAxpIAjXydPngTE
yC5tbW0S/V67di2sFaHZkpIScp3GLbfcknN/ztfgEzt3rly50jus83sLa06Y
xWDRe+HCBbFyuyGGHKylji8HpzCVfIE999xzHmJMkwulYAKCpWPPnj1Hjx4N
XZTFHn/RCJaF5LQkrEv989qkSZMqKirOnTsnUGuR8aRkjTUFNiCGfCnl69Kl
S3V1dWSvlu5PhFWooaGB9FIvg+KzlZXNzc3/HDDAP5E1NTXBRHb8+HGBcqMK
LyVuTG2q8JnVB9PVrl/K+QI7fPgwuSxwvqSjsBjt37592LBhQ4cOpTnRQRSz
JRyIbdy4cd26dRs2bCA/eXvKlF69eh04cIC33JItY3w5iBg7Ykzh/d3vfjdt
2rScO8UweXakudn/7cnaWihvyn3nzp2bc699otx+U+wtabDsHDVqlPctILZ0
6dIrV67wVhytIV/pFw9frPl67LHHcu79I6zO+U88PtbZCVXNtPvy5cv79esX
f0GIp+Ybcc7TwW3b4CjP+xYQGzFixBtvvMFbdDzGEX8bECtsvhhSwJ2sd999
d8aMGbDXfffdx+SZd18/LNUmTZp0zz33cAyvtra2qKjopxRHf3+urg79aMxT
RUUFuYkGJlNyxvIrX/mKQOmxGV/8jfPlFDpiyvkCO3bsWM79sx/s/h8lJTHO
rVy5Ev7funXrzJkzj8ROMfGqqqoij7gZM2ZMZWVlfX19e3v7ggULampq8ia4
FStWxLSzZcsWMtOtX7+e3NoGx5WXL1/mLT02ywRfhYYYAzXcyfJ2DF0lxtxR
AljBsc/nou+XpNeFCRPII6RCCeoqKvKuvU881QlHlL9oavrPNWvga5gcwcOY
q4IlGsefOJG/irKssPliSIE4X2ALFy7M6z7mukGYvwQvZcwT+bwAVnehv4Uj
voPu/TKJx3qwVpw4cSL5GvgCyr797W/zFiBPGNXtIt2QL5185Xx3R3r6Tnt7
0C2YUyjPTjCJXFuYc1kL3eB7mzYtW7Zs3Lhx8e3MmjVrQPeDCwAxaHDXrl2y
Ht+dGEZ1u0g35IuVL6ZkBcKb85/uJvpzdbV3k4hf5MFQKkQehJhz70YJ3QAo
69GjR+g9a57WrVs3q3tVSRBrbW1Vh5h4/BU5xuRDISNGHyWx8ObWuAcvfm3f
vj3olor5yxOsBokzN998c9Rpli/v2BH6NFRPgNjs2bPJ1+SqSMHrgaXHH/my
QLQpEE+xZ/6nQhGRs4WeYBlZGzapyVVLSwvxJ+a0xkE6xP5v4kRYecKx2PPP
Py9Wj1RhVLqXXCt4vhzK+EvkK3iiw/E9P81x+cojTp3IayBGjx4ds03MxVQe
YnDgBu2Ulpb+6U9/EitJafG3ga+gG6arXb+08kU+PNqzZ0+eE3+YNctbEz67
cWP8B740ujJkCOWWsEDNuc/x+EXsE4ZhxXi2sjL4c0CMPOSqrKws514Q8uGH
H4qVpJL4S3eJw4dC5is+BdyZygvua6+9Rp7JFrw17FsdHd6zRu+//36RIZ2o
r2edAcnDSxPPq+zatSt4FrTdPQt63D2s69+//3PPPSdWktLij3zZIaoUSOEL
fnLgwAHyGq853ddBeVq9ejVBbG9ggmPSEzt3sl616Ljr0pz7vLjELWGGzXvY
TmNjo+M+Pz/n3u9J814/7jCq3kuuIV+sfHGnmOx49epVmFzg6+Li4vHjx+e5
AlwcaW5OfNlKvGAqXEJ9r0qeGhoaYK1IPjWIv3LywQcf9L7+uLj49ttvd1w8
VZR0hvgqQMSosiCLL7DLly/Pnj0byhiOs4LPtf7Upz41derUF6ifdx2qT3/6
01G/ormgERax3is14ydT78E7cBy3YMGCvw8fHny5rVCBSgq+uA98hny5osoC
R76iKu3MmTOlpaXkgqU3q6ryTmiMGjVq+PDhIuNZtmzZ3yPOCm7evJnm4qt5
8+b1737H3zuTJ8fcLOa9eoncRh182qp4hfM1ZQNfDi4RfXzRI8YXXv/PT506
NWLEiEmTJhEP8u5DAcToX9kQ1C+amrwXteTpv1tbKZ9ttW7dOv9n0DEPTYW1
Irmvc8aMGfB/TU1NKGLcpS7Ol0HEkC9XbHxJyfKPfvSjoqIi71xEZ2en//Ey
ZWVleacRmASLzLwz6kDKhg0bgo9SjBEglnP/934SM5GRJ1mRJ+STq39jKGMq
+FTzFfTEdKkbEW0W5Gb50KFDUIfewy6cG29mgRWX/w19TIIDIu+zbJizgOJp
06a1h11RHC+C2NixY72f3HHHHVEbL1++/Mnlyx91LwODgzgYGvwNCSswtspH
vtIv2kSwpiw+y11dXTCh5G68lv7LO3Z4V3QAF9yI9enTp6Wl5YmdO4Hf4KvE
6EVOvMNx1qtLlvy1vByOFseMGRO1MSwRybnEa+78VVxcfPTo0ehKo0UA+Uq/
aBMhkujgb8+fPz99+vScexSzatUqz5uKigrycBtuxAi5JSUlncJ3k8Gs6v9o
7M2qqgEDBkQxCxuTpzKSd/mNGzfuzJkzSSWXAII4XwYRQ75y5vgCe+uttyZO
nJhzz6uTUwREr8+fT86TcyPWt29fgDf+fhNK5SHmuI9uy3snu6fbbruNrEXJ
6fpHH3302rVrdLUXAgU3JjbA5SBf/xZVLlizRlMer7zyCnl6zJ133ll543kJ
mH3gIGjRokUciMGiTuKt0IBYLvBOFji4y3vPJgiWkb169fra1762ceNG2GXk
yJGJD55KBE2QL4OIIV/dok2EdL7A/vjHP8JxDWwAS6/gIzt+2tIyderU3b43
CiXq4+Ji1qdXJYogFiS9pqYm77R/W1tbY2PjAw88QK4H+/znP89bjdnjq9AR
Y4oYR4SjNoNjMTjsyrk3P8ISK9Q/phc6iHyIFqUoxGAiy7v7Bpa1sEokl9av
WbPm0qVLDEUZDRp3C0y9yzXkq1u0uVDBF9gnn3xC3uAAs1XU1bZwSEU5mLq6
ugsTJkiP0bBhw3Luo0KCv/Ivbk/W1nZ0dNx1112w8YQJE44cOUJbjtGhQ77S
L6p0MCWOKdFdXV1f+tKXcu4jr/Pe1eVpyZIlNFcSAl98L5CN12n3OR5R+HuP
0LlYVlZdXV1VVQUbDx48+JlnnmGoSN7oSdlRuiFfPjFTwxHhxO3hcAxWYqNH
jwbW5s2bFzwZDuuxZcuWxY/k0JYtrM/ADxUAlfeOWnLPctRnzd5ZULI4BOvZ
s+f+/ftpAiUeuqgdDSIW9MR0kZsVVTpYs8aaaJjI9u3bl3PfYum4T+oIXoAx
IWn5B4SGLuToFfqoxhP19T1deynsyaXAPrlbc37343R69er1xS9+8fr165Sx
iopbSvkKc8Z4kRsUG1+UieNL9KlTp8aPHz9w4EDyyN/vtLdPnjzZ/8iOe++9
93Tgbk1Pmzdv9r9kmUOwQA0iBj0OGjQIBhK8i40I+Lr99tvJR8w5d/565JFH
PvroI/qBB4MmyBdr1xItOArTFW5WtBlhzR13uh9//PGioiL/dYAwRyxevBjg
It/GQARTmMj1UcBXcAZ8ff58whe4FPqs75O1tf7BDhky5Mknn+SYv0QYsYev
oDOmK9y42BDjiDNrgt5+++0lS5bAjmPGjPE/1qmjo6OkpGTdunXwf+jZjAsT
JgwIPBeOXqHPA4HFKnmH4JToN5TNnTuXPNkDrHfv3l//+tdZh+xInb/MIoZ8
ifBFnzvBdP/85z+HJRnZ3X+9ouM+volcEBUcDMxBMRflxiv4rNF3Jk+urKwk
PsQ8FQeWsrA6bWtrI1t2dnZevXqVdbzIV3bFhhhfqPmS9Y1vfAOmJNJC8J4s
KP7g2Xv/Q3eZ5D/WI1q9ejW5vQumsKhHbTvuyzSBTdgYqM+5byU7ffo060gF
GUG+LBYbX/Tpk5VxoGzw4MGkneBF8vPmzcv7SXV1dWtrK2sUgvyuX7+edFpa
WhrzqJCzlZXz588HvsglUjU1NceOHWMdY3b5QsQcyrxwpC8s2pw18PTTT3tP
lcl73O7ePXvyPp4uLy9/k/F04qJFiz688d1Gy5cvJ92VRb9lifQ+cuRIclEl
4euVV15hHV0wVtr2lWvIVwxi9NETCzgncdeuXfvqV786YsSInHv2I28Aec/i
qAx7Em+Mqqqq8k4/emfd50c/yuNiWRn5DNqzxsZGjvkrGCht+8o15CuGr8TU
SMm+OHE/+clPyDnGoUOH+h/fcWHCBP+bvwAxyg+dd+zYAZMUOUkIEx+5ntA7
9PM+HfD0zwEDHt69u6mpyZu2cu77LuHgC1azf/vb35jiEwyRYHhZe5doyFc8
YvTREw47mwXbPHXq1MqVK8kpiPW+M/aPdXbu6J6JALHQKxv9emLnzoULF0IL
5GzJqlWryNtm/QaTY0NDQ7lrvbot5z4ZoLdr/fv3B7ieeuqps2fPMkUmND6a
d5dooalDeXwlZkdWDYiYv9lLly7t27dv7NixOZcC7xoMmHRedi9KBF6iXmcZ
JdJaqAFHAwcOnD179hzX1qxZ893vfveoa7/+9a8vXrzIGpbQ4GjeXaKFpgvl
R4w+gNzxp8tLsnm7f/TRR8ePH4dDoZtuugkQ8J5VVVNT89KKFc3NzeSJankK
faRAZ2cnLDtJ+9AasHbPPfc89NBDT7n2/e9//5e//CVMne+9994V1ziuhkoc
vubdJRrylcgXPWIiKeBNVgJoMJ3t37+f3L85atQoWCvu2rVr8ODBsITLu9ME
1pDe87GJYH0IExN5XxgsOydOnLh06dKDBw+eOXOG4yNjJssMX0FnTJe0bUrO
kXgqpVRRDGvXr1//1a9+tX379r59+8IcVFJS4v129erV3+roaGpqIq98HT9+
/IoVK2bNmgUw3nLLLbBxz549YQXY1tZ2+PDht956C8jiux5eZGiad5dryJcg
X47wFObwIhZ0IB60jz/++Nlnn4VDMFjmBV/K4DeY4EpLS6urq7du3frDH/7w
N7/5jQasooajeXfphohlALGgJzGgwTQEy7yXX375s5/9bGNjI8xr3nk/WAS2
trbu27fvxRdfhG1ghal6NZg4BMHdjSOGfNnAlyMPsWCbMax1dXV98sknJ06c
8M77AVBdrsn1hM9hwd2NwxVwyXg9WygGxGTlQrCdmJajQLPExB2zbWjIl0S+
JCJmhDXpfQn6Jri7fSMyXsx2yjBiKnCwk7Ks84WI8fPlaDxNIbGQVLQpyxnB
3Y0MIckl48Vsp6jyJTGtjHhJqCgVbQr6ILi7Ts+pXTJeyXaKNl9y08qOl2h1
SW9QpGv9LUi3oEcoEcQ0ZJYaL8m1qrpuxbvQ46eYS8bL2FrRpsxIcllQY3NP
SiMcvZhqRK4FPUqJ2EpJJ2KmkssYk0CMxLqQ7rmUdkS8kmJ57rCXdCr4kugn
VeKM5DemtJiDxdgX6+40rbE2EmyHowW5FhyTWDFbC5dc95JzZyTFIQOm2ywh
aoydcoxdcPeodjhakGvBMVk2WfA5E7WlZAcoY6snlQ7X6ogtqQLtsO7LPPiw
pvgakWjBYUmdL+LbVAGXUq7z3aCMrZ5U5nXK1zVtRnlboN+F1fPQpvgakWih
I5PNV0yzEvnSRpbViOUHRV5T4UHn2j1xM1k+c7cjy0IHl1TYIhRQ7m4/XOng
S1bXsQlN6CVmF47WWP3kbkqKhQ5OBl8qiIgxI3wlI6Y/0RqqKzYRkT3G7yXF
Z4lNyTL2QqXZRjpoCQkxy1d8HjXnWmeBxaWEfRdxh+W2JsW012pCdFk21uNw
yhAzUmCRuZG0Pbcbgg2Km7lylWLG4aJlR1u6DdZYZJK4NhN3QLxBcTNdsSIm
3pc+xLQlPWSQ2i0yYbEbSO9XvEFxU1ZyqkFT1L5yxPTnVEOPNG4kxF1Bd+Jt
ipu8AtPGmgZ4OXpJzqm2vNtWZsmxVtOLlGblusRVWvaL25QgpjmtqrujtLgo
q2lfSrNyXWIvKimlbpAvub4lZFZP6m0rM2JxOVDTvpRmBU24omTVubre+Xrh
cyk5sxqyb1uZJeRbTRdSmhU0LeXNypdcTzQPMBkfDQVgVaUl5FhZL7JaFjHt
5RffXWQSpHaqmi8nMb+qa8CeSovOqUzHlDYuYgqKmb7a6RkUcUzz6G7oNDHs
ejKrrhcmN9S5pKELWV7pqkBWLrg9NDU6w4gZr7S4/KnvS3oXHGY3X1JAMzs0
W/jSX2864QrtTkUvrJYSvhIpC3pOs40+nxPjryG5Krqg7Fq1G9o6YjULKlAR
aHEZtgcxnVWnoguafjX4oK0jVrOg/PSDZsbPxBSozq+K9uN71FDz2jriMGvK
Tw9x5h1LTITSFEtvPL47PTWvuTsms68IM6y4vOvhS3XV6YcrqlN13TEZ8pV5
xGzgS3OP6rpjsqhgoFQjFp8RpVmW23hMR5nskcmQL9sQU1QhGmoP4Qoa8mWQ
L52Iqa5Ae+Cyni/jtVcgSkZMXaLVtaytzpEvFA1i8XlRlGgVbeqscPvJchAu
84qrCpsRiyEL4SIWEx6UVYgpyrisdiyByza+HJy/bFFkeUivHJFqjMdKW4Wn
GS7ky5Q0IcZXkzRkmYUL+UIlKbJI5NYPfU1SYoVwhRrCZZniSkViFdGUJRNZ
CFeoIV/2KbJg5NZSfHEiXOIW5SzKtCJrRmJFsRJksJ6tcobSEC67pRAxEbIQ
LnpDvixWZP1QlpYgRJbUs1XOMFmovyibFFlF8QUmBySjlWynV0wW6i/KMkVW
UWiNiVJkQQ1b6xiTRbmMsk+RtSSMjkWla7l7rBbqNcpKRRZVqguSCShrRxFq
CFfaxI+Y/uqKt6wy5RnClU7xIKa/uuIt22Q5CFe6FVd49hdktskihnylXGkt
v2xj5RnylX6lrxQLgSwHz8lnR+moSZo5KxUDoTSEKytKQWUWGlwO8pUpWVe3
lEBlFS4H+cqa0mqmOVBioQNFpVxpMtMEKLSoEaMyIdvNdPkrt9BBozIk68x0
yWu10ACgsqXk8kasVFhUJFBZFFupB7dHplgN4SowYfHrM5y8ClWImA5Dvgpb
OJcpNIQL5QopU2LIF6pbgSJAEzOECxUQUibNkC9UhJAyCYZ8oaIVURxodIZw
oSiEiHFa1B8o0wlF2SmkjM0QLhS7cDqjMoQLJSCkLM4QLpQkIWX5FgEX8oXi
FlL2b0O+UAqEK8Z/GcKFUqmCpiwaLuQLJVcFRxnChdKuQqEM4UIZVWZBiyUL
4ULpVNYoQ7hQ9ikjlCFcKIuVbsoQLlQaFFaadlsSWQgXyjalhjKEC5VaWU0Z
BVkIF8p+RRQuwqUmsOnxHyVR0UVgI1k2FyerGXeYxm3j7mVJESFGrNiDxmKp
8Nl4nLOhpCinEi6l5cHnvMEC5jZtHhaCkmKtiSxZaVVUIeJua65hQVPtXgGK
IuhWk5U3ED2REWnKSCqNBBBFmR1fnuTApXQIqgMipUFtGVQUahS3VJs25xUF
QZaHehKnNNooEakwI55LHLh095TmS0+0UYKSZTb4LDJSdR6qGLLOaKMkykKa
BF01NRyJXVgYfFThyEK4onyTMjrjAUcVpvSQxbEvd9f6/yCgUKySWJ/cBc/K
OOv2KFTalWjiLYh3gUKlVBIp0MMXEopKi1SwYKpB48FEofIUU6jixSyFCCYz
Hk8UioijPvXXM4cZDywKJVKZOksaOUKlUeLlqqfgES6UVUqsQLkVq7rykSyU
beIz6Z2qGIvx2KJQjna4YjqV26bxwKJQRJrhSuxXSlPGo4pCBaWHLMpOKftF
uFAoGkkx46NAoSwX8oVCaRDyhUJpEPKFQukUYoVCoVAoFAqFQqFQKBQKhaLS
/wPWI1Pc
             "], "Byte", 
             ImageSize -> {121.04999534607026`, Automatic}, 
             ColorSpace -> "RGB", Interleaving -> True], {{140}, {
            130}}]; $CellContext`ShowGreen[] := Dynamic[
            Button[
             Graphics[{Green, 
               Rectangle[{0, 0}]}], Null, Enabled -> False, 
             Appearance -> "Frameless", 
             ImageSize -> {140, 130}]]; $CellContext`ShowBlue[] := 
          Dynamic[
            Button[
             Graphics[{Blue, 
               Rectangle[{0, 0}]}], Null, Enabled -> False, 
             Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square1MoveHerePlz[] := Dynamic[
            Button[
             Graphics[{Green, 
               Rectangle[{0, 0}], 
               Style[
                Text["Move wolf here?", Center, Center], Black, 
                15]}], {
             Increment[$CellContext`Step]; $CellContext`Square1 = \
$CellContext`Square1WolfClick[]; $CellContext`Square6 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square5 == \
$CellContext`Square5GoatNoClick[], $CellContext`Square5 = \
$CellContext`Square5GoatClick[]]; 
              If[$CellContext`Square9 == \
$CellContext`Square9CabbageNoClick[], $CellContext`Square9 = \
$CellContext`Square9CabbageClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square4MoveHerePlz[] := Dynamic[
            Button[
             Graphics[{Green, 
               Rectangle[{0, 0}], 
               Style[
                Text["Move wolf here?", Center, Center], Black, 
                15]}], {
             Increment[$CellContext`Step]; $CellContext`Square4 = \
$CellContext`Square4WolfClick[]; $CellContext`Square7 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square8 == \
$CellContext`Square8GoatNoClick[], $CellContext`Square8 = \
$CellContext`Square8GoatClick[]]; 
              If[$CellContext`Square12 == \
$CellContext`Square12CabbageNoClick[], $CellContext`Square12 = \
$CellContext`Square12CabbageClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]}, ImageSize -> {140, 130}, 
             Appearance -> 
             "Frameless"]]; $CellContext`Square5MoveHerePlz[] := 
          Dynamic[
            Button[
             Graphics[{Green, 
               Rectangle[{0, 0}], 
               Style[
                Text["Move goat here?", Center, Center], Black, 
                15]}], {
             Increment[$CellContext`Step]; $CellContext`Square5 = \
$CellContext`Square5GoatClick[]; $CellContext`Square6 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square1 == \
$CellContext`Square1WolfNoClick[], $CellContext`Square1 = \
$CellContext`Square1WolfClick[]]; 
              If[$CellContext`Square9 == \
$CellContext`Square9CabbageNoClick[], $CellContext`Square9 = \
$CellContext`Square9CabbageClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square8MoveHerePlz[] := Dynamic[
            Button[
             Graphics[{Green, 
               Rectangle[{0, 0}], 
               Style[
                Text["Move goat here?", Center, Center], Black, 
                15]}], {
             Increment[$CellContext`Step]; $CellContext`Square8 = \
$CellContext`Square8GoatClick[]; $CellContext`Square7 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square4 == \
$CellContext`Square4WolfNoClick[], $CellContext`Square4 = \
$CellContext`Square4WolfClick[]]; 
              If[$CellContext`Square12 == \
$CellContext`Square12CabbageNoClick[], $CellContext`Square12 = \
$CellContext`Square12CabbageClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; $CellContext`CheckForEnd[]}, 
             Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square9MoveHerePlz[] := Dynamic[
            Button[
             Graphics[{Green, 
               Rectangle[{0, 0}], 
               Style[
                Text["Move cabbage here?", Center, Center], Black, 
                15]}], {
             Increment[$CellContext`Step]; $CellContext`Square9 = \
$CellContext`Square9CabbageClick[]; $CellContext`Square6 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square5 == \
$CellContext`Square5GoatNoClick[], $CellContext`Square5 = \
$CellContext`Square5GoatClick[]]; 
              If[$CellContext`Square1 == \
$CellContext`Square1WolfNoClick[], $CellContext`Square1 = \
$CellContext`Square1WolfClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square12MoveHerePlz[] := Dynamic[
            Button[
             Graphics[{Green, 
               Rectangle[{0, 0}], 
               Style[
                Text["Move cabbage here?", Center, Center], Black, 
                15]}], {
             Increment[$CellContext`Step]; $CellContext`Square12 = \
$CellContext`Square12CabbageClick[]; $CellContext`Square7 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square8 == \
$CellContext`Square8GoatNoClick[], $CellContext`Square8 = \
$CellContext`Square8GoatClick[]]; 
              If[$CellContext`Square4 == \
$CellContext`Square4WolfNoClick[], $CellContext`Square4 = \
$CellContext`Square4WolfClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 130}]]; $CellContext`BoatNoClick[] := 
          Dynamic[
            
            Button[$CellContext`Boat, Null, Enabled -> False, 
             Appearance -> 
             "Frameless"]]; $CellContext`Square6CannotMoveBoat[] := 
          Dynamic[
            Button[
             Graphics[{Blue, 
               Rectangle[{0, 0}], 
               Style[
                Text["Cannot move boat!", Center, Center], White, 
                15]}], Null, Enabled -> False, Appearance -> 
             "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square7CannotMoveBoat[] := 
          Dynamic[
            Button[
             Graphics[{Blue, 
               Rectangle[{0, 0}], 
               Style[
                Text["Cannot move boat!", Center, Center], White, 
                15]}], Null, Enabled -> False, Appearance -> 
             "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square7MoveBoatHere[] := Dynamic[
            Button[
             Graphics[{Blue, 
               Rectangle[{0, 0}], 
               Style[
                Text["Move boat here?", Center, Center], White, 
                14]}], {
             Increment[$CellContext`Step]; 
              If[$CellContext`Square1 == \
$CellContext`Square1MoveHerePlz[], $CellContext`Square1 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square4 == \
$CellContext`Square4MoveHerePlz[], $CellContext`Square4 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square5 == \
$CellContext`Square5MoveHerePlz[], $CellContext`Square5 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square8 == \
$CellContext`Square8MoveHerePlz[], $CellContext`Square8 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square9 == \
$CellContext`Square9MoveHerePlz[], $CellContext`Square9 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square12 == \
$CellContext`Square12MoveHerePlz[], $CellContext`Square12 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square1 = \
$CellContext`Square1WolfNoClick[]]; 
              If[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square5 = \
$CellContext`Square5GoatNoClick[]]; 
              If[$CellContext`Square9 == \
$CellContext`Square9CabbageClick[], $CellContext`Square9 = \
$CellContext`Square9CabbageNoClick[]]; 
              If[$CellContext`Square6 == \
$CellContext`Square6BoatWolfClick[], $CellContext`Square4 = \
$CellContext`Square4MoveHerePlz[]]; 
              If[$CellContext`Square6 == \
$CellContext`Square6BoatGoatClick[], $CellContext`Square8 = \
$CellContext`Square8MoveHerePlz[]]; 
              If[$CellContext`Square6 == \
$CellContext`Square6BoatCabbageClick[], $CellContext`Square12 = \
$CellContext`Square12MoveHerePlz[]]; 
              If[$CellContext`Square6 == \
$CellContext`Square6BoatWolfClick[], $CellContext`Square7 = \
$CellContext`Square7BoatWolfClick[]]; 
              If[$CellContext`Square6 == \
$CellContext`Square6BoatGoatClick[], $CellContext`Square7 = \
$CellContext`Square7BoatGoatClick[]]; 
              If[$CellContext`Square6 == \
$CellContext`Square6BoatCabbageClick[], $CellContext`Square7 = \
$CellContext`Square7BoatCabbageClick[]]; 
              If[$CellContext`Square6 == $CellContext`BoatNoClick[], \
$CellContext`Square7 = $CellContext`BoatNoClick[]]; If[
                
                And[$CellContext`Square7 == \
$CellContext`BoatNoClick[], $CellContext`Square4 == \
$CellContext`Square4WolfNoClick[]], $CellContext`Square4 = \
$CellContext`Square4WolfClick[]]; If[
                
                And[$CellContext`Square7 == \
$CellContext`BoatNoClick[], $CellContext`Square8 == \
$CellContext`Square8GoatNoClick[]], $CellContext`Square8 = \
$CellContext`Square8GoatClick[]]; If[
                
                And[$CellContext`Square7 == \
$CellContext`BoatNoClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageNoClick[]], $CellContext`Square12 = \
$CellContext`Square12CabbageClick[]]; $CellContext`Square6 = \
$CellContext`Square6MoveBoatHere[]; Null}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square6MoveBoatHere[] := Dynamic[
            Button[
             Graphics[{Blue, 
               Rectangle[{0, 0}], 
               Style[
                Text["Move boat here?", Center, Center], White, 
                14]}], {
             Increment[$CellContext`Step]; 
              If[$CellContext`Square1 == \
$CellContext`Square1MoveHerePlz[], $CellContext`Square1 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square4 == \
$CellContext`Square4MoveHerePlz[], $CellContext`Square4 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square5 == \
$CellContext`Square5MoveHerePlz[], $CellContext`Square5 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square8 == \
$CellContext`Square8MoveHerePlz[], $CellContext`Square8 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square9 == \
$CellContext`Square9MoveHerePlz[], $CellContext`Square9 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square12 == \
$CellContext`Square12MoveHerePlz[], $CellContext`Square12 = \
$CellContext`ShowGreen[]]; 
              If[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square4 = \
$CellContext`Square4WolfNoClick[]]; 
              If[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square8 = \
$CellContext`Square8GoatNoClick[]]; 
              If[$CellContext`Square12 == \
$CellContext`Square12CabbageClick[], $CellContext`Square12 = \
$CellContext`Square12CabbageNoClick[]]; 
              If[$CellContext`Square7 == \
$CellContext`Square7BoatWolfClick[], $CellContext`Square1 = \
$CellContext`Square1MoveHerePlz[]]; 
              If[$CellContext`Square7 == \
$CellContext`Square7BoatGoatClick[], $CellContext`Square5 = \
$CellContext`Square5MoveHerePlz[]]; 
              If[$CellContext`Square7 == \
$CellContext`Square7BoatCabbageClick[], $CellContext`Square9 = \
$CellContext`Square9MoveHerePlz[]]; 
              If[$CellContext`Square7 == \
$CellContext`Square7BoatWolfClick[], $CellContext`Square6 = \
$CellContext`Square6BoatWolfClick[]]; 
              If[$CellContext`Square7 == \
$CellContext`Square7BoatGoatClick[], $CellContext`Square6 = \
$CellContext`Square6BoatGoatClick[]]; 
              If[$CellContext`Square7 == \
$CellContext`Square7BoatCabbageClick[], $CellContext`Square6 = \
$CellContext`Square6BoatCabbageClick[]]; 
              If[$CellContext`Square7 == $CellContext`BoatNoClick[], \
$CellContext`Square6 = $CellContext`BoatNoClick[]]; If[
                
                And[$CellContext`Square6 == \
$CellContext`BoatNoClick[], $CellContext`Square1 == \
$CellContext`Square1WolfNoClick[]], $CellContext`Square1 = \
$CellContext`Square1WolfClick[]]; If[
                
                And[$CellContext`Square6 == \
$CellContext`BoatNoClick[], $CellContext`Square5 == \
$CellContext`Square5GoatNoClick[]], $CellContext`Square5 = \
$CellContext`Square5GoatClick[]]; If[
                
                And[$CellContext`Square6 == \
$CellContext`BoatNoClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageNoClick[]], $CellContext`Square9 = \
$CellContext`Square9CabbageClick[]]; $CellContext`Square7 = \
$CellContext`Square7MoveBoatHere[]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square1WolfClick[] := Dynamic[
            
            Button[$CellContext`Wolf, {
             Increment[$CellContext`Step]; $CellContext`Square1 = \
$CellContext`Square1MoveHerePlz[]; $CellContext`Square6 = \
$CellContext`Square6BoatWolfClick[]; $CellContext`Square7 = \
$CellContext`Square7MoveBoatHere[]; 
              If[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square5 = \
$CellContext`Square5GoatNoClick[]]; 
              If[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square8 = \
$CellContext`Square8GoatNoClick[]]; 
              If[$CellContext`Square9 == \
$CellContext`Square9CabbageClick[], $CellContext`Square9 = \
$CellContext`Square9CabbageNoClick[]]; 
              If[$CellContext`Square12 == \
$CellContext`Square12CabbageClick[], $CellContext`Square12 = \
$CellContext`Square12CabbageNoClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatNoClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfNoClick[], $CellContext`Square5 == \
$CellContext`Square5GoatNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatNoClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfNoClick[], $CellContext`Square8 == \
$CellContext`Square8GoatNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square4WolfClick[] := Dynamic[
            
            Button[$CellContext`Wolf, {
             Increment[$CellContext`Step]; $CellContext`Square4 = \
$CellContext`Square4MoveHerePlz[]; $CellContext`Square7 = \
$CellContext`Square7BoatWolfClick[]; $CellContext`Square6 = \
$CellContext`Square6MoveBoatHere[]; 
              If[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square5 = \
$CellContext`Square5GoatNoClick[]]; 
              If[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square8 = \
$CellContext`Square8GoatNoClick[]]; 
              If[$CellContext`Square9 == \
$CellContext`Square9CabbageClick[], $CellContext`Square9 = \
$CellContext`Square9CabbageNoClick[]]; 
              If[$CellContext`Square12 == \
$CellContext`Square12CabbageClick[], $CellContext`Square12 = \
$CellContext`Square12CabbageNoClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatNoClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfNoClick[], $CellContext`Square5 == \
$CellContext`Square5GoatNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatNoClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfNoClick[], $CellContext`Square8 == \
$CellContext`Square8GoatNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; Null}, Appearance -> 
             "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square1WolfNoClick[] := Dynamic[
            
            Button[$CellContext`Wolf, Null, Enabled -> False, 
             Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square4WolfNoClick[] := Dynamic[
            
            Button[$CellContext`Wolf, Null, Enabled -> False, 
             Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square5GoatClick[] := Dynamic[
            
            Button[$CellContext`Goat, {
             Increment[$CellContext`Step]; $CellContext`Square5 = \
$CellContext`Square5MoveHerePlz[]; $CellContext`Square6 = \
$CellContext`Square6BoatGoatClick[]; $CellContext`Square7 = \
$CellContext`Square7MoveBoatHere[]; 
              If[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square1 = \
$CellContext`Square1WolfNoClick[]]; 
              If[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square4 = \
$CellContext`Square4WolfNoClick[]]; 
              If[$CellContext`Square9 == \
$CellContext`Square9CabbageClick[], $CellContext`Square9 = \
$CellContext`Square9CabbageNoClick[]]; 
              If[$CellContext`Square12 == \
$CellContext`Square12CabbageClick[], $CellContext`Square12 = \
$CellContext`Square12CabbageNoClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatNoClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfNoClick[], $CellContext`Square5 == \
$CellContext`Square5GoatNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatNoClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfNoClick[], $CellContext`Square8 == \
$CellContext`Square8GoatNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square8GoatClick[] := Dynamic[
            
            Button[$CellContext`Goat, {
             Increment[$CellContext`Step]; $CellContext`Square8 = \
$CellContext`Square8MoveHerePlz[]; $CellContext`Square7 = \
$CellContext`Square7BoatGoatClick[]; $CellContext`Square6 = \
$CellContext`Square6MoveBoatHere[]; 
              If[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square1 = \
$CellContext`Square1WolfNoClick[]]; 
              If[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square4 = \
$CellContext`Square4WolfNoClick[]]; 
              If[$CellContext`Square9 == \
$CellContext`Square9CabbageClick[], $CellContext`Square9 = \
$CellContext`Square9CabbageNoClick[]]; 
              If[$CellContext`Square12 == \
$CellContext`Square12CabbageClick[], $CellContext`Square12 = \
$CellContext`Square12CabbageNoClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatNoClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfNoClick[], $CellContext`Square5 == \
$CellContext`Square5GoatNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatNoClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfNoClick[], $CellContext`Square8 == \
$CellContext`Square8GoatNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square5GoatNoClick[] := Dynamic[
            
            Button[$CellContext`Goat, Null, Enabled -> False, 
             Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square8GoatNoClick[] := Dynamic[
            Button[$CellContext`Goat, Null, Enabled -> False, 
             Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square9CabbageClick[] := Dynamic[
            
            Button[$CellContext`Cabbage, {
             Increment[$CellContext`Step]; $CellContext`Square9 = \
$CellContext`Square9MoveHerePlz[]; $CellContext`Square6 = \
$CellContext`Square6BoatCabbageClick[]; $CellContext`Square7 = \
$CellContext`Square7MoveBoatHere[]; 
              If[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square5 = \
$CellContext`Square5GoatNoClick[]]; 
              If[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square8 = \
$CellContext`Square8GoatNoClick[]]; 
              If[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square1 = \
$CellContext`Square1WolfNoClick[]]; 
              If[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square4 = \
$CellContext`Square4WolfNoClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatNoClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfNoClick[], $CellContext`Square5 == \
$CellContext`Square5GoatNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatNoClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfNoClick[], $CellContext`Square8 == \
$CellContext`Square8GoatNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square12CabbageClick[] := Dynamic[
            
            Button[$CellContext`Cabbage, {
             Increment[$CellContext`Step]; $CellContext`Square12 = \
$CellContext`Square12MoveHerePlz[]; $CellContext`Square7 = \
$CellContext`Square7BoatCabbageClick[]; $CellContext`Square6 = \
$CellContext`Square6MoveBoatHere[]; 
              If[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square5 = \
$CellContext`Square5GoatNoClick[]]; 
              If[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square8 = \
$CellContext`Square8GoatNoClick[]]; 
              If[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square1 = \
$CellContext`Square1WolfNoClick[]]; 
              If[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square4 = \
$CellContext`Square4WolfNoClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatNoClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfNoClick[], $CellContext`Square5 == \
$CellContext`Square5GoatNoClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatNoClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfNoClick[], $CellContext`Square8 == \
$CellContext`Square8GoatNoClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square9CabbageNoClick[] := 
          Dynamic[
            
            Button[$CellContext`Cabbage, Null, Enabled -> False, 
             Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square12CabbageNoClick[] := Dynamic[
            
            Button[$CellContext`Cabbage, Null, Enabled -> False, 
             Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square6BoatWolfClick[] := Dynamic[
            Button[$CellContext`BoatWolf, {
             Increment[$CellContext`Step]; $CellContext`Square1 = \
$CellContext`Square1WolfClick[]; $CellContext`Square6 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square5 == \
$CellContext`Square5GoatNoClick[], $CellContext`Square5 = \
$CellContext`Square5GoatClick[]]; 
              If[$CellContext`Square9 == \
$CellContext`Square9CabbageNoClick[], $CellContext`Square9 = \
$CellContext`Square9CabbageClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square6BoatGoatClick[] := Dynamic[
            
            Button[$CellContext`BoatGoat, {
             Increment[$CellContext`Step]; $CellContext`Square5 = \
$CellContext`Square5GoatClick[]; $CellContext`Square6 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square1 == \
$CellContext`Square1WolfNoClick[], $CellContext`Square1 = \
$CellContext`Square1WolfClick[]]; 
              If[$CellContext`Square9 == \
$CellContext`Square9CabbageNoClick[], $CellContext`Square9 = \
$CellContext`Square9CabbageClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square6BoatCabbageClick[] := 
          Dynamic[
            
            Button[$CellContext`BoatCabbage, {
             Increment[$CellContext`Step]; $CellContext`Square9 = \
$CellContext`Square9CabbageClick[]; $CellContext`Square6 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square5 == \
$CellContext`Square5GoatNoClick[], $CellContext`Square5 = \
$CellContext`Square5GoatClick[]]; 
              If[$CellContext`Square1 == \
$CellContext`Square1WolfNoClick[], $CellContext`Square1 = \
$CellContext`Square1WolfClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square7BoatWolfClick[] := Dynamic[
            
            Button[$CellContext`BoatWolf, {
             Increment[$CellContext`Step]; $CellContext`Square4 = \
$CellContext`Square4WolfClick[]; $CellContext`Square7 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square8 == \
$CellContext`Square8GoatNoClick[], $CellContext`Square8 = \
$CellContext`Square8GoatClick[]]; 
              If[$CellContext`Square12 == \
$CellContext`Square12CabbageNoClick[], $CellContext`Square12 = \
$CellContext`Square12CabbageClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square7BoatGoatClick[] := Dynamic[
            
            Button[$CellContext`BoatGoat, {
             Increment[$CellContext`Step]; $CellContext`Square8 = \
$CellContext`Square8GoatClick[]; $CellContext`Square7 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square4 == \
$CellContext`Square4WolfNoClick[], $CellContext`Square4 = \
$CellContext`Square4WolfClick[]]; 
              If[$CellContext`Square12 == \
$CellContext`Square12CabbageNoClick[], $CellContext`Square12 = \
$CellContext`Square12CabbageClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; $CellContext`CheckForEnd[]; 
              Null}, Appearance -> "Frameless", 
             ImageSize -> {140, 
              130}]]; $CellContext`Square7BoatCabbageClick[] := 
          Dynamic[
            
            Button[$CellContext`BoatCabbage, {
             Increment[$CellContext`Step]; $CellContext`Square12 = \
$CellContext`Square12CabbageClick[]; $CellContext`Square7 = \
$CellContext`BoatNoClick[]; 
              If[$CellContext`Square8 == \
$CellContext`Square8GoatNoClick[], $CellContext`Square8 = \
$CellContext`Square8GoatClick[]]; 
              If[$CellContext`Square4 == \
$CellContext`Square4WolfNoClick[], $CellContext`Square4 = \
$CellContext`Square4WolfClick[]]; If[
                
                And[$CellContext`Square5 == \
$CellContext`Square5GoatClick[], $CellContext`Square9 == \
$CellContext`Square9CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square1 == \
$CellContext`Square1WolfClick[], $CellContext`Square5 == \
$CellContext`Square5GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]; If[
                
                And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[]], $CellContext`Square6 = \
$CellContext`Square6CannotMoveBoat[]]}, Appearance -> "Frameless", 
             ImageSize -> {140, 130}]]; $CellContext`CheckForEnd := If[
            
            And[$CellContext`Square4 == \
$CellContext`Square4WolfClick[], $CellContext`Square8 == \
$CellContext`Square8GoatClick[], $CellContext`Square12 == \
$CellContext`Square12CabbageClick[]], {$CellContext`Square1 = \
$CellContext`ShowGreen[]; $CellContext`Square2 = \
$CellContext`ShowBlue[]; $CellContext`Square3 = \
$CellContext`ShowBlue[]; $CellContext`Square4 = \
$CellContext`Square4WolfNoClick[]; $CellContext`Square5 = \
$CellContext`ShowGreen[]; $CellContext`Square6 = \
$CellContext`Congratulations[]; $CellContext`Square7 = \
$CellContext`BoatNoClick[]; $CellContext`Square8 = \
$CellContext`Square8GoatNoClick[]; $CellContext`Square9 = \
$CellContext`ShowGreen[]; $CellContext`Square10 = \
$CellContext`ShowBlue[]; $CellContext`Square11 = \
$CellContext`ShowBlue[]; $CellContext`Square12 = \
$CellContext`Square12CabbageNoClick[]}]; \
$CellContext`Congratulations[] := ($CellContext`Square6 = Dynamic[
             Button[
              Graphics[{Green, 
                Rectangle[{0, 0}], 
                Style[
                 Text["CONGRATULATIONS", Center, Center], Black, 
                 11]}], Null, Enabled -> False, 
              ImageSize -> {140, 
               130}]]); $CellContext`ResetGrid[] := \
($CellContext`Step = 
            0; $CellContext`Square1 = $CellContext`Square1WolfClick[]; \
$CellContext`Square2 = $CellContext`ShowBlue[]; $CellContext`Square3 = \
$CellContext`ShowBlue[]; $CellContext`Square4 = \
$CellContext`ShowGreen[]; $CellContext`Square5 = \
$CellContext`Square5GoatClick[]; $CellContext`Square6 = \
$CellContext`BoatNoClick[]; $CellContext`Square7 = \
$CellContext`Square7CannotMoveBoat[]; $CellContext`Square8 = \
$CellContext`ShowGreen[]; $CellContext`Square9 = \
$CellContext`Square9CabbageClick[]; $CellContext`Square10 = \
$CellContext`ShowBlue[]; $CellContext`Square11 = \
$CellContext`ShowBlue[]; $CellContext`Square12 = \
$CellContext`ShowGreen[]; 
           Null); $CellContext`ResetGrid[]; $CellContext`Step = 0; 
         Null)], "Specifications" :> {
        Row[{
          Button["Reset game?", 
           $CellContext`ResetGrid[], 
           BaseStyle -> {"GenericButton", 20, Bold}, FrameMargins -> 
           5]}, Alignment -> Center, ImageSize -> 622]}, 
      "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{647., {271., 277.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.759814147198607*^9},
 CellID->757156845]
}, {2}]]