(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 1797730, 37682] NotebookOptionsPosition[ 1715745, 35972] NotebookOutlinePosition[ 1791706, 37523] CellTagsIndexPosition[ 1791624, 37518] WindowTitle->Graphs and Networks 2.0 WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3V9sVOeZx/FIKyHFHmzPeBiDApEsERLZNEQEO8GkJEQkaLsKf2LUNsRZ KJFIIFQrF4JK1RCllqIVVSWjJm16gUTCHUjJXSxxV1nlGiGtVlqhvdiLvZi5 2Iu92IuVVvtwHp/nfc7fOWM7IeDvp1N3OPOe97znOe/xhX99z4ye/Kc3T/7d Y4899g/y3xOPP/bY/fcjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFZJq9VaxsZW Uk+H61X1YXc9dNeBbajGD696+/IjZttUrIN24ttUr2F23/KadG1Zcrgi1Y/S 015VhrS8YVcs7zLaV+ywqGX2QEV6bVyl/+qnX95D1w6rl6vKCHsdHgAAAAAA AAAAD7VWq/XrX/96fHxc8xHduHPnTtm4ZXTUb9y9e7dstBhF/3nhwoUzZ87I 7s1m0/6EfvLkyf379/t9U4fTHVPGI6mPpHM5kHSe6i132KL80NJb0afa4Hqj Uf01PDwsA6vY+FLU3h9a3hxrNP7caHxdr9+Nfsp72fJko6HF1DaX4h6Oue1F w7Y2fsfZej116PJ9/afPNJunok9vRYOUN5fr9YOZc+naVQmtg3QrO96NDiRv Trk65PYjA0tVL7vXQVf/gwVDetW1OVVt2NJg175Xps+ekdebH5z+yYnjW8fG slPUt5cG0kzby2v7xK6i9tLz0V9+IA2KejOv/fyn0lJ6tpbyU7bYwEpeupf8 1PbljfcdnbaSFvUvZ/f8y3uL6iBDrT4qLe+yi+DLLn586KAdWk7kic2bsyOs ODw5wa7jAQAAAAAAAADgodBqte7cuXPmzBlLfDRHu3fv3szMjG7UZnNzcwsL C41GY8vo6NWrV6WB7Hjjxo17EWssbt68eeHChdxMSv4pjaWfGxkTExP79++X T/1GaSlbrly5kurt5MmTsl2OIuPx+YgcWgeZDXq089QuqbHdjSKqiq+BgYGh oaGKjb+q16WxnIVW+NU4ccu+bkdhlhXzerx9Nuohe15+2NbG7ygvOZyedckp p/qXn6eiweQO8ut6fTIeZNeuSkzGAV9uHY7Fw04FkQeLB2Z7ydGfdM2+dvX3 XfkqPd3Xl1sl3/7Hhw7OfXPzj3/7a+r1q7/8aXTbU9nsafvELvko2372i8+f f3lvNjI++ssP5FM5xBObN6dGmxqJdmud6MbsgXJfO17aI3vt2vdKlcYyVK2n HKVrY6uDP6ncChSNSo4yffbMsovgK/n7W99mj/LWh+c0JbR5XnF4b35wuuhX BwAAAAAAAAAAD5cNGzZcjfj0SuO/+fl5v3FhYWFubk62yPY7d+7MzMwMRLaO jZ0/f17aHzlyRJfUaT6YmxDJ4aTlvn37dN+hJI3wBmK6URrr4Sy70REuRnzo Iz81r5RdZHsqL7hy5Yrmg9mcyMbWUz5Yq9Wq54NfDg3JGekpHKvQ/qBbn6hb ztZq0kN25H7Y1sbveDfKIjf29VXcVy/35YLYzidxPiIs6qpk7k0Wx3z2utRo pFLLKtW7HKeBs+4spvr6UrNi0u3y6fr1ekGL8kE59FsfntOo6MTHH02+/tqP dr/47NTuvUcOz37xuWz8/a1vZaMPqrZP7NKIShpIM2ksL2mj7eW17+h0Ixlw azSmMVZJxmqp1rN7pqyZ5ncXr1+TgelLj5h+7Zlqbdokx33+5b16LuXttz23 Qw8hdGy57Q+9f0qTUzll2cXflTrUiqOSo6ykCLr93blPdCTSg56C/Dzwzts6 QvlpI5SiaSfyadnwpnaPbntKpwf5IAAAAAAAAADgYaerBe/cuTM0NKRRhUZ4 GsBZpKUbDx069MTmzbpaMBXwzc/Pa8go7W/cuFEUw/l8UBsbaezzQftUO5c+ rcMto6PaifzcuXOnZTryU5rJufi4U487Pj6uCx7PnTunJ5WbD87W6/I6W6vp 69P1631+ZNv1lcoHrw0Ophr413R/vx73mWbTh2Kyl3w01dcnP+X93Xix28Yo zJJT8PmgyI48Fcxpm1Q+KK/fRCVNRS25+8rGg8l95dwPRIM8Xqv5ZY8+dpSe s12VJClSh1RX0nmqDvqSQ1suM5kcWG71dMA6f/wSQo1ofW7lM1A5kfJ88LWf /1Qjpx/tfjE6v5rOUp2uB955W7M2K/LWsTENB+Uja2/2Hjlsi+YaLvh+84PT tmDt2andReOxVEsGY1Nd88HZLz5//PHHbXhFZBfNBw+9f6prex2h5YO57fW8 pAI6Bj8qHWqVUWkKuZIiWIx78fo1+UVhZdcRNjeO6Ag1edTfbNrJ+IsvyAi7 Fq1keSkAAAAAAAAAAA+LVvRNgvfu3ZuYmNC/z2tIt3PnTvmpS2Zs4xObN2sq J2/0D+m6VE1+WsgoquSDQy6ONJYP2p/ihbyR3jQf1F3kWIuLi7Va7erVq7rI 0dZPSTNdzGiLfUbcw1Hl05J8ULbIsTRH0EBnqq/Prz5bt26dZhw+5vChmG+Q YiflM6lP169P7TLd36/hoA5yFfPB3AV0RfmgT+5kSH6QMravk59arFM9H9SH l5bXwT6Vw2muJwP7s9srW3DdS3qTjVrtoiWEreirFf0ANBsqWvMoGzXs03DQ 8ms9hKbYO17aM+BCWF3C9taH54raa6R48fo1n21pNPazc7O6zK21aVPRWleL xmzYlg/qEe1wKXqxpLHlgxqMlrTXivl80Oazp3eErtHTVYc+gPN3QcmoxEqK sHVsTGNcCwf9EXWE+45O25XynWgdcofn61D2+xQAAAAAAAAAgIeB/tlfv4JQ /zauYVytVltcXPQbFxYWBgYGNB+0v7rrX8tT0V7FfNAyEVvP5TvRkEWHJyPR R5tq8iUjkf6l2czMTGrloxxaOpcGPjfcMjqqTyjtmg/qIilNcBrR1/b5aMli lEb88E/56eMqy00aGZaA2HK2W/W6xluaWWgzW4dlodsq5oPZp4zm7juZSe78 icubjS42/Wxw0J5o2lM+aMO7Ha3dS5VO3vgg9el4NaVtuTY4mBqY7jUZPffV pz+5Swhle0+LB/Wr+i5ev2bjtPlps9QutE5FjdIaG5rac7a9RWkyPy211Ghs /MUX3rv8z5qRDRU8p7c8H7QOc+klsHzQlgmXtBc+H8yekQ5ARqKncOCdt1MB XG4dskdZYRH02aSyi4Wk/rx0hDpV7EplOykfIQAAAAAAAAAAj4Bms2lfQSgs fZubm/OPDJV/pvJB2VF7aCWjva754JkzZ6Sf/c6W0VELGfdFdPuRI0f0kaFb x8a0Q13tOD4+Lsd6YvNmDf4sidB8ULboIseGW28o7S0fzF2OZOdiUUIqH8zG DdlQrDyXeSbZ3tas2S6aOWrcpmNYxXxQG/ioJXffg8mzToVBsou0+SoO127V 67bqqno+6I/72eBgbh1Sw9Dsz7Ycj6qXSpk1pLMc2TbOZqLGXhcPaupkS+2y WZUVR99sn9jll/Jle9aB/eJ3l+zxmDqBNRqTLY0NTV2xqF+ulwouK+aDucW3 AaTywa75l4WeJf3bKWi3OpN9Ptj1+ZyWDy6jCLLl9B8u+8WA2cNpoVTLPf7U V7J8hAAAAAAAAAAAPAIsQRsaGtKvF5yYmBgYGDh06JA9MlS/fPD+o/lWIx/M kt2H4+8f9GQA8/PzOh7tUJ8Uao/3tO891CTi5s2b+uWGcjo2Bn2v+eD58+dz B5YlDbL5YGrH3HytpGff4YH+/twIwy9WWpV88Fa97r/xcDJK0DbE39iYzTdn kwvrsuHRhuiLGq2N5nSNZApZPR88Gyd9vg6p4uu3N2aXczbib+7zpbOQzo7l lxB+un69dNXT4kHLBydff61ilKbrDU//4XKVKE2X2mm8ZdGY7KgPIM19wOYP Nh9sxV//t/fI4ZXng7KL1Lx6EWzLtud2VAz7yAcBAAAAAAAAAGtTK/4Kwq1j Y5oJavqmWaGu5tPleLLR54D2p/5e80HpUL8wzp6lqY21E/tIlwGObnvKf9eh PvXUnkV55MgRWyooDeTQ0ol8pN+HKNttLaHmg0UDyy3LMvLB8vWDXTtMyeaD ttDM5C7c8/ngtcHB47WatbGv82sVrH/02d+6det8EGyjWt18UI/rG7ei74JM tem1etZVdgmhjwvLFw+OJBOrKgdNRW8lUVpqqZ3lg89O7dZbY/aLz/VLDFOL Fn+w+aBstIemrjAf1CLILroksEoRss8yLT9WbifkgwAAAAAAAACAtaAVfwXh zMyMPlPU0jd91uj58+dtyV7qKwKtB83pqueDFgvqgTRHsM7t08XFRRuPNNCj yDj940n1gaX2HFTNB+3Ro7Jlfn6+68Byy9JTPnhtcPBsrTZbr2dfz0SJ3grz wVv1+pdDQ1/V67LFv75yyVdRPrhu3Tr56ZvZ9xuW54P2cNFUZVY9H8w2zo6t qHq2bDDLPvJLCP1qyq6LB0eSiVWVyVMxekvlg7oWMhWNjW57KvcBmxXzwdyQ OneQXb+vcMTlg0XfP7hldPTduU/8GLLfP1jyBX/Zatv/UaFiEVaeDzaKv4ex a1cAAAAAAAAAADxc9CsI5+fnFxcXT548qX8nHx4evnDhwo2Ifvng0NDQxMSE PoA0lQ9KS8sQq+SDGv+llsL58FEHoKv/tL00vnLliozwRpJs8YfWfFDIGO7c ueNXIH6n+WDJS/rR3GEl+WCVV0k+6BfN3Y2fMppdo/cw5oNFJXq1+FsI71Ze PDjygPJBuwX+/h/fyT5gsyQfvHj9mmzc8dIeGUP2tXVszPIvHeTsF5/LAA6f fk8OnX1Z+xGXD46/+MKze6Z8tz85cfytD8/pysHf3/pWFw9qlmdDLTmK9GBH SVVbi5D7lNHVzQePX/qtjDB3ePuOTme/cRIAAAAAAAAAgIedfQWhpWn6x3b7 QsA33njDQkNd06d/ute/6m8ZHZWN2WV62cU4zWbT8r5UztJKPqRU/yCvjwwV 9rzTmZkZffqoLT/0kaXlg3Lo8fFx2S5bNCxoRKsLH0g+KPvqGT2ofFBTMB+Q 6VNGZVRV8sHsNyR+D/lgtk1u9UpKpGXXGZhaQng3el9l8eDIg8sH9exke/Yp oyX5YPlL+tdubZDlL2nj87iu7U98/FFjQ9PiOT/UiqPKVluLkH3KaNd8sOuz TEdcPljykgb2q6xrhwAAAAAAAAAAPCxa8VcQLi4u+ocHDg8P6xI8aWPfJqYP +dTvAdy/f/+VK1ekzcLCgn5BoYZ08/Pz/hGganx8XHqomA/q3/Yto5Rd/DcJ 2sKiRrQOTgajKxwtH9Shyhvf+Ht4vmju6+nVyAdL+q+SD+ql+Tr5MFIZwCOf DxYtIZQ+/VQvnwkPKh/UYWefMlqSD859c1M6LHrteGmPZaY2yMcjtfj7QD1L 6EZcPrh9Ytf9JYRTu2U88pIe9LiNDU1Non2VbKjlR2m4/y9BtgjyUfYpo6ub D8oZlQyvyjwBAAAAAAAAAODh0oq/gnB+ft7/aV1+Xr16dWFhwS8IGh4e3r9/ /40bN3Rpoe5lsZ3GcPfyaDbnnxeamw9aWKAbbQmhPgHVZxZKn4O6uLho+aAG ZPKR/ByOaMubN29+d/ng2Vpt3bp1GjF4Pv5YST5Y1H+tcj7YiB4r6hO0p/v6 quSDP+Tni+oEkPe1KO+bcmeUqnC2/hVTpAebD+otkHrKqBSn5PsHNYnL5lyp JM4GmVqQ6+mxUusHLUfTNvJGnyy6a98r/heFXWvLB/XTrEb8JNiialcswgrz waI66P+7gPWDAAAAAAAAAIBHjz7Ez0IB+1u9vLc/ktujGnVj7hKb3E+zf3W3 BDB3DLZkKTUwG57f1w/SN2hlyPAakSpLgZaRD9riqUaSjcd3eKC/v9d8MLf/ ocwzQovyQU1LU08ZLc8HN8ZL8FKV+R7yQV+r6f7+onzQT0hRkg9WuaBFM+EB 5oMj8S3gnzIq/yzPB3PnoZ+KqXxwKJm5ez7ps3zQYnpdw7vv6LQmd9lgLpXZ 6WnmHqUkH6xYhA0r+P5B7WQo86WoqeEBAAAAAAAAAPAosZxF/zxuf6u3VXjZ jRbbae5gD3LUflKhnrbRZv4Q2TGkPrUObffUvn6QvXZeXpBe80ELR7LRpHom uSau13wwt3/poWI+qEnHUPIpo9nxH8x7RGfRqG6vOB/8dP36bGN5nxqGtPGL H4+76tmsk3EeS66OlDZ+YdoK88G9Rw73lA/OfvF5lXxQui3PB1t5TxnVpCw3 H/SL+HKNVA4xU1fN8kHfvyZ3uoRQS+QnTK9r+orywSpF8GHf8vLBKvMBAAAA AAAAAIBHSSpBKNk4EsdtuetrLDUoWoaT7S17uOzGkoU8uQlIxRMsqcYy8sHy nKXZbN52a/dyExM/wmw+mO0/dwxF+aCGLKmnjKbyQf/pb6K1n6mzfjKKBVOd 95oP+oRRVyluSK4JvexCTE36/EpJOW5uqpgNLi0kqnJBi2bCT04c/+Pf/vqz c7NVojT5dOvYmLS/eP1aSSiWTaaK8sGReJGsPWCzuXGkaz5YnsStJB/M9i9F tiWEqd5WKx+sUgTp/Be/uyRbJl9/rUqSm3sVyAcBAAAAAAAAAFizlp0Plqwf lI987HU8fq6jNTgW5YZPxk9AXfV8cCQOWWYzSwhtX/n0lvv0QH9/arHYn5Pr +OzplNVLIdtPuU4+Xb/e8h2rg30qg7EI0h96OhqYr16qT3/WFS9o0UzYPrHL wq+SkKvlVrrpMrcto6NFC9nkI43bmhtH7PGeJQ8y9Q/Y/Nm52R9UPij7Fi0h XMV8sGsR5FNNck98/FH5SWXjS/JBAAAAAAAAAADQaz746fr10kZ2yX1Nxl+7 5h8xKq8vo+d5SoODLvyyiNDHfKuVD+ou2aeM+n19PCevy/W6nsWxKK3zyd3G uCw+H+xaCjmEX4Sop3wsrsPl5MAO9Pfr+OUQryYH9tngoFXvutuuaxJT5VpJ PigDvnj9mqZpuQvT5J9vfXhu+8QuW6SpIVfRI0bln+/OfaJJlj0OtDwfbCUf sKk/x1984YeQD45ESwgnX38tu4RwdfPB8iJI509s3rz0ANJo9+w3jW4ZHZXK y88N8bepkg8CAAAAAAAAAADVaz5Y/vqqXtfoTXo4VqH9gXhx3HeRD2rIksra /KI/Oe7lvO8o9K/b0WM/7RmezWTuWV4KXQw4mYwIc1+6DNDSn4rVm44jRR8P LTsf1CJvn9ilwZNFhBYwbR0b04xp7pubWnwNqjRSnP3i89FtT2l73UUjKo23 5L19+WB5NDaSfMCmvlYrHyz/3kwdhpxXST64tC41WtCnJbI1sD4f9Os9i6yk CPakU6ntgXfetuBVRyIXUS/KL353ya6Izwcbpet/iQ4BAAAAAAAAAHi0rW4+ +OXQkKYPzWazEa13K4rGbkfxloUp30U+OBKHLJcK8kFdYJh9Bqm9vq7XNRz0 uUxPpbCI8FbBUW5HDy+VQ1gapRFP1+rpekPLenq6oCWTQVpue26HRoRz39x8 68Nzb35wWl76hXf6bYP6pFDNxeSnRYQaSGn7d+c+sU6kQ1s8WCUaG0k+YHNV 8kFpf+j9U4dPv6fDy772HZ22MyrJB3VsO17ao9mclMLmkgZw5UeR19axMW2/ kiLoldKIUIts/Z/+w2XdeOLjj1qbNll0qMM7fum3MsKS4Um5dBJ2nS0AAAAA AAAAAOAh1Wq1JqPFbl8ODcnr6b6+7OMK9fsB5dNrg4Plr98MDFhipenGxr6+ 47WafHQ7DrbkvWzZ6HI3OdyleAzT/f25eZaNwbfxO8qhLfhL7fhk9IhOHb/v X8OgoeisZXf5VDO1W/X6Z1FLi+10EdbySqFRqbyXDqVbCwqlzdlazfJHX3aL CLtWzxaC9XRBS+jqxdamTSc+/kgDPnvNfXNz75HDUhA/Wg2q5J+HT7+nX8xn L9n90PunmhtH/JI6HeH02TP3o7E9U0VjayUfsDn+4gt+pZ490bRKPrhr3yt+ VEWvX/3lT1rMrvmgX0IoZ61tLIDr+nr+5b06dZfywWUVwWbItud2WCBoLxnb s1O79Uql4suuLxmVLRqtMmEAAAAAAAAAAMDDSIOGgShfy65HG4kDEW3weKnU wxU1bBqKVtL5fS1jsocfWrNUUpY7BmuT3TH3OY0aAqb2taxK8zvZmDq71CCX XYrUCWaPomsMszFfxeoVrTsruaBd54Mdd9tzO56d2i2vLaOj2lv2AvkKSzNt r2sGi2qo7e3Ec4dhyaMd1CJavV5Fy+6yp2M1tFPI0g51Uln/RcOzNjYwK1r5 UXw1tP3yijDiQmT9VMsuLw1k/Rn5GLcWKxledjYCAAAAAAAAAIBHjOY1w8PD jUZDVzZlIzYfZ5TQHny4YJ2nWtqBfJLYiBStpcq2SW0sysv8CWb7104sJUwN siS266kURTs24i/yy41julZveRe0Kx+bdq1JyTjtBLOrQbV9+dhsGL4Tq2TF ZW4l51J0vbr279ukpmLXiWG7rKQIfhhVrlRP83YZEwYAAAAAAAAAADx0LODQ NyUNusr2kLtvqlkrqfogWxmreILfRSm6tqk4sIp7dW3ZtYemU1ST8vbZXbpe r/KW1Xe39tWvV5XpNJI3Y3udGCssQurstOCaNuZeqV6HV6WwAAAAAAAAAAAA eCQtIy0iYHogKDsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5NoJAAAAAAAAAAAAYM14 AwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAfO/+BQAAAAAAAAAAAMCa8a8AAAAAAAAAAAAA 1ox/AwAAAAAAAAAAALBm/DsAAAAAAAAAAACANeM/AAAAAAAAAAAAAKwZ/wkA AAAAAAAAAABgzei0O51Ou925/x/93+h/7v/Qf9x/q/9Z+nd7qYG9iXde2pzc 3o47bEf/CE2s9VKj6Hjxgd0+rsHSfzt+VB2/59Ln4eB2bu2278+104/iAdgB ls6+3YmP1w5vlz4M9QmnEXfrxtF2R0zVzZW9k+jSjSiuWXupEKHfxPHCj7BT +iKE6xafi52sbV7q0q5bXG+7JHHp7ZK33TCtvKGOcSM3l8I+S8N1F91qZpWz UoSDWYXc9bTZGy5UouyutPa5v35+9sQzOTGtXVXDJAnzLpx+Ym64qRjfA6na 2blbm0Tv/p5qu6O58XWS7xOjCsXsxLMtDCtxCf1Jtv3phnNzt0coqh9V8l4I V87fxPF2G4ifvskzDL8QbCrHc68d/tdNA3/4RCE7bovNJrsAnXCaHWtqZ2s/ /fQPN2DyctsYE0e1yof6JoYZ5pSfKe6Ojo8TJpi/Vdp2tRJ3qrWw0zLWS3yT +BHZzWaVbYfP3G+BThhBuE06bkDWh7vY4Y7thHslvI3P282tMK/TR+i0XX9h 1OEXRHzwMAHbbuShUPFMcTdhfDw/i8K8CBchDC7c4HYeoS5uNsSn4i+dXf70 Tex+CdmRE9MjzGR/3ds2Yn8Lhg9tqO5ODW3cLHIT3y5QmJZ+xtrUCaOz6+NH mfhtZGdtfVi5rKyh8omZZpfU3dyJS+amnV3TcIKulu4/jk2/+CqHWRsmZvIg 1qv/tRNmok12O2Y4fPqqhyP5m8OOELfv2K7hX3F1wkUKd6KvZrgl3PXrhL3s t4ex0wx3WrudbuFOyCa0n3m2m5+lyYvvjutmTWJ4dj3ju8eK6G7H1NYwncOV 80f2k9qmRmpSd+ydm1OJK9QOEzWeCW6KhpnrrmOYxW1fAz9qf+ptP1y7TxM1 C7d5Yg7YlY1ngJ+V7v5I1MD2CkMJNQ/3XPJOizuzoVsP8Zm3M0O23kPzcD3t EMlZZlciHnTivd1h6donbvH4ZrTpZO3iGy5MFDdjwpj9JLRZGiacDSVZNruT 3fxt+18INpkSY7QauUvsmoYrlyx+x43CX/VOONtw69g1sKtlF9UdONwZYSra lXI3iV3xcEOF2d4JVU1UxS5SmG3u0iQmhl3txOGXKmZzO/wW8PenmxTtdmqs Np64dn5rKGuYF223SzxfO2GANm9SN6K7gOGHlTj03rHTdCcZ5mM7jM0mYVwU d1HdYPw8Skwhq6KvTaiAnzvJ6sYlj29rG1m4ccPo/cRzg0/MSDf57aKGLeFk fdnstN1gQoUTdbIS2z3nr2aY1HZ+1j78OxzeDdj9Imi7Htwg/OzuuGOFKxzu Xnfp4/3DfZiYWnap3Mm6qWxTIdxVndB54ldDO3GyNmg7ms3+9O0SrqzrKlTL Kmr1sqH5OyVZRHfDJiri5mYn7ivUJdw3dvBQqMRst10TZxE3T064MLfDRQqN QnXa/jTjy9q2EVn5fWHi1jZnXDO7E23+2BlZQcKtGCanm4mh4p3ESfipYYNN HDzcgXbIjp1vuJOtTZgXnfiudneWv9385Ai3ie+ynTyrUDZX+cRFsWLbvWCj SN2tHd+x3bjWyF1MmzM22f2daOfqz8hqnLolE1fAdxp6dvepu1MTu4TfB/EN 5foMdfJ1DXMhzGebHMkZ6I4YCpP5PRBvT9yA7maN53C8KXzkLlQYs90z7vra mMKFa4cm7p5uhwOEqeDnfjvRkZt2NkXcpEn8OrBr4npxw/QXNRzCRu/vTnfL ujG7EYY92uF/QqN4loSr0Q7n4k7apmsYqLvqYXKE//EXqG3nljihMJNsGG6A 4bZyt4hNAz8X/P2SOEO7T+L37qpaVf2+4Qq76sTN7dYI1zbcTpkDpu6AduKu DFPA3Y3xvZi4WslboGMF8fVqu9478X0cqmTV9xfXjhVOwK51OE64P21axjM8 rqa7Y0Jjdx5WXHc7hA3uKrjBdJLHS81B17FdUJtGfo7GRwi/R9zUs0KEKx6m WTzz3EXuWD1CUd2d6IYaZmoolTsJq087jMeqGgpjEy7T1g4S/uUnT2Ki2Hji EvgZHW6jeA7ZNUgMNuxlbUM9E3e4u45WTptX+ua/AAAAAAAAAAAAAKwZ/w0A AAAAAAAAAABgzfgfAAAAAAAAAAAAAGvG/wIAAAAAAAAAAABYM/4PAAAAAAAA AAAAwJrx/1oIIGU= "], {{0, 75}, {2400, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->Magnification[1], ImageSizeRaw->{2400, 75}, PlotRange->{{0, 2400}, {0, 75}}]], "hidefromslideshowgraphic", CellChangeTimes->{{3.4483017593296423`*^9, 3.448301769562791*^9}, { 3.4487297016867533`*^9, 3.448729710294153*^9}, {3.449486136735977*^9, 3.449486146926845*^9}, {3.449490735677544*^9, 3.4494907482045183`*^9}, { 3.473785056790244*^9, 3.4737850735465307`*^9}, {3.485608891427413*^9, 3.485608902078108*^9}, {3.516534228793694*^9, 3.516534238460294*^9}, { 3.517925345960129*^9, 3.5179253474520397`*^9}, {3.518187873028657*^9, 3.518187875044894*^9}, {3.5181990234752483`*^9, 3.5181990242399282`*^9}, { 3.518200170676401*^9, 3.5182001710513353`*^9}}, Background->None], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["\n", FontSize->35], StyleBox["Graphs & Networks 2.0\n", FontSize->40, FontWeight->"Bold"] }], "Title", ShowGroupOpener->False, CellChangeTimes->{{3.448190122176695*^9, 3.44819012385317*^9}, { 3.485609127497636*^9, 3.485609133015955*^9}, {3.514308355088097*^9, 3.514308374696691*^9}, 3.5146594348020153`*^9, 3.5146601881617107`*^9, { 3.5275178631923647`*^9, 3.527517907556779*^9}, {3.527520241742446*^9, 3.527520244805118*^9}, {3.52752729126521*^9, 3.527527299655151*^9}, 3.527527366893251*^9, {3.527530696799623*^9, 3.527530713420417*^9}, { 3.527934726018716*^9, 3.527934734054571*^9}, {3.559456336986763*^9, 3.559456341331459*^9}}], Cell["Charles Pooh", "Subtitle", CellChangeTimes->{{3.485609136120798*^9, 3.4856091511532907`*^9}, { 3.4856091945334663`*^9, 3.485609199379443*^9}, {3.4951031489375*^9, 3.49510314984375*^9}, {3.495106455296875*^9, 3.495106455453125*^9}, { 3.5143083846926413`*^9, 3.514308395249558*^9}, {3.527517883276298*^9, 3.5275178852512197`*^9}, {3.5275306988614407`*^9, 3.527530716843535*^9}, 3.527531463070396*^9, 3.52753149937986*^9}], Cell["Kernel Technology, R&D ", "Subsubtitle", CellChangeTimes->{ 3.483202458953512*^9, {3.495105345328125*^9, 3.495105347890625*^9}, { 3.49510644571875*^9, 3.495106448390625*^9}, {3.5143083980990458`*^9, 3.514308409442589*^9}, {3.527517888596819*^9, 3.5275178985471363`*^9}, { 3.527529932652157*^9, 3.527529984150138*^9}, {3.527530700124552*^9, 3.527530701748448*^9}, {3.559456550455207*^9, 3.559456651244671*^9}, { 3.559456697549868*^9, 3.5594567057216*^9}, 3.559473730134556*^9}], Cell[TextData[{ "Wolfram Research\n", StyleBox["(charlesp@wolfram.com)", FontSize->12, FontSlant->"Italic"] }], "Subsubtitle", CellChangeTimes->{ 3.483202458953512*^9, {3.495105345328125*^9, 3.495105347890625*^9}, { 3.49510644571875*^9, 3.495106448390625*^9}, {3.5143083980990458`*^9, 3.514308409442589*^9}, {3.527517888596819*^9, 3.5275178985471363`*^9}, { 3.527529932652157*^9, 3.5275299866037407`*^9}, 3.527530735206833*^9, { 3.559456620543249*^9, 3.559456622294765*^9}, {3.559473732228627*^9, 3.55947373663871*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", TemplateBox[{PanelBox[ GraphicsBox[{{ Hue[0.6, 0.2, 0.8], EdgeForm[{ GrayLevel[0], Opacity[0.7]}], TagBox[{ Hue[0.7, 0.7, 1], EdgeForm[{ GrayLevel[1], Opacity[1], Thickness[0.025]}], DiskBox[{1.1114378604524227`, 1.4819171472698969`}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[{ Hue[0.7, 0.7, 1], EdgeForm[{ GrayLevel[1], Opacity[1], Thickness[0.025]}], DiskBox[{0., 0.7409585736349484}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[{ Hue[0.7, 0.7, 1], EdgeForm[{ GrayLevel[1], Opacity[1], Thickness[0.025]}], DiskBox[{0.7409585736349484, 0.7409585736349484}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[{ Hue[0.7, 0.7, 1], EdgeForm[{ GrayLevel[1], Opacity[1], Thickness[0.025]}], DiskBox[{2.2228757209048453`, 0.7409585736349484}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[{ Hue[0.7, 0.7, 1], EdgeForm[{ GrayLevel[1], Opacity[1], Thickness[0.025]}], DiskBox[{0.3704792868174742, 0.}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[{ Hue[0.7, 0.7, 1], EdgeForm[{ GrayLevel[1], Opacity[1], Thickness[0.025]}], DiskBox[{1.1114378604524227`, 0.}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[{ Hue[0.7, 0.7, 1], EdgeForm[{ GrayLevel[1], Opacity[1], Thickness[0.025]}], DiskBox[{1.852396434087371, 0.}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[{ Hue[0.7, 0.7, 1], EdgeForm[{ GrayLevel[1], Opacity[1], Thickness[0.025]}], DiskBox[{2.5933550077223195`, 0.}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$8"]}, { Hue[0.6, 0.7, 0.5], Opacity[0.7], { GrayLevel[1], Thickness[Large], LineBox[{{0.8961469781623852, 1.3383898924098718`}, { 0.21529088229003754`, 0.8844858284949733}}]}, { GrayLevel[1], Thickness[Large], LineBox[{{0.9957224881936969, 1.2504864027524454`}, { 0.856673945893674, 0.9723893181523997}}]}, { GrayLevel[1], Thickness[Large], LineBox[{{1.32672874274246, 1.3383898924098718`}, {2.007584838614807, 0.8844858284949733}}]}, { GrayLevel[1], Thickness[Large], LineBox[{{0.6252432013762225, 0.5095278291174967}, { 0.4861946590761998, 0.23143074451745124`}}]}, { GrayLevel[1], Thickness[Large], LineBox[{{0.8566739458936741, 0.5095278291174967}, { 0.9957224881936968, 0.23143074451745124`}}]}, { GrayLevel[1], Thickness[Large], LineBox[{{2.1071603486461186`, 0.5095278291174967}, { 1.9681118063460963`, 0.23143074451745138`}}]}, { GrayLevel[1], Thickness[Large], LineBox[{{2.3385910931635703`, 0.5095278291174967}, { 2.477639635463593, 0.23143074451745124`}}]}}}, Background -> Hue[0, 0.2, 0.8], FrameTicks -> None, ImagePadding -> 3, ImageSize -> {90, 90}], FrameMargins -> 2],PanelBox[ GraphicsBox[{{ Hue[0.6, 0.2, 0.8], EdgeForm[{ GrayLevel[0], Opacity[0.7]}], TagBox[{ RGBColor[0.85, 0.5, 0.5], EdgeForm[{ Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{0.9510565162951535, 0.30901699437494745`}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[{ RGBColor[0.85, 0.5, 0.5], EdgeForm[{ Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{0.5877852522924732, -0.8090169943749473}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[{ RGBColor[0.85, 0.5, 0.5], EdgeForm[{ Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{-0.587785252292473, -0.8090169943749475}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[{ Hue[0.55, 0.7, 0.6], EdgeForm[ Hue[0.55, 0.7, 0.6]], DiskBox[{-0.9510565162951536, 0.30901699437494723`}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[{ Hue[0.55, 0.7, 0.6], EdgeForm[ Hue[0.55, 0.7, 0.6]], DiskBox[{-2.4492935982947064`*^-16, 1.}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$5"]}, { Hue[0.6, 0.7, 0.5], Opacity[0.7], { Hue[1, 1, 0.7], Opacity[1], AbsoluteDashing[{2, 2}], CapForm["Butt"], LineBox[{{0.9065394158733948, 0.17200744728412307`}, { 0.6323023527142323, -0.6720074472841226}}]}, { Hue[1, 1, 0.7], Opacity[1], AbsoluteDashing[{2, 2}], CapForm["Butt"], LineBox[{{0.8345092343103968, 0.22434043748958865`}, {-0.4712379703077165, \ -0.7243404374895888}}]}, { Hue[0.55, 0.7, 0.4], LineBox[{{0.8069961531691576, 0.3090169943749474}, {-0.806996153169158, 0.3090169943749473}}]}, { Hue[0.55, 0.7, 0.4], LineBox[{{0.8345092343103968, 0.39369355126030614`}, { 0.11654728198475656`, 0.9153234431146412}}]}, { Hue[1, 1, 0.7], Opacity[1], AbsoluteDashing[{2, 2}], CapForm["Butt"], LineBox[{{ 0.4437248891664778, -0.8090169943749472}, {-0.44372488916647734`, \ -0.8090169943749475}}]}, { Hue[0.55, 0.7, 0.4], LineBox[{{ 0.47123797030771686`, -0.7243404374895885}, {-0.8345092343103971, 0.22434043748958854`}}]}, { Hue[0.55, 0.7, 0.4], LineBox[{{0.5432681518707148, -0.6720074472841226}, { 0.04451710042175865, 0.8629904529091756}}]}, { Hue[0.55, 0.7, 0.4], LineBox[{{-0.6323023527142319, -0.6720074472841231}, \ {-0.906539415873395, 0.17200744728412287`}}]}, { Hue[0.55, 0.7, 0.4], LineBox[{{-0.5432681518707144, -0.6720074472841231}, \ {-0.04451710042175882, 0.8629904529091756}}]}, { Hue[0.55, 0.7, 0.4], LineBox[{{-0.8345092343103971, 0.3936935512603061}, {-0.11654728198475679`, 0.9153234431146412}}]}}}, Background -> Hue[0.15, 0.2, 0.85], FrameTicks -> None, ImagePadding -> 3, ImageSize -> {90, 90}], FrameMargins -> 2],PanelBox[ GraphicsBox[{{ Hue[0.6, 0.2, 0.8], EdgeForm[{ GrayLevel[0], Opacity[0.7]}], TagBox[{ Hue[0.3, 1, 0.8], EdgeForm[{ Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{0., 0.}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[{ Hue[0.3, 1, 0.8], EdgeForm[{ Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{0.6427876096865393, 0.7660444431189781}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[{ Hue[0.3, 1, 0.8], EdgeForm[{ Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{0.984807753012208, 0.17364817766693041`}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[{ Hue[0.3, 1, 0.8], EdgeForm[{ Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{0.8660254037844388, -0.4999999999999998}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[{ Hue[0.3, 1, 0.8], EdgeForm[{ Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{0.3420201433256689, -0.9396926207859083}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[{ Hue[0.3, 1, 0.8], EdgeForm[{ Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{-0.34202014332566866`, -0.9396926207859084}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[{ Hue[0.3, 1, 0.8], EdgeForm[{ Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{-0.8660254037844384, -0.5000000000000004}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[{ Hue[0.3, 1, 0.8], EdgeForm[{ Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{-0.9848077530122081, 0.17364817766692997`}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$8"], TagBox[{ Hue[0.3, 1, 0.8], EdgeForm[{ Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{-0.6427876096865396, 0.7660444431189779}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$9"], TagBox[{ Hue[0.3, 1, 0.8], EdgeForm[{ Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{-2.4492935982947064`*^-16, 1.}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$10"]}, { Hue[0.6, 0.7, 0.5], Opacity[0.7], { Hue[0.3, 0.5, 0.5], LineBox[{{0.08371243261680317, 0.09976459231587619}, { 0.5590751770697358, 0.6662798508031021}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{0.128254887652148, 0.02261479710080679}, { 0.8565528653600597, 0.15103338056612386`}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{0.11278545536075042`, -0.06511671301320367}, { 0.7532399484236884, -0.43488328698679585`}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{0.04454245503534475, -0.12237938941668261`}, { 0.2974776882903241, -0.8173132313692254}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{-0.04454245503534489, -0.12237938941668264`}, \ {-0.29747768829032395`, -0.8173132313692262}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{-0.11278545536075057`, -0.06511671301320379}, \ {-0.753239948423688, -0.43488328698679657`}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{-0.12825488765214824`, 0.02261479710080673}, {-0.85655286536006, 0.15103338056612348`}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{-0.08371243261680344, 0.09976459231587616}, {-0.5590751770697363, 0.6662798508031019}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{-1.1102230246251565`*^-16, 0.13023342602640775`}, {-1.1102230246251565`*^-16, 0.8697665739735924}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{0.7079043226997427, 0.6532589877582278}, { 0.9196910399990039, 0.28643363302768093`}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{0.5204082202698563, 0.8105868981543228}, { 0.12237938941668261`, 0.9554575449646552}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{0.9621929559114011, 0.045393290014782484`}, { 0.8886402008852454, -0.3717451123478515}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{0.7662608114685628, -0.5837124326168028}, { 0.441784735641545, -0.8559801881691048}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{ 0.21178671729926135`, -0.9396926207859083}, {-0.2117867172992609, \ -0.9396926207859085}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{-0.4417847356415446, -0.8559801881691054}, \ {-0.7662608114685624, -0.5837124326168037}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{-0.8886402008852451, -0.37174511234785246`}, \ {-0.9621929559114014, 0.045393290014781845`}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{-0.9196910399990044, 0.28643363302768066`}, {-0.7079043226997433, 0.6532589877582274}}]}, { Hue[0.3, 0.5, 0.5], LineBox[{{-0.520408220269857, 0.8105868981543227}, {-0.12237938941668283`, 0.9554575449646552}}]}}}, Background -> Hue[0.3, 0.1, 0.85], FrameTicks -> None, ImagePadding -> 4, ImageSize -> {90, 90}], FrameMargins -> 2],PanelBox[ GraphicsBox[{{ Hue[0.6, 0.2, 0.8], EdgeForm[{ GrayLevel[0], Opacity[0.7]}], TagBox[{ GrayLevel[1], EdgeForm[ GrayLevel[1]], DiskBox[{1., 1.}, 0.175]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[{ Hue[1, 1, 0.7], EdgeForm[{ Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{1., 2.}, 0.175]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[{ GrayLevel[1], EdgeForm[ GrayLevel[1]], DiskBox[{1., 3.}, 0.175]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[{ GrayLevel[1], EdgeForm[ GrayLevel[1]], DiskBox[{1., 4.}, 0.175]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[{ Hue[1, 1, 0.7], EdgeForm[{ Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{2., 1.}, 0.175]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[{ Hue[1, 1, 0.7], EdgeForm[{ Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{2., 2.}, 0.175]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[{ Hue[1, 1, 0.7], EdgeForm[{ Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{2., 3.}, 0.175]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[{ GrayLevel[1], EdgeForm[ GrayLevel[1]], DiskBox[{2., 4.}, 0.175]}, "DynamicName", BoxID -> "VertexID$8"], TagBox[{ GrayLevel[1], EdgeForm[ GrayLevel[1]], DiskBox[{3., 1.}, 0.175]}, "DynamicName", BoxID -> "VertexID$9"], TagBox[{ Hue[1, 1, 0.7], EdgeForm[{ Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{3., 2.}, 0.175]}, "DynamicName", BoxID -> "VertexID$10"], TagBox[{ GrayLevel[1], EdgeForm[ GrayLevel[1]], DiskBox[{3., 3.}, 0.175]}, "DynamicName", BoxID -> "VertexID$11"], TagBox[{ GrayLevel[1], EdgeForm[ GrayLevel[1]], DiskBox[{3., 4.}, 0.175]}, "DynamicName", BoxID -> "VertexID$12"], TagBox[{ GrayLevel[1], EdgeForm[ GrayLevel[1]], DiskBox[{4., 1.}, 0.175]}, "DynamicName", BoxID -> "VertexID$13"], TagBox[{ GrayLevel[1], EdgeForm[ GrayLevel[1]], DiskBox[{4., 2.}, 0.175]}, "DynamicName", BoxID -> "VertexID$14"], TagBox[{ GrayLevel[1], EdgeForm[ GrayLevel[1]], DiskBox[{4., 3.}, 0.175]}, "DynamicName", BoxID -> "VertexID$15"], TagBox[{ GrayLevel[1], EdgeForm[ GrayLevel[1]], DiskBox[{4., 4.}, 0.175]}, "DynamicName", BoxID -> "VertexID$16"]}, { Hue[0.6, 0.7, 0.5], Opacity[0.7], { GrayLevel[1], LineBox[{{1., 1.2186197916666663`}, {1., 1.7813802083333332`}}]}, { GrayLevel[1], LineBox[{{1.2186197916666668`, 0.9999999999999996}, { 1.7813802083333337`, 0.9999999999999996}}]}, { GrayLevel[1], LineBox[{{1., 2.2186197916666663`}, {1., 2.781380208333333}}]}, { Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.2186197916666668`, 1.9999999999999998`}, { 1.7813802083333337`, 1.9999999999999998`}}]}, { GrayLevel[1], LineBox[{{1., 3.218619791666666}, {1., 3.781380208333333}}]}, { GrayLevel[1], LineBox[{{1.2186197916666668`, 2.9999999999999996`}, { 1.7813802083333337`, 2.9999999999999996`}}]}, { GrayLevel[1], LineBox[{{1.2186197916666668`, 4.}, {1.7813802083333337`, 4.}}]}, { Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.0000000000000004`, 1.2186197916666663`}, { 2.0000000000000004`, 1.7813802083333332`}}]}, { GrayLevel[1], LineBox[{{2.2186197916666672`, 0.9999999999999996}, { 2.781380208333333, 0.9999999999999996}}]}, { Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.0000000000000004`, 2.2186197916666663`}, { 2.0000000000000004`, 2.781380208333333}}]}, { Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.2186197916666672`, 1.9999999999999998`}, { 2.781380208333333, 1.9999999999999998`}}]}, { GrayLevel[1], LineBox[{{2.0000000000000004`, 3.218619791666666}, { 2.0000000000000004`, 3.781380208333333}}]}, { GrayLevel[1], LineBox[{{2.2186197916666672`, 2.9999999999999996`}, { 2.781380208333333, 2.9999999999999996`}}]}, { GrayLevel[1], LineBox[{{2.2186197916666672`, 4.}, {2.781380208333333, 4.}}]}, { GrayLevel[1], LineBox[{{3., 1.2186197916666663`}, {3., 1.7813802083333332`}}]}, { GrayLevel[1], LineBox[{{3.218619791666667, 0.9999999999999996}, {3.781380208333333, 0.9999999999999996}}]}, { GrayLevel[1], LineBox[{{3., 2.2186197916666663`}, {3., 2.781380208333333}}]}, { GrayLevel[1], LineBox[{{3.218619791666667, 1.9999999999999998`}, { 3.781380208333333, 1.9999999999999998`}}]}, { GrayLevel[1], LineBox[{{3., 3.218619791666666}, {3., 3.781380208333333}}]}, { GrayLevel[1], LineBox[{{3.218619791666667, 2.9999999999999996`}, { 3.781380208333333, 2.9999999999999996`}}]}, { GrayLevel[1], LineBox[{{3.218619791666667, 4.}, {3.781380208333333, 4.}}]}, { GrayLevel[1], LineBox[{{4., 1.2186197916666663`}, {4., 1.7813802083333332`}}]}, { GrayLevel[1], LineBox[{{4., 2.2186197916666663`}, {4., 2.781380208333333}}]}, { GrayLevel[1], LineBox[{{4., 3.218619791666666}, {4., 3.781380208333333}}]}}}, Background -> Hue[0.45, 0.15, 0.75], FrameTicks -> None, ImagePadding -> 5, ImageSize -> {90, 90}], FrameMargins -> 2],PanelBox[ GraphicsBox[{{ Hue[0.6, 0.2, 0.8], EdgeForm[{ GrayLevel[0], Opacity[0.7]}], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{0.8660254037844386, 0.5000000000000001}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{0.8660254037844388, -0.4999999999999998}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{1.2246467991473532`*^-16, -1.}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{-0.8660254037844384, -0.5000000000000004}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{-0.866025403784439, 0.4999999999999993}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{-2.4492935982947064`*^-16, 1.}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{1.7320508075688772`, 1.0000000000000002`}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{1.7320508075688776`, -0.9999999999999996}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$8"], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{2.4492935982947064`*^-16, -2.}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$9"], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{-1.7320508075688767`, -1.0000000000000009`}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$10"], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{-1.732050807568878, 0.9999999999999986}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$11"], TagBox[{ Hue[0.6, 0.3, 1], EdgeForm[ Hue[0.6, 0.8, 0.7]], DiskBox[{-4.898587196589413*^-16, 2.}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$12"]}, { Hue[0.6, 0.7, 0.5], Opacity[0.7], { Hue[0.6, 0.8, 0.5], LineBox[{{0.8660254037844388, 0.24882512286960123`}, { 0.8660254037844388, -0.2488251228696008}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{0.6485015793970785, 0.6255874385651994}, { 0.21752382438736032`, 0.8744125614348007}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{1.083549228171799, 0.6255874385651994}, { 1.5145269831815171`, 0.8744125614348008}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{0.6485015793970784, -0.6255874385651992}, { 0.2175238243873604, -0.8744125614348002}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{1.0835492281717993`, -0.6255874385651992}, { 1.5145269831815171`, -0.8744125614348002}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{-0.2175238243873604, -0.8744125614348003}, \ {-0.6485015793970775, -0.6255874385651997}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{1.6731607907853803`*^-16, -1.2511748771303983`}, { 4.988177356965556*^-16, -1.7488251228696003`}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{-0.8660254037844385, -0.24882512286960123`}, \ {-0.8660254037844387, 0.24882512286960035`}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{-1.0835492281717989`, -0.6255874385651998}, \ {-1.5145269831815162`, -0.8744125614348011}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{-0.6485015793970785, 0.6255874385651988}, {-0.21752382438736068`, 0.8744125614348005}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{-1.0835492281717993`, 0.6255874385651985}, {-1.5145269831815176`, 0.8744125614347993}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{-2.220446049250313*^-16, 1.2511748771303992`}, {-2.220446049250313*^-16, 1.7488251228696008`}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{1.7320508075688776`, 0.7488251228696012}, { 1.7320508075688776`, -0.7488251228696008}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{1.5145269831815171`, 1.1255874385651996`}, { 0.2175238243873604, 1.8744125614348006`}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{1.5145269831815174`, -1.125587438565199}, { 0.21752382438736126`, -1.8744125614348}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{-0.21752382438735998`, -1.8744125614348002`}, \ {-1.5145269831815162`, -1.1255874385652}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{-1.732050807568877, -0.7488251228696017}, \ {-1.7320508075688779`, 0.7488251228695997}}]}, { Hue[0.6, 0.8, 0.5], LineBox[{{-1.5145269831815176`, 1.1255874385651983`}, {-0.21752382438736076`, 1.8744125614348004`}}]}}}, Background -> Hue[0.6, 0.2, 0.85], FrameTicks -> None, ImageSize -> {90, 90}], FrameMargins -> 2],PanelBox[ GraphicsBox[{{ Hue[0.6, 0.2, 0.8], EdgeForm[{ GrayLevel[0], Opacity[0.7]}], TagBox[{ Hue[0.1, 1, 1], EdgeForm[ RGBColor[0.5, 0, 0.5]], DiskBox[{1.9280537607514543`, 2.4354363293702583`}, 0.16236242195801714`]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[{ Hue[0.1, 1, 1], EdgeForm[ RGBColor[0.5, 0, 0.5]], DiskBox[{1.0147651372376076`, 1.6236242195801722`}, 0.16236242195801714`]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[{ Hue[0.1, 1, 1], EdgeForm[ RGBColor[0.5, 0, 0.5]], DiskBox[{2.8413423842653014`, 1.6236242195801722`}, 0.16236242195801714`]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[{ Hue[0.1, 1, 1], EdgeForm[ RGBColor[0.5, 0, 0.5]], DiskBox[{0.405906054895043, 0.8118121097900863}, 0.16236242195801714`]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[{ Hue[0.1, 1, 1], EdgeForm[ RGBColor[0.5, 0, 0.5]], DiskBox[{1.623624219580172, 0.8118121097900863}, 0.16236242195801714`]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[{ Hue[0.1, 1, 1], EdgeForm[ RGBColor[0.5, 0, 0.5]], DiskBox[{2.4354363293702583`, 0.8118121097900863}, 0.16236242195801714`]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[{ Hue[0.1, 1, 1], EdgeForm[ RGBColor[0.5, 0, 0.5]], DiskBox[{3.247248439160344, 0.8118121097900863}, 0.16236242195801714`]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[{ Hue[0.1, 1, 1], EdgeForm[ RGBColor[0.5, 0, 0.5]], DiskBox[{0., 0.}, 0.16236242195801714`]}, "DynamicName", BoxID -> "VertexID$8"], TagBox[{ Hue[0.1, 1, 1], EdgeForm[ RGBColor[0.5, 0, 0.5]], DiskBox[{0.811812109790086, 0.}, 0.16236242195801714`]}, "DynamicName", BoxID -> "VertexID$9"], TagBox[{ Hue[0.1, 1, 1], EdgeForm[ RGBColor[0.5, 0, 0.5]], DiskBox[{1.623624219580172, 0.}, 0.16236242195801714`]}, "DynamicName", BoxID -> "VertexID$10"]}, { Hue[0.6, 0.7, 0.5], Opacity[0.7], { Hue[0.9, 1, 0.5], Thickness[0.05], Opacity[0.3], LineBox[{{1.7754557791253713`, 2.2997936790359623`}, { 1.1673631188636908`, 1.7592668699144685`}}]}, { Hue[0.9, 1, 0.5], Thickness[0.05], Opacity[0.3], LineBox[{{2.0806517423775377`, 2.2997936790359623`}, { 2.688744402639218, 1.7592668699144685`}}]}, { Hue[0.9, 1, 0.5], Thickness[0.05], Opacity[0.3], LineBox[{{0.8922636020187217, 1.4602888392883242`}, { 0.5284075901139289, 0.9751474900819338}}]}, { Hue[0.9, 1, 0.5], Thickness[0.05], Opacity[0.3], LineBox[{{1.1372666724564935`, 1.4602888392883242`}, { 1.5011226843612864`, 0.9751474900819339}}]}, { Hue[0.9, 1, 0.5], Thickness[0.05], Opacity[0.3], LineBox[{{2.7500351308994637`, 1.4410097128484964`}, { 2.526743582736096, 0.9944266165217616}}]}, { Hue[0.9, 1, 0.5], Thickness[0.05], Opacity[0.3], LineBox[{{2.932649637631139, 1.4410097128484964`}, { 3.1559411857945068`, 0.9944266165217616}}]}, { Hue[0.9, 1, 0.5], Thickness[0.05], Opacity[0.3], LineBox[{{0.31459880152920505`, 0.6291976030584101}, { 0.09130725336583784, 0.18261450673167556`}}]}, { Hue[0.9, 1, 0.5], Thickness[0.05], Opacity[0.3], LineBox[{{0.4972133082608808, 0.6291976030584101}, { 0.7205048564242482, 0.1826145067316755}}]}, { Hue[0.9, 1, 0.5], Thickness[0.05], Opacity[0.3], LineBox[{{1.6236242195801722`, 0.6076428844252759}, { 1.6236242195801722`, 0.20416922536480975`}}]}}}, Background -> Hue[0.75, 0.1, 0.85], FrameTicks -> None, ImageSize -> {90, 90}], FrameMargins -> 2],PanelBox[ GraphicsBox[{{ Hue[0.6, 0.2, 0.8], EdgeForm[{ GrayLevel[0], Opacity[0.7]}], TagBox[{ Hue[0.6, 0.5, 0.8], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{0.9893976858150195, 1.2378367979950906`}, {1.2334780350898258`, 1.2378367979950906`}, { 1.355518209727229, 1.2378367979950906`}, {1.355518209727229, 1.3598769726324937`}, {1.355518209727229, 1.6039573219073}, { 1.355518209727229, 1.7259974965447031`}, {1.2334780350898258`, 1.7259974965447031`}, {0.9893976858150195, 1.7259974965447031`}, { 0.8673575111776165, 1.7259974965447031`}, {0.8673575111776165, 1.6039573219073}, {0.8673575111776165, 1.3598769726324937`}, { 0.8673575111776165, 1.2378367979950906`}, {0.9893976858150195, 1.2378367979950906`}}}]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[{ Hue[0.6, 0.5, 0.8], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{-0.12204017463740309`, 0.4968782243601423}, {0.12204017463740309`, 0.4968782243601423}, { 0.24408034927480618`, 0.4968782243601423}, {0.24408034927480618`, 0.6189183989975453}, {0.24408034927480618`, 0.8629987482723516}, { 0.24408034927480618`, 0.9850389229097546}, {0.12204017463740309`, 0.9850389229097546}, {-0.12204017463740309`, 0.9850389229097546}, {-0.24408034927480618`, 0.9850389229097546}, {-0.24408034927480618`, 0.8629987482723516}, {-0.24408034927480618`, 0.6189183989975453}, {-0.24408034927480618`, 0.4968782243601423}, {-0.12204017463740309`, 0.4968782243601423}}}]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[{ Hue[0.6, 0.5, 0.8], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{0.6189183989975453, 0.4968782243601423}, {0.8629987482723516, 0.4968782243601423}, { 0.9850389229097546, 0.4968782243601423}, {0.9850389229097546, 0.6189183989975453}, {0.9850389229097546, 0.8629987482723516}, { 0.9850389229097546, 0.9850389229097546}, {0.8629987482723516, 0.9850389229097546}, {0.6189183989975453, 0.9850389229097546}, { 0.4968782243601423, 0.9850389229097546}, {0.4968782243601423, 0.8629987482723516}, {0.4968782243601423, 0.6189183989975453}, { 0.4968782243601423, 0.4968782243601423}, {0.6189183989975453, 0.4968782243601423}}}]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[{ Hue[0.6, 0.5, 0.8], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{2.1008355462674424`, 0.4968782243601423}, {2.344915895542248, 0.4968782243601423}, { 2.4669560701796516`, 0.4968782243601423}, {2.4669560701796516`, 0.6189183989975453}, {2.4669560701796516`, 0.8629987482723516}, { 2.4669560701796516`, 0.9850389229097546}, {2.344915895542248, 0.9850389229097546}, {2.1008355462674424`, 0.9850389229097546}, { 1.978795371630039, 0.9850389229097546}, {1.978795371630039, 0.8629987482723516}, {1.978795371630039, 0.6189183989975453}, { 1.978795371630039, 0.4968782243601423}, {2.1008355462674424`, 0.4968782243601423}}}]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[{ Hue[0.6, 0.5, 0.8], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{ 0.24843911218007114`, -0.24408034927480618`}, { 0.4925194614548773, -0.24408034927480618`}, { 0.6145596360922804, -0.24408034927480618`}, { 0.6145596360922804, -0.12204017463740309`}, {0.6145596360922804, 0.12204017463740309`}, {0.6145596360922804, 0.24408034927480618`}, {0.4925194614548773, 0.24408034927480618`}, {0.24843911218007114`, 0.24408034927480618`}, {0.12639893754266804`, 0.24408034927480618`}, {0.12639893754266804`, 0.12204017463740309`}, { 0.12639893754266804`, -0.12204017463740309`}, { 0.12639893754266804`, -0.24408034927480618`}, { 0.24843911218007114`, -0.24408034927480618`}}}]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[{ Hue[0.6, 0.5, 0.8], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{ 0.9893976858150195, -0.24408034927480618`}, { 1.2334780350898258`, -0.24408034927480618`}, { 1.355518209727229, -0.24408034927480618`}, { 1.355518209727229, -0.12204017463740309`}, {1.355518209727229, 0.12204017463740309`}, {1.355518209727229, 0.24408034927480618`}, { 1.2334780350898258`, 0.24408034927480618`}, {0.9893976858150195, 0.24408034927480618`}, {0.8673575111776165, 0.24408034927480618`}, {0.8673575111776165, 0.12204017463740309`}, { 0.8673575111776165, -0.12204017463740309`}, { 0.8673575111776165, -0.24408034927480618`}, { 0.9893976858150195, -0.24408034927480618`}}}]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[{ Hue[0.6, 0.5, 0.8], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{ 1.730356259449968, -0.24408034927480618`}, { 1.9744366087247742`, -0.24408034927480618`}, { 2.0964767833621774`, -0.24408034927480618`}, { 2.0964767833621774`, -0.12204017463740309`}, {2.0964767833621774`, 0.12204017463740309`}, {2.0964767833621774`, 0.24408034927480618`}, {1.9744366087247742`, 0.24408034927480618`}, {1.730356259449968, 0.24408034927480618`}, { 1.6083160848125648`, 0.24408034927480618`}, {1.6083160848125648`, 0.12204017463740309`}, { 1.6083160848125648`, -0.12204017463740309`}, { 1.6083160848125648`, -0.24408034927480618`}, { 1.730356259449968, -0.24408034927480618`}}}]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[{ Hue[0.6, 0.5, 0.8], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{ 2.4713148330849166`, -0.24408034927480618`}, { 2.7153951823597224`, -0.24408034927480618`}, { 2.837435356997126, -0.24408034927480618`}, { 2.837435356997126, -0.12204017463740309`}, {2.837435356997126, 0.12204017463740309`}, {2.837435356997126, 0.24408034927480618`}, { 2.7153951823597224`, 0.24408034927480618`}, {2.4713148330849166`, 0.24408034927480618`}, {2.3492746584475133`, 0.24408034927480618`}, {2.3492746584475133`, 0.12204017463740309`}, { 2.3492746584475133`, -0.12204017463740309`}, { 2.3492746584475133`, -0.24408034927480618`}, { 2.4713148330849166`, -0.24408034927480618`}}}]}, "DynamicName", BoxID -> "VertexID$8"]}, { Hue[0.6, 0.7, 0.5], Opacity[0.7], { RGBColor[0.6, 0.4, 0.2], LineBox[{{0.8570560261127425, 1.3278763094527342`}, { 0.24970943988587818`, 0.9090165948135177}}]}, { RGBColor[0.6, 0.4, 0.2], LineBox[{{0.9687641445474036, 1.224471123567998}, {0.87044807439741, 1.0059909676791232`}}]}, { RGBColor[0.6, 0.4, 0.2], LineBox[{{1.3564988802800912`, 1.2999138659166998`}, { 1.9638454665069556`, 0.881054151277483}}]}, { RGBColor[0.6, 0.4, 0.2], LineBox[{{0.6128143992682771, 0.4752868278679912}, { 0.5024906718466804, 0.2656717457669573}}]}, { RGBColor[0.6, 0.4, 0.2], LineBox[{{0.8591665452633948, 0.47573645140309595`}, { 0.9633942862468033, 0.2557001093270109}}]}, { RGBColor[0.6, 0.4, 0.2], LineBox[{{2.0815563387383107`, 0.4830170669615761}, { 1.9783903122873887`, 0.2652221222318526}}]}, { RGBColor[0.6, 0.4, 0.2], LineBox[{{2.3244597721004636`, 0.4752868278679912}, { 2.4407650203733082`, 0.254306856149587}}]}}}, Background -> Hue[0.11, 0.3, 0.95], FrameTicks -> None, ImagePadding -> 3, ImageSize -> {90, 90}], FrameMargins -> 2],PanelBox[ GraphicsBox[{{ Hue[0.6, 0.2, 0.8], EdgeForm[{ GrayLevel[0], Opacity[0.7]}], TagBox[{ Hue[0.1, 1, 0.7], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{0.9058824, 0.8117648}, { 1.0941176, 0.8117648}, {1.1882352, 0.8117648}, {1.1882352, 0.9058824}, {1.1882352, 1.0941176}, {1.1882352, 1.1882352}, { 1.0941176, 1.1882352}, {0.9058824, 1.1882352}, {0.8117648, 1.1882352}, {0.8117648, 1.0941176}, {0.8117648, 0.9058824}, { 0.8117648, 0.8117648}, {0.9058824, 0.8117648}}}]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[{ Hue[0.1, 1, 0.7], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{1.9058824, 0.8117648}, { 2.0941176, 0.8117648}, {2.1882352, 0.8117648}, {2.1882352, 0.9058824}, {2.1882352, 1.0941176}, {2.1882352, 1.1882352}, { 2.0941176, 1.1882352}, {1.9058824, 1.1882352}, {1.8117648, 1.1882352}, {1.8117648, 1.0941176}, {1.8117648, 0.9058824}, { 1.8117648, 0.8117648}, {1.9058824, 0.8117648}}}]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[{ Hue[0.1, 1, 0.7], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{1.9058824, 1.8117648}, { 2.0941176, 1.8117648}, {2.1882352, 1.8117648}, {2.1882352, 1.9058824}, {2.1882352, 2.0941176}, {2.1882352, 2.1882352}, { 2.0941176, 2.1882352}, {1.9058824, 2.1882352}, {1.8117648, 2.1882352}, {1.8117648, 2.0941176}, {1.8117648, 1.9058824}, { 1.8117648, 1.8117648}, {1.9058824, 1.8117648}}}]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[{ Hue[0.1, 1, 0.7], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{0.9058824, 1.8117648}, { 1.0941176, 1.8117648}, {1.1882352, 1.8117648}, {1.1882352, 1.9058824}, {1.1882352, 2.0941176}, {1.1882352, 2.1882352}, { 1.0941176, 2.1882352}, {0.9058824, 2.1882352}, {0.8117648, 2.1882352}, {0.8117648, 2.0941176}, {0.8117648, 1.9058824}, { 0.8117648, 1.8117648}, {0.9058824, 1.8117648}}}]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[{ Hue[0.1, 1, 0.7], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{-0.09411760000000001, 1.8117648}, {0.09411760000000001, 1.8117648}, { 0.18823520000000002`, 1.8117648}, {0.18823520000000002`, 1.9058824}, {0.18823520000000002`, 2.0941176}, { 0.18823520000000002`, 2.1882352}, {0.09411760000000001, 2.1882352}, {-0.09411760000000001, 2.1882352}, {-0.18823520000000002`, 2.1882352}, {-0.18823520000000002`, 2.0941176}, {-0.18823520000000002`, 1.9058824}, {-0.18823520000000002`, 1.8117648}, {-0.09411760000000001, 1.8117648}}}]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[{ Hue[0.1, 1, 0.7], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{-0.09411760000000001, 0.8117648}, {0.09411760000000001, 0.8117648}, { 0.18823520000000002`, 0.8117648}, {0.18823520000000002`, 0.9058824}, {0.18823520000000002`, 1.0941176}, { 0.18823520000000002`, 1.1882352}, {0.09411760000000001, 1.1882352}, {-0.09411760000000001, 1.1882352}, {-0.18823520000000002`, 1.1882352}, {-0.18823520000000002`, 1.0941176}, {-0.18823520000000002`, 0.9058824}, {-0.18823520000000002`, 0.8117648}, {-0.09411760000000001, 0.8117648}}}]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[{ Hue[0.1, 1, 0.7], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{-0.09411760000000001, -0.18823520000000002`}, { 0.09411760000000001, -0.18823520000000002`}, { 0.18823520000000002`, -0.18823520000000002`}, { 0.18823520000000002`, -0.09411760000000001}, {0.18823520000000002`, 0.09411760000000001}, {0.18823520000000002`, 0.18823520000000002`}, {0.09411760000000001, 0.18823520000000002`}, {-0.09411760000000001, 0.18823520000000002`}, {-0.18823520000000002`, 0.18823520000000002`}, {-0.18823520000000002`, 0.09411760000000001}, {-0.18823520000000002`, \ -0.09411760000000001}, {-0.18823520000000002`, -0.18823520000000002`}, \ {-0.09411760000000001, -0.18823520000000002`}}}]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[{ Hue[0.1, 1, 0.7], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{ 0.9058824, -0.18823520000000002`}, { 1.0941176, -0.18823520000000002`}, { 1.1882352, -0.18823520000000002`}, { 1.1882352, -0.09411760000000001}, {1.1882352, 0.09411760000000001}, {1.1882352, 0.18823520000000002`}, { 1.0941176, 0.18823520000000002`}, {0.9058824, 0.18823520000000002`}, {0.8117648, 0.18823520000000002`}, { 0.8117648, 0.09411760000000001}, { 0.8117648, -0.09411760000000001}, { 0.8117648, -0.18823520000000002`}, { 0.9058824, -0.18823520000000002`}}}]}, "DynamicName", BoxID -> "VertexID$8"], TagBox[{ Hue[0.1, 1, 0.7], EdgeForm[None], FilledCurveBox[{{{0, 2, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}, {0, 1, 1}, {1, 2, 2}}}, {{{ 1.9058824, -0.18823520000000002`}, { 2.0941176, -0.18823520000000002`}, { 2.1882352, -0.18823520000000002`}, { 2.1882352, -0.09411760000000001}, {2.1882352, 0.09411760000000001}, {2.1882352, 0.18823520000000002`}, { 2.0941176, 0.18823520000000002`}, {1.9058824, 0.18823520000000002`}, {1.8117648, 0.18823520000000002`}, { 1.8117648, 0.09411760000000001}, { 1.8117648, -0.09411760000000001}, { 1.8117648, -0.18823520000000002`}, { 1.9058824, -0.18823520000000002`}}}]}, "DynamicName", BoxID -> "VertexID$9"]}, { Hue[0.6, 0.7, 0.5], Opacity[0.7], { Hue[0.15, 1, 1], Thickness[0.04], Opacity[1], CapForm["Butt"], LineBox[{{1.2049614837837839`, 1.0000000000000002`}, { 1.795038516216216, 1.0000000000000002`}}]}, { Hue[0.15, 1, 1], Thickness[0.04], Opacity[1], CapForm["Butt"], LineBox[{{2.003577027027027, 1.2049614837837839`}, { 2.003577027027027, 1.7950385162162161`}}]}, { Hue[0.15, 1, 1], Thickness[0.04], Opacity[1], CapForm["Butt"], LineBox[{{1.795038516216216, 2.0035770270270263`}, { 1.2049614837837839`, 2.0035770270270263`}}]}, { Hue[0.15, 1, 1], Thickness[0.04], Opacity[1], CapForm["Butt"], LineBox[{{0.7950385162162161, 2.003577027027027}, { 0.20496148378378384`, 2.003577027027027}}]}, { Hue[0.15, 1, 1], Thickness[0.04], Opacity[1], CapForm["Butt"], LineBox[{{-0.0035770270270270303`, 1.7950385162162161`}, {-0.0035770270270270303`, 1.2049614837837839`}}]}, { Hue[0.15, 1, 1], Thickness[0.04], Opacity[1], CapForm["Butt"], LineBox[{{-0.0035770270270270303`, 0.7950385162162161}, {-0.0035770270270270303`, 0.20496148378378387`}}]}, { Hue[0.15, 1, 1], Thickness[0.04], Opacity[1], CapForm["Butt"], LineBox[{{0.20496148378378387`, -0.00357702702702678}, { 0.7950385162162161, -0.00357702702702678}}]}, { Hue[0.15, 1, 1], Thickness[0.04], Opacity[1], CapForm["Butt"], LineBox[{{1.2049614837837839`, -0.00357702702702678}, { 1.795038516216216, -0.00357702702702678}}]}}}, Background -> Hue[0.6, 0.2, 0.8], FrameTicks -> None, ImagePadding -> 8, ImageSize -> {90, 90}], FrameMargins -> 2]}, "Row", DisplayFunction->(RowBox[{#, InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {5, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[5]], #2, InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {5, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[5]], #3, InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {5, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[5]], #4, InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {5, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[5]], #5, InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {5, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[5]], #6, InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {5, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[5]], #7, InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {5, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[5]], #8}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, ",", #8}], "}"}], ",", InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {5, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[5]]}], "]"}]& )]}]], "Text", CellChangeTimes->{{3.527599397968009*^9, 3.527599399503677*^9}, { 3.52759943146235*^9, 3.5275994428083*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ PanelBox[ GraphicsBox[{ {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], TagBox[ {Hue[0.7, 0.7, 1], EdgeForm[{GrayLevel[1], Opacity[1], Thickness[ 0.025]}], DiskBox[{1.1114378604524227`, 1.4819171472698969`}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[ {Hue[0.7, 0.7, 1], EdgeForm[{GrayLevel[1], Opacity[1], Thickness[ 0.025]}], DiskBox[{0., 0.7409585736349484}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[ {Hue[0.7, 0.7, 1], EdgeForm[{GrayLevel[1], Opacity[1], Thickness[ 0.025]}], DiskBox[{0.7409585736349484, 0.7409585736349484}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[ {Hue[0.7, 0.7, 1], EdgeForm[{GrayLevel[1], Opacity[1], Thickness[ 0.025]}], DiskBox[{2.2228757209048453`, 0.7409585736349484}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[ {Hue[0.7, 0.7, 1], EdgeForm[{GrayLevel[1], Opacity[1], Thickness[ 0.025]}], DiskBox[{0.3704792868174742, 0.}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[ {Hue[0.7, 0.7, 1], EdgeForm[{GrayLevel[1], Opacity[1], Thickness[ 0.025]}], DiskBox[{1.1114378604524227`, 0.}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[ {Hue[0.7, 0.7, 1], EdgeForm[{GrayLevel[1], Opacity[1], Thickness[ 0.025]}], DiskBox[{1.852396434087371, 0.}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[ {Hue[0.7, 0.7, 1], EdgeForm[{GrayLevel[1], Opacity[1], Thickness[ 0.025]}], DiskBox[{2.5933550077223195`, 0.}, 0.1852396434087371]}, "DynamicName", BoxID -> "VertexID$8"]}, {Hue[0.6, 0.7, 0.5], Opacity[0.7], {GrayLevel[1], Thickness[Large], LineBox[{{0.9097385742665541, 1.3474509564793178`}, { 0.20169928618586833`, 0.8754247644255273}}]}, {GrayLevel[1], Thickness[Large], LineBox[{{1.003027751593869, 1.2650969295527896`}, {0.849368682493502, 0.9577787913520556}}]}, {GrayLevel[1], Thickness[Large], LineBox[{{1.313137146638291, 1.3474509564793178`}, {2.021176434718977, 0.8754247644255273}}]}, {GrayLevel[1], Thickness[Large], LineBox[{{0.6325484647763945, 0.5241383559178407}, {0.4788893956760279, 0.21682021771710755`}}]}, {GrayLevel[1], Thickness[Large], LineBox[{{0.849368682493502, 0.5241383559178409}, {1.0030277515938688`, 0.21682021771710755`}}]}, {GrayLevel[1], Thickness[Large], LineBox[{{2.1144656120462915`, 0.5241383559178409}, { 1.9608065429459252`, 0.2168202177171076}}]}, {GrayLevel[1], Thickness[Large], LineBox[{{2.331285829763399, 0.5241383559178409}, {2.4849448988637657`, 0.21682021771710755`}}]}}}, Background->Hue[0, 0.2, 0.8], FrameTicks->None, ImagePadding->3, ImageSize->{60, 60}], FrameMargins->2]], CellChangeTimes->{ 3.495536298166102*^9, {3.495536372507453*^9, 3.495536397132792*^9}, { 3.495536456949012*^9, 3.495536471512628*^9}, {3.4955365039006*^9, 3.495536535522883*^9}, {3.4955365668582077`*^9, 3.495536620180993*^9}, { 3.495536650793551*^9, 3.4955367004896383`*^9}, {3.495536757373735*^9, 3.4955368393063*^9}, {3.495536891477138*^9, 3.4955370819468718`*^9}, { 3.4955389657952023`*^9, 3.4955389737377462`*^9}, 3.4955404523966618`*^9, 3.495542819755183*^9, 3.495542862968042*^9, {3.495544531046461*^9, 3.495544557766526*^9}, 3.495545070335896*^9, 3.495545247723987*^9, 3.49554541321455*^9, 3.4955456045549917`*^9, 3.495546839580573*^9, 3.495548342705319*^9, 3.495550256453249*^9, {3.495550327515601*^9, 3.4955504470908403`*^9}, 3.495550520832299*^9, 3.495551011050816*^9, 3.495551152101191*^9, 3.4955528875275183`*^9, {3.495553044085544*^9, 3.4955530962715893`*^9}, 3.495553546706012*^9, 3.495557062524151*^9, 3.4955574566936617`*^9, {3.495557848366531*^9, 3.495557865136216*^9}, { 3.495557910002079*^9, 3.495557961498189*^9}, 3.495558234624056*^9, { 3.4955589430788*^9, 3.495558958410857*^9}, 3.495559303383155*^9, { 3.495559342710947*^9, 3.495559596371167*^9}, {3.495559628912764*^9, 3.4955596440814342`*^9}, 3.4955611107204313`*^9, 3.495563843933673*^9, 3.495804370704102*^9, 3.5275180677279778`*^9, 3.5275181306611423`*^9, { 3.527518505623024*^9, 3.527518511289598*^9}, 3.527520071366914*^9, { 3.527599192075901*^9, 3.527599198455974*^9}, 3.527846431677059*^9}], " Outline of the talk" }], "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.527527214495729*^9, 3.5275272216368933`*^9}, {3.527846442585*^9, 3.5278464431395206`*^9}}], Cell[TextData[Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "Acton Central", "Acton Town", "Aldgate", "Aldgate East", "All Saints", "Alperton", "Amersham", "Anerley", "Angel", "Archway", "Arnos Grove", "Arsenal", "Baker Street", "Balham", "Bank", "Barbican", "Barking", "Barkingside", "Barons Court", "Bayswater", "Beckton", "Beckton Park", "Becontree", "Belsize Park", "Bermondsey", "Bethnal Green", "Blackfriars", "Blackhorse Road", "Blackwall", "Bond Street", "Borough", "Boston Manor", "Bounds Green", "Bow Church", "Bow Road", "Brent Cross", "Brixton", "Brockley", "Bromley-by-Bow", "Brondesbury", "Brondesbury Park", "Buckhurst Hill", "Burnt Oak", "Bushey", "Caledonian Road", "Caledonian Road & Barnsbury", "Camden Road", "Camden Town", "Canada Water", "Canary Wharf", "Canning Town", "Cannon Street", "Canonbury", "Canons Park", "Carpenders Park", "Chaifont & Latimer", "Chalk Farm", "Chancery Lane", "Charing Cross", "Chesham", "Chigwell", "Chiswick Park", "Chorleywood", "Clapham Common", "Clapham Junction", "Clapham North", "Clapham South", "Cockfosters", "Colindale", "Colliers Wood", "Covent Garden", "Crossharbour", "Crouch Hill", "Croxley", "Crystal Palace", "Custom House for ExCeL", "Cutty Sark for Maritime Greenwich", "Cyprus", "Dagenham East", "Dagenham Heathway", "Dalston Junction", "Dalston Kingsland", "Debden", "Deptford Bridge", "Devons Road", "Dollis Hill", "Ealing Broadway", "Ealing Common", "Earl's Court", "East Acton", "Eastcote", "East Finchley", "East Ham", "East India", "East Putney", "Edgware", "Edgware Road", "Elephant & Castle", "Elm Park", "Elverson Road", "Embankment", "Epping", "Euston", "Euston Square", "Fairlop", "Farringdon", "Finchley Central", "Finchley Road", "Finchley Road & Frognal", "Finsbury Park", "Forest Hill", "Fulham Broadway", "Gallions Reach", "Gants Hill", "Gloucester Road", "Golders Green", "Goldhawk Road", "Goodge Street", "Gospel Oak", "Grange Hill", "Great Portland Street", "Greenford", "Green Park", "Greenwich", "Gunnesbury", "Hackney Central", "Hackney Wick", "Haggerston", "Hainault", "Hammersmith", "Hampstead", "Hamstead Heath", "Hanger Lane", "Harlesden", "Harringay Green Lanes", "Harrow-on-the-Hill", "Harrow & Wealdstone", "Hatch End", "Hatton Cross", "Headstone Lane", "Heathrow Terminals 1,2,3", "Hendon Central", "Heron Quays", "High Barnet", "Highbury & Islington", "Highgate", "High Street Kensington", "Hillingdon", "Holborn", "Holland Park", "Holloway Road", "Homerton", "Honor Oak Park", "Hornchurch", "Hounslow Central", "Hounslow East", "Hounslow West", "Hoxton", "Hyde Park Corner", "Ickenham", "Imperial Wharf", "Island Gardens", "Kennington", "Kensal Green", "Kensal Rise", "Kensington (Olympia)", "Kentish Town", "Kentish Town West", "Kenton", "Kew Gardens", "Kilburn", "Kilburn High Road", "Kilburn Park", "King George V", "Kingsbury", "King's Cross St. Pancras", "Knightsbridge", "Ladbroke Grove", "Lambeth North", "Lancaster Gate", "Langdon Park", "Latimer Road", "Leicester Square", "Lewisham", "Leyton", "Leyton Midland Road", "Leytonstone", "Leytonstone High Road", "Limehouse", "Liverpool Street", "London Bridge", "London City Airport", "Loughton", "Maida Vale", "Manor House", "Mansion House", "Marble Arch", "Marylebone", "Mile End", "Mill Hill East", "Monument", "Moorgate", "Moor Park", "Morden", "Mornington Crescent", "Mudchute", "Neasden", "Newbury Park", "New Cross", "New Cross Gate", "North Acton", "North Ealing", "Northfields", "North Greenwich", "North Harrow", "Northolt", "North Wembley", "Northwick Park", "Northwood", "Northwood Hills", "Norwood Junction", "Notting Hill Gate", "Oakwood", "Old Street", "Osterley", "Oval", "Oxford Circus", "Paddington", "Park Royal", "Parsons Green", "Penge West", "Perivale", "Piccadilly Circus", "Pimlico", "Pinner", "Plaistow", "Pontoon Dock", "Poplar", "Preston Road", "Prince Regent", "Pudding Mill Lane", "Putney Bridge", "Queensbury", "Queen's Park", "Queensway", "Ravenscourt Park", "Rayners Lane", "Redbridge", "Regent's Park", "Richmond", "Rickmansworth", "Roding Valley", "Rotherhithe", "Royal Albert", "Royal Oak", "Royal Victoria", "Ruislip", "Ruislip Gardens", "Ruislip Manor", "Russell Square", "Schreditch High Street", "Seven Sisters", "Shadwell", "Sheperd's Bush", "Shepherd's Bush", "Sloane Square", "Snaresbrook", "South Acton", "South Ealing", "Southfields", "Southgate", "South Hampstead", "South Harrow", "South Kensington", "South Kenton", "South Quay", "South Ruislip", "South Tottenham", "Southwark", "South Wimbeldon", "South Woodford", "Stamford Brook", "Stanmore", "Stepney Green", "St. James's Park", "St. John's Wood", "Stockwell", "Stonebridge Park", "St. Paul's", "Stratford", "Sudbury Hill", "Sudbury Town", "Surrey Quays", "Swiss Cottage", "Sydenham", "Temple", "Theydon Bois", "Tooting Bec", "Tooting Broadway", "Tottenham Court Road", "Tottenham Hale", "Totteridge & Whetstone", "Tower Gateway", "Tower Hill", "Tufnell Park", "Turnham Green", "Turnpike Lane", "Upminster", "Upminster Bridge", "Upney", "Upper Holloway", "Upton Park", "Uxbridge", "Vauxhall", "Victoria", "Walthamstow Central", "Walthamstow Queen's Road", "Wanstead", "Wanstead Park", "Wapping", "Warren Street", "Warwick Avenue", "Waterloo", "Watford", "Watford High Street", "Watford Junction", "Wembley Central", "Wembley Park", "West Acton", "Westbourne Park", "West Brompton", "West Croydon", "Westferry", "West Finchley", "West Ham", "West Hampstead", "West Harrow", "West India Quay", "West Kensington", "Westminster", "West Ruislip", "West Silvertown", "Whitechapel", "White City", "Willesden Green", "Willesden Junction", "Wimbeldon", "Wimbeldon Park", "Woodford", "Wood Green", "Woodrange Park", "Woodside Park", "Woolwich Arsenal"}, {Null, CompressedData[" 1:eJxN1nV4llUYBvDnwOhJIzWUUYKMkNEgDAaM3GhGDrCwmC0mFjahWKjYTOxh ze5WRLEbnIUxxAT7vq/79rr447l+33ve+N5z3uc852QvLJ28uFpErEkRFERm krPcNiRksd3D7b1gdfhEyJ44zvBxxm7HM2AN+EDIKkRNxJe2A87Xgv0RtRGf 2K8RdRDldguiLuJSux/uqwezQzbAcSZcHPJKvitiL7vAHmFPsi/YXf9fj+fU h/kh98VxA/eLPmlfsbV8Ptvmw4bwsJC8rhFiru2bZAlsDA8N+QaiCWKmPctO wXVN4achv0A0QxyN2BNRaP9BNEdMtPyfFnBAyLMRLTlulv1o5X7RFxGtEc/Z zrg/i8+23exguz9sA+eFrPJYn2Kft5WIvRELLf+3LeIdu9XfcB6e1w5OC7kD 0R6xj+X7dUAcZ1cgOvKZuK8TXBNys+8pQntn2CXkxKTf6/hNEU/blmjvCkeG nI/IQfSzI3G+WyifKPOxO6KHvcS/1yN6erzpIfZWu9Fj38v+bTsmta30uXft ZLTnenxz3U7D7UV2Ouzt70ZfRvTh/Zbv1xfxs22d1LcLQ3NusB2KGIi43DKf B8GDQlbYbfz2iCX2r1CNYD3gM/5E5CGGW86jYYgb3cbvNQJ+5jHndxyFaJFk V1jg9yjw/45GvG6b4vwYeF7IfjgeC18NOQLH45gDcDz8MSTHbQI4NeRNobnD eVQUmjf0AMQkjx89w79PR0wJ5Q3tgudNhQeG5HOZu6xz0xGb7ExcNyNUP+mY pN9vh+b6sXa1LbPjkuT8nwXfClmM49nw95DVcTwHHh6S9ZG1pj/aS+BPIesn 1UDWO8o6wjl5s73Pfb/afXrI3551gObbqfBg9585zvlAN9qGbh8GF4Xq7CJf x1p3Zqg2lvudX7KFSbW5kx1tOW+PhOeE5DFrPPOaPmtror00VAdK/f2Pgl+F 5HgeE6qzdKfHfrVtnFRbWCePD9VfWhvtJ8Acy36d6Peh6y3zcIn7dzLifftN qCZebyvtNjsoSY7rafD2kJk+5rxi7l2FWLqb7ZJy8zq/62+W1y9zvizz/5+L aJsk13XOHdb18+F7IT+0k9B+Abw45G2hWsHjixDL7dpQzeJ8XAW7J32Tco8p 16vLEDfYAUlzOsNyPK/wdbROUu71gdfAa0Ou9e+t7muNpLHc4GenpNrC78s5 zTrBnP7cMm9vgb+EZP/X2TL/b5nvZ63mvoJ9bpL0Lf5A3OG8o5zPd/p5lPl+ F3wmJNvvRjxlF+D8PaH6S5nX5R6HDc67e+GDIccmzUW+9/2hdZT+6muYjxXO nwqP48Pw0ZDMi0fgYyG5TvNcPTsk6dxQ+Hho/0InJO0FuF/hGt08qQ8/uG/D k+ZabtJanGX5f1xzuN/jvVtCtfgjy/XgtVB93+T+vxla9zZb5irrImsi94Xc G3Cfydz8LjSXmuH4A38XWpCUs9v9Xx87eD33kOOTcovjxrWG+0PmBNefSo8f 3WVz3M75zdr4b0j2mzWEdZR7UtaVb+FAy/n7fajeUq7LHDOuy1UeV8r1fLv7 zzWJ+7UdHj/O3VZJNb2R5Tzc6e/FNXZu0p4hL+ndmCfMfdb/aknjQ6clzRHu u1kTuW/jN+5h8yzPM/eLLedD3aR8pOwXc4b7I64dc5LerX1SbjA/+c6sN1l+ XhvfR1nPuJdmPeeYc7xYg/jd2OciP4v7f+6xue6zhsxPyjHuB3sn1QPmaon/ k8/lnmxU0thyXAt932y/538ukFRX "]}, { Properties -> { UndirectedEdge["Embankment", "Waterloo"] -> { "Lines" -> {"Bakerloo", "Northern"}}, UndirectedEdge["Brondesbury", "Brondesbury Park"] -> { "Lines" -> {"Overground"}}, "Highgate" -> {"Zone" -> 3, Tooltip -> "Highgate"}, UndirectedEdge["Euston Square", "Great Portland Street"] -> { "Lines" -> {"Circle", "Hammersmith & City", "Metropolitan"}}, "Gunnesbury" -> {"Zone" -> 3, Tooltip -> "Gunnesbury"}, UndirectedEdge["Eastcote", "Ruislip Manor"] -> { "Lines" -> {"Metropolitan", "Piccadilly"}}, UndirectedEdge["London City Airport", "Pontoon Dock"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Crouch Hill", "Upper Holloway"] -> { "Lines" -> {"Overground"}}, "Harrow-on-the-Hill" -> { "Zone" -> 5, Tooltip -> "Harrow-on-the-Hill"}, "Parsons Green" -> {"Zone" -> 2, Tooltip -> "Parsons Green"}, UndirectedEdge[ "Caledonian Road & Barnsbury", "Highbury & Islington"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Plaistow", "West Ham"] -> { "Lines" -> {"District", "Hammersmith & City"}}, "Whitechapel" -> {"Zone" -> 2, Tooltip -> "Whitechapel"}, UndirectedEdge["Baker Street", "Edgware Road"] -> { "Lines" -> {"Circle", "Hammersmith & City"}}, UndirectedEdge["Oxford Circus", "Regent's Park"] -> { "Lines" -> {"Bakerloo"}}, "Boston Manor" -> {"Zone" -> 4, Tooltip -> "Boston Manor"}, UndirectedEdge["Finsbury Park", "Seven Sisters"] -> { "Lines" -> {"Victoria"}}, UndirectedEdge["Bank", "London Bridge"] -> {"Lines" -> {"Northern"}}, UndirectedEdge["Cannon Street", "Monument"] -> { "Lines" -> {"Circle", "District"}}, UndirectedEdge["Bushey", "Carpenders Park"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["North Harrow", "Pinner"] -> { "Lines" -> {"Metropolitan"}}, UndirectedEdge["Acton Town", "Ealing Common"] -> { "Lines" -> {"District", "Piccadilly"}}, UndirectedEdge["Mile End", "Stratford"] -> {"Lines" -> {"Central"}}, "Uxbridge" -> {"Zone" -> 6, Tooltip -> "Uxbridge"}, UndirectedEdge["Finchley Road & Frognal", "Hamstead Heath"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Gants Hill", "Newbury Park"] -> { "Lines" -> {"Central"}}, "Barking" -> {"Zone" -> 4, Tooltip -> "Barking"}, "Chancery Lane" -> {"Zone" -> 1, Tooltip -> "Chancery Lane"}, UndirectedEdge["Canning Town", "East India"] -> { "Lines" -> {"Docklands Light Rail"}}, "Gants Hill" -> {"Zone" -> 4, Tooltip -> "Gants Hill"}, "Chiswick Park" -> {"Zone" -> 3, Tooltip -> "Chiswick Park"}, UndirectedEdge["Parsons Green", "Putney Bridge"] -> { "Lines" -> {"District"}}, "Brixton" -> {"Zone" -> 2, Tooltip -> "Brixton"}, UndirectedEdge["Buckhurst Hill", "Loughton"] -> { "Lines" -> {"Central"}}, "King's Cross St. Pancras" -> { "Zone" -> 1, Tooltip -> "King's Cross St. Pancras"}, UndirectedEdge["Aldgate East", "Tower Hill"] -> { "Lines" -> {"District"}}, UndirectedEdge["Cockfosters", "Oakwood"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Baker Street", "St. John's Wood"] -> { "Lines" -> {"Jubilee"}}, UndirectedEdge["Beckton", "Gallions Reach"] -> { "Lines" -> {"Docklands Light Rail"}}, "Charing Cross" -> {"Zone" -> 1, Tooltip -> "Charing Cross"}, UndirectedEdge["Latimer Road", "Sheperd's Bush"] -> { "Lines" -> {"Hammersmith & City"}}, UndirectedEdge["Canonbury", "Dalston Kingsland"] -> { "Lines" -> {"Overground"}}, "Brondesbury" -> {"Zone" -> 2, Tooltip -> "Brondesbury"}, UndirectedEdge["Elm Park", "Hornchurch"] -> { "Lines" -> {"District"}}, UndirectedEdge["Hammersmith", "Turnham Green"] -> { "Lines" -> {"Piccadilly"}}, "West Ham" -> {"Zone" -> 3, Tooltip -> "West Ham"}, UndirectedEdge["Edgware Road", "Paddington"] -> { "Lines" -> { "Bakerloo", "Circle", "District", "Hammersmith & City"}}, "Shepherd's Bush" -> {"Zone" -> 2, Tooltip -> "Shepherd's Bush"}, UndirectedEdge["Stamford Brook", "Turnham Green"] -> { "Lines" -> {"District"}}, UndirectedEdge["Euston", "Mornington Crescent"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Bank", "Moorgate"] -> {"Lines" -> {"Northern"}}, "Mudchute" -> {"Zone" -> 2, Tooltip -> "Mudchute"}, UndirectedEdge["Fulham Broadway", "Parsons Green"] -> { "Lines" -> {"District"}}, "Grange Hill" -> {"Zone" -> 5, Tooltip -> "Grange Hill"}, UndirectedEdge["Aldgate East", "Whitechapel"] -> { "Lines" -> {"District", "Hammersmith & City"}}, "Bushey" -> {"Zone" -> 8, Tooltip -> "Bushey"}, "Wood Green" -> {"Zone" -> 3, Tooltip -> "Wood Green"}, "South Ruislip" -> {"Zone" -> 5, Tooltip -> "South Ruislip"}, UndirectedEdge["Epping", "Theydon Bois"] -> {"Lines" -> {"Central"}}, "Holborn" -> {"Zone" -> 1, Tooltip -> "Holborn"}, UndirectedEdge["Barking", "East Ham"] -> { "Lines" -> {"District", "Hammersmith & City"}}, UndirectedEdge["Kenton", "South Kenton"] -> { "Lines" -> {"Bakerloo", "Overground"}}, "Leytonstone" -> {"Zone" -> {3, 4}, Tooltip -> "Leytonstone"}, UndirectedEdge["Hounslow Central", "Hounslow West"] -> { "Lines" -> {"Piccadilly"}}, "Wanstead Park" -> {"Zone" -> 3, Tooltip -> "Wanstead Park"}, UndirectedEdge["Oxford Circus", "Warren Street"] -> { "Lines" -> {"Victoria"}}, "Queensbury" -> {"Zone" -> 4, Tooltip -> "Queensbury"}, UndirectedEdge["Cutty Sark for Maritime Greenwich", "Greenwich"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Gospel Oak", "Upper Holloway"] -> { "Lines" -> {"Overground"}}, "Caledonian Road" -> {"Zone" -> 2, Tooltip -> "Caledonian Road"}, "Royal Victoria" -> {"Zone" -> 3, Tooltip -> "Royal Victoria"}, UndirectedEdge["Forest Hill", "Honor Oak Park"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Boston Manor", "Northfields"] -> { "Lines" -> {"Piccadilly"}}, "Wanstead" -> {"Zone" -> 4, Tooltip -> "Wanstead"}, "West Finchley" -> {"Zone" -> 4, Tooltip -> "West Finchley"}, UndirectedEdge["Green Park", "Oxford Circus"] -> { "Lines" -> {"Victoria"}}, "Turnpike Lane" -> {"Zone" -> 3, Tooltip -> "Turnpike Lane"}, "Upton Park" -> {"Zone" -> 3, Tooltip -> "Upton Park"}, UndirectedEdge["Fairlop", "Hainault"] -> {"Lines" -> {"Central"}}, "Clapham Junction" -> {"Zone" -> 2, Tooltip -> "Clapham Junction"}, UndirectedEdge["Arnos Grove", "Bounds Green"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Canning Town", "West Ham"] -> { "Lines" -> {"Jubilee"}}, "Willesden Green" -> { "Zone" -> {2, 3}, Tooltip -> "Willesden Green"}, UndirectedEdge["West Finchley", "Woodside Park"] -> { "Lines" -> {"Northern"}}, "Kensal Rise" -> {"Zone" -> 2, Tooltip -> "Kensal Rise"}, UndirectedEdge["Aldgate", "Liverpool Street"] -> { "Lines" -> {"Circle", "Metropolitan"}}, UndirectedEdge["Manor House", "Turnpike Lane"] -> { "Lines" -> {"Piccadilly"}}, "Tower Gateway" -> {"Zone" -> 1, Tooltip -> "Tower Gateway"}, UndirectedEdge["Kilburn Park", "Maida Vale"] -> { "Lines" -> {"Bakerloo"}}, "Westminster" -> {"Zone" -> 1, Tooltip -> "Westminster"}, UndirectedEdge["Limehouse", "Westferry"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Canonbury", "Highbury & Islington"] -> { "Lines" -> {"Overground"}}, "Hatch End" -> {"Zone" -> 6, Tooltip -> "Hatch End"}, "Richmond" -> {"Zone" -> 4, Tooltip -> "Richmond"}, UndirectedEdge["Edgware Road", "Marylebone"] -> { "Lines" -> {"Bakerloo"}}, UndirectedEdge["Ruislip", "Ruislip Manor"] -> { "Lines" -> {"Metropolitan", "Piccadilly"}}, "London Bridge" -> {"Zone" -> 1, Tooltip -> "London Bridge"}, "Epping" -> {"Zone" -> 6, Tooltip -> "Epping"}, "Monument" -> {"Zone" -> 1, Tooltip -> "Monument"}, UndirectedEdge["Crouch Hill", "Harringay Green Lanes"] -> { "Lines" -> {"Overground"}}, "Westferry" -> {"Zone" -> 2, Tooltip -> "Westferry"}, "Hammersmith" -> {"Zone" -> 2, Tooltip -> "Hammersmith"}, "Theydon Bois" -> {"Zone" -> 6, Tooltip -> "Theydon Bois"}, UndirectedEdge["Harlesden", "Willesden Junction"] -> { "Lines" -> {"Bakerloo", "Overground"}}, "Mansion House" -> {"Zone" -> 1, Tooltip -> "Mansion House"}, UndirectedEdge["Shepherd's Bush", "Willesden Junction"] -> { "Lines" -> {"Overground"}}, "Limehouse" -> {"Zone" -> 2, Tooltip -> "Limehouse"}, UndirectedEdge["Rotherhithe", "Wapping"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Barons Court", "Hammersmith"] -> { "Lines" -> {"District", "Piccadilly"}}, "Kenton" -> {"Zone" -> 4, Tooltip -> "Kenton"}, UndirectedEdge["Baker Street", "Regent's Park"] -> { "Lines" -> {"Bakerloo"}}, "Hounslow West" -> {"Zone" -> 5, Tooltip -> "Hounslow West"}, "Bromley-by-Bow" -> {"Zone" -> {2, 3}, Tooltip -> "Bromley-by-Bow"}, "Acton Town" -> {"Zone" -> 3, Tooltip -> "Acton Town"}, "Kilburn High Road" -> {"Zone" -> 2, Tooltip -> "Kilburn High Road"}, "West Kensington" -> {"Zone" -> 2, Tooltip -> "West Kensington"}, UndirectedEdge["Poplar", "West India Quay"] -> { "Lines" -> {"Docklands Light Rail"}}, "Chalk Farm" -> {"Zone" -> 2, Tooltip -> "Chalk Farm"}, "Notting Hill Gate" -> { "Zone" -> {1, 2}, Tooltip -> "Notting Hill Gate"}, UndirectedEdge["Tooting Bec", "Tooting Broadway"] -> { "Lines" -> {"Northern"}}, "Putney Bridge" -> {"Zone" -> 2, Tooltip -> "Putney Bridge"}, UndirectedEdge["Gospel Oak", "Hamstead Heath"] -> { "Lines" -> {"Overground"}}, "Woodford" -> {"Zone" -> 4, Tooltip -> "Woodford"}, UndirectedEdge["Hounslow Central", "Hounslow East"] -> { "Lines" -> {"Piccadilly"}}, "West India Quay" -> {"Zone" -> 2, Tooltip -> "West India Quay"}, UndirectedEdge["Pimlico", "Victoria"] -> {"Lines" -> {"Victoria"}}, UndirectedEdge["Crossharbour", "South Quay"] -> { "Lines" -> {"Docklands Light Rail"}}, "Camden Road" -> {"Zone" -> 2, Tooltip -> "Camden Road"}, UndirectedEdge["Elephant & Castle", "Kennington"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Brixton", "Stockwell"] -> {"Lines" -> {"Victoria"}}, "Paddington" -> {"Zone" -> 1, Tooltip -> "Paddington"}, UndirectedEdge["Camden Road", "Kentish Town West"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Leicester Square", "Piccadilly Circus"] -> { "Lines" -> {"Piccadilly"}}, "Piccadilly Circus" -> {"Zone" -> 1, Tooltip -> "Piccadilly Circus"}, "Bethnal Green" -> {"Zone" -> 2, Tooltip -> "Bethnal Green"}, UndirectedEdge["Barkingside", "Fairlop"] -> {"Lines" -> {"Central"}}, UndirectedEdge["Kensal Green", "Willesden Junction"] -> { "Lines" -> {"Bakerloo", "Overground"}}, UndirectedEdge["Becontree", "Upney"] -> {"Lines" -> {"District"}}, "Upminster" -> {"Zone" -> 6, Tooltip -> "Upminster"}, UndirectedEdge["Amersham", "Chaifont & Latimer"] -> { "Lines" -> {"Metropolitan"}}, UndirectedEdge["Heron Quays", "South Quay"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Preston Road", "Wembley Park"] -> { "Lines" -> {"Metropolitan"}}, "Clapham North" -> {"Zone" -> 2, Tooltip -> "Clapham North"}, "Hampstead" -> {"Zone" -> {2, 3}, Tooltip -> "Hampstead"}, UndirectedEdge["Bow Church", "Pudding Mill Lane"] -> { "Lines" -> {"Docklands Light Rail"}}, "Lancaster Gate" -> {"Zone" -> 1, Tooltip -> "Lancaster Gate"}, UndirectedEdge["Kentish Town", "Tufnell Park"] -> { "Lines" -> {"Northern"}}, "Schreditch High Street" -> { "Zone" -> 1, Tooltip -> "Schreditch High Street"}, "Wembley Park" -> {"Zone" -> 4, Tooltip -> "Wembley Park"}, UndirectedEdge["Arnos Grove", "Southgate"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Leytonstone", "Wanstead"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Maida Vale", "Warwick Avenue"] -> { "Lines" -> {"Bakerloo"}}, UndirectedEdge["Brondesbury", "West Hampstead"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["St. James's Park", "Victoria"] -> { "Lines" -> {"Circle", "District"}}, "Rickmansworth" -> {"Zone" -> 7, Tooltip -> "Rickmansworth"}, UndirectedEdge["Balham", "Clapham South"] -> { "Lines" -> {"Northern"}}, "Farringdon" -> {"Zone" -> 1, Tooltip -> "Farringdon"}, UndirectedEdge[ "Highbury & Islington", "King's Cross St. Pancras"] -> { "Lines" -> {"Victoria"}}, UndirectedEdge["Stonebridge Park", "Wembley Central"] -> { "Lines" -> {"Bakerloo", "Overground"}}, "Plaistow" -> {"Zone" -> 3, Tooltip -> "Plaistow"}, UndirectedEdge["Oxford Circus", "Tottenham Court Road"] -> { "Lines" -> {"Central"}}, "Hoxton" -> {"Zone" -> {1, 2}, Tooltip -> "Hoxton"}, "Baker Street" -> {"Zone" -> 1, Tooltip -> "Baker Street"}, "Bounds Green" -> {"Zone" -> {3, 4}, Tooltip -> "Bounds Green"}, UndirectedEdge["Schreditch High Street", "Whitechapel"] -> { "Lines" -> {"Overground"}}, "East Ham" -> {"Zone" -> {3, 4}, Tooltip -> "East Ham"}, "Regent's Park" -> {"Zone" -> 1, Tooltip -> "Regent's Park"}, UndirectedEdge["Canada Water", "Rotherhithe"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Anerley", "Penge West"] -> { "Lines" -> {"Overground"}}, "Walthamstow Queen's Road" -> { "Zone" -> 3, Tooltip -> "Walthamstow Queen's Road"}, UndirectedEdge["Leyton", "Stratford"] -> {"Lines" -> {"Central"}}, UndirectedEdge["North Wembley", "Wembley Central"] -> { "Lines" -> {"Bakerloo", "Overground"}}, "Colliers Wood" -> {"Zone" -> 3, Tooltip -> "Colliers Wood"}, UndirectedEdge["Farringdon", "King's Cross St. Pancras"] -> { "Lines" -> {"Circle", "Hammersmith & City", "Metropolitan"}}, "Camden Town" -> {"Zone" -> 2, Tooltip -> "Camden Town"}, UndirectedEdge["Croxley", "Moor Park"] -> { "Lines" -> {"Metropolitan"}}, "Bayswater" -> {"Zone" -> 1, Tooltip -> "Bayswater"}, "Vauxhall" -> {"Zone" -> {1, 2}, Tooltip -> "Vauxhall"}, UndirectedEdge["All Saints", "Langdon Park"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["St. James's Park", "Westminster"] -> { "Lines" -> {"Circle", "District"}}, UndirectedEdge["Bromley-by-Bow", "West Ham"] -> { "Lines" -> {"District", "Hammersmith & City"}}, UndirectedEdge["Balham", "Tooting Bec"] -> {"Lines" -> {"Northern"}}, "Mile End" -> {"Zone" -> 2, Tooltip -> "Mile End"}, "Bond Street" -> {"Zone" -> 1, Tooltip -> "Bond Street"}, UndirectedEdge["Sudbury Hill", "Sudbury Town"] -> { "Lines" -> {"Piccadilly"}}, "Ravenscourt Park" -> {"Zone" -> 2, Tooltip -> "Ravenscourt Park"}, UndirectedEdge["Crystal Palace", "Sydenham"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Harrow-on-the-Hill", "Northwick Park"] -> { "Lines" -> {"Metropolitan"}}, "Hounslow Central" -> {"Zone" -> 4, Tooltip -> "Hounslow Central"}, "Upper Holloway" -> {"Zone" -> 2, Tooltip -> "Upper Holloway"}, "Roding Valley" -> {"Zone" -> 5, Tooltip -> "Roding Valley"}, UndirectedEdge["Arsenal", "Holloway Road"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Kew Gardens", "Richmond"] -> { "Lines" -> {"District", "Overground"}}, "Hillingdon" -> {"Zone" -> 6, Tooltip -> "Hillingdon"}, "Fulham Broadway" -> {"Zone" -> 2, Tooltip -> "Fulham Broadway"}, UndirectedEdge["Acton Central", "Willesden Junction"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Chorleywood", "Rickmansworth"] -> { "Lines" -> {"Metropolitan"}}, UndirectedEdge["Ealing Broadway", "Ealing Common"] -> { "Lines" -> {"District"}}, UndirectedEdge["Dollis Hill", "Willesden Green"] -> { "Lines" -> {"Jubilee"}}, "Green Park" -> {"Zone" -> 1, Tooltip -> "Green Park"}, UndirectedEdge["Charing Cross", "Leicester Square"] -> { "Lines" -> {"Northern"}}, "Amersham" -> {"Zone" -> 10, Tooltip -> "Amersham"}, "Greenford" -> {"Zone" -> 4, Tooltip -> "Greenford"}, UndirectedEdge["Holborn", "Russell Square"] -> { "Lines" -> {"Piccadilly"}}, "Newbury Park" -> {"Zone" -> 4, Tooltip -> "Newbury Park"}, UndirectedEdge["Ruislip Gardens", "West Ruislip"] -> { "Lines" -> {"Central"}}, "Clapham South" -> {"Zone" -> {2, 3}, Tooltip -> "Clapham South"}, "West Ruislip" -> {"Zone" -> 6, Tooltip -> "West Ruislip"}, "Brondesbury Park" -> {"Zone" -> 2, Tooltip -> "Brondesbury Park"}, "Devons Road" -> {"Zone" -> 2, Tooltip -> "Devons Road"}, UndirectedEdge["Lancaster Gate", "Marble Arch"] -> { "Lines" -> {"Central"}}, "Finchley Road & Frognal" -> { "Zone" -> 2, Tooltip -> "Finchley Road & Frognal"}, "Canning Town" -> {"Zone" -> 3, Tooltip -> "Canning Town"}, UndirectedEdge["Blackwall", "Poplar"] -> { "Lines" -> {"Docklands Light Rail"}}, "Walthamstow Central" -> { "Zone" -> 3, Tooltip -> "Walthamstow Central"}, UndirectedEdge["London Bridge", "Southwark"] -> { "Lines" -> {"Jubilee"}}, UndirectedEdge["Custom House for ExCeL", "Royal Victoria"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Kennington", "Oval"] -> {"Lines" -> {"Northern"}}, UndirectedEdge["Forest Hill", "Sydenham"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Brent Cross", "Golders Green"] -> { "Lines" -> {"Northern"}}, "Hornchurch" -> {"Zone" -> 6, Tooltip -> "Hornchurch"}, "Blackfriars" -> {"Zone" -> 1, Tooltip -> "Blackfriars"}, UndirectedEdge["Hornchurch", "Upminster Bridge"] -> { "Lines" -> {"District"}}, UndirectedEdge["Bermondsey", "Canada Water"] -> { "Lines" -> {"Jubilee"}}, "Homerton" -> {"Zone" -> 2, Tooltip -> "Homerton"}, "Ladbroke Grove" -> {"Zone" -> 2, Tooltip -> "Ladbroke Grove"}, UndirectedEdge["Archway", "Tufnell Park"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Bond Street", "Marble Arch"] -> { "Lines" -> {"Central"}}, "Penge West" -> {"Zone" -> 4, Tooltip -> "Penge West"}, "Cannon Street" -> {"Zone" -> 1, Tooltip -> "Cannon Street"}, "Queen's Park" -> {"Zone" -> 2, Tooltip -> "Queen's Park"}, UndirectedEdge["East Finchley", "Highgate"] -> { "Lines" -> {"Northern"}}, "Moorgate" -> {"Zone" -> 1, Tooltip -> "Moorgate"}, UndirectedEdge["Blackhorse Road", "Tottenham Hale"] -> { "Lines" -> {"Victoria"}}, "Hainault" -> {"Zone" -> 5, Tooltip -> "Hainault"}, "Northwick Park" -> {"Zone" -> 4, Tooltip -> "Northwick Park"}, UndirectedEdge["Northwick Park", "Preston Road"] -> { "Lines" -> {"Metropolitan"}}, "Woodside Park" -> {"Zone" -> 4, Tooltip -> "Woodside Park"}, "Southgate" -> {"Zone" -> 4, Tooltip -> "Southgate"}, UndirectedEdge["Wanstead Park", "Woodrange Park"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Charing Cross", "Piccadilly Circus"] -> { "Lines" -> {"Bakerloo"}}, UndirectedEdge["Earl's Court", "Gloucester Road"] -> { "Lines" -> {"District", "Piccadilly"}}, "East India" -> {"Zone" -> {2, 3}, Tooltip -> "East India"}, "Sheperd's Bush" -> {"Zone" -> 2, Tooltip -> "Sheperd's Bush"}, "West Brompton" -> {"Zone" -> 2, Tooltip -> "West Brompton"}, UndirectedEdge["Deptford Bridge", "Elverson Road"] -> { "Lines" -> {"Docklands Light Rail"}}, "Dalston Junction" -> {"Zone" -> 2, Tooltip -> "Dalston Junction"}, "North Harrow" -> {"Zone" -> 5, Tooltip -> "North Harrow"}, "Sydenham" -> {"Zone" -> 3, Tooltip -> "Sydenham"}, "Alperton" -> {"Zone" -> 4, Tooltip -> "Alperton"}, UndirectedEdge["Dalston Kingsland", "Hackney Central"] -> { "Lines" -> {"Overground"}}, "East Acton" -> {"Zone" -> 2, Tooltip -> "East Acton"}, "North Ealing" -> {"Zone" -> 3, Tooltip -> "North Ealing"}, UndirectedEdge["Barking", "Woodrange Park"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Oxford Circus", "Piccadilly Circus"] -> { "Lines" -> {"Bakerloo"}}, "Balham" -> {"Zone" -> 3, Tooltip -> "Balham"}, UndirectedEdge["Acton Town", "South Ealing"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Angel", "Old Street"] -> {"Lines" -> {"Northern"}}, "Dollis Hill" -> {"Zone" -> 3, Tooltip -> "Dollis Hill"}, UndirectedEdge["Southfields", "Wimbeldon Park"] -> { "Lines" -> {"District"}}, UndirectedEdge["Belsize Park", "Hampstead"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["East Acton", "White City"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Brockley", "Honor Oak Park"] -> { "Lines" -> {"Overground"}}, "Loughton" -> {"Zone" -> 6, Tooltip -> "Loughton"}, "Perivale" -> {"Zone" -> 4, Tooltip -> "Perivale"}, UndirectedEdge["Plaistow", "Upton Park"] -> { "Lines" -> {"District", "Hammersmith & City"}}, "Chaifont & Latimer" -> { "Zone" -> 9, Tooltip -> "Chaifont & Latimer"}, UndirectedEdge["Rayners Lane", "South Harrow"] -> { "Lines" -> {"Piccadilly"}}, "Goodge Street" -> {"Zone" -> 1, Tooltip -> "Goodge Street"}, UndirectedEdge["Brockley", "New Cross Gate"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Elephant & Castle", "Lambeth North"] -> { "Lines" -> {"Bakerloo"}}, "Tottenham Court Road" -> { "Zone" -> 1, Tooltip -> "Tottenham Court Road"}, UndirectedEdge["Kilburn", "Willesden Green"] -> { "Lines" -> {"Jubilee"}}, UndirectedEdge["Canons Park", "Stanmore"] -> { "Lines" -> {"Jubilee"}}, "Ruislip Gardens" -> {"Zone" -> 5, Tooltip -> "Ruislip Gardens"}, "Manor House" -> {"Zone" -> {2, 3}, Tooltip -> "Manor House"}, "Swiss Cottage" -> {"Zone" -> 2, Tooltip -> "Swiss Cottage"}, UndirectedEdge["Burnt Oak", "Edgware"] -> {"Lines" -> {"Northern"}}, UndirectedEdge["Hatton Cross", "Heathrow Terminals 1,2,3"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Redbridge", "Wanstead"] -> {"Lines" -> {"Central"}}, UndirectedEdge["Bayswater", "Notting Hill Gate"] -> { "Lines" -> {"Circle", "District"}}, UndirectedEdge["Canning Town", "Royal Victoria"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Embankment", "Temple"] -> { "Lines" -> {"Circle", "District"}}, "Moor Park" -> {"Zone" -> {6, 7}, Tooltip -> "Moor Park"}, UndirectedEdge["Canary Wharf", "Heron Quays"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Bow Road", "Bromley-by-Bow"] -> { "Lines" -> {"District", "Hammersmith & City"}}, UndirectedEdge["South Harrow", "Sudbury Hill"] -> { "Lines" -> {"Piccadilly"}}, "New Cross Gate" -> {"Zone" -> 2, Tooltip -> "New Cross Gate"}, UndirectedEdge["Kilburn Park", "Queen's Park"] -> { "Lines" -> {"Bakerloo"}}, "Hackney Wick" -> {"Zone" -> 2, Tooltip -> "Hackney Wick"}, "New Cross" -> {"Zone" -> 2, Tooltip -> "New Cross"}, UndirectedEdge["Custom House for ExCeL", "Prince Regent"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Liverpool Street", "Moorgate"] -> { "Lines" -> {"Circle", "Hammersmith & City", "Metropolitan"}}, "Kensal Green" -> {"Zone" -> {2, 3}, Tooltip -> "Kensal Green"}, "Russell Square" -> {"Zone" -> 1, Tooltip -> "Russell Square"}, "Surrey Quays" -> {"Zone" -> 2, Tooltip -> "Surrey Quays"}, "Watford Junction" -> { "Zone" -> 1000, Tooltip -> "Watford Junction"}, "Willesden Junction" -> { "Zone" -> 3, Tooltip -> "Willesden Junction"}, "Dalston Kingsland" -> {"Zone" -> 2, Tooltip -> "Dalston Kingsland"}, UndirectedEdge["Shepherd's Bush", "White City"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Canada Water", "Surrey Quays"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Prince Regent", "Royal Albert"] -> { "Lines" -> {"Docklands Light Rail"}}, "Kennington" -> {"Zone" -> 2, Tooltip -> "Kennington"}, UndirectedEdge["Shadwell", "Wapping"] -> {"Lines" -> {"Overground"}}, "Leytonstone High Road" -> { "Zone" -> 3, Tooltip -> "Leytonstone High Road"}, UndirectedEdge["Blackhorse Road", "South Tottenham"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Bayswater", "Paddington"] -> { "Lines" -> {"Circle", "District"}}, "Beckton Park" -> {"Zone" -> 3, Tooltip -> "Beckton Park"}, "West Silvertown" -> {"Zone" -> 3, Tooltip -> "West Silvertown"}, "Kentish Town" -> {"Zone" -> 2, Tooltip -> "Kentish Town"}, UndirectedEdge["Caledonian Road", "Holloway Road"] -> { "Lines" -> {"Piccadilly"}}, "West Acton" -> {"Zone" -> 3, Tooltip -> "West Acton"}, UndirectedEdge["Bethnal Green", "Liverpool Street"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Bow Church", "Devons Road"] -> { "Lines" -> {"Docklands Light Rail"}}, "Elm Park" -> {"Zone" -> 6, Tooltip -> "Elm Park"}, "Carpenders Park" -> {"Zone" -> 7, Tooltip -> "Carpenders Park"}, UndirectedEdge["Dollis Hill", "Neasden"] -> {"Lines" -> {"Jubilee"}}, "Watford" -> {"Zone" -> 7, Tooltip -> "Watford"}, UndirectedEdge["Archway", "Highgate"] -> {"Lines" -> {"Northern"}}, UndirectedEdge["High Street Kensington", "Notting Hill Gate"] -> { "Lines" -> {"Circle", "District"}}, UndirectedEdge["Canons Park", "Queensbury"] -> { "Lines" -> {"Jubilee"}}, "Sudbury Town" -> {"Zone" -> 4, Tooltip -> "Sudbury Town"}, "West Croydon" -> {"Zone" -> 5, Tooltip -> "West Croydon"}, UndirectedEdge["Finchley Road", "Wembley Park"] -> { "Lines" -> {"Metropolitan"}}, "Island Gardens" -> {"Zone" -> 2, Tooltip -> "Island Gardens"}, UndirectedEdge["Moorgate", "Old Street"] -> { "Lines" -> {"Northern"}}, "Mill Hill East" -> {"Zone" -> 4, Tooltip -> "Mill Hill East"}, UndirectedEdge["Finchley Road", "Swiss Cottage"] -> { "Lines" -> {"Jubilee"}}, UndirectedEdge["Cyprus", "Gallions Reach"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["North Ealing", "Park Royal"] -> { "Lines" -> {"Piccadilly"}}, "Victoria" -> {"Zone" -> 1, Tooltip -> "Victoria"}, "Osterley" -> {"Zone" -> 4, Tooltip -> "Osterley"}, UndirectedEdge["Pontoon Dock", "West Silvertown"] -> { "Lines" -> {"Docklands Light Rail"}}, "Clapham Common" -> {"Zone" -> 2, Tooltip -> "Clapham Common"}, UndirectedEdge["Harlesden", "Stonebridge Park"] -> { "Lines" -> {"Bakerloo", "Overground"}}, UndirectedEdge["Baker Street", "Marylebone"] -> { "Lines" -> {"Bakerloo"}}, UndirectedEdge["Ickenham", "Ruislip"] -> { "Lines" -> {"Metropolitan", "Piccadilly"}}, UndirectedEdge["Notting Hill Gate", "Queensway"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Moor Park", "Rickmansworth"] -> { "Lines" -> {"Metropolitan"}}, UndirectedEdge["Monument", "Tower Hill"] -> { "Lines" -> {"Circle", "District"}}, UndirectedEdge["Southwark", "Waterloo"] -> {"Lines" -> {"Jubilee"}}, "White City" -> {"Zone" -> 2, Tooltip -> "White City"}, UndirectedEdge["Kensington (Olympia)", "Shepherd's Bush"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Goodge Street", "Tottenham Court Road"] -> { "Lines" -> {"Northern"}}, "Marble Arch" -> {"Zone" -> 1, Tooltip -> "Marble Arch"}, "Hendon Central" -> {"Zone" -> {3, 4}, Tooltip -> "Hendon Central"}, "Finsbury Park" -> {"Zone" -> 2, Tooltip -> "Finsbury Park"}, UndirectedEdge["Goodge Street", "Warren Street"] -> { "Lines" -> {"Northern"}}, "Stepney Green" -> {"Zone" -> 2, Tooltip -> "Stepney Green"}, "Euston" -> {"Zone" -> 1, Tooltip -> "Euston"}, UndirectedEdge["Bank", "Waterloo"] -> { "Lines" -> {"Waterloo & City"}}, "Tufnell Park" -> {"Zone" -> 2, Tooltip -> "Tufnell Park"}, UndirectedEdge["Blackhorse Road", "Walthamstow Central"] -> { "Lines" -> {"Victoria"}}, UndirectedEdge["Aldgate", "Tower Hill"] -> {"Lines" -> {"Circle"}}, UndirectedEdge["Blackfriars", "Mansion House"] -> { "Lines" -> {"Circle", "District"}}, UndirectedEdge["Gloucester Road", "High Street Kensington"] -> { "Lines" -> {"Circle"}}, "Goldhawk Road" -> {"Zone" -> 2, Tooltip -> "Goldhawk Road"}, "Eastcote" -> {"Zone" -> 5, Tooltip -> "Eastcote"}, "Chigwell" -> {"Zone" -> 5, Tooltip -> "Chigwell"}, "Kingsbury" -> {"Zone" -> 4, Tooltip -> "Kingsbury"}, UndirectedEdge["Goldhawk Road", "Sheperd's Bush"] -> { "Lines" -> {"Hammersmith & City"}}, UndirectedEdge["Penge West", "Sydenham"] -> { "Lines" -> {"Overground"}}, "Covent Garden" -> {"Zone" -> 1, Tooltip -> "Covent Garden"}, UndirectedEdge["Bounds Green", "Wood Green"] -> { "Lines" -> {"Piccadilly"}}, "Euston Square" -> {"Zone" -> 1, Tooltip -> "Euston Square"}, "North Wembley" -> {"Zone" -> 4, Tooltip -> "North Wembley"}, UndirectedEdge["North Wembley", "South Kenton"] -> { "Lines" -> {"Bakerloo", "Overground"}}, "Borough" -> {"Zone" -> 1, Tooltip -> "Borough"}, UndirectedEdge["Bank", "Liverpool Street"] -> { "Lines" -> {"Central"}}, "Finchley Central" -> {"Zone" -> 4, Tooltip -> "Finchley Central"}, "Leicester Square" -> {"Zone" -> 1, Tooltip -> "Leicester Square"}, "Old Street" -> {"Zone" -> 1, Tooltip -> "Old Street"}, "Lewisham" -> {"Zone" -> 2, Tooltip -> "Lewisham"}, "Upminster Bridge" -> {"Zone" -> 6, Tooltip -> "Upminster Bridge"}, "Chorleywood" -> {"Zone" -> 8, Tooltip -> "Chorleywood"}, "Beckton" -> {"Zone" -> 3, Tooltip -> "Beckton"}, "Hanger Lane" -> {"Zone" -> 3, Tooltip -> "Hanger Lane"}, "Fairlop" -> {"Zone" -> 5, Tooltip -> "Fairlop"}, UndirectedEdge["Kilburn High Road", "South Hampstead"] -> { "Lines" -> {"Overground"}}, "Acton Central" -> {"Zone" -> 3, Tooltip -> "Acton Central"}, "Wapping" -> {"Zone" -> 2, Tooltip -> "Wapping"}, "Edgware" -> {"Zone" -> 5, Tooltip -> "Edgware"}, "Poplar" -> {"Zone" -> 2, Tooltip -> "Poplar"}, UndirectedEdge["Hyde Park Corner", "Knightsbridge"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Acton Town", "Turnham Green"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Hatch End", "Headstone Lane"] -> { "Lines" -> {"Overground"}}, "St. John's Wood" -> {"Zone" -> 2, Tooltip -> "St. John's Wood"}, UndirectedEdge["Ravenscourt Park", "Stamford Brook"] -> { "Lines" -> {"District"}}, "South Ealing" -> {"Zone" -> 3, Tooltip -> "South Ealing"}, UndirectedEdge["King George V", "Woolwich Arsenal"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Northwood", "Northwood Hills"] -> { "Lines" -> {"Metropolitan"}}, UndirectedEdge["Borough", "Elephant & Castle"] -> { "Lines" -> {"Northern"}}, "South Acton" -> {"Zone" -> 3, Tooltip -> "South Acton"}, "Hackney Central" -> {"Zone" -> 2, Tooltip -> "Hackney Central"}, UndirectedEdge["Covent Garden", "Leicester Square"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Aldgate East", "Liverpool Street"] -> { "Lines" -> {"Hammersmith & City"}}, "Stamford Brook" -> {"Zone" -> 2, Tooltip -> "Stamford Brook"}, UndirectedEdge["Hanger Lane", "North Acton"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Clapham Common", "Clapham South"] -> { "Lines" -> {"Northern"}}, "Preston Road" -> {"Zone" -> 4, Tooltip -> "Preston Road"}, UndirectedEdge["Colliers Wood", "South Wimbeldon"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Harrow-on-the-Hill", "West Harrow"] -> { "Lines" -> {"Metropolitan"}}, UndirectedEdge["Leicester Square", "Tottenham Court Road"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Gloucester Road", "South Kensington"] -> { "Lines" -> {"Circle", "District", "Piccadilly"}}, UndirectedEdge["Roding Valley", "Woodford"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Hanger Lane", "Perivale"] -> { "Lines" -> {"Central"}}, UndirectedEdge["King's Cross St. Pancras", "Russell Square"] -> { "Lines" -> {"Piccadilly"}}, "Pinner" -> {"Zone" -> 5, Tooltip -> "Pinner"}, "Oxford Circus" -> {"Zone" -> 1, Tooltip -> "Oxford Circus"}, UndirectedEdge["Kensal Green", "Queen's Park"] -> { "Lines" -> {"Bakerloo", "Overground"}}, UndirectedEdge["Neasden", "Wembley Park"] -> { "Lines" -> {"Jubilee"}}, UndirectedEdge["Green Park", "Westminster"] -> { "Lines" -> {"Jubilee"}}, "Southwark" -> {"Zone" -> 1, Tooltip -> "Southwark"}, UndirectedEdge["Oakwood", "Southgate"] -> { "Lines" -> {"Piccadilly"}}, "Seven Sisters" -> {"Zone" -> 3, Tooltip -> "Seven Sisters"}, UndirectedEdge["Bow Road", "Mile End"] -> { "Lines" -> {"District", "Hammersmith & City"}}, UndirectedEdge["Green Park", "Piccadilly Circus"] -> { "Lines" -> {"Piccadilly"}}, "Upney" -> {"Zone" -> 4, Tooltip -> "Upney"}, UndirectedEdge["Leytonstone High Road", "Wanstead Park"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Bank", "St. Paul's"] -> {"Lines" -> {"Central"}}, UndirectedEdge["Haggerston", "Hoxton"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Baker Street", "Finchley Road"] -> { "Lines" -> {"Metropolitan"}}, UndirectedEdge["Moor Park", "Northwood"] -> { "Lines" -> {"Metropolitan"}}, UndirectedEdge["Finchley Road & Frognal", "West Hampstead"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Angel", "King's Cross St. Pancras"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Northwood Hills", "Pinner"] -> { "Lines" -> {"Metropolitan"}}, "Caledonian Road & Barnsbury" -> { "Zone" -> 2, Tooltip -> "Caledonian Road & Barnsbury"}, "Wimbeldon" -> {"Zone" -> 3, Tooltip -> "Wimbeldon"}, UndirectedEdge["Northolt", "South Ruislip"] -> { "Lines" -> {"Central"}}, "Bank" -> {"Zone" -> 1, Tooltip -> "Bank"}, UndirectedEdge["East Putney", "Putney Bridge"] -> { "Lines" -> {"District"}}, "Burnt Oak" -> {"Zone" -> 4, Tooltip -> "Burnt Oak"}, UndirectedEdge["Finchley Central", "Mill Hill East"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Colliers Wood", "Tooting Broadway"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Greenford", "Northolt"] -> {"Lines" -> {"Central"}}, UndirectedEdge["Ealing Broadway", "West Acton"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Finsbury Park", "Manor House"] -> { "Lines" -> {"Piccadilly"}}, "Embankment" -> {"Zone" -> 1, Tooltip -> "Embankment"}, UndirectedEdge["Royal Oak", "Westbourne Park"] -> { "Lines" -> {"Hammersmith & City"}}, UndirectedEdge["Alperton", "Park Royal"] -> { "Lines" -> {"Piccadilly"}}, "Blackwall" -> {"Zone" -> 2, Tooltip -> "Blackwall"}, "West Hampstead" -> {"Zone" -> 2, Tooltip -> "West Hampstead"}, "Haggerston" -> {"Zone" -> 2, Tooltip -> "Haggerston"}, "Wembley Central" -> {"Zone" -> 4, Tooltip -> "Wembley Central"}, UndirectedEdge["Northfields", "South Ealing"] -> { "Lines" -> {"Piccadilly"}}, "Canada Water" -> {"Zone" -> 2, Tooltip -> "Canada Water"}, UndirectedEdge["Baker Street", "Bond Street"] -> { "Lines" -> {"Jubilee"}}, "Pudding Mill Lane" -> { "Zone" -> {2, 3}, Tooltip -> "Pudding Mill Lane"}, UndirectedEdge["Acton Central", "South Acton"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Golders Green", "Hampstead"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Canary Wharf", "North Greenwich"] -> { "Lines" -> {"Jubilee"}}, "Neasden" -> {"Zone" -> 3, Tooltip -> "Neasden"}, UndirectedEdge["Becontree", "Dagenham Heathway"] -> { "Lines" -> {"District"}}, UndirectedEdge["Gunnesbury", "South Acton"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Goldhawk Road", "Hammersmith"] -> { "Lines" -> {"Hammersmith & City"}}, "Hyde Park Corner" -> {"Zone" -> 1, Tooltip -> "Hyde Park Corner"}, UndirectedEdge["Arsenal", "Finsbury Park"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Debden", "Theydon Bois"] -> {"Lines" -> {"Central"}}, UndirectedEdge["Chigwell", "Grange Hill"] -> { "Lines" -> {"Central"}}, "Brent Cross" -> {"Zone" -> 3, Tooltip -> "Brent Cross"}, "Royal Oak" -> {"Zone" -> 2, Tooltip -> "Royal Oak"}, "Custom House for ExCeL" -> { "Zone" -> 3, Tooltip -> "Custom House for ExCeL"}, "Stratford" -> {"Zone" -> 3, Tooltip -> "Stratford"}, UndirectedEdge["Beckton Park", "Cyprus"] -> { "Lines" -> {"Docklands Light Rail"}}, "Prince Regent" -> {"Zone" -> 3, Tooltip -> "Prince Regent"}, UndirectedEdge["Barons Court", "Earl's Court"] -> { "Lines" -> {"Piccadilly"}}, "Crouch Hill" -> {"Zone" -> 3, Tooltip -> "Crouch Hill"}, "South Woodford" -> {"Zone" -> 4, Tooltip -> "South Woodford"}, UndirectedEdge["Paddington", "Warwick Avenue"] -> { "Lines" -> {"Bakerloo"}}, UndirectedEdge["Bank", "Shadwell"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Harringay Green Lanes", "South Tottenham"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Chigwell", "Roding Valley"] -> { "Lines" -> {"Central"}}, "Tower Hill" -> {"Zone" -> 1, Tooltip -> "Tower Hill"}, UndirectedEdge["Gunnesbury", "Turnham Green"] -> { "Lines" -> {"District"}}, UndirectedEdge["Covent Garden", "Holborn"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Alperton", "Sudbury Town"] -> { "Lines" -> {"Piccadilly"}}, "Barbican" -> {"Zone" -> 1, Tooltip -> "Barbican"}, "Westbourne Park" -> {"Zone" -> 2, Tooltip -> "Westbourne Park"}, "Belsize Park" -> {"Zone" -> 2, Tooltip -> "Belsize Park"}, UndirectedEdge["Leytonstone", "Snaresbrook"] -> { "Lines" -> {"Central"}}, "Becontree" -> {"Zone" -> 5, Tooltip -> "Becontree"}, UndirectedEdge["Kennington", "Waterloo"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Ladbroke Grove", "Westbourne Park"] -> { "Lines" -> {"Hammersmith & City"}}, "Aldgate" -> {"Zone" -> 1, Tooltip -> "Aldgate"}, "Shadwell" -> {"Zone" -> 2, Tooltip -> "Shadwell"}, "Holland Park" -> {"Zone" -> 2, Tooltip -> "Holland Park"}, UndirectedEdge["Euston", "South Hampstead"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Holland Park", "Shepherd's Bush"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Chaifont & Latimer", "Chesham"] -> { "Lines" -> {"Metropolitan"}}, "Snaresbrook" -> {"Zone" -> 4, Tooltip -> "Snaresbrook"}, UndirectedEdge["Canning Town", "North Greenwich"] -> { "Lines" -> {"Jubilee"}}, "Gloucester Road" -> {"Zone" -> 1, Tooltip -> "Gloucester Road"}, UndirectedEdge["Bond Street", "Green Park"] -> { "Lines" -> {"Jubilee"}}, "Watford High Street" -> { "Zone" -> 8, Tooltip -> "Watford High Street"}, "Kilburn Park" -> {"Zone" -> 2, Tooltip -> "Kilburn Park"}, "Stonebridge Park" -> {"Zone" -> 3, Tooltip -> "Stonebridge Park"}, UndirectedEdge["Fulham Broadway", "West Brompton"] -> { "Lines" -> {"District"}}, "Harringay Green Lanes" -> { "Zone" -> 3, Tooltip -> "Harringay Green Lanes"}, UndirectedEdge["Kingsbury", "Wembley Park"] -> { "Lines" -> {"Jubilee"}}, UndirectedEdge[ "Cutty Sark for Maritime Greenwich", "Island Gardens"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Hounslow East", "Osterley"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Camden Town", "Mornington Crescent"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Shadwell", "Tower Gateway"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Earl's Court", "West Brompton"] -> { "Lines" -> {"District"}}, "Barkingside" -> {"Zone" -> 5, Tooltip -> "Barkingside"}, UndirectedEdge["Chiswick Park", "Turnham Green"] -> { "Lines" -> {"District"}}, UndirectedEdge["Snaresbrook", "South Woodford"] -> { "Lines" -> {"Central"}}, UndirectedEdge["King George V", "London City Airport"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Canary Wharf", "West India Quay"] -> { "Lines" -> {"Docklands Light Rail"}}, "Heron Quays" -> {"Zone" -> 2, Tooltip -> "Heron Quays"}, "Holloway Road" -> {"Zone" -> 2, Tooltip -> "Holloway Road"}, UndirectedEdge["Beckton Park", "Royal Albert"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Anerley", "Norwood Junction"] -> { "Lines" -> {"Overground"}}, UndirectedEdge[ "Leyton Midland Road", "Walthamstow Queen's Road"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["New Cross", "Surrey Quays"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["East Ham", "Upton Park"] -> { "Lines" -> {"District", "Hammersmith & City"}}, UndirectedEdge["Green Park", "Victoria"] -> { "Lines" -> {"Victoria"}}, UndirectedEdge["Caledonian Road", "King's Cross St. Pancras"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Debden", "Loughton"] -> {"Lines" -> {"Central"}}, UndirectedEdge["Hatton Cross", "Hounslow West"] -> { "Lines" -> {"Piccadilly"}}, "Hamstead Heath" -> {"Zone" -> 2, Tooltip -> "Hamstead Heath"}, UndirectedEdge["Brondesbury Park", "Kensal Rise"] -> { "Lines" -> {"Overground"}}, "Canary Wharf" -> {"Zone" -> {2, 3}, Tooltip -> "Canary Wharf"}, UndirectedEdge["Oval", "Stockwell"] -> {"Lines" -> {"Northern"}}, "Sloane Square" -> {"Zone" -> 1, Tooltip -> "Sloane Square"}, "Gallions Reach" -> {"Zone" -> 3, Tooltip -> "Gallions Reach"}, UndirectedEdge["Morden", "South Wimbeldon"] -> { "Lines" -> {"Northern"}}, "Imperial Wharf" -> {"Zone" -> 2, Tooltip -> "Imperial Wharf"}, UndirectedEdge["Canada Water", "Canary Wharf"] -> { "Lines" -> {"Jubilee"}}, "Warren Street" -> {"Zone" -> 1, Tooltip -> "Warren Street"}, "Kensington (Olympia)" -> { "Zone" -> 2, Tooltip -> "Kensington (Olympia)"}, UndirectedEdge["Euston", "King's Cross St. Pancras"] -> { "Lines" -> {"Northern", "Victoria"}}, UndirectedEdge["Lancaster Gate", "Queensway"] -> { "Lines" -> {"Central"}}, "Kilburn" -> {"Zone" -> 2, Tooltip -> "Kilburn"}, "High Barnet" -> {"Zone" -> 5, Tooltip -> "High Barnet"}, UndirectedEdge["Burnt Oak", "Colindale"] -> { "Lines" -> {"Northern"}}, "Chesham" -> {"Zone" -> 10, Tooltip -> "Chesham"}, "Royal Albert" -> {"Zone" -> 3, Tooltip -> "Royal Albert"}, "Tooting Broadway" -> {"Zone" -> 3, Tooltip -> "Tooting Broadway"}, UndirectedEdge["Harrow & Wealdstone", "Kenton"] -> { "Lines" -> {"Bakerloo", "Overground"}}, "Harlesden" -> {"Zone" -> 3, Tooltip -> "Harlesden"}, "Redbridge" -> {"Zone" -> 4, Tooltip -> "Redbridge"}, UndirectedEdge["St. John's Wood", "Swiss Cottage"] -> { "Lines" -> {"Jubilee"}}, UndirectedEdge["Limehouse", "Shadwell"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Blackhorse Road", "Walthamstow Queen's Road"] -> { "Lines" -> {"Overground"}}, "Park Royal" -> {"Zone" -> 3, Tooltip -> "Park Royal"}, UndirectedEdge["New Cross Gate", "Surrey Quays"] -> { "Lines" -> {"Overground"}}, "Barons Court" -> {"Zone" -> 2, Tooltip -> "Barons Court"}, "Dagenham East" -> {"Zone" -> 5, Tooltip -> "Dagenham East"}, UndirectedEdge["Barons Court", "West Kensington"] -> { "Lines" -> {"District"}}, UndirectedEdge["Imperial Wharf", "West Brompton"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Paddington", "Royal Oak"] -> { "Lines" -> {"Hammersmith & City"}}, UndirectedEdge["Watford High Street", "Watford Junction"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Hoxton", "Schreditch High Street"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Clapham Junction", "Imperial Wharf"] -> { "Lines" -> {"Overground"}}, "Gospel Oak" -> {"Zone" -> 2, Tooltip -> "Gospel Oak"}, UndirectedEdge["Chancery Lane", "Holborn"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Bethnal Green", "Mile End"] -> { "Lines" -> {"Central"}}, "Kentish Town West" -> {"Zone" -> 2, Tooltip -> "Kentish Town West"}, UndirectedEdge["Dagenham East", "Dagenham Heathway"] -> { "Lines" -> {"District"}}, UndirectedEdge["Camden Town", "Kentish Town"] -> { "Lines" -> {"Northern"}}, "Morden" -> {"Zone" -> 4, Tooltip -> "Morden"}, UndirectedEdge["Ruislip Gardens", "South Ruislip"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Pimlico", "Vauxhall"] -> {"Lines" -> {"Victoria"}}, "London City Airport" -> { "Zone" -> 3, Tooltip -> "London City Airport"}, "Stanmore" -> {"Zone" -> 5, Tooltip -> "Stanmore"}, "Temple" -> {"Zone" -> 1, Tooltip -> "Temple"}, "Woodrange Park" -> {"Zone" -> {3, 4}, Tooltip -> "Woodrange Park"}, UndirectedEdge["Barking", "Upney"] -> {"Lines" -> {"District"}}, UndirectedEdge["Poplar", "Westferry"] -> { "Lines" -> {"Docklands Light Rail"}}, "Honor Oak Park" -> {"Zone" -> 3, Tooltip -> "Honor Oak Park"}, "Kew Gardens" -> {"Zone" -> {3, 4}, Tooltip -> "Kew Gardens"}, "Lambeth North" -> {"Zone" -> 1, Tooltip -> "Lambeth North"}, "Oval" -> {"Zone" -> 2, Tooltip -> "Oval"}, "St. James's Park" -> {"Zone" -> 1, Tooltip -> "St. James's Park"}, "Headstone Lane" -> {"Zone" -> 5, Tooltip -> "Headstone Lane"}, "West Harrow" -> {"Zone" -> 5, Tooltip -> "West Harrow"}, UndirectedEdge["Boston Manor", "Osterley"] -> { "Lines" -> {"Piccadilly"}}, "Earl's Court" -> {"Zone" -> {1, 2}, Tooltip -> "Earl's Court"}, UndirectedEdge["Deptford Bridge", "Greenwich"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Kilburn", "West Hampstead"] -> { "Lines" -> {"Jubilee"}}, UndirectedEdge["Barbican", "Farringdon"] -> { "Lines" -> {"Circle", "Hammersmith & City", "Metropolitan"}}, UndirectedEdge["Waterloo", "Westminster"] -> { "Lines" -> {"Jubilee"}}, "Croxley" -> {"Zone" -> 7, Tooltip -> "Croxley"}, UndirectedEdge["Devons Road", "Langdon Park"] -> { "Lines" -> {"Docklands Light Rail"}}, "Deptford Bridge" -> {"Zone" -> 2, Tooltip -> "Deptford Bridge"}, UndirectedEdge["Blackfriars", "Temple"] -> { "Lines" -> {"Circle", "District"}}, UndirectedEdge["Greenford", "Perivale"] -> {"Lines" -> {"Central"}}, UndirectedEdge["Buckhurst Hill", "South Woodford"] -> { "Lines" -> {"Central"}}, "Bermondsey" -> {"Zone" -> 2, Tooltip -> "Bermondsey"}, "All Saints" -> {"Zone" -> 2, Tooltip -> "All Saints"}, "St. Paul's" -> {"Zone" -> 1, Tooltip -> "St. Paul's"}, "Bow Church" -> {"Zone" -> 2, Tooltip -> "Bow Church"}, UndirectedEdge["Dalston Junction", "Haggerston"] -> { "Lines" -> {"Overground"}}, "King George V" -> {"Zone" -> 3, Tooltip -> "King George V"}, "Edgware Road" -> {"Zone" -> 1, Tooltip -> "Edgware Road"}, "Forest Hill" -> {"Zone" -> 3, Tooltip -> "Forest Hill"}, "Hatton Cross" -> {"Zone" -> {5, 6}, Tooltip -> "Hatton Cross"}, "Totteridge & Whetstone" -> { "Zone" -> 4, Tooltip -> "Totteridge & Whetstone"}, "Anerley" -> {"Zone" -> 4, Tooltip -> "Anerley"}, "Great Portland Street" -> { "Zone" -> 1, Tooltip -> "Great Portland Street"}, "Northwood Hills" -> {"Zone" -> 6, Tooltip -> "Northwood Hills"}, "Leyton" -> {"Zone" -> 3, Tooltip -> "Leyton"}, UndirectedEdge["Canning Town", "West Silvertown"] -> { "Lines" -> {"Docklands Light Rail"}}, "Greenwich" -> {"Zone" -> 2, Tooltip -> "Greenwich"}, UndirectedEdge["Gospel Oak", "Kentish Town West"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Euston Square", "King's Cross St. Pancras"] -> { "Lines" -> {"Circle", "Hammersmith & City", "Metropolitan"}}, UndirectedEdge["Hackney Wick", "Homerton"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Bond Street", "Oxford Circus"] -> { "Lines" -> {"Central"}}, "Golders Green" -> {"Zone" -> 3, Tooltip -> "Golders Green"}, UndirectedEdge["North Acton", "West Acton"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Kingsbury", "Queensbury"] -> { "Lines" -> {"Jubilee"}}, "Dagenham Heathway" -> {"Zone" -> 5, Tooltip -> "Dagenham Heathway"}, UndirectedEdge["Rayners Lane", "West Harrow"] -> { "Lines" -> {"Metropolitan"}}, "Pimlico" -> {"Zone" -> 1, Tooltip -> "Pimlico"}, UndirectedEdge["Knightsbridge", "South Kensington"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Bermondsey", "London Bridge"] -> { "Lines" -> {"Jubilee"}}, UndirectedEdge["Hillingdon", "Uxbridge"] -> { "Lines" -> {"Metropolitan", "Piccadilly"}}, "Ealing Broadway" -> {"Zone" -> 3, Tooltip -> "Ealing Broadway"}, UndirectedEdge["Clapham North", "Stockwell"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Stockwell", "Vauxhall"] -> {"Lines" -> {"Victoria"}}, UndirectedEdge["Kilburn High Road", "Queen's Park"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Charing Cross", "Embankment"] -> { "Lines" -> {"Bakerloo", "Northern"}}, "Sudbury Hill" -> {"Zone" -> 4, Tooltip -> "Sudbury Hill"}, UndirectedEdge["Stratford", "West Ham"] -> {"Lines" -> {"Jubilee"}}, UndirectedEdge["Grange Hill", "Hainault"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Barbican", "Moorgate"] -> { "Lines" -> {"Circle", "Hammersmith & City", "Metropolitan"}}, UndirectedEdge["Carpenders Park", "Hatch End"] -> { "Lines" -> {"Overground"}}, "Wimbeldon Park" -> {"Zone" -> 3, Tooltip -> "Wimbeldon Park"}, UndirectedEdge["Eastcote", "Rayners Lane"] -> { "Lines" -> {"Metropolitan", "Piccadilly"}}, UndirectedEdge["High Barnet", "Totteridge & Whetstone"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Ladbroke Grove", "Latimer Road"] -> { "Lines" -> {"Hammersmith & City"}}, UndirectedEdge["Blackwall", "East India"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Leyton", "Leytonstone"] -> {"Lines" -> {"Central"}}, "South Hampstead" -> {"Zone" -> 2, Tooltip -> "South Hampstead"}, UndirectedEdge["Ealing Common", "North Ealing"] -> { "Lines" -> {"Piccadilly"}}, "Northolt" -> {"Zone" -> 5, Tooltip -> "Northolt"}, "Pontoon Dock" -> {"Zone" -> 3, Tooltip -> "Pontoon Dock"}, UndirectedEdge["Island Gardens", "Mudchute"] -> { "Lines" -> {"Docklands Light Rail"}}, "Aldgate East" -> {"Zone" -> 1, Tooltip -> "Aldgate East"}, UndirectedEdge["Upminster", "Upminster Bridge"] -> { "Lines" -> {"District"}}, "Southfields" -> {"Zone" -> 3, Tooltip -> "Southfields"}, UndirectedEdge["Embankment", "Westminster"] -> { "Lines" -> {"Circle", "District"}}, "Elephant & Castle" -> { "Zone" -> {1, 2}, Tooltip -> "Elephant & Castle"}, "Northfields" -> {"Zone" -> 3, Tooltip -> "Northfields"}, UndirectedEdge["Barkingside", "Newbury Park"] -> { "Lines" -> {"Central"}}, UndirectedEdge["All Saints", "Poplar"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Harrow-on-the-Hill", "North Harrow"] -> { "Lines" -> {"Metropolitan"}}, "Rayners Lane" -> {"Zone" -> 5, Tooltip -> "Rayners Lane"}, "Debden" -> {"Zone" -> 6, Tooltip -> "Debden"}, "Warwick Avenue" -> {"Zone" -> 2, Tooltip -> "Warwick Avenue"}, UndirectedEdge["Lambeth North", "Waterloo"] -> { "Lines" -> {"Bakerloo"}}, UndirectedEdge["Westferry", "West India Quay"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Harrow & Wealdstone", "Headstone Lane"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Dalston Junction", "Dalston Kingsland"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Camden Town", "Chalk Farm"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Bushey", "Watford High Street"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Acton Town", "Chiswick Park"] -> { "Lines" -> {"District"}}, UndirectedEdge["Dagenham East", "Elm Park"] -> { "Lines" -> {"District"}}, "Archway" -> {"Zone" -> {2, 3}, Tooltip -> "Archway"}, "Maida Vale" -> {"Zone" -> 2, Tooltip -> "Maida Vale"}, "Crossharbour" -> {"Zone" -> 2, Tooltip -> "Crossharbour"}, "Heathrow Terminals 1,2,3" -> { "Zone" -> 6, Tooltip -> "Heathrow Terminals 1,2,3"}, UndirectedEdge["Seven Sisters", "Tottenham Hale"] -> { "Lines" -> {"Victoria"}}, "North Acton" -> {"Zone" -> {2, 3}, Tooltip -> "North Acton"}, "East Putney" -> {"Zone" -> {2, 3}, Tooltip -> "East Putney"}, "Liverpool Street" -> {"Zone" -> 1, Tooltip -> "Liverpool Street"}, "Langdon Park" -> {"Zone" -> 2, Tooltip -> "Langdon Park"}, UndirectedEdge["Sloane Square", "Victoria"] -> { "Lines" -> {"Circle", "District"}}, UndirectedEdge["Elverson Road", "Lewisham"] -> { "Lines" -> {"Docklands Light Rail"}}, "Tooting Bec" -> {"Zone" -> 3, Tooltip -> "Tooting Bec"}, "East Finchley" -> {"Zone" -> 3, Tooltip -> "East Finchley"}, UndirectedEdge["Croxley", "Watford"] -> { "Lines" -> {"Metropolitan"}}, "Arsenal" -> {"Zone" -> 2, Tooltip -> "Arsenal"}, "Northwood" -> {"Zone" -> 6, Tooltip -> "Northwood"}, UndirectedEdge["Hackney Central", "Homerton"] -> { "Lines" -> {"Overground"}}, "Queensway" -> {"Zone" -> 1, Tooltip -> "Queensway"}, UndirectedEdge["Baker Street", "Great Portland Street"] -> { "Lines" -> {"Circle", "Hammersmith & City", "Metropolitan"}}, UndirectedEdge["Norwood Junction", "West Croydon"] -> { "Lines" -> {"Overground"}}, "Bow Road" -> {"Zone" -> 2, Tooltip -> "Bow Road"}, "Norwood Junction" -> {"Zone" -> 4, Tooltip -> "Norwood Junction"}, "Ruislip Manor" -> {"Zone" -> 6, Tooltip -> "Ruislip Manor"}, "Tottenham Hale" -> {"Zone" -> 3, Tooltip -> "Tottenham Hale"}, "Cockfosters" -> {"Zone" -> 5, Tooltip -> "Cockfosters"}, "Finchley Road" -> {"Zone" -> 2, Tooltip -> "Finchley Road"}, "High Street Kensington" -> { "Zone" -> 1, Tooltip -> "High Street Kensington"}, "South Quay" -> {"Zone" -> 2, Tooltip -> "South Quay"}, UndirectedEdge["Euston", "Warren Street"] -> { "Lines" -> {"Northern", "Victoria"}}, UndirectedEdge["Holland Park", "Notting Hill Gate"] -> { "Lines" -> {"Central"}}, "Mornington Crescent" -> { "Zone" -> 2, Tooltip -> "Mornington Crescent"}, UndirectedEdge["Leyton Midland Road", "Leytonstone High Road"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Kensal Rise", "Willesden Junction"] -> { "Lines" -> {"Overground"}}, "Ickenham" -> {"Zone" -> 6, Tooltip -> "Ickenham"}, UndirectedEdge["Earl's Court", "Kensington (Olympia)"] -> { "Lines" -> {"District"}}, "Leyton Midland Road" -> { "Zone" -> 3, Tooltip -> "Leyton Midland Road"}, UndirectedEdge["Belsize Park", "Chalk Farm"] -> { "Lines" -> {"Northern"}}, "Hounslow East" -> {"Zone" -> 4, Tooltip -> "Hounslow East"}, "Turnham Green" -> {"Zone" -> {2, 3}, Tooltip -> "Turnham Green"}, "Arnos Grove" -> {"Zone" -> 4, Tooltip -> "Arnos Grove"}, UndirectedEdge["East Putney", "Southfields"] -> { "Lines" -> {"District"}}, UndirectedEdge["Finsbury Park", "Highbury & Islington"] -> { "Lines" -> {"Victoria"}}, "South Kenton" -> {"Zone" -> 4, Tooltip -> "South Kenton"}, UndirectedEdge["Shadwell", "Whitechapel"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Pudding Mill Lane", "Stratford"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Holborn", "Tottenham Court Road"] -> { "Lines" -> {"Central"}}, "Latimer Road" -> {"Zone" -> 2, Tooltip -> "Latimer Road"}, "Stockwell" -> {"Zone" -> 2, Tooltip -> "Stockwell"}, "North Greenwich" -> {"Zone" -> 3, Tooltip -> "North Greenwich"}, "Waterloo" -> {"Zone" -> 1, Tooltip -> "Waterloo"}, "Ruislip" -> {"Zone" -> 6, Tooltip -> "Ruislip"}, "Colindale" -> {"Zone" -> 4, Tooltip -> "Colindale"}, UndirectedEdge["Gants Hill", "Redbridge"] -> { "Lines" -> {"Central"}}, "South Kensington" -> {"Zone" -> 1, Tooltip -> "South Kensington"}, "Woolwich Arsenal" -> {"Zone" -> 4, Tooltip -> "Woolwich Arsenal"}, UndirectedEdge["Hillingdon", "Ickenham"] -> { "Lines" -> {"Metropolitan", "Piccadilly"}}, "Ealing Common" -> {"Zone" -> 3, Tooltip -> "Ealing Common"}, "Rotherhithe" -> {"Zone" -> 2, Tooltip -> "Rotherhithe"}, UndirectedEdge["Colindale", "Hendon Central"] -> { "Lines" -> {"Northern"}}, "South Wimbeldon" -> { "Zone" -> {3, 4}, Tooltip -> "South Wimbeldon"}, UndirectedEdge["Mile End", "Stepney Green"] -> { "Lines" -> {"District", "Hammersmith & City"}}, UndirectedEdge["Turnpike Lane", "Wood Green"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["East Finchley", "Finchley Central"] -> { "Lines" -> {"Northern"}}, "Blackhorse Road" -> {"Zone" -> 3, Tooltip -> "Blackhorse Road"}, UndirectedEdge["Earl's Court", "West Kensington"] -> { "Lines" -> {"District"}}, UndirectedEdge["Crossharbour", "Mudchute"] -> { "Lines" -> {"Docklands Light Rail"}}, UndirectedEdge["Kensington (Olympia)", "West Brompton"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["East Acton", "North Acton"] -> { "Lines" -> {"Central"}}, "Harrow & Wealdstone" -> { "Zone" -> 5, Tooltip -> "Harrow & Wealdstone"}, "Canonbury" -> {"Zone" -> 2, Tooltip -> "Canonbury"}, UndirectedEdge["Hammersmith", "Ravenscourt Park"] -> { "Lines" -> {"District"}}, UndirectedEdge["Caledonian Road & Barnsbury", "Camden Road"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Borough", "London Bridge"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Earl's Court", "High Street Kensington"] -> { "Lines" -> {"District"}}, "Brockley" -> {"Zone" -> 2, Tooltip -> "Brockley"}, "Crystal Palace" -> {"Zone" -> {3, 4}, Tooltip -> "Crystal Palace"}, UndirectedEdge["Gunnesbury", "Kew Gardens"] -> { "Lines" -> {"District", "Overground"}}, "Buckhurst Hill" -> {"Zone" -> 5, Tooltip -> "Buckhurst Hill"}, "South Tottenham" -> {"Zone" -> 3, Tooltip -> "South Tottenham"}, "Elverson Road" -> {"Zone" -> 2, Tooltip -> "Elverson Road"}, "Cyprus" -> {"Zone" -> 3, Tooltip -> "Cyprus"}, "Cutty Sark for Maritime Greenwich" -> { "Zone" -> 2, Tooltip -> "Cutty Sark for Maritime Greenwich"}, UndirectedEdge["Totteridge & Whetstone", "Woodside Park"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Stepney Green", "Whitechapel"] -> { "Lines" -> {"District", "Hammersmith & City"}}, UndirectedEdge["Finchley Road", "West Hampstead"] -> { "Lines" -> {"Jubilee"}}, UndirectedEdge["Camden Town", "Euston"] -> {"Lines" -> {"Northern"}}, UndirectedEdge["Finchley Central", "West Finchley"] -> { "Lines" -> {"Northern"}}, UndirectedEdge["Hackney Wick", "Stratford"] -> { "Lines" -> {"Overground"}}, UndirectedEdge["Chaifont & Latimer", "Chorleywood"] -> { "Lines" -> {"Metropolitan"}}, "Highbury & Islington" -> { "Zone" -> 2, Tooltip -> "Highbury & Islington"}, UndirectedEdge["Cannon Street", "Mansion House"] -> { "Lines" -> {"Circle", "District"}}, UndirectedEdge["Green Park", "Hyde Park Corner"] -> { "Lines" -> {"Piccadilly"}}, UndirectedEdge["Sloane Square", "South Kensington"] -> { "Lines" -> {"Circle", "District"}}, "Knightsbridge" -> {"Zone" -> 1, Tooltip -> "Knightsbridge"}, "Oakwood" -> {"Zone" -> 5, Tooltip -> "Oakwood"}, "Marylebone" -> {"Zone" -> 1, Tooltip -> "Marylebone"}, UndirectedEdge["Chancery Lane", "St. Paul's"] -> { "Lines" -> {"Central"}}, UndirectedEdge["Wimbeldon", "Wimbeldon Park"] -> { "Lines" -> {"District"}}, "Angel" -> {"Zone" -> 1, Tooltip -> "Angel"}, UndirectedEdge["Clapham Common", "Clapham North"] -> { "Lines" -> {"Northern"}}, "Canons Park" -> {"Zone" -> 5, Tooltip -> "Canons Park"}, UndirectedEdge["Brent Cross", "Hendon Central"] -> { "Lines" -> {"Northern"}}, "South Harrow" -> {"Zone" -> 5, Tooltip -> "South Harrow"}}, EdgeShapeFunction -> { UndirectedEdge["Northwood Hills", "Pinner"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Pinner"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Amersham", "Chaifont & Latimer"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Chaifont & Latimer"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Colindale", "Hendon Central"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Colindale"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Crossharbour", "South Quay"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Quay"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canons Park", "Queensbury"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Canons Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["North Harrow", "Pinner"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "North Harrow"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/ 2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, \ {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kew Gardens", "Richmond"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kew Gardens"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], { RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["East Acton", "White City"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "White City"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/ 2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, \ {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Moorgate", "Old Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Old Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hatton Cross", "Hounslow West"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hounslow West"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canada Water", "Rotherhithe"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Rotherhithe"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["East Ham", "Upton Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "East Ham"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Finchley Central", "West Finchley"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Finchley Central"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bethnal Green", "Liverpool Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bethnal Green"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bounds Green", "Wood Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bounds Green"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["St. James's Park", "Westminster"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "St. James's Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Harrow-on-the-Hill", "West Harrow"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Harrow-on-the-Hill"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Deptford Bridge", "Greenwich"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Greenwich"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hoxton", "Schreditch High Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hoxton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["North Ealing", "Park Royal"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "North Ealing"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Acton Town", "Ealing Common"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Acton Town"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hounslow East", "Osterley"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Osterley"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["West Finchley", "Woodside Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West Finchley"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Chancery Lane", "Holborn"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Chancery Lane"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bayswater", "Notting Hill Gate"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bayswater"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hackney Central", "Homerton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hackney Central"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Sloane Square", "South Kensington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Kensington"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Preston Road", "Wembley Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Wembley Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Elephant & Castle", "Lambeth North"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Elephant & Castle"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bushey", "Watford High Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bushey"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Highbury & Islington", "King's Cross St. Pancras"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Highbury & Islington"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Pimlico", "Vauxhall"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Pimlico"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Balham", "Tooting Bec"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Balham"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Latimer Road", "Sheperd's Bush"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Latimer Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kingsbury", "Queensbury"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Queensbury"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Holland Park", "Shepherd's Bush"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Holland Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Tooting Bec", "Tooting Broadway"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Tooting Bec"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Morden", "South Wimbeldon"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Wimbeldon"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["St. James's Park", "Victoria"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Victoria"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["King George V", "London City Airport"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "London City Airport"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Prince Regent", "Royal Albert"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Prince Regent"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bank", "Waterloo"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bank"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.475, 0.796, 0.745}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Belsize Park", "Hampstead"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hampstead"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Aldgate", "Tower Hill"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Tower Hill"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Greenford", "Perivale"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Perivale"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Beckton", "Gallions Reach"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Gallions Reach"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Leytonstone", "Wanstead"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Wanstead"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Gospel Oak", "Kentish Town West"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Gospel Oak"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kilburn High Road", "South Hampstead"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kilburn High Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bank", "London Bridge"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bank"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Earl's Court", "Kensington (Olympia)"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Earl's Court"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Brent Cross", "Hendon Central"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hendon Central"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Crossharbour", "Mudchute"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Crossharbour"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Green Park", "Oxford Circus"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Oxford Circus"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Goldhawk Road", "Hammersmith"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Goldhawk Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Sudbury Hill", "Sudbury Town"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Sudbury Town"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Rayners Lane", "West Harrow"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West Harrow"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Goodge Street", "Warren Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Goodge Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bond Street", "Green Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bond Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Chiswick Park", "Turnham Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Turnham Green"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Watford High Street", "Watford Junction"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Watford High Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Harrow-on-the-Hill", "North Harrow"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Harrow-on-the-Hill"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kensal Green", "Queen's Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Queen's Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], { RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Caledonian Road & Barnsbury", "Camden Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Camden Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Ealing Broadway", "Ealing Common"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Ealing Common"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bank", "Shadwell"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Shadwell"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bow Church", "Pudding Mill Lane"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Pudding Mill Lane"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Finchley Road", "Wembley Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Finchley Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Baker Street", "Regent's Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Regent's Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Stamford Brook", "Turnham Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Stamford Brook"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hillingdon", "Uxbridge"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hillingdon"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}], RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Earl's Court", "High Street Kensington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Earl's Court"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Sloane Square", "Victoria"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Sloane Square"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Shadwell", "Tower Gateway"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Shadwell"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Alperton", "Sudbury Town"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Alperton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Elephant & Castle", "Kennington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Elephant & Castle"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Eastcote", "Ruislip Manor"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Eastcote"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}], RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Harrow & Wealdstone", "Headstone Lane"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Harrow & Wealdstone"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kilburn Park", "Queen's Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kilburn Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Dalston Junction", "Dalston Kingsland"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Dalston Kingsland"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Chaifont & Latimer", "Chesham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Chaifont & Latimer"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Barkingside", "Fairlop"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Fairlop"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canning Town", "West Silvertown"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Canning Town"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Island Gardens", "Mudchute"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Mudchute"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Ruislip Gardens", "West Ruislip"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Ruislip Gardens"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["East Finchley", "Highgate"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Highgate"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]} , With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Burnt Oak", "Colindale"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Burnt Oak"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Finsbury Park", "Highbury & Islington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Finsbury Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hatch End", "Headstone Lane"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Headstone Lane"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canada Water", "Canary Wharf"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Canada Water"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Knightsbridge", "South Kensington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Knightsbridge"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["East Finchley", "Finchley Central"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "East Finchley"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bank", "St. Paul's"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bank"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Acton Town", "Chiswick Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Chiswick Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bermondsey", "London Bridge"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "London Bridge"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kensal Rise", "Willesden Junction"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kensal Rise"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Harlesden", "Willesden Junction"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Willesden Junction"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], { RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Debden", "Theydon Bois"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Debden"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Rotherhithe", "Wapping"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Wapping"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Forest Hill", "Sydenham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Forest Hill"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Ealing Common", "North Ealing"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Ealing Common"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Croxley", "Watford"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Croxley"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bethnal Green", "Mile End"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Mile End"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Shadwell", "Whitechapel"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Whitechapel"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Euston", "King's Cross St. Pancras"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Euston"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}], RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Holborn", "Russell Square"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Russell Square"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Paddington", "Royal Oak"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Paddington"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Green Park", "Westminster"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Green Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Deptford Bridge", "Elverson Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Deptford Bridge"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Earl's Court", "West Kensington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Earl's Court"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Aldgate East", "Tower Hill"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Aldgate East"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Dalston Junction", "Haggerston"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Dalston Junction"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bushey", "Carpenders Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Carpenders Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Finchley Road & Frognal", "West Hampstead"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Finchley Road & Frognal"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Brondesbury", "Brondesbury Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Brondesbury"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Dagenham East", "Elm Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Elm Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bow Road", "Bromley-by-Bow"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bromley-by-Bow"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Blackhorse Road", "South Tottenham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Tottenham"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Edgware Road", "Marylebone"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Marylebone"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["North Acton", "West Acton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "North Acton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Euston", "Warren Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Euston"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}], RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Belsize Park", "Chalk Farm"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Belsize Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Buckhurst Hill", "South Woodford"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Woodford"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Harrow-on-the-Hill", "Northwick Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Northwick Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Barons Court", "Hammersmith"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Barons Court"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Heron Quays", "South Quay"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Heron Quays"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Camden Town", "Chalk Farm"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Chalk Farm"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Ickenham", "Ruislip"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Ruislip"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}], RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Stockwell", "Vauxhall"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Vauxhall"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Finchley Central", "Mill Hill East"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Finchley Central"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Oxford Circus", "Tottenham Court Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Tottenham Court Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Gants Hill", "Newbury Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Newbury Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Eastcote", "Rayners Lane"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Rayners Lane"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}], RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bayswater", "Paddington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Paddington"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Barons Court", "Earl's Court"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Earl's Court"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Dollis Hill", "Neasden"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Neasden"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Farringdon", "King's Cross St. Pancras"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Farringdon"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 3, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0.953, 0.525, 0.631}], RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hounslow Central", "Hounslow West"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hounslow Central"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Ladbroke Grove", "Westbourne Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Westbourne Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Camden Town", "Kentish Town"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Camden Town"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Borough", "London Bridge"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "London Bridge"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Leytonstone High Road", "Wanstead Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Leytonstone High Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Crouch Hill", "Upper Holloway"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Upper Holloway"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Gospel Oak", "Upper Holloway"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Gospel Oak"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Ruislip", "Ruislip Manor"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Ruislip Manor"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}], RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Blackwall", "Poplar"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Poplar"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Oxford Circus", "Warren Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Warren Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Euston Square", "Great Portland Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Euston Square"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 3, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0.953, 0.525, 0.631}], RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Redbridge", "Wanstead"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Redbridge"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Holland Park", "Notting Hill Gate"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Notting Hill Gate"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Boston Manor", "Northfields"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Northfields"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Baker Street", "Great Portland Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Great Portland Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 3, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0.953, 0.525, 0.631}], RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Caledonian Road", "King's Cross St. Pancras"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Caledonian Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Blackhorse Road", "Tottenham Hale"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Blackhorse Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Covent Garden", "Leicester Square"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Covent Garden"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Barking", "Upney"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Upney"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["St. John's Wood", "Swiss Cottage"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Swiss Cottage"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Colliers Wood", "South Wimbeldon"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Colliers Wood"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Parsons Green", "Putney Bridge"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Parsons Green"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Holborn", "Tottenham Court Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Holborn"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Clapham North", "Stockwell"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Stockwell"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Barbican", "Farringdon"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Barbican"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 3, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0.953, 0.525, 0.631}], RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Boston Manor", "Osterley"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Boston Manor"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canning Town", "East India"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "East India"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Greenford", "Northolt"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Greenford"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hackney Wick", "Stratford"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hackney Wick"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Becontree", "Dagenham Heathway"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Dagenham Heathway"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Edgware Road", "Paddington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Edgware Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 4, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kentish Town", "Tufnell Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kentish Town"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Buckhurst Hill", "Loughton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Buckhurst Hill"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kilburn Park", "Maida Vale"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Maida Vale"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Brent Cross", "Golders Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Brent Cross"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Blackwall", "East India"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Blackwall"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Northfields", "South Ealing"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Ealing"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Baker Street", "Bond Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Baker Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/ 2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, \ {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Lambeth North", "Waterloo"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Lambeth North"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Acton Central", "Willesden Junction"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Willesden Junction"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Mile End", "Stepney Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Mile End"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canary Wharf", "North Greenwich"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Canary Wharf"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Green Park", "Hyde Park Corner"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Green Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Golders Green", "Hampstead"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Golders Green"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bank", "Moorgate"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Moorgate"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["King's Cross St. Pancras", "Russell Square"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "King's Cross St. Pancras"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hornchurch", "Upminster Bridge"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Upminster Bridge"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge[ "Cutty Sark for Maritime Greenwich", "Island Gardens"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Island Gardens"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Beckton Park", "Cyprus"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Beckton Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Finchley Road", "Swiss Cottage"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Finchley Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Gospel Oak", "Hamstead Heath"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Gospel Oak"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Ladbroke Grove", "Latimer Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Ladbroke Grove"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Leyton Midland Road", "Leytonstone High Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Leyton Midland Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["East Putney", "Putney Bridge"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Putney Bridge"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Burnt Oak", "Edgware"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Edgware"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Pimlico", "Victoria"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Victoria"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kennington", "Oval"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kennington"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Aldgate East", "Liverpool Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Aldgate East"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Arnos Grove", "Bounds Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Arnos Grove"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["East Acton", "North Acton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "East Acton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Chancery Lane", "St. Paul's"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "St. Paul's"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Limehouse", "Westferry"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Westferry"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Euston Square", "King's Cross St. Pancras"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "King's Cross St. Pancras"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 3, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0.953, 0.525, 0.631}], RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Imperial Wharf", "West Brompton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West Brompton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Becontree", "Upney"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Becontree"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Earl's Court", "West Brompton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Earl's Court"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Carpenders Park", "Hatch End"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hatch End"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Harringay Green Lanes", "South Tottenham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Harringay Green Lanes"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Pontoon Dock", "West Silvertown"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West Silvertown"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Chaifont & Latimer", "Chorleywood"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Chorleywood"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Camden Town", "Euston"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Camden Town"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["High Street Kensington", "Notting Hill Gate"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Notting Hill Gate"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Brixton", "Stockwell"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Stockwell"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Euston", "Mornington Crescent"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Euston"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Charing Cross", "Leicester Square"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Charing Cross"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["North Wembley", "Wembley Central"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Wembley Central"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], { RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kenton", "South Kenton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Kenton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], { RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Custom House for ExCeL", "Royal Victoria"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Royal Victoria"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Ruislip Gardens", "South Ruislip"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Ruislip"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Seven Sisters", "Tottenham Hale"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Tottenham Hale"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hatton Cross", "Heathrow Terminals 1,2,3"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hatton Cross"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Alperton", "Park Royal"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Park Royal"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Blackhorse Road", "Walthamstow Central"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Walthamstow Central"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Debden", "Loughton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Loughton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Barons Court", "West Kensington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West Kensington"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canning Town", "North Greenwich"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "North Greenwich"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Goodge Street", "Tottenham Court Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Tottenham Court Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Covent Garden", "Holborn"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Holborn"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Waterloo", "Westminster"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Westminster"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canary Wharf", "West India Quay"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West India Quay"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Ravenscourt Park", "Stamford Brook"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Ravenscourt Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Chigwell", "Grange Hill"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Chigwell"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Harrow & Wealdstone", "Kenton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kenton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], { RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Chorleywood", "Rickmansworth"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Rickmansworth"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bow Road", "Mile End"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bow Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Camden Town", "Mornington Crescent"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Camden Town"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Gloucester Road", "South Kensington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Kensington"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 3, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}], RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Shepherd's Bush", "White City"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Shepherd's Bush"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Custom House for ExCeL", "Prince Regent"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Custom House for ExCeL"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Green Park", "Piccadilly Circus"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Piccadilly Circus"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Schreditch High Street", "Whitechapel"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Schreditch High Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Embankment", "Waterloo"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Waterloo"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Finsbury Park", "Seven Sisters"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Seven Sisters"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Baker Street", "St. John's Wood"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "St. John's Wood"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["New Cross Gate", "Surrey Quays"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Surrey Quays"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["North Wembley", "South Kenton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "North Wembley"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], { RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Royal Oak", "Westbourne Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Royal Oak"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Blackfriars", "Mansion House"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Blackfriars"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Euston", "South Hampstead"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Hampstead"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Barbican", "Moorgate"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Moorgate"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 3, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0.953, 0.525, 0.631}], RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Anerley", "Norwood Junction"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Anerley"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Ealing Broadway", "West Acton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West Acton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Turnpike Lane", "Wood Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Wood Green"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Dollis Hill", "Willesden Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Dollis Hill"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Earl's Court", "Gloucester Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Gloucester Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canonbury", "Dalston Kingsland"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Canonbury"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Stratford", "West Ham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West Ham"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Embankment", "Temple"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Embankment"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Southfields", "Wimbeldon Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Southfields"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Liverpool Street", "Moorgate"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Liverpool Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 3, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0.953, 0.525, 0.631}], RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Embankment", "Westminster"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Westminster"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Aldgate", "Liverpool Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Aldgate"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Archway", "Highgate"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Archway"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Grange Hill", "Hainault"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Grange Hill"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Poplar", "Westferry"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Poplar"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Leicester Square", "Piccadilly Circus"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Leicester Square"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Shepherd's Bush", "Willesden Junction"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Willesden Junction"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Limehouse", "Shadwell"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Limehouse"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Finsbury Park", "Manor House"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Manor House"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Westferry", "West India Quay"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Westferry"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Green Park", "Victoria"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Green Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kingsbury", "Wembley Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kingsbury"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bow Church", "Devons Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bow Church"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canons Park", "Stanmore"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Stanmore"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Barkingside", "Newbury Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Barkingside"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Fulham Broadway", "Parsons Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Fulham Broadway"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Roding Valley", "Woodford"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Woodford"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Dalston Kingsland", "Hackney Central"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Dalston Kingsland"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Haggerston", "Hoxton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Haggerston"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Brockley", "Honor Oak Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Brockley"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hammersmith", "Turnham Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hammersmith"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Notting Hill Gate", "Queensway"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Queensway"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bond Street", "Marble Arch"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bond Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Shadwell", "Wapping"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Shadwell"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kensington (Olympia)", "Shepherd's Bush"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Shepherd's Bush"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Crystal Palace", "Sydenham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Sydenham"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Charing Cross", "Piccadilly Circus"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Charing Cross"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["All Saints", "Poplar"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "All Saints"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Northwood", "Northwood Hills"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Northwood Hills"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["King George V", "Woolwich Arsenal"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "King George V"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canada Water", "Surrey Quays"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Canada Water"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Clapham Common", "Clapham South"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Clapham Common"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Dagenham East", "Dagenham Heathway"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Dagenham East"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Leyton", "Leytonstone"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Leytonstone"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Arsenal", "Finsbury Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Finsbury Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kennington", "Waterloo"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kennington"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["London City Airport", "Pontoon Dock"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Pontoon Dock"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Stepney Green", "Whitechapel"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Stepney Green"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Pudding Mill Lane", "Stratford"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Stratford"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Fulham Broadway", "West Brompton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West Brompton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Moor Park", "Rickmansworth"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Moor Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Maida Vale", "Warwick Avenue"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Warwick Avenue"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Acton Central", "South Acton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Acton Central"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["High Barnet", "Totteridge & Whetstone"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Totteridge & Whetstone"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Epping", "Theydon Bois"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Theydon Bois"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Harlesden", "Stonebridge Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Harlesden"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], { RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Brondesbury", "West Hampstead"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West Hampstead"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kilburn", "West Hampstead"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kilburn"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Cannon Street", "Monument"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Cannon Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kensal Green", "Willesden Junction"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kensal Green"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], { RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Norwood Junction", "West Croydon"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Norwood Junction"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canary Wharf", "Heron Quays"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Canary Wharf"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Plaistow", "Upton Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Upton Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bromley-by-Bow", "West Ham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West Ham"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Arsenal", "Holloway Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Arsenal"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Goldhawk Road", "Sheperd's Bush"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Sheperd's Bush"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Lancaster Gate", "Marble Arch"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Marble Arch"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Caledonian Road", "Holloway Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Holloway Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Arnos Grove", "Southgate"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Southgate"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Mile End", "Stratford"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Stratford"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hackney Wick", "Homerton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Homerton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Finchley Road & Frognal", "Hamstead Heath"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hamstead Heath"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Brockley", "New Cross Gate"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "New Cross Gate"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Elverson Road", "Lewisham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Elverson Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Gunnesbury", "Kew Gardens"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Gunnesbury"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], { RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bank", "Liverpool Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Liverpool Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Leyton", "Stratford"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Leyton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Gunnesbury", "Turnham Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Turnham Green"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Paddington", "Warwick Avenue"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Paddington"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hyde Park Corner", "Knightsbridge"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hyde Park Corner"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Manor House", "Turnpike Lane"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Turnpike Lane"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Charing Cross", "Embankment"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Embankment"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Stonebridge Park", "Wembley Central"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Stonebridge Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}], { RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Forest Hill", "Honor Oak Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Honor Oak Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Monument", "Tower Hill"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Monument"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Blackhorse Road", "Walthamstow Queen's Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Blackhorse Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Lancaster Gate", "Queensway"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Lancaster Gate"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Aldgate East", "Whitechapel"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Whitechapel"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Gants Hill", "Redbridge"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Gants Hill"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Angel", "Old Street"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Angel"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["South Harrow", "Sudbury Hill"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Sudbury Hill"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hounslow Central", "Hounslow East"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hounslow East"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Clapham Junction", "Imperial Wharf"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Imperial Wharf"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Southwark", "Waterloo"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Waterloo"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Poplar", "West India Quay"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Poplar"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bermondsey", "Canada Water"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Bermondsey"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kilburn High Road", "Queen's Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Queen's Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Moor Park", "Northwood"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Northwood"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hanger Lane", "Perivale"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hanger Lane"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canning Town", "Royal Victoria"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Canning Town"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Balham", "Clapham South"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Clapham South"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Baker Street", "Finchley Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Baker Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hammersmith", "Ravenscourt Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hammersmith"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Oval", "Stockwell"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Oval"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/ 2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, \ {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Oxford Circus", "Regent's Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Oxford Circus"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/ 2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, \ {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Anerley", "Penge West"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Penge West"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/ 2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, \ {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Northwick Park", "Preston Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Preston Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/ 2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, \ {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canning Town", "West Ham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Canning Town"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Wimbeldon", "Wimbeldon Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Wimbeldon Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Northolt", "South Ruislip"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Northolt"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Archway", "Tufnell Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Tufnell Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Neasden", "Wembley Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Wembley Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hillingdon", "Ickenham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Ickenham"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}], RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Camden Road", "Kentish Town West"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kentish Town West"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Baker Street", "Edgware Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Baker Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Baker Street", "Marylebone"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Baker Street"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Clapham Common", "Clapham North"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Clapham North"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Cyprus", "Gallions Reach"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Cyprus"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Oxford Circus", "Piccadilly Circus"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Piccadilly Circus"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Fairlop", "Hainault"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hainault"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Chigwell", "Roding Valley"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Roding Valley"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Bond Street", "Oxford Circus"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Oxford Circus"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Acton Town", "South Ealing"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Acton Town"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Devons Road", "Langdon Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Devons Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Rayners Lane", "South Harrow"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Harrow"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Leyton Midland Road", "Walthamstow Queen's Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Walthamstow Queen's Road"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kensington (Olympia)", "West Brompton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Kensington (Olympia)"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Crouch Hill", "Harringay Green Lanes"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Crouch Hill"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Kilburn", "Willesden Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Willesden Green"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Barking", "East Ham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Barking"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["New Cross", "Surrey Quays"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Surrey Quays"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Leytonstone", "Snaresbrook"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Leytonstone"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge[ "Caledonian Road & Barnsbury", "Highbury & Islington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Caledonian Road & Barnsbury"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Barking", "Woodrange Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Woodrange Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Cutty Sark for Maritime Greenwich", "Greenwich"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Cutty Sark for Maritime Greenwich"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Hanger Lane", "North Acton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "North Acton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Leicester Square", "Tottenham Court Road"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Leicester Square"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Beckton Park", "Royal Albert"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Royal Albert"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Gloucester Road", "High Street Kensington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "High Street Kensington"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Brondesbury Park", "Kensal Rise"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Brondesbury Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Upminster", "Upminster Bridge"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Upminster"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Borough", "Elephant & Castle"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Borough"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Totteridge & Whetstone", "Woodside Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Woodside Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Colliers Wood", "Tooting Broadway"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Tooting Broadway"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Blackfriars", "Temple"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Temple"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Canonbury", "Highbury & Islington"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Highbury & Islington"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Angel", "King's Cross St. Pancras"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "King's Cross St. Pancras"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Acton Town", "Turnham Green"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Turnham Green"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["All Saints", "Langdon Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Langdon Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.008, 0.694, 0.69}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["London Bridge", "Southwark"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Southwark"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Croxley", "Moor Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Moor Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Oakwood", "Southgate"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Oakwood"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Elm Park", "Hornchurch"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Hornchurch"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Cannon Street", "Mansion House"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Mansion House"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.996, 0.863, 0.}], RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Snaresbrook", "South Woodford"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Snaresbrook"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Cockfosters", "Oakwood"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Cockfosters"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]} , With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Finchley Road", "West Hampstead"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "West Hampstead"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Wanstead Park", "Woodrange Park"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Wanstead Park"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Plaistow", "West Ham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Plaistow"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 2, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}], RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Gunnesbury", "South Acton"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "South Acton"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["Penge West", "Sydenham"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "Sydenham"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{{ RGBColor[{0.882, 0.471, 0.184}], GrayLevel[1]}}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]], UndirectedEdge["East Putney", "Southfields"] -> Function[{$CellContext`coords0, $CellContext`e}, With[{$CellContext`coords = If[ And[ OrderedQ[$CellContext`e], Part[$CellContext`e, 1] === "East Putney"], $CellContext`coords0, Reverse[$CellContext`coords0]]}, If[Length[$CellContext`coords] > 2, {Black, Thin, Line[$CellContext`coords]}, With[{$CellContext`w = 3, $CellContext`n = 1, $CellContext`t = Normalize[ Part[$CellContext`coords, -1] - Part[$CellContext`coords, 1]]}, With[{$CellContext`d = Dot[{{0, -1}, {1, 0}}, $CellContext`t], $CellContext`shortCoords = { Part[$CellContext`coords, 1] + 10. $CellContext`t, Part[$CellContext`coords, -1] - 10. $CellContext`t}}, Prepend[ Table[ With[{$CellContext`c = Part[{ RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]}, If[Head[$CellContext`c] =!= List, { AbsoluteThickness[$CellContext`w], $CellContext`c, Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , $CellContext`shortCoords]]}, Apply[Join, Table[{ AbsoluteThickness[(( 2 (Length[$CellContext`c] - $CellContext`i) + 1)/( 2 Length[$CellContext`c] - 1)) $CellContext`w], Part[$CellContext`c, $CellContext`i], Line[ Map[ Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2)) $CellContext`d, #]& , \ $CellContext`shortCoords]]}, {$CellContext`i, Length[$CellContext`c]}]]]], {$CellContext`k, Range[$CellContext`n]}], CapForm["Butt"]]]]]]]}, VertexShapeFunction -> { "Oakwood" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "West Acton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "King's Cross St. Pancras" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "King George V" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Kilburn High Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Stonebridge Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Hornchurch" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Aldgate" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Cyprus" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "West Hampstead" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Dagenham Heathway" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Plaistow" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Euston Square" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "West Kensington" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Kentish Town" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Brondesbury" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Farringdon" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Gallions Reach" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Homerton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Kensington (Olympia)" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Barkingside" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Lambeth North" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Woodside Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Sydenham" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Regent's Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Balham" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Brent Cross" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Putney Bridge" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Custom House for ExCeL" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Walthamstow Central" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Ladbroke Grove" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "South Kenton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Upton Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Barbican" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Watford" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Hounslow East" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Canning Town" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Dollis Hill" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "West Finchley" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Liverpool Street" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Rayners Lane" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Vauxhall" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Shepherd's Bush" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Bayswater" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Warwick Avenue" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Surrey Quays" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Bow Church" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Harringay Green Lanes" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Northwick Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Forest Hill" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "South Ealing" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Wimbeldon Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Snaresbrook" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Buckhurst Hill" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Holloway Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Stockwell" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Chalk Farm" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Eastcote" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "South Acton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Mansion House" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Leyton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "North Ealing" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Willesden Junction" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Seven Sisters" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Boston Manor" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "South Ruislip" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Bermondsey" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Watford Junction" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Dalston Kingsland" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Blackfriars" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Barking" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Chiswick Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Woodrange Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Waterloo" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Earl's Court" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "High Street Kensington" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Watford High Street" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Dalston Junction" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Colliers Wood" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Angel" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Moorgate" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Tottenham Hale" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Westferry" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "St. John's Wood" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Wapping" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Ealing Broadway" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Manor House" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Sudbury Town" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Crossharbour" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Arnos Grove" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Hackney Central" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Pimlico" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Pontoon Dock" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Edgware" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Neasden" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Cutty Sark for Maritime Greenwich" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Hatch End" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Newbury Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Monument" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Roding Valley" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Wembley Central" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Clapham North" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Southwark" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Upminster" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "West Ham" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Caledonian Road & Barnsbury" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Beckton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Upper Holloway" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Finchley Road & Frognal" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Rickmansworth" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Finsbury Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Elm Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Preston Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Goodge Street" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Queensbury" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Rotherhithe" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Northfields" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Colindale" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Ickenham" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Southfields" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Golders Green" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Mudchute" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Parsons Green" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Woodford" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Ruislip Manor" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Theydon Bois" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Leytonstone High Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Osterley" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Canary Wharf" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Gloucester Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Highbury & Islington" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Anerley" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Piccadilly Circus" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Hendon Central" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Cockfosters" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Highgate" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Epping" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Canonbury" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "South Tottenham" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Crystal Palace" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Oval" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "East Ham" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Oxford Circus" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Richmond" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Heron Quays" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Hainault" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Becontree" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Hampstead" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Finchley Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Royal Oak" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Sloane Square" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Amersham" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Northwood" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Tufnell Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Southgate" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Mornington Crescent" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Island Gardens" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Clapham Common" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Brixton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Hatton Cross" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Honor Oak Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "West India Quay" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "East Finchley" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Perivale" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Gants Hill" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Heathrow Terminals 1,2,3" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Tower Gateway" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Hammersmith" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Baker Street" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Turnpike Lane" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Beckton Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "North Harrow" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Tottenham Court Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Queensway" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Schreditch High Street" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "High Barnet" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Ravenscourt Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Acton Central" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Finchley Central" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Bromley-by-Bow" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Dagenham East" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Leyton Midland Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "South Quay" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Aldgate East" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "South Harrow" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Elephant & Castle" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "East Putney" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Penge West" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Chorleywood" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Lewisham" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Upminster Bridge" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Great Portland Street" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Acton Town" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Northwood Hills" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Uxbridge" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "New Cross Gate" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "East Acton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Kentish Town West" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Devons Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "New Cross" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Barons Court" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Chesham" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Loughton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Greenford" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Norwood Junction" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Ealing Common" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Paddington" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Moor Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Belsize Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "South Wimbeldon" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Swiss Cottage" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Bethnal Green" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Poplar" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Limehouse" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Hyde Park Corner" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Woolwich Arsenal" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Stanmore" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Morden" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Imperial Wharf" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "West Croydon" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Westminster" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Hackney Wick" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Fulham Broadway" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Fairlop" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Holborn" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Northolt" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Stratford" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Tower Hill" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Harlesden" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Brondesbury Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Wembley Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Pinner" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Langdon Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Canons Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Westbourne Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Park Royal" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "West Ruislip" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Grange Hill" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Green Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Wimbeldon" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Blackhorse Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Bounds Green" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Willesden Green" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Kilburn Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Knightsbridge" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Elverson Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Kew Gardens" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Walthamstow Queen's Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Victoria" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Deptford Bridge" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Turnham Green" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Hamstead Heath" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "West Silvertown" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Redbridge" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Alperton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Notting Hill Gate" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "St. Paul's" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Bond Street" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Maida Vale" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Tooting Bec" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "London Bridge" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Carpenders Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "West Brompton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Kingsbury" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Gospel Oak" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Camden Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "White City" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Russell Square" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Embankment" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Kennington" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "East India" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Wanstead Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Kenton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Harrow-on-the-Hill" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Totteridge & Whetstone" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Whitechapel" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Charing Cross" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Greenwich" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Arsenal" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Clapham Junction" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Chancery Lane" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Chaifont & Latimer" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Goldhawk Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Crouch Hill" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Latimer Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Canada Water" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "West Harrow" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Upney" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Kilburn" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Ruislip Gardens" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Marylebone" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "North Wembley" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Hounslow West" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Debden" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Bow Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Sheperd's Bush" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Cannon Street" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Tooting Broadway" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "North Greenwich" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Blackwall" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Euston" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Prince Regent" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Royal Albert" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Hoxton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "South Woodford" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Leicester Square" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Wood Green" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Ruislip" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Clapham South" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Old Street" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Gunnesbury" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Holland Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Queen's Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Bank" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Burnt Oak" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Sudbury Hill" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Stepney Green" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Brockley" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Royal Victoria" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "South Hampstead" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Stamford Brook" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "South Kensington" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Hounslow Central" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Hanger Lane" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Camden Town" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Headstone Lane" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Haggerston" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Borough" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Bushey" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Leytonstone" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Caledonian Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Archway" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Wanstead" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "North Acton" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Mile End" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Edgware Road" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Mill Hill East" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Kensal Rise" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "St. James's Park" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Chigwell" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "All Saints" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Croxley" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Harrow & Wealdstone" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Pudding Mill Lane" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Lancaster Gate" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Warren Street" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Marble Arch" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Shadwell" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Hillingdon" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0]]}], "Kensal Green" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[0.5]]}], "Temple" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "Covent Garden" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}], "London City Airport" -> Function[{$CellContext`coords, $CellContext`v, \ $CellContext`whDummy}, { Style[ Disk[$CellContext`coords, 0.5 20], GrayLevel[1]]}]}, VertexSize -> {20}, VertexCoordinates -> CompressedData[" 1:eJxdmE9om2Ucx6PsEKSMMHooMiTCDjns0EORoDJeJYehY4Q5RtEhceqIc7q4 1Rln3V6zOrOuarpNrVNnDj30kEOQIWUMKWNIkTKC9FBERhg7hB0khx16GCLu +XwCb3L58rx53t/z+/P9/Xmfpw8d2/f246lU6o3HUqn/8dGv/En0CMdmAlan AhY/C9j6JuAm/9e+DTj+ecCNhYBt/u+dQN6XAePnA05fDjiDvOhAwNsXA+6e DfjbfMD988n9+UsBjyNntBEwcyFg9jzns47eDFjgvS76PcG69wXyfgy4yvnX WZc4f6UWcDkOmD7Hft6/czVg6tOASz8hn/17WU/O8d7XAdvgi9hXZ//UdwEb 9YDP4p828Ujj7x72X/0+4MLZgLkLST3/wI5uNWD/ffQ9E1D/rnLOn8jPYd8z yNdfc9hRRe6T6JE9EvA08uIK+l8JuMz7BfTKfBUwgkc51jfZv0icdhCXa0N+ KMCDq+yr8P5Wnsfwb4L3ivx/HX0X+H8dPut/+Vxl3UafJfz7L/L6tYBHeH8J eQV4dpB9N9B3TR7CS/OhiD4d9LuLXzP4Sf/u5rzSKwF7vH/zB87RzpMBV9A/ Q7zz7D+Knt130JO8iY7zPnp0jyKXeDcPB5QvM8jrE58C5y8gL94fcBb9x4iz /EpNB7xn/LC7/AH7kX8NjPYFrJGf+bNJec0PA24lH3PYv411Grs65GN5KP5F 7NxC/q2ybhF/4+V5mePJdZl4PcTOcXmGPZs8X6Y+Ns1Xn6Nv/zTykZfjnB7+ sT7q7634I00c8uhrPViEjxXq+kPqinVxjLyMeX8Fvfvsr+M/+am95ndJfqL/ r5w/AU/u8X/b+sp6GZ6sWH+x6wp2bdST9rbMO55PEr8c2KCejnHuMudYj1Lw V38UTwWcwr42fn/J+s/7I/gnTR5PcN529JrieaMWMMt7PeL3u/4B89qLPaP4 tYc/itTRpnlHPe8TT+vTin2Wul4hn07BX/vgCPW7yvov+J5mrf/z5i/2yEf1 u4b+m/jZutWDn8Yz5v0s+6yPi/hrEj2j+eR5laF6WYKfcSlg+6Pk/332x5MB G+R/C7vMF/laod8t87xJPl8HG8RVvq2Do8Qxgjfxa0l9+84h7Jtin/13FPll /DGqPugpPyPq8U34WGR/BG9L8LVb5jz82KafjH8c0Pgajyp5l4M/MfvL6G8/ juHRwF+snbO61DHjVcJfbyE3C0+cAzM819/yfy/rtPUReVvQRz73sadK/ll/ 9lAvU85T8hV/7sJ/5kMefWY4V17on7Z+qiWxQp05anzRa43nxlt/NdBrHX06 6G3/rswk98fvBbReZvDnL+SrfLzB/3n4cIh+7/zSId+dT+7LN+c18sj5Zpb+ lzmTPD/Le84Z0RA/9wzV5xL71vGffLe/yLsi9tZ5vgM5MXrdB6vov8C6hP7y ruH8xPPUc+iHf52vrY/Wd/trg33WO/PW/t89kbQ3Rf+bZK63f3esu+iRQb8I //5D/FZZN+FNV7vJX+uj/F9Cn2ne098lztuJ/WnqnP1joO/egBvoaTyc10aI 70XkRMSt8y56Yad9NItd9lflrcPjMvHVHxHxtb9qt+fHB5HD3CC/Ltv/iL/9 Lst36SbzrP3pFPxvct7fxNPvLfPL+WepFlB/3mW/eX7f/jib1L/Puc7z1o1F 4tWGbzPOB/jHPLN/Gj+/l1bRv0y8C8jJYM+4fKHfLeAvvx8i3l/BH/I3g167 ye9BXzWviPcI9rd53mDOr/t9BT/9/nbOm+T/p7QDu+035uUV1s59g3nD/inf nX9B66lzUBf/+T04wblFeNGtYR/zR9/vNc7p8Fz+LeG/BesHfpe/LfTdQhzM 3zn0TQ3NE23yRX9N8/456rHxtt5F9CP7R/xy0r6m8xFy5c9O7Fnz+w75sfcQ 2LHJ/nG/A3j+gPxqHkva0yHPX0eu/Wsb+jgv6h/nPtd15N4mvk3sWzyf1Gtw H3AI/eaT+tp/NqhP3l+UmPv2+13yakDna/NNf8i3W8jf6f0A53dqAb1vqQ7N J2vO5/SNpTip/wP2Xfw5YIX9OdYjrO+QX9axiUtJ+bfJ34rf3S+wNr74ze8v 5Wygz4vexyDvAHx0niog/yDrXejjfNElXvb5wf0N+mzw3Puww84/fB9F9AW/ h53HW0Pr7fjNOlRAzhx83vD7gTpnPD3f7z/zuUteDPgUYcdQvTeeRfzu/Y33 VxPOb/DXOTcayu8IPR4g1/uUW96PWG+cx72vwt/6V3+veF/qvQz2tsBl8sv+ khmap2PucexPzh2D+XFoHvD+yfvNPjzSP6v6B/62T0b/AeJQkbo= "]}]], Typeset`boxes, Typeset`boxes$s2d = GraphicsGroupBox[{{ Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{438.5, 643.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Acton Central\"", LabelStyle -> "TextStyling"], Annotation[#, "Acton Central", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$1"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{327.5, 554.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Acton Town\"", LabelStyle -> "TextStyling"], Annotation[#, "Acton Town", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$2"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1387., 671.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Aldgate\"", LabelStyle -> "TextStyling"], Annotation[#, "Aldgate", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$3"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1440.5, 678.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Aldgate East\"", LabelStyle -> "TextStyling"], Annotation[#, "Aldgate East", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$4"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1590., 662.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"All Saints\"", LabelStyle -> "TextStyling"], Annotation[#, "All Saints", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$5"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{318.5, 931.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Alperton\"", LabelStyle -> "TextStyling"], Annotation[#, "Alperton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$6"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{28.5, 1311.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Amersham\"", LabelStyle -> "TextStyling"], Annotation[#, "Amersham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$7"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 89.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Anerley\"", LabelStyle -> "TextStyling"], Annotation[#, "Anerley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$8"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1203.5, 841.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Angel\"", LabelStyle -> "TextStyling"], Annotation[#, "Angel", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$9"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1135.5, 1109.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Archway\"", LabelStyle -> "TextStyling"], Annotation[#, "Archway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$10"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 1230.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Arnos Grove\"", LabelStyle -> "TextStyling"], Annotation[#, "Arnos Grove", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$11"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1308.5, 1029.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Arsenal\"", LabelStyle -> "TextStyling"], Annotation[#, "Arsenal", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$12"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{866., 804.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Baker Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Baker Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$13"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{893., 154.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Balham\"", LabelStyle -> "TextStyling"], Annotation[#, "Balham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$14"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1233., 668.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Bank\"", LabelStyle -> "TextStyling"], Annotation[#, "Bank", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$15"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1218.5, 765.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Barbican\"", LabelStyle -> "TextStyling"], Annotation[#, "Barbican", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$16"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1820.5, 857.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Barking\"", LabelStyle -> "TextStyling"], Annotation[#, "Barking", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$17"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1838.5, 1112.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Barkingside\"", LabelStyle -> "TextStyling"], Annotation[#, "Barkingside", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$18"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{600., 535.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Barons Court\"", LabelStyle -> "TextStyling"], Annotation[#, "Barons Court", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$19"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{705., 761.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Bayswater\"", LabelStyle -> "TextStyling"], Annotation[#, "Bayswater", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$20"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1975.5, 464.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Beckton\"", LabelStyle -> "TextStyling"], Annotation[#, "Beckton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$21"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1898., 541.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Beckton Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Beckton Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$22"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1875.5, 907.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Becontree\"", LabelStyle -> "TextStyling"], Annotation[#, "Becontree", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$23"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1017., 1014.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Belsize Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Belsize Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$24"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1360.5, 529.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Bermondsey\"", LabelStyle -> "TextStyling"], Annotation[#, "Bermondsey", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$25"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1501., 786.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Bethnal Green\"", LabelStyle -> "TextStyling"], Annotation[#, "Bethnal Green", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$26"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1166.5, 566.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Blackfriars\"", LabelStyle -> "TextStyling"], Annotation[#, "Blackfriars", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$27"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1538., 1082.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Blackhorse Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Blackhorse Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$28"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1639.5, 627.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Blackwall\"", LabelStyle -> "TextStyling"], Annotation[#, "Blackwall", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$29"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{869., 705.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Bond Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Bond Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$30"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1138.5, 398.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Borough\"", LabelStyle -> "TextStyling"], Annotation[#, "Borough", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$31"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{247.5, 496.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Boston Manor\"", LabelStyle -> "TextStyling"], Annotation[#, "Boston Manor", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$32"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 1202.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Bounds Green\"", LabelStyle -> "TextStyling"], Annotation[#, "Bounds Green", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$33"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 741.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Bow Church\"", LabelStyle -> "TextStyling"], Annotation[#, "Bow Church", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$34"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1613.5, 765.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Bow Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Bow Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$35"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{913.5, 1118.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Brent Cross\"", LabelStyle -> "TextStyling"], Annotation[#, "Brent Cross", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$36"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1030.5, 209.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Brixton\"", LabelStyle -> "TextStyling"], Annotation[#, "Brixton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$37"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 264.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Brockley\"", LabelStyle -> "TextStyling"], Annotation[#, "Brockley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$38"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1678.5, 759.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Bromley-by-Bow\"", LabelStyle -> "TextStyling"], Annotation[#, "Bromley-by-Bow", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$39"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{712.5, 962.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Brondesbury\"", LabelStyle -> "TextStyling"], Annotation[#, "Brondesbury", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$40"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{680., 965.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Brondesbury Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Brondesbury Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$41"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1712.5, 1257.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Buckhurst Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Buckhurst Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$42"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{836.5, 1197.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Burnt Oak\"", LabelStyle -> "TextStyling"], Annotation[#, "Burnt Oak", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$43"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{566., 1297.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Bushey\"", LabelStyle -> "TextStyling"], Annotation[#, "Bushey", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$44"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1255.5, 974.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Caledonian Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Caledonian Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$45"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1283.5, 944.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Caledonian Road & Barnsbury\"", LabelStyle -> "TextStyling"], Annotation[#, "Caledonian Road & Barnsbury", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$46"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1165., 970.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Camden Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Camden Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$47"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1070.5, 947.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Camden Town\"", LabelStyle -> "TextStyling"], Annotation[#, "Camden Town", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$48"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1461., 529.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Canada Water\"", LabelStyle -> "TextStyling"], Annotation[#, "Canada Water", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$49"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1590., 527.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Canary Wharf\"", LabelStyle -> "TextStyling"], Annotation[#, "Canary Wharf", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$50"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1708., 629.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Canning Town\"", LabelStyle -> "TextStyling"], Annotation[#, "Canning Town", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$51"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1215.5, 606.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Cannon Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Cannon Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$52"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1434.5, 949.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Canonbury\"", LabelStyle -> "TextStyling"], Annotation[#, "Canonbury", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$53"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{648.5, 1175.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Canons Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Canons Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$54"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{567.5, 1267.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Carpenders Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Carpenders Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$55"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{159., 1311.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Chaifont & Latimer\"", LabelStyle -> "TextStyling"], Annotation[#, "Chaifont & Latimer", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$56"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1044., 986.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Chalk Farm\"", LabelStyle -> "TextStyling"], Annotation[#, "Chalk Farm", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$57"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1144.5, 706.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Chancery Lane\"", LabelStyle -> "TextStyling"], Annotation[#, "Chancery Lane", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$58"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1030.5, 585.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Charing Cross\"", LabelStyle -> "TextStyling"], Annotation[#, "Charing Cross", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$59"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{77.5, 1338.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Chesham\"", LabelStyle -> "TextStyling"], Annotation[#, "Chesham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$60"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1776.5, 1199.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Chigwell\"", LabelStyle -> "TextStyling"], Annotation[#, "Chigwell", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$61"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{357., 536.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Chiswick Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Chiswick Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$62"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{240.5, 1294.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Chorleywood\"", LabelStyle -> "TextStyling"], Annotation[#, "Chorleywood", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$63"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{941.5, 207.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Clapham Common\"", LabelStyle -> "TextStyling"], Annotation[#, "Clapham Common", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$64"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{811.5, 292.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Clapham Junction\"", LabelStyle -> "TextStyling"], Annotation[#, "Clapham Junction", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$65"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{970., 231.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Clapham North\"", LabelStyle -> "TextStyling"], Annotation[#, "Clapham North", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$66"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{919.5, 181.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Clapham South\"", LabelStyle -> "TextStyling"], Annotation[#, "Clapham South", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$67"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 1313.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Cockfosters\"", LabelStyle -> "TextStyling"], Annotation[#, "Cockfosters", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$68"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{862., 1169.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Colindale\"", LabelStyle -> "TextStyling"], Annotation[#, "Colindale", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$69"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{819., 82.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Colliers Wood\"", LabelStyle -> "TextStyling"], Annotation[#, "Colliers Wood", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$70"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1058.5, 675.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Covent Garden\"", LabelStyle -> "TextStyling"], Annotation[#, "Covent Garden", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$71"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 448.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Crossharbour\"", LabelStyle -> "TextStyling"], Annotation[#, "Crossharbour", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$72"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1273., 1116.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Crouch Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Crouch Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$73"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{278.5, 1286.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Croxley\"", LabelStyle -> "TextStyling"], Annotation[#, "Croxley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$74"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1325., 73.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Crystal Palace\"", LabelStyle -> "TextStyling"], Annotation[#, "Crystal Palace", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$75"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1824.5, 615.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Custom House for ExCeL\"", LabelStyle -> "TextStyling"], Annotation[#, "Custom House for ExCeL", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$76"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 346.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Cutty Sark for Maritime Greenwich\"", LabelStyle -> "TextStyling"], Annotation[#, "Cutty Sark for Maritime Greenwich", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$77"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1923.5, 517.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Cyprus\"", LabelStyle -> "TextStyling"], Annotation[#, "Cyprus", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$78"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1924.5, 961.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Dagenham East\"", LabelStyle -> "TextStyling"], Annotation[#, "Dagenham East", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$79"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1908., 941.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Dagenham Heathway\"", LabelStyle -> "TextStyling"], Annotation[#, "Dagenham Heathway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$80"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1461., 906.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Dalston Junction\"", LabelStyle -> "TextStyling"], Annotation[#, "Dalston Junction", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$81"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1473., 921.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Dalston Kingsland\"", LabelStyle -> "TextStyling"], Annotation[#, "Dalston Kingsland", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$82"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1707., 1311.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Debden\"", LabelStyle -> "TextStyling"], Annotation[#, "Debden", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$83"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 289.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Deptford Bridge\"", LabelStyle -> "TextStyling"], Annotation[#, "Deptford Bridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$84"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 717.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Devons Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Devons Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$85"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{703.5, 1036.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Dollis Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Dollis Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$86"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{281.5, 703.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Ealing Broadway\"", LabelStyle -> "TextStyling"], Annotation[#, "Ealing Broadway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$87"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{315.5, 628.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Ealing Common\"", LabelStyle -> "TextStyling"], Annotation[#, "Ealing Common", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$88"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{677., 535.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Earl's Court\"", LabelStyle -> "TextStyling"], Annotation[#, "Earl's Court", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$89"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{495., 706.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"East Acton\"", LabelStyle -> "TextStyling"], Annotation[#, "East Acton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$90"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{290.5, 1146.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Eastcote\"", LabelStyle -> "TextStyling"], Annotation[#, "Eastcote", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$91"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1135.5, 1169.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"East Finchley\"", LabelStyle -> "TextStyling"], Annotation[#, "East Finchley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$92"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1795.5, 833.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"East Ham\"", LabelStyle -> "TextStyling"], Annotation[#, "East Ham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$93"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1678., 627.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"East India\"", LabelStyle -> "TextStyling"], Annotation[#, "East India", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$94"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{660.5, 327.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"East Putney\"", LabelStyle -> "TextStyling"], Annotation[#, "East Putney", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$95"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{799.5, 1233.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Edgware\"", LabelStyle -> "\ TextStyling"], Annotation[#, "Edgware", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$96"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{739., 848.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Edgware Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Edgware Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$97"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1072., 335.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Elephant & Castle\"", LabelStyle -> "TextStyling"], Annotation[#, "Elephant & Castle", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$98"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1954., 986.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Elm Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Elm Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$99"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 264.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Elverson Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Elverson Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$100"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1048., 521.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Embankment\"", LabelStyle -> "TextStyling"], Annotation[#, "Embankment", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$101"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1709.5, 1357.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Epping\"", LabelStyle -> "TextStyling"], Annotation[#, "Epping", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$102"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1081., 854.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Euston\"", LabelStyle -> "TextStyling"], Annotation[#, "Euston", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$103"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1070.5, 823.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Euston Square\"", LabelStyle -> "TextStyling"], Annotation[#, "Euston Square", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$104"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1840., 1138.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Fairlop\"", LabelStyle -> "TextStyling"], Annotation[#, "Fairlop", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$105"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1190.5, 795.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Farringdon\"", LabelStyle -> "TextStyling"], Annotation[#, "Farringdon", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$106"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1135.5, 1195.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Finchley Central\"", LabelStyle -> "TextStyling"], Annotation[#, "Finchley Central", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$107"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{798., 939.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Finchley Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Finchley Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$108"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{933., 1010.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Finchley Road & Frognal\"", LabelStyle -> "TextStyling"], Annotation[#, "Finchley Road & Frognal", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$109"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1350., 1070.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Finsbury Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Finsbury Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$110"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 176.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Forest Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Forest Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$111"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{660.5, 421.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Fulham Broadway\"", LabelStyle -> "TextStyling"], Annotation[#, "Fulham Broadway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$112"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1949., 491.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Gallions Reach\"", LabelStyle -> "TextStyling"], Annotation[#, "Gallions Reach", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$113"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1810.5, 1048.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Gants Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Gants Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$114"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{737.5, 545.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Gloucester Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Gloucester Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$115"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{934.5, 1095.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Golders Green\"", LabelStyle -> "TextStyling"], Annotation[#, "Golders Green", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$116"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{558.5, 594.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Goldhawk Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Goldhawk Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$117"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1032., 733.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Goodge Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Goodge Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$118"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1073.5, 1042.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Gospel Oak\"", LabelStyle -> "TextStyling"], Annotation[#, "Gospel Oak", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$119"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1806., 1202.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Grange Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Grange Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$120"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{962.5, 829.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Great Portland Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Great Portland Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$121"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{210.5, 916.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Greenford\"", LabelStyle -> "TextStyling"], Annotation[#, "Greenford", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$122"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{884., 638.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Green Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Green Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$123"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1590., 316.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Greenwich\"", LabelStyle -> "TextStyling"], Annotation[#, "Greenwich", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$124"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{385.5, 455.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Gunnesbury\"", LabelStyle -> "TextStyling"], Annotation[#, "Gunnesbury", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$125"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1502.5, 893.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hackney Central\"", LabelStyle -> "TextStyling"], Annotation[#, "Hackney Central", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$126"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1603., 879.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hackney Wick\"", LabelStyle -> "TextStyling"], Annotation[#, "Hackney Wick", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$127"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1462.5, 865.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Haggerston\"", LabelStyle -> "TextStyling"], Annotation[#, "Haggerston", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$128"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1840., 1166.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Hainault\"", LabelStyle -> "TextStyling"], Annotation[#, "Hainault", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$129"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{563., 535.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hammersmith\"", LabelStyle -> "TextStyling"], Annotation[#, "Hammersmith", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$130"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{962.5, 1069.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Hampstead\"", LabelStyle -> "TextStyling"], Annotation[#, "Hampstead", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$131"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1023., 1044.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hamstead Heath\"", LabelStyle -> "TextStyling"], Annotation[#, "Hamstead Heath", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$132"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{302.5, 823.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Hanger Lane\"", LabelStyle -> "TextStyling"], Annotation[#, "Hanger Lane", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$133"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{560., 996.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Harlesden\"", LabelStyle -> "TextStyling"], Annotation[#, "Harlesden", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$134"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1434.5, 1129.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Harringay Green Lanes\"", LabelStyle -> "TextStyling"], Annotation[#, "Harringay Green Lanes", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$135"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{453.5, 1104.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Harrow-on-the-Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Harrow-on-the-Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$136"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{563., 1180.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Harrow & Wealdstone\"", LabelStyle -> "TextStyling"], Annotation[#, "Harrow & Wealdstone", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$137"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{567.5, 1240.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hatch End\"", LabelStyle -> "TextStyling"], Annotation[#, "Hatch End", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$138"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{132., 379.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Hatton Cross\"", LabelStyle -> "TextStyling"], Annotation[#, "Hatton Cross", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$139"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{567.5, 1212.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Headstone Lane\"", LabelStyle -> "TextStyling"], Annotation[#, "Headstone Lane", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$140"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{98., 345.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Heathrow Terminals 1,2,3\"", LabelStyle -> "TextStyling"], Annotation[#, "Heathrow Terminals 1,2,3", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$141"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{885.5, 1146.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Hendon Central\"", LabelStyle -> "TextStyling"], Annotation[#, "Hendon Central", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$142"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 503.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Heron Quays\"", LabelStyle -> "TextStyling"], Annotation[#, "Heron Quays", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$143"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1134., 1320.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"High Barnet\"", LabelStyle -> "TextStyling"], Annotation[#, "High Barnet", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$144"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1326.5, 946.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Highbury & Islington\"", LabelStyle -> "TextStyling"], Annotation[#, "Highbury & Islington", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$145"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1135.5, 1141.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Highgate\"", LabelStyle -> "TextStyling"], Annotation[#, "Highgate", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$146"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{706.5, 648.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"High Street Kensington\"", LabelStyle -> "TextStyling"], Annotation[#, "High Street Kensington", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$147"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{110., 1180.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hillingdon\"", LabelStyle -> "TextStyling"], Annotation[#, "Hillingdon", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$148"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1084., 706.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Holborn\"", LabelStyle -> "TextStyling"], Annotation[#, "Holborn", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$149"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{654.5, 705.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Holland Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Holland Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$150"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1285., 1005.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Holloway Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Holloway Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$151"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1541., 878.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Homerton\"", LabelStyle -> "TextStyling"], Annotation[#, "Homerton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$152"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 202.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Honor Oak Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Honor Oak Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$153"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1968.5, 1002.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hornchurch\"", LabelStyle -> "TextStyling"], Annotation[#, "Hornchurch", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$154"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{178., 422.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hounslow Central\"", LabelStyle -> "TextStyling"], Annotation[#, "Hounslow Central", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$155"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{199., 449.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hounslow East\"", LabelStyle -> "TextStyling"], Annotation[#, "Hounslow East", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$156"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{157.5, 403.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Hounslow West\"", LabelStyle -> "TextStyling"], Annotation[#, "Hounslow West", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$157"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1462.5, 823.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Hoxton\"", LabelStyle -> "TextStyling"], Annotation[#, "Hoxton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$158"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{847., 613.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Hyde Park Corner\"", LabelStyle -> "TextStyling"], Annotation[#, "Hyde Park Corner", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$159"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{156., 1178.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Ickenham\"", LabelStyle -> "TextStyling"], Annotation[#, "Ickenham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$160"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{712.5, 392.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Imperial Wharf\"", LabelStyle -> "TextStyling"], Annotation[#, "Imperial Wharf", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$161"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 391.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Island Gardens\"", LabelStyle -> "TextStyling"], Annotation[#, "Island Gardens", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$162"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1029., 286.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kennington\"", LabelStyle -> "TextStyling"], Annotation[#, "Kennington", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$163"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{563., 940.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Kensal Green\"", LabelStyle -> "TextStyling"], Annotation[#, "Kensal Green", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$164"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{620.5, 964.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kensal Rise\"", LabelStyle -> "TextStyling"], Annotation[#, "Kensal Rise", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$165"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{662., 610.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kensington (Olympia)\"", LabelStyle -> "TextStyling"], Annotation[#, "Kensington (Olympia)", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$166"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1134., 1042.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kentish Town\"", LabelStyle -> "TextStyling"], Annotation[#, "Kentish Town", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$167"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1107.5, 1026.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kentish Town West\"", LabelStyle -> "TextStyling"], Annotation[#, "Kentish Town West", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$168"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{563., 1153.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kenton\"", LabelStyle -> "TextStyling"], Annotation[#, "Kenton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$169"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{385.5, 415.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Kew Gardens\"", LabelStyle -> "TextStyling"], Annotation[#, "Kew Gardens", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$170"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{751., 986.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kilburn\"", LabelStyle -> "TextStyling"], Annotation[#, "Kilburn", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$171"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{681.5, 896.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kilburn High Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Kilburn High Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$172"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{569., 887.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kilburn Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Kilburn Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$173"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1935.5, 455.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"King George V\"", LabelStyle -> "TextStyling"], Annotation[#, "King George V", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$174"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{647., 1121.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kingsbury\"", LabelStyle -> "TextStyling"], Annotation[#, "Kingsbury", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$175"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1146., 823.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"King's Cross St. Pancras\"", LabelStyle -> "TextStyling"], Annotation[#, "King's Cross St. Pancras", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$176"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{822., 591.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Knightsbridge\"", LabelStyle -> "TextStyling"], Annotation[#, "Knightsbridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$177"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{591., 782.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Ladbroke Grove\"", LabelStyle -> "TextStyling"], Annotation[#, "Ladbroke Grove", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$178"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1051., 385.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Lambeth North\"", LabelStyle -> "TextStyling"], Annotation[#, "Lambeth North", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$179"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{793.5, 706.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Lancaster Gate\"", LabelStyle -> "TextStyling"], Annotation[#, "Lancaster Gate", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$180"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 690.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Langdon Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Langdon Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$181"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{570.5, 762.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Latimer Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Latimer Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$182"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1030.5, 654.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Leicester Square\"", LabelStyle -> "TextStyling"], Annotation[#, "Leicester Square", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$183"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 236.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Lewisham\"", LabelStyle -> "TextStyling"], Annotation[#, "Lewisham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$184"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1709.5, 930.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Leyton\"", LabelStyle -> "TextStyling"], Annotation[#, "Leyton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$185"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1644.5, 946.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Leyton Midland Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Leyton Midland Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$186"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1711., 999.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Leytonstone\"", LabelStyle -> "TextStyling"], Annotation[#, "Leytonstone", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$187"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1752.5, 947.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Leytonstone High Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Leytonstone High Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$188"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1524., 629.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Limehouse\"", LabelStyle -> "TextStyling"], Annotation[#, "Limehouse", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$189"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1338.5, 749.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Liverpool Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Liverpool Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$190"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1251., 529.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"London Bridge\"", LabelStyle -> "TextStyling"], Annotation[#, "London Bridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$191"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1890.5, 497.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"London City Airport\"", LabelStyle -> "TextStyling"], Annotation[#, "London City Airport", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$192"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1709.5, 1288.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Loughton\"", LabelStyle -> "TextStyling"], Annotation[#, "Loughton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$193"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{585., 872.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Maida Vale\"", LabelStyle -> "TextStyling"], Annotation[#, "Maida Vale", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$194"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 1107.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Manor House\"", LabelStyle -> "TextStyling"], Annotation[#, "Manor House", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$195"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1190.5, 588.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Mansion House\"", LabelStyle -> "TextStyling"], Annotation[#, "Mansion House", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$196"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{826.5, 705.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Marble Arch\"", LabelStyle -> "TextStyling"], Annotation[#, "Marble Arch", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$197"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{799.5, 847.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Marylebone\"", LabelStyle -> "TextStyling"], Annotation[#, "Marylebone", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$198"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1556., 785.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Mile End\"", LabelStyle -> "TextStyling"], Annotation[#, "Mile End", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$199"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1097., 1248.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Mill Hill East\"", LabelStyle -> "TextStyling"], Annotation[#, "Mill Hill East", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$200"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1274.5, 623.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Monument\"", LabelStyle -> "TextStyling"], Annotation[#, "Monument", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$201"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1254., 748.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Moorgate\"", LabelStyle -> "TextStyling"], Annotation[#, "Moorgate", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$202"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{286., 1252.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Moor Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Moor Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$203"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{764., 27.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Morden\"", LabelStyle -> "TextStyling"], Annotation[#, "Morden", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$204"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1055.5, 907.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Mornington Crescent\"", LabelStyle -> "TextStyling"], Annotation[#, "Mornington Crescent", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$205"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1590., 421.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Mudchute\"", LabelStyle -> "TextStyling"], Annotation[#, "Mudchute", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$206"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{677., 1060.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Neasden\"", LabelStyle -> "TextStyling"], Annotation[#, "Neasden", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$207"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1840., 1084.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Newbury Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Newbury Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$208"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1461., 318.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"New Cross\"", LabelStyle -> "TextStyling"], Annotation[#, "New Cross", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$209"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 320.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"New Cross Gate\"", LabelStyle -> "TextStyling"], Annotation[#, "New Cross Gate", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$210"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{469.5, 703.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"North Acton\"", LabelStyle -> "TextStyling"], Annotation[#, "North Acton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$211"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{317., 739.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"North Ealing\"", LabelStyle -> "TextStyling"], Annotation[#, "North Ealing", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$212"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{273., 520.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Northfields\"", LabelStyle -> "TextStyling"], Annotation[#, "Northfields", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$213"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1659.5, 537.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"North Greenwich\"", LabelStyle -> "TextStyling"], Annotation[#, "North Greenwich", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$214"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{394., 1144.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"North Harrow\"", LabelStyle -> "TextStyling"], Annotation[#, "North Harrow", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$215"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{196., 996.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Northolt\"", LabelStyle -> "TextStyling"], Annotation[#, "Northolt", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$216"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{563., 1066.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"North Wembley\"", LabelStyle -> "TextStyling"], Annotation[#, "North Wembley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$217"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{527.5, 1107.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Northwick Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Northwick Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$218"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{310., 1227.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Northwood\"", LabelStyle -> "TextStyling"], Annotation[#, "Northwood", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$219"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{336.5, 1202.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Northwood Hills\"", LabelStyle -> "TextStyling"], Annotation[#, "Northwood Hills", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$220"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 60.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Norwood Junction\"", LabelStyle -> "TextStyling"], Annotation[#, "Norwood Junction", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$221"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{699., 705.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Notting Hill Gate\"", LabelStyle -> "TextStyling"], Annotation[#, "Notting Hill Gate", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$222"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 1283.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Oakwood\"", LabelStyle -> "TextStyling"], Annotation[#, "Oakwood", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$223"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1252.5, 808.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Old Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Old Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$224"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{222.5, 472.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Osterley\"", LabelStyle -> "TextStyling"], Annotation[#, "Osterley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$225"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1010., 274.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Oval\"", LabelStyle -> "TextStyling"], Annotation[#, "Oval", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$226"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{933., 705.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Oxford Circus\"", LabelStyle -> "TextStyling"], Annotation[#, "Oxford Circus", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$227"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{666.5, 845.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Paddington\"", LabelStyle -> "TextStyling"], Annotation[#, "Paddington", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$228"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{317., 776.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Park Royal\"", LabelStyle -> "TextStyling"], Annotation[#, "Park Royal", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$229"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{660.5, 394.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Parsons Green\"", LabelStyle -> "TextStyling"], Annotation[#, "Parsons Green", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$230"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 114.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Penge West\"", LabelStyle -> "TextStyling"], Annotation[#, "Penge West", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$231"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{256.5, 872.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Perivale\"", LabelStyle -> "TextStyling"], Annotation[#, "Perivale", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$232"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{978.5, 637.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Piccadilly Circus\"", LabelStyle -> "TextStyling"], Annotation[#, "Piccadilly Circus", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$233"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{884., 434.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Pimlico\"", LabelStyle -> "TextStyling"], Annotation[#, "Pimlico", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$234"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{367.5, 1166.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Pinner\"", LabelStyle -> "TextStyling"], Annotation[#, "Pinner", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$235"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1758.5, 788.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Plaistow\"", LabelStyle -> "TextStyling"], Annotation[#, "Plaistow", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$236"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1847., 541.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Pontoon Dock\"", LabelStyle -> "TextStyling"], Annotation[#, "Pontoon Dock", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$237"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 627.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Poplar\"", LabelStyle -> "TextStyling"], Annotation[#, "Poplar", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$238"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{597., 1107.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Preston Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Preston Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$239"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1848.5, 591.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Prince Regent\"", LabelStyle -> "TextStyling"], Annotation[#, "Prince Regent", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$240"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1658.5, 847.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Pudding Mill Lane\"", LabelStyle -> "TextStyling"], Annotation[#, "Pudding Mill Lane", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$241"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{660.5, 367.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Putney Bridge\"", LabelStyle -> "TextStyling"], Annotation[#, "Putney Bridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$242"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{648.5, 1146.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Queensbury\"", LabelStyle -> "TextStyling"], Annotation[#, "Queensbury", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$243"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{564.5, 918.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Queen's Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Queen's Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$244"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{752.5, 705.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Queensway\"", LabelStyle -> "TextStyling"], Annotation[#, "Queensway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$245"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{529., 535.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Ravenscourt Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Ravenscourt Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$246"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{310., 1118.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Rayners Lane\"", LabelStyle -> "TextStyling"], Annotation[#, "Rayners Lane", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$247"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1778., 1050.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Redbridge\"", LabelStyle -> "TextStyling"], Annotation[#, "Redbridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$248"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{904.5, 770.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Regent's Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Regent's Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$249"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{387., 382.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Richmond\"", LabelStyle -> "TextStyling"], Annotation[#, "Richmond", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$250"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{265.5, 1267.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Rickmansworth\"", LabelStyle -> "TextStyling"], Annotation[#, "Rickmansworth", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$251"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1744., 1200.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Roding Valley\"", LabelStyle -> "TextStyling"], Annotation[#, "Roding Valley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$252"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1461., 546.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Rotherhithe\"", LabelStyle -> "TextStyling"], Annotation[#, "Rotherhithe", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$253"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1874., 563.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Royal Albert\"", LabelStyle -> "TextStyling"], Annotation[#, "Royal Albert", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$254"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{622., 819.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Royal Oak\"", LabelStyle -> "TextStyling"], Annotation[#, "Royal Oak", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$255"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1795., 630.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Royal Victoria\"", LabelStyle -> "TextStyling"], Annotation[#, "Royal Victoria", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$256"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{228.5, 1186.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Ruislip\"", LabelStyle -> "TextStyling"], Annotation[#, "Ruislip", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$257"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{197.5, 1109.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Ruislip Gardens\"", LabelStyle -> "TextStyling"], Annotation[#, "Ruislip Gardens", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$258"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{264., 1174.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Ruislip Manor\"", LabelStyle -> "TextStyling"], Annotation[#, "Ruislip Manor", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$259"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1095.5, 761.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Russell Square\"", LabelStyle -> "TextStyling"], Annotation[#, "Russell Square", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$260"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1462.5, 764.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Schreditch High Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Schreditch High Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$261"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1446.5, 1081.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Seven Sisters\"", LabelStyle -> "TextStyling"], Annotation[#, "Seven Sisters", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$262"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1462.5, 641.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Shadwell\"", LabelStyle -> "TextStyling"], Annotation[#, "Shadwell", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$263"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{560., 629.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Sheperd's Bush\"", LabelStyle -> "TextStyling"], Annotation[#, "Sheperd's Bush", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$264"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{613., 706.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Shepherd's Bush\"", LabelStyle -> "TextStyling"], Annotation[#, "Shepherd's Bush", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$265"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{829., 540.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Sloane Square\"", LabelStyle -> "TextStyling"], Annotation[#, "Sloane Square", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$266"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1712.5, 1101.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Snaresbrook\"", LabelStyle -> "TextStyling"], Annotation[#, "Snaresbrook", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$267"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{437., 604.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"South Acton\"", LabelStyle -> "TextStyling"], Annotation[#, "South Acton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$268"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{295., 542.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"South Ealing\"", LabelStyle -> "TextStyling"], Annotation[#, "South Ealing", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$269"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{662., 301.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Southfields\"", LabelStyle -> "TextStyling"], Annotation[#, "Southfields", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$270"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 1258.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Southgate\"", LabelStyle -> "TextStyling"], Annotation[#, "Southgate", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$271"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{755., 896.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"South Hampstead\"", LabelStyle -> "TextStyling"], Annotation[#, "South Hampstead", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$272"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{317., 1067.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"South Harrow\"", LabelStyle -> "TextStyling"], Annotation[#, "South Harrow", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$273"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{768.5, 537.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"South Kensington\"", LabelStyle -> "TextStyling"], Annotation[#, "South Kensington", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$274"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{561.5, 1088.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"South Kenton\"", LabelStyle -> "TextStyling"], Annotation[#, "South Kenton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$275"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 475.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"South Quay\"", LabelStyle -> "TextStyling"], Annotation[#, "South Quay", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$276"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{197.5, 1055.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"South Ruislip\"", LabelStyle -> "TextStyling"], Annotation[#, "South Ruislip", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$277"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1505.5, 1118.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"South Tottenham\"", LabelStyle -> "TextStyling"], Annotation[#, "South Tottenham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$278"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1097., 452.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Southwark\"", LabelStyle -> "TextStyling"], Annotation[#, "Southwark", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$279"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{793.5, 55.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"South Wimbeldon\"", LabelStyle -> "TextStyling"], Annotation[#, "South Wimbeldon", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$280"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1712.5, 1128.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"South Woodford\"", LabelStyle -> "TextStyling"], Annotation[#, "South Woodford", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$281"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{469.5, 535.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Stamford Brook\"", LabelStyle -> "TextStyling"], Annotation[#, "Stamford Brook", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$282"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{645.5, 1203.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Stanmore\"", LabelStyle -> "TextStyling"], Annotation[#, "Stanmore", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$283"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1492., 720.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Stepney Green\"", LabelStyle -> "TextStyling"], Annotation[#, "Stepney Green", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$284"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{921., 543.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"St. James's Park\"", LabelStyle -> "TextStyling"], Annotation[#, "St. James's Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$285"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{838., 903.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"St. John's Wood\"", LabelStyle -> "TextStyling"], Annotation[#, "St. John's Wood", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$286"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{990.5, 253.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Stockwell\"", LabelStyle -> "TextStyling"], Annotation[#, "Stockwell", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$287"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{561.5, 1018.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Stonebridge Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Stonebridge Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$288"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1175.5, 690.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"St. Paul's\"", LabelStyle -> "TextStyling"], Annotation[#, "St. Paul's", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$289"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1668.5, 879.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Stratford\"", LabelStyle -> "TextStyling"], Annotation[#, "Stratford", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$290"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{317., 1023.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Sudbury Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Sudbury Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$291"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{317., 977.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Sudbury Town\"", LabelStyle -> "TextStyling"], Annotation[#, "Sudbury Town", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$292"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1459.5, 458.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Surrey Quays\"", LabelStyle -> "TextStyling"], Annotation[#, "Surrey Quays", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$293"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{820.5, 921.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Swiss Cottage\"", LabelStyle -> "TextStyling"], Annotation[#, "Swiss Cottage", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$294"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 148.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Sydenham\"", LabelStyle -> "TextStyling"], Annotation[#, "Sydenham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$295"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1100., 543.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Temple\"", LabelStyle -> "TextStyling"], Annotation[#, "Temple", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$296"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1709.5, 1334.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Theydon Bois\"", LabelStyle -> "TextStyling"], Annotation[#, "Theydon Bois", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$297"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{869., 131.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Tooting Bec\"", LabelStyle -> "TextStyling"], Annotation[#, "Tooting Bec", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$298"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{842.5, 107.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Tooting Broadway\"", LabelStyle -> "TextStyling"], Annotation[#, "Tooting Broadway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$299"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1032., 705.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Tottenham Court Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Tottenham Court Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$300"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1492., 1081.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Tottenham Hale\"", LabelStyle -> "TextStyling"], Annotation[#, "Tottenham Hale", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$301"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1137., 1291.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Totteridge & Whetstone\"", LabelStyle -> "TextStyling"], Annotation[#, "Totteridge & Whetstone", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$302"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1383.5, 602.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Tower Gateway\"", LabelStyle -> "TextStyling"], Annotation[#, "Tower Gateway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$303"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1360.5, 623.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Tower Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Tower Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$304"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1134., 1075.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Tufnell Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Tufnell Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$305"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{419.5, 533.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Turnham Green\"", LabelStyle -> "TextStyling"], Annotation[#, "Turnham Green", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$306"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 1149.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Turnpike Lane\"", LabelStyle -> "TextStyling"], Annotation[#, "Turnpike Lane", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$307"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{2020.5, 1052.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Upminster\"", LabelStyle -> "TextStyling"], Annotation[#, "Upminster", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$308"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1994., 1027.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Upminster Bridge\"", LabelStyle -> "TextStyling"], Annotation[#, "Upminster Bridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$309"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1847.5, 884.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Upney\"", LabelStyle -> "TextStyling"], Annotation[#, "Upney", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$310"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1229., 1075.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Upper Holloway\"", LabelStyle -> "TextStyling"], Annotation[#, "Upper Holloway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$311"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1779.5, 814.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Upton Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Upton Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$312"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{34.5, 1180.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Uxbridge\"", LabelStyle -> "TextStyling"], Annotation[#, "Uxbridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$313"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{906., 335.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Vauxhall\"", LabelStyle -> "TextStyling"], Annotation[#, "Vauxhall", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$314"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{884., 539.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Victoria\"", LabelStyle -> "TextStyling"], Annotation[#, "Victoria", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$315"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1616.5, 1082.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Walthamstow Central\"", LabelStyle -> "TextStyling"], Annotation[#, "Walthamstow Central", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$316"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1557.5, 1026.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Walthamstow Queen's Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Walthamstow Queen's Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$317"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1745., 1047.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Wanstead\"", LabelStyle -> "TextStyling"], Annotation[#, "Wanstead", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$318"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1807.5, 930.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Wanstead Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Wanstead Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$319"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1464., 585.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Wapping\"", LabelStyle -> "TextStyling"], Annotation[#, "Wapping", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$320"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1030.5, 804.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Warren Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Warren Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$321"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{603., 857.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Warwick Avenue\"", LabelStyle -> "TextStyling"], Annotation[#, "Warwick Avenue", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$322"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1049.5, 481.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Waterloo\"", LabelStyle -> "TextStyling"], Annotation[#, "Waterloo", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$323"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{276., 1311.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Watford\"", LabelStyle -> "TextStyling"], Annotation[#, "Watford", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$324"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{567.5, 1323.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Watford High Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Watford High Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$325"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{567.5, 1351.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Watford Junction\"", LabelStyle -> "TextStyling"], Annotation[#, "Watford Junction", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$326"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{563., 1041.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Wembley Central\"", LabelStyle -> "TextStyling"], Annotation[#, "Wembley Central", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$327"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{657.5, 1078.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Wembley Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Wembley Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$328"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{382.5, 705.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"West Acton\"", LabelStyle -> "TextStyling"], Annotation[#, "West Acton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$329"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{603., 795.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Westbourne Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Westbourne Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$330"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{662., 478.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"West Brompton\"", LabelStyle -> "TextStyling"], Annotation[#, "West Brompton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$331"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 33.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"West Croydon\"", LabelStyle -> "TextStyling"], Annotation[#, "West Croydon", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$332"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1554., 627.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Westferry\"", LabelStyle -> "TextStyling"], Annotation[#, "Westferry", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$333"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1134., 1236.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"West Finchley\"", LabelStyle -> "TextStyling"], Annotation[#, "West Finchley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$334"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1708., 765.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"West Ham\"", LabelStyle -> "TextStyling"], Annotation[#, "West Ham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$335"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{774.5, 962.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"West Hampstead\"", LabelStyle -> "TextStyling"], Annotation[#, "West Hampstead", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$336"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{391., 1104.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"West Harrow\"", LabelStyle -> "TextStyling"], Annotation[#, "West Harrow", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$337"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 584.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"West India Quay\"", LabelStyle -> "TextStyling"], Annotation[#, "West India Quay", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$338"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{638.5, 536.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"West Kensington\"", LabelStyle -> "TextStyling"], Annotation[#, "West Kensington", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$339"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{984.5, 540.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Westminster\"", LabelStyle -> "TextStyling"], Annotation[#, "Westminster", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$340"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{197.5, 1220.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"West Ruislip\"", LabelStyle -> "TextStyling"], Annotation[#, "West Ruislip", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$341"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1801., 585.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"West Silvertown\"", LabelStyle -> "TextStyling"], Annotation[#, "West Silvertown", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$342"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1464., 696.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Whitechapel\"", LabelStyle -> "TextStyling"], Annotation[#, "Whitechapel", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$343"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{539., 706.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"White City\"", LabelStyle -> "TextStyling"], Annotation[#, "White City", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$344"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{725.5, 1015.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Willesden Green\"", LabelStyle -> "TextStyling"], Annotation[#, "Willesden Green", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$345"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{564.5, 962.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Willesden Junction\"", LabelStyle -> "TextStyling"], Annotation[#, "Willesden Junction", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$346"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{662., 244.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Wimbeldon\"", LabelStyle -> "TextStyling"], Annotation[#, "Wimbeldon", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$347"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{660.5, 273.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Wimbeldon Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Wimbeldon Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$348"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1709.5, 1156.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Woodford\"", LabelStyle -> "TextStyling"], Annotation[#, "Woodford", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$349"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 1175.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Wood Green\"", LabelStyle -> "TextStyling"], Annotation[#, "Wood Green", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$350"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1820.5, 894.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Woodrange Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Woodrange Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$351"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1134., 1266.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Woodside Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Woodside Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$352"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{2028., 363.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Woolwich Arsenal\"", LabelStyle -> "TextStyling"], Annotation[#, "Woolwich Arsenal", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$353"]}, { Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {438.115668778988, 633.0073882536868}], Offset[{0., 0.}, {437.384331221012, 613.9926117463132}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {438.115668778988, 633.0073882536868}], Offset[{0., 0.}, {437.384331221012, 613.9926117463132}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {560.8263432540645, 952.6992341114808}], Offset[{0., 0.}, {442.1736567459355, 652.3007658885192}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {560.8263432540645, 952.6992341114808}], Offset[{0., 0.}, {442.1736567459355, 652.3007658885192}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {348.4636071966337, 541.2086464562913}], Offset[{0., 0.}, {336.0363928033663, 548.7913535437087}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{1.4806582166213775`, 0.24010673783049366`}, { 325.8992884144634, 563.8710547774758}], Offset[{1.4806582166213775`, 0.24010673783049366`}, { 317.1007115855366, 618.1289452225242}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{-1.4806582166213775`, -0.24010673783049366`}, { 325.8992884144634, 563.8710547774758}], Offset[{-1.4806582166213775`, -0.24010673783049366`}, { 317.1007115855366, 618.1289452225242}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {318.1190352586061, 550.5362591724084}], Offset[{0., 0.}, {304.3809647413939, 545.4637408275916}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {409.75075767063765`, 535.2253705317023}], Offset[{0., 0.}, {337.24924232936235`, 551.7746294682977}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{1.273829027447978, 0.7920603568106017}, { 1381.7195976212627`, 679.4921935163198}], Offset[{1.273829027447978, 0.7920603568106017}, { 1343.7804023787373`, 740.5078064836802}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{-1.273829027447978, -0.7920603568106017}, { 1381.7195976212627`, 679.4921935163198}], Offset[{-1.273829027447978, -0.7920603568106017}, { 1343.7804023787373`, 740.5078064836802}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0., 0.}, {1365.333183977428, 631.754446449681}], Offset[{0., 0.}, {1382.166816022572, 662.245553550319}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {1432.2925883679666`, 683.7130022144546}], Offset[{0., 0.}, {1346.7074116320334`, 743.2869977855454}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1432.2595807580062`, 672.3347117711294}], Offset[{0., 0.}, {1368.7404192419938`, 628.6652882288706}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.9121153166827354, 1.1908172190024602`}, { 1456.0612185399837`, 689.9192312221151}], Offset[{-0.9121153166827354, 1.1908172190024602`}, { 1448.4387814600163`, 684.0807687778849}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0.9121153166827354, -1.1908172190024602`}, { 1456.0612185399837`, 689.9192312221151}], Offset[{0.9121153166827354, -1.1908172190024602`}, { 1448.4387814600163`, 684.0807687778849}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1589.0349472137161`, 680.0143186772991}], Offset[{0., 0.}, {1589.4650527862839`, 671.9856813227009}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1589.0349472137161`, 680.0143186772991}], Offset[{0., 0.}, {1589.4650527862839`, 671.9856813227009}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1589.571821616078, 652.0091710418233}], Offset[{0., 0.}, {1588.928178383922, 636.9908289581767}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1589.571821616078, 652.0091710418233}], Offset[{0., 0.}, {1588.928178383922, 636.9908289581767}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {317.0967696622967, 785.9995317706611}], Offset[{0., 0.}, {318.4032303377033, 921.0004682293389}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {318.17408627387795`, 940.9946876010772}], Offset[{0., 0.}, {317.32591372612205`, 967.0053123989228}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {149., 1311.}], Offset[{0., 0.}, {38.5, 1311.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1376.4834491457195`, 79.01335015057892}], Offset[{0., 0.}, {1376.0165508542805`, 69.98664984942108}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1376.4834491457195`, 79.01335015057892}], Offset[{0., 0.}, {1376.0165508542805`, 69.98664984942108}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1377., 104.}], Offset[{0., 0.}, {1377., 99.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1377., 104.}], Offset[{0., 0.}, {1377., 99.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1155.5433220020634`, 825.9874747136894}], Offset[{0., 0.}, {1193.9566779979366`, 838.0125252863106}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1211.7943692710528`, 835.4139962052094}], Offset[{0., 0.}, {1244.2056307289472`, 813.5860037947906}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1135.5, 1119.}], Offset[{0., 0.}, {1135.5, 1131.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1134.4407477507077`, 1084.9902823493755`}], Offset[{0., 0.}, {1135.0592522492923`, 1099.0097176506245`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1377., 1220.}], Offset[{0., 0.}, {1377., 1212.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1377., 1248.}], Offset[{0., 0.}, {1377., 1240.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1342.8862078786558`, 1062.9719162174672`}], Offset[{0., 0.}, {1315.6137921213442`, 1036.0280837825328`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1301.503752073918, 1021.854895735065}], Offset[{0., 0.}, {1291.996247926082, 1012.145104264935}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {866.3028912664076, 794.0045882085462}], Offset[{0., 0.}, {868.6971087335924, 714.9954117914538}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.49104913752736745`, 1.4173463742267198`}, { 856.5510241718218, 807.2736609168492}], Offset[{0.49104913752736745`, 1.4173463742267198`}, { 748.4489758281782, 844.7263390831508}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{-0.49104913752736745`, -1.4173463742267198`}, { 856.5510241718218, 807.2736609168492}], Offset[{-0.49104913752736745`, -1.4173463742267198`}, { 748.4489758281782, 844.7263390831508}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {861.501421390496, 812.9310016512211}], Offset[{0., 0.}, {802.498578609504, 930.0689983487789}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-0.7523642576241532, 2.9041260344292317`}, { 952.8195798852358, 826.4921191412528}], Offset[{-0.7523642576241532, 2.9041260344292317`}, { 875.6804201147642, 806.5078808587472}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {952.8195798852358, 826.4921191412528}], Offset[{0., 0.}, {875.6804201147642, 806.5078808587472}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0.7523642576241532, -2.9041260344292317`}, { 952.8195798852358, 826.4921191412528}], Offset[{0.7523642576241532, -2.9041260344292317`}, { 875.6804201147642, 806.5078808587472}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {857.6026048820013, 809.4298945875781}], Offset[{0., 0.}, {807.8973951179987, 841.5701054124219}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {897.0044629343464, 776.6194353307071}], Offset[{0., 0.}, {873.4955370656536, 797.3805646692929}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {840.7215267048298, 893.3774591507805}], Offset[{0., 0.}, {863.2784732951702, 813.6225408492195}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {912.495322835176, 173.86315911508504`}], Offset[{0., 0.}, {900.004677164824, 161.13684088491496`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {885.7801179488457, 147.08094636764386`}], Offset[{0., 0.}, {876.2198820511543, 137.91905363235614`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1330.5681736119027`, 742.9101617304657}], Offset[{0., 0.}, {1240.9318263880973`, 674.0898382695343}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1234.2842408748309`, 658.0828065776948}], Offset[{0., 0.}, {1249.7157591251691`, 538.9171934223052}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1251.461018715879, 738.3276903462057}], Offset[{0., 0.}, {1235.538981284121, 677.6723096537943}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1452.5684939567711`, 642.168412475674}], Offset[{0., 0.}, {1242.9315060432289`, 666.831587524326}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1452.5684939567711`, 642.168412475674}], Offset[{0., 0.}, {1242.9315060432289`, 666.831587524326}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1223.660278710074, 671.5734585804935}], Offset[{0., 0.}, {1184.839721289926, 686.4265414195065}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.475, 0.796, 0.745}], LineBox[{ Offset[{0., 0.}, {1225.9960429092498`, 660.8624524470284}], Offset[{0., 0.}, {1056.5039570907502`, 488.13754755297157`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{2.193165804728607, 2.046954751080033}, {1211.6768174964, 772.3105526824287}], Offset[{2.193165804728607, 2.046954751080033}, {1197.3231825036, 787.6894473175713}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {1211.6768174964, 772.3105526824287}], Offset[{0., 0.}, {1197.3231825036, 787.6894473175713}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{-2.193165804728607, -2.046954751080033}, {1211.6768174964, 772.3105526824287}], Offset[{-2.193165804728607, -2.046954751080033}, {1197.3231825036, 787.6894473175713}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{1.295714812722189, 2.705757403037512}, { 1244.9808086565417`, 752.3190493757406}], Offset[{1.295714812722189, 2.705757403037512}, { 1227.5191913434583`, 760.6809506242594}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {1244.9808086565417`, 752.3190493757406}], Offset[{0., 0.}, {1227.5191913434583`, 760.6809506242594}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{-1.295714812722189, -2.705757403037512}, { 1244.9808086565417`, 752.3190493757406}], Offset[{-1.295714812722189, -2.705757403037512}, { 1227.5191913434583`, 760.6809506242594}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.0387977422845702`, 1.0820809815464274`}, { 1813.2861267896906`, 850.0746817181029}], Offset[{-1.0387977422845702`, 1.0820809815464274`}, { 1802.7138732103094`, 839.9253182818971}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{1.0387977422845702`, -1.0820809815464274`}, { 1813.2861267896906`, 850.0746817181029}], Offset[{1.0387977422845702`, -1.0820809815464274`}, { 1802.7138732103094`, 839.9253182818971}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1840.4289321881345`, 876.9289321881346}], Offset[{0., 0.}, {1827.5710678118655`, 864.0710678118654}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1820.5, 884.}], Offset[{0., 0.}, {1820.5, 867.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1820.5, 884.}], Offset[{0., 0.}, {1820.5, 867.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1839.4240346490333`, 1128.0166005832439`}], Offset[{0., 0.}, {1839.0759653509667`, 1121.9833994167561`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1839.0349472137161`, 1102.0143186772991`}], Offset[{0., 0.}, {1839.4650527862839`, 1093.9856813227009`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {667., 535.}], Offset[{0., 0.}, {610., 535.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 1.5}, {590., 535.}], Offset[{0., 1.5}, {573., 535.}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., -1.5}, {590., 535.}], Offset[{0., -1.5}, {573., 535.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {628.503371544263, 535.740347312838}], Offset[{0., 0.}, {609.996628455737, 535.259652687162}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-1.4914637308797136`, 0.15979968545139786`}, { 703.9346687636573, 751.0569084608019}], Offset[{-1.4914637308797136`, 0.15979968545139786`}, { 700.0653312363427, 714.9430915391981}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{1.4914637308797136`, -0.15979968545139786`}, { 703.9346687636573, 751.0569084608019}], Offset[{1.4914637308797136`, -0.15979968545139786`}, { 700.0653312363427, 714.9430915391981}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-1.3635972343414262`, -0.6249820657398204}, { 670.6665471049321, 835.9093517710571}], Offset[{-1.3635972343414262`, -0.6249820657398204}, { 700.8334528950679, 770.0906482289429}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{1.3635972343414262`, 0.6249820657398204}, { 670.6665471049321, 835.9093517710571}], Offset[{1.3635972343414262`, 0.6249820657398204}, { 700.8334528950679, 770.0906482289429}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1956.004677164824, 483.863159115085}], Offset[{0., 0.}, {1968.495322835176, 471.136840884915}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1956.004677164824, 483.863159115085}], Offset[{0., 0.}, {1968.495322835176, 471.136840884915}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1905.281999926928, 534.1463530099501}], Offset[{0., 0.}, {1916.218000073072, 523.8536469900499}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1905.281999926928, 534.1463530099501}], Offset[{0., 0.}, {1916.218000073072, 523.8536469900499}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1881.3715414020073`, 556.2427537148266}], Offset[{0., 0.}, {1890.6284585979927`, 547.7572462851734}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1881.3715414020073`, 556.2427537148266}], Offset[{0., 0.}, {1890.6284585979927`, 547.7572462851734}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1901.0901875592024`, 933.7712731388579}], Offset[{0., 0.}, {1882.4098124407976`, 914.2287268611421}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1867.7727374547476`, 900.6526057663999}], Offset[{0., 0.}, {1855.2272625452524`, 890.3473942336001}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1023.9413557058423`, 1006.8015570457932`}], Offset[{0., 0.}, {1037.0586442941576`, 993.1984429542068}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {969.5387064518922, 1061.8967182595584`}], Offset[{0., 0.}, {1009.9612935481078`, 1021.1032817404416`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1370.5, 529.}], Offset[{0., 0.}, {1451., 529.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1261., 529.}], Offset[{0., 0.}, {1350.5, 529.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1491.2495563447203`, 783.7798989831056}], Offset[{0., 0.}, {1348.2504436552797`, 751.2201010168944}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1546.0016524828668`, 785.1817881366751}], Offset[{0., 0.}, {1510.9983475171332`, 785.8182118633249}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{1.0135869427760194`, -1.105731210301112}, { 1173.8715414020073`, 572.7572462851734}], Offset[{1.0135869427760194`, -1.105731210301112}, { 1183.1284585979927`, 581.2427537148266}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.0135869427760194`, 1.105731210301112}, { 1173.8715414020073`, 572.7572462851734}], Offset[{-1.0135869427760194`, 1.105731210301112}, { 1183.1284585979927`, 581.2427537148266}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.49029974499219275`, -1.4176057844339487`}, { 1109.4507052295596`, 546.2686649666147}], Offset[{0.49029974499219275`, -1.4176057844339487`}, { 1157.0492947704404`, 562.7313350333853}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.49029974499219275`, 1.4176057844339487`}, { 1109.4507052295596`, 546.2686649666147}], Offset[{-0.49029974499219275`, 1.4176057844339487`}, { 1157.0492947704404`, 562.7313350333853}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1512.201030927835, 1110.5773195876288`}], Offset[{0., 0.}, {1531.298969072165, 1089.4226804123712`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1512.201030927835, 1110.5773195876288`}], Offset[{0., 0.}, {1531.298969072165, 1089.4226804123712`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1528.002362111761, 1081.7826600459077`}], Offset[{0., 0.}, {1501.997637888239, 1081.2173399540923`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1606.5, 1082.}], Offset[{0., 0.}, {1548., 1082.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1541.288476470546, 1072.5561701358683`}], Offset[{0., 0.}, {1554.211523529454, 1035.4438298641317`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1541.288476470546, 1072.5561701358683`}], Offset[{0., 0.}, {1554.211523529454, 1035.4438298641317`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1649.5, 627.}], Offset[{0., 0.}, {1668., 627.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1649.5, 627.}], Offset[{0., 0.}, {1668., 627.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1598.5, 627.}], Offset[{0., 0.}, {1629.5, 627.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1598.5, 627.}], Offset[{0., 0.}, {1629.5, 627.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {871.1847234485073, 695.2415685966677}], Offset[{0., 0.}, {881.8152765514927, 647.7584314033323}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {859., 705.}], Offset[{0., 0.}, {836.5, 705.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {923., 705.}], Offset[{0., 0.}, {879., 705.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1131.2404731609417`, 391.12255352089215`}], Offset[{0., 0.}, {1079.2595268390583`, 341.87744647910785`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1244.4849353577067`, 521.4135691720851}], Offset[{0., 0.}, {1145.0150646422933`, 405.58643082791497`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {265.71800007307195`, 513.1463530099501}], Offset[{0., 0.}, {254.78199992692802`, 502.8536469900499}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {240.28612678969048`, 489.07468171810285`}], Offset[{0., 0.}, {229.71387321030952`, 478.92531828189715`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1376.4452998037748`, 1192.015396467946}], Offset[{0., 0.}, {1376.0547001962252`, 1184.984603532054}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 731.}], Offset[{0., 0.}, {1588.5, 727.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 731.}], Offset[{0., 0.}, {1588.5, 727.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1652.9893846525829`, 838.6553539024827}], Offset[{0., 0.}, {1594.0106153474171`, 749.3446460975173}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1652.9893846525829`, 838.6553539024827}], Offset[{0., 0.}, {1594.0106153474171`, 749.3446460975173}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.13787538632556517`, 1.4936500185269561`}, { 1668.5423332098203`, 759.9191692421705}], Offset[{0.13787538632556517`, 1.4936500185269561`}, { 1623.4576667901797`, 764.0808307578295}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{-0.13787538632556517`, -1.4936500185269561`}, { 1668.5423332098203`, 759.9191692421705}], Offset[{-0.13787538632556517`, -1.4936500185269561`}, { 1623.4576667901797`, 764.0808307578295}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.492780937411909, 1.4167451950592385`}, { 1604.0550320329385`, 768.2852062494127}], Offset[{0.492780937411909, 1.4167451950592385`}, { 1565.4449679670615`, 781.7147937505873}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{-0.492780937411909, -1.4167451950592385`}, { 1604.0550320329385`, 768.2852062494127}], Offset[{-0.492780937411909, -1.4167451950592385`}, { 1565.4449679670615`, 781.7147937505873}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {920.2426936402134, 1110.6151450607188`}], Offset[{0., 0.}, {927.7573063597866, 1102.3848549392812`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {892.5710678118654, 1138.9289321881345`}], Offset[{0., 0.}, {906.4289321881346, 1125.0710678118655`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {997.2267279399631, 245.60059926604058`}], Offset[{0., 0.}, {1023.7732720600369`, 216.39940073395942`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.5, 254.}], Offset[{0., 0.}, {1375.5, 212.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.5, 254.}], Offset[{0., 0.}, {1375.5, 212.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.5, 310.}], Offset[{0., 0.}, {1375.5, 274.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.5, 310.}], Offset[{0., 0.}, {1375.5, 274.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.2989637274734639, 1.4699049934111974`}, { 1698.2006333772588`, 763.0069084835102}], Offset[{-0.2989637274734639, 1.4699049934111974`}, { 1688.2993666227412`, 760.9930915164898}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0.2989637274734639, -1.4699049934111974`}, { 1698.2006333772588`, 763.0069084835102}], Offset[{0.2989637274734639, -1.4699049934111974`}, { 1688.2993666227412`, 760.9930915164898}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {702.5423332098203, 962.9191692421705}], Offset[{0., 0.}, {689.9576667901797, 964.0808307578295}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {702.5423332098203, 962.9191692421705}], Offset[{0., 0.}, {689.9576667901797, 964.0808307578295}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {764.5, 962.}], Offset[{0., 0.}, {722.5, 962.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {764.5, 962.}], Offset[{0., 0.}, {722.5, 962.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {670.0014120305069, 964.8319565047144}], Offset[{0., 0.}, {630.4985879694931, 964.1680434952856}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {670.0014120305069, 964.8319565047144}], Offset[{0., 0.}, {630.4985879694931, 964.1680434952856}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1711.536758051398, 1266.953500135553}], Offset[{0., 0.}, {1710.463241948602, 1278.046499864447}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1712.5, 1138.}], Offset[{0., 0.}, {1712.5, 1247.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {843.2332966884675, 1189.6065761852121`}], Offset[{0., 0.}, {855.2667033115325, 1176.3934238147879`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {806.667259309091, 1226.0264504019656`}], Offset[{0., 0.}, {829.332740690909, 1203.9735495980344`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {567.000623830561, 1276.9875233887785`}], Offset[{0., 0.}, {566.499376169439, 1287.0124766112215`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {567.000623830561, 1276.9875233887785`}], Offset[{0., 0.}, {566.499376169439, 1287.0124766112215`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {566.5759653509667, 1306.9833994167561`}], Offset[{0., 0.}, {566.9240346490333, 1313.0166005832439`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {566.5759653509667, 1306.9833994167561`}], Offset[{0., 0.}, {566.9240346490333, 1313.0166005832439`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1278.1063663935236`, 997.7558426508214}], Offset[{0., 0.}, {1262.3936336064764`, 981.2441573491786}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1249.6294457887363`, 965.904532548851}], Offset[{0., 0.}, {1151.8705542112637`, 831.095467451149}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1174.7676538974465`, 967.8568860646952}], Offset[{0., 0.}, {1273.7323461025535`, 946.1431139353048}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1174.7676538974465`, 967.8568860646952}], Offset[{0., 0.}, {1273.7323461025535`, 946.1431139353048}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1293.4892008607806`, 944.4646139935247}], Offset[{0., 0.}, {1316.5107991392194`, 945.5353860064753}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1293.4892008607806`, 944.4646139935247}], Offset[{0., 0.}, {1316.5107991392194`, 945.5353860064753}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1114.6638924556844`, 1019.0229916953334`}], Offset[{0., 0.}, {1157.8361075443156`, 976.9770083046666}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1114.6638924556844`, 1019.0229916953334`}], Offset[{0., 0.}, {1157.8361075443156`, 976.9770083046666}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1049.620199389564, 977.7287631625285}], Offset[{0., 0.}, {1064.879800610436, 955.2712368374715}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1071.621904366079, 937.0631327575854}], Offset[{0., 0.}, {1079.878095633921, 863.9368672424146}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1076.0570955677385`, 955.3137650226008}], Offset[{0., 0.}, {1128.4429044322615`, 1033.6862349773992`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1066.988765584116, 937.6367082243096}], Offset[{0., 0.}, {1059.011234415884, 916.3632917756904}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1470.9987983657732`, 528.8449798702981}], Offset[{0., 0.}, {1580.0012016342268`, 527.1550201297019}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1461., 536.}], Offset[{0., 0.}, {1461., 539.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1461., 536.}], Offset[{0., 0.}, {1461., 539.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1460.7887795271815`, 519.0022309532645}], Offset[{0., 0.}, {1459.7112204728185`, 467.99776904673547`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1460.7887795271815`, 519.0022309532645}], Offset[{0., 0.}, {1459.7112204728185`, 467.99776904673547`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1589.3762171384483`, 517.0194742151712}], Offset[{0., 0.}, {1589.1237828615517`, 512.9805257848288}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1589.3762171384483`, 517.0194742151712}], Offset[{0., 0.}, {1589.1237828615517`, 512.9805257848288}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1599.898065734717, 528.4241821201032}], Offset[{0., 0.}, {1649.601934265283, 535.5758178798968}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.7630668208824`, 574.0034608064715}], Offset[{0., 0.}, {1589.7369331791176`, 536.9965391935285}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.7630668208824`, 574.0034608064715}], Offset[{0., 0.}, {1589.7369331791176`, 536.9965391935285}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1687.977851578566, 627.6651901052377}], Offset[{0., 0.}, {1698.022148421434, 628.3348098947623}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1687.977851578566, 627.6651901052377}], Offset[{0., 0.}, {1698.022148421434, 628.3348098947623}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1664.1634076439916`, 545.8460516133448}], Offset[{0., 0.}, {1703.3365923560084`, 620.1539483866552}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1717.9993394762039`, 629.1149349365081}], Offset[{0., 0.}, {1785.0006605237961`, 629.8850650634919}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1717.9993394762039`, 629.1149349365081}], Offset[{0., 0.}, {1785.0006605237961`, 629.8850650634919}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1708., 639.}], Offset[{0., 0.}, {1708., 755.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1717.0393565553275`, 624.7233151781246}], Offset[{0., 0.}, {1791.9606434446725`, 589.2766848218754}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1717.0393565553275`, 624.7233151781246}], Offset[{0., 0.}, {1791.9606434446725`, 589.2766848218754}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.8764570887676137, -1.2173015121772413`}, { 1198.6153434145149`, 593.8430472584507}], Offset[{0.8764570887676137, -1.2173015121772413`}, { 1207.3846565854851`, 600.1569527415493}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.8764570887676137, 1.2173015121772413`}, { 1198.6153434145149`, 593.8430472584507}], Offset[{-0.8764570887676137, 1.2173015121772413`}, { 1207.3846565854851`, 600.1569527415493}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.4153072430150909, -1.4413604316406097`}, { 1225.1090695442708`, 608.7687149534339}], Offset[{0.4153072430150909, -1.4413604316406097`}, { 1264.8909304557292`, 620.2312850465661}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.4153072430150909, 1.4413604316406097`}, { 1225.1090695442708`, 608.7687149534339}], Offset[{-0.4153072430150909, 1.4413604316406097`}, { 1264.8909304557292`, 620.2312850465661}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1442.5873608430318`, 943.1182830232495}], Offset[{0., 0.}, {1464.9126391569682`, 926.8817169767505}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1442.5873608430318`, 943.1182830232495}], Offset[{0., 0.}, {1464.9126391569682`, 926.8817169767505}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1336.496144206527, 946.2776706724036}], Offset[{0., 0.}, {1424.503855793473, 948.7223293275964}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1336.496144206527, 946.2776706724036}], Offset[{0., 0.}, {1424.503855793473, 948.7223293275964}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {648.5, 1165.}], Offset[{0., 0.}, {648.5, 1156.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {646.5653312363427, 1193.0569084608019`}], Offset[{0., 0.}, {647.4346687636573, 1184.9430915391981`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {567.5, 1250.}], Offset[{0., 0.}, {567.5, 1257.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {567.5, 1250.}], Offset[{0., 0.}, {567.5, 1257.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {149.5073594011777, 1314.144801179978}], Offset[{0., 0.}, {86.9926405988223, 1334.855198820022}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {230.71069573932726`, 1296.04194076603}], Offset[{0., 0.}, {168.78930426067274`, 1308.95805923397}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1134.5, 706.}], Offset[{0., 0.}, {1094., 706.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1166.6137934294513`, 694.5864291977025}], Offset[{0., 0.}, {1153.3862065705487`, 701.4135708022975}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.4468845591801178`, 0.39563249665081346`}, { 1045.362450022328, 530.6458970612008}], Offset[{1.4468845591801178`, 0.39563249665081346`}, { 1033.137549977672, 575.3541029387992}]}]}, { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{-1.4468845591801178`, -0.39563249665081346`}, { 1045.362450022328, 530.6458970612008}], Offset[{-1.4468845591801178`, -0.39563249665081346`}, { 1033.137549977672, 575.3541029387992}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1030.5, 595.}], Offset[{0., 0.}, {1030.5, 644.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {1023.4289321881346`, 592.0710678118654}], Offset[{0., 0.}, {985.5710678118654, 629.9289321881346}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1786.4486883729062`, 1200.0117310209735`}], Offset[{0., 0.}, {1796.0513116270938`, 1200.9882689790265`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1753.9952696307666`, 1199.6924532421303`}], Offset[{0., 0.}, {1766.5047303692334`, 1199.3075467578697`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {409.5115001315837, 533.479447993684}], Offset[{0., 0.}, {366.9884998684163, 535.520552006316}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {258.70591968501697`, 1274.3376067401816`}], Offset[{0., 0.}, {247.29408031498306`, 1286.6623932598184`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {962.3508880188294, 224.5586425421722}], Offset[{0., 0.}, {949.1491119811706, 213.4413574578278}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {935.0405775853383, 199.36613714630886`}], Offset[{0., 0.}, {925.9594224146617, 188.63386285369114`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {719.5354459792011, 384.89348890989794`}], Offset[{0., 0.}, {804.4645540207989, 299.10651109010206`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {719.5354459792011, 384.89348890989794`}], Offset[{0., 0.}, {804.4645540207989, 299.10651109010206`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {983.6827440076976, 245.68392039850465`}], Offset[{0., 0.}, {976.8172559923024, 238.31607960149535`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1377., 1303.}], Offset[{0., 0.}, {1377., 1293.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {869.1466876599352, 1162.0053695243187`}], Offset[{0., 0.}, {878.3533123400648, 1152.9946304756813`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {812.1337646703628, 74.72986847450183}], Offset[{0., 0.}, {800.3662353296372, 62.27013152549817}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {835.6508999123212, 99.71372331097993}], Offset[{0., 0.}, {825.8491000876788, 89.28627668902007}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1077.647294608796, 698.2771032499089}], Offset[{0., 0.}, {1064.852705391204, 682.7228967500911}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1050.5, 669.}], Offset[{0., 0.}, {1038.5, 660.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1589.0547001962252`, 438.0153964679459}], Offset[{0., 0.}, {1589.4452998037748`, 430.9846035320541}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1589.0547001962252`, 438.0153964679459}], Offset[{0., 0.}, {1589.4452998037748`, 430.9846035320541}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 465.}], Offset[{0., 0.}, {1588.5, 458.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 465.}], Offset[{0., 0.}, {1588.5, 458.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1282.9677590827791`, 1116.8023583162608`}], Offset[{0., 0.}, {1424.5322409172209`, 1128.1976416837392`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1282.9677590827791`, 1116.8023583162608`}], Offset[{0., 0.}, {1424.5322409172209`, 1128.1976416837392`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1236.3160796014954`, 1081.8172559923025`}], Offset[{0., 0.}, {1265.6839203985046`, 1109.1827440076975`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1236.3160796014954`, 1081.8172559923025`}], Offset[{0., 0.}, {1265.6839203985046`, 1109.1827440076975`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {283.8459034408884, 1261.7652377346394`}], Offset[{0., 0.}, {280.6540965591116, 1276.2347622653606`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {277.50496280979, 1295.9503719021}], Offset[{0., 0.}, {276.99503719021, 1301.0496280979}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1369.9147726379229`, 139.70510787810326`}], Offset[{0., 0.}, {1330.5852273620771`, 81.29489212189675}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1369.9147726379229`, 139.70510787810326`}], Offset[{0., 0.}, {1330.5852273620771`, 81.29489212189675}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1831.5710678118655`, 607.9289321881346}], Offset[{0., 0.}, {1841.4289321881345`, 598.0710678118654}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1831.5710678118655`, 607.9289321881346}], Offset[{0., 0.}, {1841.4289321881345`, 598.0710678118654}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1803.913851302068, 625.4675332362366}], Offset[{0., 0.}, {1815.586148697932, 619.5324667637634}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1803.913851302068, 625.4675332362366}], Offset[{0., 0.}, {1815.586148697932, 619.5324667637634}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.9993761694388`, 336.01247661122153`}], Offset[{0., 0.}, {1589.5006238305612`, 325.98752338877847`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.9993761694388`, 336.01247661122153`}], Offset[{0., 0.}, {1589.5006238305612`, 325.98752338877847`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 381.}], Offset[{0., 0.}, {1588.5, 356.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 381.}], Offset[{0., 0.}, {1588.5, 356.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1930.5020866689247`, 509.8606175140376}], Offset[{0., 0.}, {1941.9979133310753`, 498.1393824859624}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1930.5020866689247`, 509.8606175140376}], Offset[{0., 0.}, {1941.9979133310753`, 498.1393824859624}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1918.1361704520443`, 953.2862672145992}], Offset[{0., 0.}, {1914.3638295479557`, 948.7137327854008}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1946.3710439942608`, 979.5347830459839}], Offset[{0., 0.}, {1932.1289560057392`, 967.4652169540161}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1466.7530495244557`, 913.1913119055697}], Offset[{0., 0.}, {1467.2469504755443`, 913.8086880944303}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1466.7530495244557`, 913.1913119055697}], Offset[{0., 0.}, {1467.2469504755443`, 913.8086880944303}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1461.3656090585073`, 896.0066857341352}], Offset[{0., 0.}, {1462.1343909414927`, 874.9933142658648}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1461.3656090585073`, 896.0066857341352}], Offset[{0., 0.}, {1462.1343909414927`, 874.9933142658648}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1480.2530629092587`, 914.1157368996867}], Offset[{0., 0.}, {1495.2469370907413`, 899.8842631003133}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1480.2530629092587`, 914.1157368996867}], Offset[{0., 0.}, {1495.2469370907413`, 899.8842631003133}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1708.4194081923158`, 1297.9414446306946`}], Offset[{0., 0.}, {1708.0805918076842`, 1301.0585553693054`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1708.0805918076842`, 1320.9414446306946`}], Offset[{0., 0.}, {1708.4194081923158`, 1324.0585553693054`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 279.}], Offset[{0., 0.}, {1588.5, 274.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 279.}], Offset[{0., 0.}, {1588.5, 274.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1589.4452998037748`, 306.0153964679459}], Offset[{0., 0.}, {1589.0547001962252`, 298.9846035320541}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1589.4452998037748`, 306.0153964679459}], Offset[{0., 0.}, {1589.0547001962252`, 298.9846035320541}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 707.}], Offset[{0., 0.}, {1588.5, 700.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 707.}], Offset[{0., 0.}, {1588.5, 700.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {684.4120437352507, 1053.2872056737353`}], Offset[{0., 0.}, {696.0879562647493, 1042.7127943262647`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {710.7335554414357, 1029.095242533175}], Offset[{0., 0.}, {718.2664445585643, 1021.904757466825}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {311.37112205406066`, 637.1078189983956}], Offset[{0., 0.}, {285.62887794593934`, 693.8921810016044}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {372.50196001569896`, 704.8020190102119}], Offset[{0., 0.}, {291.49803998430104`, 703.1979809897881}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {315.63512279797027`, 637.9990870497995}], Offset[{0., 0.}, {316.86487720202973`, 729.0009129502005}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.24461489538608305`, 1.4799201170858025`}, { 727.6338658860947, 543.3692340307595}], Offset[{-0.24461489538608305`, 1.4799201170858025`}, { 686.8661341139053, 536.6307659692405}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0.24461489538608305`, -1.4799201170858025`}, { 727.6338658860947, 543.3692340307595}], Offset[{0.24461489538608305`, -1.4799201170858025`}, { 686.8661341139053, 536.6307659692405}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {679.5259617569963, 544.6757179166299}], Offset[{0., 0.}, {703.9740382430037, 638.3242820833701}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {675.0388386486181, 544.8058067569092}], Offset[{0., 0.}, {663.9611613513819, 600.1941932430908}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {674.4550670072035, 525.3292546273735}], Offset[{0., 0.}, {664.5449329927965, 487.67074537262647`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {667.003371544263, 535.259652687162}], Offset[{0., 0.}, {648.496628455737, 535.740347312838}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {485.06849395677125`, 704.831587524326}], Offset[{0., 0.}, {479.43150604322875`, 704.168412475674}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {529., 706.}], Offset[{0., 0.}, {505., 706.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{1.2309096234821704`, 0.8572406306393687}, { 304.2850624624042, 1126.2060641565479`}], Offset[{1.2309096234821704`, 0.8572406306393687}, { 296.2149375375958, 1137.7939358434521`}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{-1.2309096234821704`, -0.8572406306393687}, { 304.2850624624042, 1126.2060641565479`}], Offset[{-1.2309096234821704`, -0.8572406306393687}, { 296.2149375375958, 1137.7939358434521`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{1.0894400997146536`, 1.03107723722994}, {283.6261517518004, 1153.2629339980977`}], Offset[{1.0894400997146536`, 1.03107723722994}, {270.8738482481996, 1166.7370660019023`}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{-1.0894400997146536`, -1.03107723722994}, { 283.6261517518004, 1153.2629339980977`}], Offset[{-1.0894400997146536`, -1.03107723722994}, { 270.8738482481996, 1166.7370660019023`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1135.5, 1179.}], Offset[{0., 0.}, {1135.5, 1185.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1135.5, 1151.}], Offset[{0., 0.}, {1135.5, 1159.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.1473667971755763`, 0.9662036186741695}, { 1789.0586425421723`, 825.3508880188294}], Offset[{-1.1473667971755763`, 0.9662036186741695}, { 1785.9413574578277`, 821.6491119811706}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{1.1473667971755763`, -0.9662036186741695}, { 1789.0586425421723`, 825.3508880188294}], Offset[{1.1473667971755763`, -0.9662036186741695}, { 1785.9413574578277`, 821.6491119811706}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {660.5, 357.}], Offset[{0., 0.}, {660.5, 337.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {661.0759653509667, 317.0166005832439}], Offset[{0., 0.}, {661.4240346490333, 310.9833994167561}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {789.50136574707, 847.1652666818666}], Offset[{0., 0.}, {748.99863425293, 847.8347333181334}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{-0.1860476848497111, 4.496152383868019}, { 729.0085502580711, 847.586560700334}], Offset[{-0.1860476848497111, 4.496152383868019}, { 676.4914497419289, 845.413439299666}]}]}, { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-0.0620158949499037, 1.4987174612893395`}, { 729.0085502580711, 847.586560700334}], Offset[{-0.0620158949499037, 1.4987174612893395`}, { 676.4914497419289, 845.413439299666}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.0620158949499037, -1.4987174612893395`}, { 729.0085502580711, 847.586560700334}], Offset[{0.0620158949499037, -1.4987174612893395`}, { 676.4914497419289, 845.413439299666}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0.1860476848497111, -4.496152383868019}, { 729.0085502580711, 847.586560700334}], Offset[{0.1860476848497111, -4.496152383868019}, { 676.4914497419289, 845.413439299666}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1065.4041010959127`, 327.48374310929574`}], Offset[{0., 0.}, {1035.5958989040873`, 293.51625689070426`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {1068.1276751564492`, 344.2198210560736}], Offset[{0., 0.}, {1054.8723248435508`, 375.7801789439264}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1961.7848057526114`, 994.5901304856402}], Offset[{0., 0.}, {1960.7151942473886`, 993.4098695143598}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 254.}], Offset[{0., 0.}, {1588.5, 246.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 254.}], Offset[{0., 0.}, {1588.5, 246.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.5844599862550469, -1.381450876602838}, { 1057.2096725106856`, 524.896399908367}], Offset[{0.5844599862550469, -1.381450876602838}, { 1090.7903274893144`, 539.103600091633}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.5844599862550469, 1.381450876602838}, { 1057.2096725106856`, 524.896399908367}], Offset[{-0.5844599862550469, 1.381450876602838}, { 1090.7903274893144`, 539.103600091633}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.4989464235637708`, 0.05621049088364142}, { 1049.125263394109, 490.9929761570918}], Offset[{1.4989464235637708`, 0.05621049088364142}, { 1048.374736605891, 511.0070238429082}]}]}, { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{-1.4989464235637708`, -0.05621049088364142}, { 1049.125263394109, 490.9929761570918}], Offset[{-1.4989464235637708`, -0.05621049088364142}, { 1048.374736605891, 511.0070238429082}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-0.42998360958599874`, -1.4370504846689958`}, { 994.08033656446, 537.13344260276}], Offset[{-0.42998360958599874`, -1.4370504846689958`}, { 1038.41966343554, 523.86655739724}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.42998360958599874`, 1.4370504846689958`}, { 994.08033656446, 537.13344260276}], Offset[{0.42998360958599874`, 1.4370504846689958`}, { 1038.41966343554, 523.86655739724}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1709.5, 1344.}], Offset[{0., 0.}, {1709.5, 1347.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{-0.6457087873224687, -1.3539055218051765`}, { 1090.0260368120346`, 849.6952747511835}], Offset[{-0.6457087873224687, -1.3539055218051765`}, { 1136.9739631879654`, 827.3047252488165}]}]}, { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0.6457087873224687, 1.3539055218051765`}, { 1090.0260368120346`, 849.6952747511835}], Offset[{0.6457087873224687, 1.3539055218051765`}, { 1136.9739631879654`, 827.3047252488165}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1076.6644000198387`, 863.0112470175901}], Offset[{0., 0.}, {1059.8355999801613`, 897.9887529824099}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {764.9180275952918, 894.722217303674}], Offset[{0., 0.}, {1071.0819724047083`, 855.277782696326}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {764.9180275952918, 894.722217303674}], Offset[{0., 0.}, {1071.0819724047083`, 855.277782696326}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{-1.055370194394121, 1.065923896338062}, { 1073.8938406910795`, 846.9641987040392}], Offset[{-1.055370194394121, 1.065923896338062}, { 1037.6061593089205`, 811.0358012959608}]}]}, { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{1.055370194394121, -1.065923896338062}, { 1073.8938406910795`, 846.9641987040392}], Offset[{1.055370194394121, -1.065923896338062}, { 1037.6061593089205`, 811.0358012959608}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.16641005886756877`, 2.9953810596162374`}, { 1060.515396467946, 823.5547001962252}], Offset[{0.16641005886756877`, 2.9953810596162374`}, { 972.4846035320542, 828.4452998037748}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {1060.515396467946, 823.5547001962252}], Offset[{0., 0.}, {972.4846035320542, 828.4452998037748}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{-0.16641005886756877`, -2.9953810596162374`}, { 1060.515396467946, 823.5547001962252}], Offset[{-0.16641005886756877`, -2.9953810596162374`}, { 972.4846035320542, 828.4452998037748}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0., 3.}, {1136., 823.}], Offset[{0., 3.}, {1080.5, 823.}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {1136., 823.}], Offset[{0., 0.}, {1080.5, 823.}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., -3.}, {1136., 823.}], Offset[{0., -3.}, {1080.5, 823.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1840., 1156.}], Offset[{0., 0.}, {1840., 1148.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{1.5976830470241288`, 2.539174842591919}, { 1182.036083858027, 800.3256101567471}], Offset[{1.5976830470241288`, 2.539174842591919}, { 1154.463916141973, 817.6743898432529}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {1182.036083858027, 800.3256101567471}], Offset[{0., 0.}, {1154.463916141973, 817.6743898432529}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{-1.5976830470241288`, -2.539174842591919}, { 1182.036083858027, 800.3256101567471}], Offset[{-1.5976830470241288`, -2.539174842591919}, { 1154.463916141973, 817.6743898432529}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1129.6228223105013`, 1203.0906601959332`}], Offset[{0., 0.}, {1102.8771776894987`, 1239.9093398040668`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1135.1343909414927`, 1204.993314265865}], Offset[{0., 0.}, {1134.3656090585073`, 1226.006685734135}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {805.8086880944303, 932.7530495244557}], Offset[{0., 0.}, {812.6913119055697, 927.2469504755443}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {790.8910860764088, 946.0330180454034}], Offset[{0., 0.}, {664.6089139235912, 1070.9669819545966`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {781.6466876599352, 955.0053695243187}], Offset[{0., 0.}, {790.8533123400648, 945.9946304756813}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1013.6452790633318`, 1040.4659943128142`}], Offset[{0., 0.}, {942.3547209366682, 1013.5340056871858`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1013.6452790633318`, 1040.4659943128142`}], Offset[{0., 0.}, {942.3547209366682, 1013.5340056871858`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {923.4292482530198, 1007.1016019946054`}], Offset[{0., 0.}, {784.0707517469802, 964.8983980053946}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {923.4292482530198, 1007.1016019946054`}], Offset[{0., 0.}, {784.0707517469802, 964.8983980053946}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1348.1379821905111`, 1060.1748847499307`}], Offset[{0., 0.}, {1328.3620178094889`, 955.8251152500694}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1369.8252708917605`, 1098.7660793331427`}], Offset[{0., 0.}, {1355.6747291082395`, 1078.2339206668573`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1436.5643418357722`, 1079.8674379294662`}], Offset[{0., 0.}, {1359.9356581642278`, 1071.1325620705338`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.5, 192.}], Offset[{0., 0.}, {1375.5, 186.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.5, 192.}], Offset[{0., 0.}, {1375.5, 186.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.5, 166.}], Offset[{0., 0.}, {1375.5, 158.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.5, 166.}], Offset[{0., 0.}, {1375.5, 158.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {660.5, 411.}], Offset[{0., 0.}, {660.5, 404.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {661.7369331791177, 468.00346080647154`}], Offset[{0., 0.}, {660.7630668208823, 430.99653919352846`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1833.6617738906298`, 1076.265215595345}], Offset[{0., 0.}, {1816.8382261093702`, 1055.734784404655}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1800.5188813007712`, 1048.6142226891834`}], Offset[{0., 0.}, {1787.9811186992288`, 1049.3857773108166`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0., 0.}, {709.3820068874348, 638.4242996965874}], Offset[{0., 0.}, {734.6179931125652, 554.5757003034126}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.7496340570653091, 2.904831971128073}, {758.8172267629064, 539.4987801902176}], Offset[{0.7496340570653091, 2.904831971128073}, {747.1827732370936, 542.5012198097824}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {758.8172267629064, 539.4987801902176}], Offset[{0., 0.}, {747.1827732370936, 542.5012198097824}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{-0.7496340570653091, -2.904831971128073}, { 758.8172267629064, 539.4987801902176}], Offset[{-0.7496340570653091, -2.904831971128073}, { 747.1827732370936, 542.5012198097824}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {941.827934916263, 1088.1954890063273`}], Offset[{0., 0.}, {955.172065083737, 1075.8045109936727`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {559.260503037265, 584.0289601780802}], Offset[{0., 0.}, {562.239496962735, 544.9710398219198}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {559.5718216160782, 619.0091710418233}], Offset[{0., 0.}, {558.9281783839218, 603.9908289581767}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1032., 715.}], Offset[{0., 0.}, {1032., 723.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1031.7887795271815`, 742.9977690467355}], Offset[{0., 0.}, {1030.7112204728185`, 794.0022309532645}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1063.5078331550255`, 1042.395729379999}], Offset[{0., 0.}, {1032.9921668449745`, 1043.604270620001}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1063.5078331550255`, 1042.395729379999}], Offset[{0., 0.}, {1032.9921668449745`, 1043.604270620001}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1082.5481870220099`, 1037.7420296367013`}], Offset[{0., 0.}, {1098.4518129779901`, 1030.2579703632987`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1082.5481870220099`, 1037.7420296367013`}], Offset[{0., 0.}, {1098.4518129779901`, 1030.2579703632987`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1083.2821477313855`, 1044.075954180937}], Offset[{0., 0.}, {1219.2178522686145`, 1072.924045819063}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1083.2821477313855`, 1044.075954180937}], Offset[{0., 0.}, {1219.2178522686145`, 1072.924045819063}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1812.8662353296372`, 1194.729868474502}], Offset[{0., 0.}, {1833.1337646703628`, 1173.270131525498}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {208.71655771348787`, 925.8396815807566}], Offset[{0., 0.}, {197.78344228651213`, 986.1603184192434}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {249.27358142852302`, 878.9122264596737}], Offset[{0., 0.}, {217.72641857147698`, 909.0877735403263}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {875.7141103130858, 632.4014258872202}], Offset[{0., 0.}, {855.2858896869142, 618.5985741127798}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {927.096813976761, 696.9282966621018}], Offset[{0., 0.}, {889.903186023239, 646.0717033378982}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {968.5005598477219, 637.1058141815056}], Offset[{0., 0.}, {893.9994401522781, 637.8941858184944}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {884., 628.}], Offset[{0., 0.}, {884., 549.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {891.159556278271, 631.0185421366114}], Offset[{0., 0.}, {977.340443721729, 546.9814578633886}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.5, 0.}, {385.5, 445.}], Offset[{-1.5, 0.}, {385.5, 425.}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{1.5, 0.}, {385.5, 445.}], Offset[{1.5, 0.}, {385.5, 425.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{1.5, 0.}, {385.5, 445.}], Offset[{1.5, 0.}, {385.5, 425.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {433.73325199292634`, 594.5486319795344}], Offset[{0., 0.}, {388.76674800707366`, 464.4513680204656}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {433.73325199292634`, 594.5486319795344}], Offset[{0., 0.}, {388.76674800707366`, 464.4513680204656}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {415.50414579486073`, 523.8330403529158}], Offset[{0., 0.}, {389.49585420513927`, 464.16695964708424`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1511.8177739198532`, 889.3696984727844}], Offset[{0., 0.}, {1531.6822260801468`, 881.6303015272156}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1511.8177739198532`, 889.3696984727844}], Offset[{0., 0.}, {1531.6822260801468`, 881.6303015272156}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1550.9986995253212`, 878.1612693471826}], Offset[{0., 0.}, {1593.0013004746788`, 878.8387306528174}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1550.9986995253212`, 878.1612693471826}], Offset[{0., 0.}, {1593.0013004746788`, 878.8387306528174}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1613., 879.}], Offset[{0., 0.}, {1658.5, 879.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1613., 879.}], Offset[{0., 0.}, {1658.5, 879.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1462.5, 855.}], Offset[{0., 0.}, {1462.5, 833.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1462.5, 855.}], Offset[{0., 0.}, {1462.5, 833.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {553., 535.}], Offset[{0., 0.}, {539., 535.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {553.0009710977068, 534.8606407121632}], Offset[{0., 0.}, {429.49902890229316`, 533.1393592878368}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {461.37912616571396`, 708.8353584437983}], Offset[{0., 0.}, {310.62087383428604`, 817.1646415562017}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {295.65564091583667`, 830.2907303287826}], Offset[{0., 0.}, {263.34435908416333`, 864.7092696712174}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.49652553902231, -0.10203583220606659`}, { 560.6802388813737, 1005.9768369268154`}], Offset[{1.49652553902231, -0.10203583220606659`}, { 560.8197611186263, 1008.0231630731846`}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.49652553902231, 0.10203583220606659`}, { 560.6802388813737, 1005.9768369268154`}], Offset[{-1.49652553902231, 0.10203583220606659`}, { 560.8197611186263, 1008.0231630731846`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.49652553902231, 0.10203583220606659`}, { 560.6802388813737, 1005.9768369268154`}], Offset[{-1.49652553902231, 0.10203583220606659`}, { 560.8197611186263, 1008.0231630731846`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.4870321489849407`, 0.19681307854212451`}, { 563.1879128097191, 971.9135476598996}], Offset[{1.4870321489849407`, 0.19681307854212451`}, { 561.3120871902809, 986.0864523401004}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.4870321489849407`, -0.19681307854212451`}, { 563.1879128097191, 971.9135476598996}], Offset[{-1.4870321489849407`, -0.19681307854212451`}, { 561.3120871902809, 986.0864523401004}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.4870321489849407`, -0.19681307854212451`}, { 563.1879128097191, 971.9135476598996}], Offset[{-1.4870321489849407`, -0.19681307854212451`}, { 561.3120871902809, 986.0864523401004}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1444.3821023728378`, 1127.4689700549125`}], Offset[{0., 0.}, {1495.6178976271622`, 1119.5310299450875`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1444.3821023728378`, 1127.4689700549125`}], Offset[{0., 0.}, {1495.6178976271622`, 1119.5310299450875`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {445.2010175753549, 1109.579147848501}], Offset[{0., 0.}, {402.2989824246451, 1138.420852151499}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {517.5082075614575, 1106.5949273335725`}], Offset[{0., 0.}, {463.4917924385424, 1104.4050726664275`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {443.5, 1104.}], Offset[{0., 0.}, {401., 1104.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {564.392548313991, 1189.9025657883803`}], Offset[{0., 0.}, {566.107451686009, 1202.0974342116197`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {564.392548313991, 1189.9025657883803`}], Offset[{0., 0.}, {566.107451686009, 1202.0974342116197`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.5, 0.}, {563., 1163.}], Offset[{1.5, 0.}, {563., 1170.}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.5, 0.}, {563., 1163.}], Offset[{-1.5, 0.}, {563., 1170.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.5, 0.}, {563., 1163.}], Offset[{-1.5, 0.}, {563., 1170.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {567.5, 1222.}], Offset[{0., 0.}, {567.5, 1230.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {567.5, 1222.}], Offset[{0., 0.}, {567.5, 1230.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {124.92893218813452`, 371.9289321881345}], Offset[{0., 0.}, {105.07106781186548`, 352.0710678118655}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {150.21800007307198`, 396.1463530099501}], Offset[{0., 0.}, {139.28199992692802`, 385.8536469900499}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 493.}], Offset[{0., 0.}, {1588.5, 485.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 493.}], Offset[{0., 0.}, {1588.5, 485.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1135.9710084891449`, 1300.9469179382654`}], Offset[{0., 0.}, {1135.0289915108551`, 1310.0530820617346`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1318.2362739491766`, 940.3687628573338}], Offset[{0., 0.}, {1154.2637260508234`, 828.6312371426662}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-1.4871814433138157`, -0.19568176885708102`}, { 700.3045451257138, 695.0854570445746}], Offset[{-1.4871814433138157`, -0.19568176885708102`}, { 705.1954548742862, 657.9145429554254}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{1.4871814433138157`, 0.19568176885708102`}, { 700.3045451257138, 695.0854570445746}], Offset[{1.4871814433138157`, 0.19568176885708102`}, { 705.1954548742862, 657.9145429554254}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0.0651558364144604, 1.4985842375325893`}, { 146.0094384164494, 1178.4343722427632`}], Offset[{0.0651558364144604, 1.4985842375325893`}, { 119.9905615835506, 1179.5656277572368`}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{-0.0651558364144604, -1.4985842375325893`}, { 146.0094384164494, 1178.4343722427632`}], Offset[{-0.0651558364144604, -1.4985842375325893`}, { 119.9905615835506, 1179.5656277572368`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 1.5}, {100., 1180.}], Offset[{0., 1.5}, {44.5, 1180.}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., -1.5}, {100., 1180.}], Offset[{0., -1.5}, {44.5, 1180.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1093.4533510622832`, 751.2116789935279}], Offset[{0., 0.}, {1086.0466489377168`, 715.7883210064721}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1074.0018485997016`, 705.8077278576866}], Offset[{0., 0.}, {1041.9981514002984`, 705.1922721423134}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {689., 705.}], Offset[{0., 0.}, {664.5, 705.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {644.5029019153252, 705.2408939297512}], Offset[{0., 0.}, {622.9970980846748, 705.7591060702488}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1986.8592716085543`, 1019.9992858907394`}], Offset[{0., 0.}, {1975.6407283914457`, 1009.0007141092606`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {192.86059386485078`, 441.10647782623676`}], Offset[{0., 0.}, {184.13940613514922`, 429.89352217376324`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {170.66569703380068`, 415.20235334840066`}], Offset[{0., 0.}, {164.83430296619932`, 409.79764665159934`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {215.35331234006478`, 465.0053695243187}], Offset[{0., 0.}, {206.14668765993522`, 455.9946304756813}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1462.5, 813.}], Offset[{0., 0.}, {1462.5, 774.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1462.5, 813.}], Offset[{0., 0.}, {1462.5, 774.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {839.4928648307724, 606.3937210510798}], Offset[{0., 0.}, {829.5071351692276, 597.6062789489202}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{-0.16451868360696317`, 1.4909505701881036`}, { 218.56032953207932`, 1184.9032087759535`}], Offset[{-0.16451868360696317`, 1.4909505701881036`}, { 165.93967046792068`, 1179.0967912240465`}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0.16451868360696317`, -1.4909505701881036`}, { 218.56032953207932`, 1184.9032087759535`}], Offset[{0.16451868360696317`, -1.4909505701881036`}, { 165.93967046792068`, 1179.0967912240465`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {667.0636268328417, 469.37679390842794`}], Offset[{0., 0.}, {707.4363731671583, 400.62320609157206`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {667.0636268328417, 469.37679390842794`}], Offset[{0., 0.}, {707.4363731671583, 400.62320609157206`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1589.5006238305612`, 411.01247661122153`}], Offset[{0., 0.}, {1588.9993761694388`, 400.98752338877847`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1589.5006238305612`, 411.01247661122153`}], Offset[{0., 0.}, {1588.9993761694388`, 400.98752338877847`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1020.5451109696903`, 280.6600700861202}], Offset[{0., 0.}, {1018.4548890303097`, 279.3399299138798}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1030.0455204126783`, 295.94519416938016`}], Offset[{0., 0.}, {1048.4544795873217`, 471.05480583061984`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.49652553902231, 0.10203583220606659`}, { 563.8197611186263, 927.9768369268154}], Offset[{1.49652553902231, 0.10203583220606659`}, { 563.6802388813737, 930.0231630731846}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.49652553902231, -0.10203583220606659`}, { 563.8197611186263, 927.9768369268154}], Offset[{-1.49652553902231, -0.10203583220606659`}, { 563.6802388813737, 930.0231630731846}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.49652553902231, -0.10203583220606659`}, { 563.8197611186263, 927.9768369268154}], Offset[{-1.49652553902231, -0.10203583220606659`}, { 563.6802388813737, 930.0231630731846}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.49652553902231, -0.10203583220606659`}, { 563.6802388813737, 949.9768369268154}], Offset[{1.49652553902231, -0.10203583220606659`}, { 563.8197611186263, 952.0231630731846}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.49652553902231, 0.10203583220606659`}, { 563.6802388813737, 949.9768369268154}], Offset[{-1.49652553902231, 0.10203583220606659`}, { 563.8197611186263, 952.0231630731846}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.49652553902231, 0.10203583220606659`}, { 563.6802388813737, 949.9768369268154}], Offset[{-1.49652553902231, 0.10203583220606659`}, { 563.8197611186263, 952.0231630731846}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {610.5063714565244, 963.6430846948758}], Offset[{0., 0.}, {574.4936285434756, 962.3569153051242}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {610.5063714565244, 963.6430846948758}], Offset[{0., 0.}, {574.4936285434756, 962.3569153051242}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {617.5462057335105, 697.0931479506733}], Offset[{0., 0.}, {657.4537942664895, 618.9068520493267}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {617.5462057335105, 697.0931479506733}], Offset[{0., 0.}, {657.4537942664895, 618.9068520493267}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {662., 600.}], Offset[{0., 0.}, {662., 488.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {662., 600.}], Offset[{0., 0.}, {662., 488.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1134., 1052.}], Offset[{0., 0.}, {1134., 1065.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.4996007511721905`, -0.034606171180896705`}, { 561.7307078078726, 1097.997338341148}], Offset[{1.4996007511721905`, -0.034606171180896705`}, { 562.7692921921274, 1143.002661658852}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.4996007511721905`, 0.034606171180896705`}, { 561.7307078078726, 1097.997338341148}], Offset[{-1.4996007511721905`, 0.034606171180896705`}, { 562.7692921921274, 1143.002661658852}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.4996007511721905`, 0.034606171180896705`}, { 561.7307078078726, 1097.997338341148}], Offset[{-1.4996007511721905`, 0.034606171180896705`}, { 562.7692921921274, 1143.002661658852}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.4984528103154493`, -0.06811149137797497}, { 385.9540766091865, 405.010314597897}], Offset[{-1.4984528103154493`, -0.06811149137797497}, { 386.5459233908135, 391.989685402103}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{1.4984528103154493`, 0.06811149137797497}, { 385.9540766091865, 405.010314597897}], Offset[{1.4984528103154493`, 0.06811149137797497}, { 386.5459233908135, 391.989685402103}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{1.4984528103154493`, 0.06811149137797497}, { 385.9540766091865, 405.010314597897}], Offset[{1.4984528103154493`, 0.06811149137797497}, { 386.5459233908135, 391.989685402103}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {757.9962479260821, 978.854895735065}], Offset[{0., 0.}, {767.5037520739179, 969.145104264935}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {732.1033596569799, 1007.4902968606895`}], Offset[{0., 0.}, {744.3966403430201, 993.5097031393105}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {574.3277696397795, 916.152043315597}], Offset[{0., 0.}, {671.6722303602205, 897.847956684403}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {574.3277696397795, 916.152043315597}], Offset[{0., 0.}, {671.6722303602205, 897.847956684403}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {691.5, 896.}], Offset[{0., 0.}, {745., 896.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {691.5, 896.}], Offset[{0., 0.}, {745., 896.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {577.7046279585992, 878.8394112888133}], Offset[{0., 0.}, {576.2953720414008, 880.1605887111867}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {567.5634436079583, 896.8962773673985}], Offset[{0., 0.}, {565.9365563920417, 908.1037226326015}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1897.8105526824286`, 490.1768174963999}], Offset[{0., 0.}, {1928.1894473175714`, 461.8231825036001}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1897.8105526824286`, 490.1768174963999}], Offset[{0., 0.}, {1928.1894473175714`, 461.8231825036001}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1942.590204561205, 447.94812086885565`}], Offset[{0., 0.}, {2020.909795438795, 370.05187913114435`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1942.590204561205, 447.94812086885565`}], Offset[{0., 0.}, {2020.909795438795, 370.05187913114435`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {647.9010770927206, 1136.0179515453422`}], Offset[{0., 0.}, {647.5989229072794, 1130.9820484546578`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {649.3721621461056, 1111.2854312111867`}], Offset[{0., 0.}, {655.1278378538944, 1087.7145687888133`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1139.6846623944389`, 815.246516207034}], Offset[{0., 0.}, {1101.8153376055611`, 768.753483792966}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {814.9618970039705, 583.8961203404562}], Offset[{0., 0.}, {775.5381029960295, 544.1038796595438}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {583.8421805162279, 775.0167614792467}], Offset[{0., 0.}, {577.6578194837721, 768.9832385207533}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {596.2171989726694, 787.6519655537252}], Offset[{0., 0.}, {597.7828010273306, 789.3480344462748}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {1050.8437690699946`, 394.99877952034694`}], Offset[{0., 0.}, {1049.6562309300054`, 471.00122047965306`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {816.5045882085462, 705.3028912664076}], Offset[{0., 0.}, {803.4954117914538, 705.6971087335924}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {783.5029730935695, 705.7561700754529}], Offset[{0., 0.}, {762.4970269064305, 705.2438299245471}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {569.7129751457999, 752.0310185134654}], Offset[{0., 0.}, {560.7870248542001, 638.9689814865346}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1020.9950467482436`, 650.8926114369258}], Offset[{0., 0.}, {988.0049532517564, 640.1073885630742}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1030.793990516019, 663.9956775446435}], Offset[{0., 0.}, {1031.706009483981, 695.0043224553565}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1710.7826600459077`, 989.0023621117608}], Offset[{0., 0.}, {1709.7173399540923`, 939.9976378882392}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1703.2344308817535`, 922.2062432919372}], Offset[{0., 0.}, {1674.7655691182465`, 886.7937567080628}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1654.4995713581516`, 946.0925886236865}], Offset[{0., 0.}, {1742.5004286418484`, 946.9074113763135}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1654.4995713581516`, 946.0925886236865}], Offset[{0., 0.}, {1742.5004286418484`, 946.9074113763135}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1564.8609962069386`, 1019.2312678556885`}], Offset[{0., 0.}, {1637.1390037930614`, 952.7687321443115}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1564.8609962069386`, 1019.2312678556885`}], Offset[{0., 0.}, {1637.1390037930614`, 952.7687321443115}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1711.1470429244187`, 1008.9989188604758`}], Offset[{0., 0.}, {1712.3529570755813`, 1091.001081139524}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1739.2198265921966`, 1038.8397551889834`}], Offset[{0., 0.}, {1716.7801734078034`, 1007.1602448110166`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1762.054026409829, 944.0469372915074}], Offset[{0., 0.}, {1797.945973590171, 932.9530627084926}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1762.054026409829, 944.0469372915074}], Offset[{0., 0.}, {1797.945973590171, 932.9530627084926}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1514.185094079743, 630.9151035941965}], Offset[{0., 0.}, {1472.314905920257, 639.0848964058035}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1514.185094079743, 630.9151035941965}], Offset[{0., 0.}, {1472.314905920257, 639.0848964058035}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1544.022148421434, 627.6651901052377}], Offset[{0., 0.}, {1533.977851578566, 628.3348098947623}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1544.022148421434, 627.6651901052377}], Offset[{0., 0.}, {1533.977851578566, 628.3348098947623}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-0.03550047272645613, 2.999789945385543}, { 1328.5007001820481`, 748.8816650909118}], Offset[{-0.03550047272645613, 2.999789945385543}, { 1263.9992998179519`, 748.1183349090882}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {1328.5007001820481`, 748.8816650909118}], Offset[{0., 0.}, {1263.9992998179519`, 748.1183349090882}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0.03550047272645613, -2.999789945385543}, { 1328.5007001820481`, 748.8816650909118}], Offset[{0.03550047272645613, -2.999789945385543}, { 1263.9992998179519`, 748.1183349090882}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1105.944271909999, 456.4721359549996}], Offset[{0., 0.}, {1242.055728090001, 524.5278640450005}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1854.0305469265809`, 533.8886421892057}], Offset[{0., 0.}, {1883.4694530734191`, 504.11135781079435`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1854.0305469265809`, 533.8886421892057}], Offset[{0., 0.}, {1883.4694530734191`, 504.11135781079435`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {595.3177872040262, 863.4018439966447}], Offset[{0., 0.}, {592.6822127959738, 865.5981560033553}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1375.5, 1139.}], Offset[{0., 0.}, {1375.5, 1117.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.068850229172617, 1.0524063794930383`}, { 1548.9839574700463`, 777.8743318055159}], Offset[{-1.068850229172617, 1.0524063794930383`}, { 1499.0160425299537`, 727.1256681944841}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{1.068850229172617, -1.0524063794930383`}, { 1548.9839574700463`, 777.8743318055159}], Offset[{1.068850229172617, -1.0524063794930383`}, { 1499.0160425299537`, 727.1256681944841}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1660.8261804841754`, 872.5880974712221}], Offset[{0., 0.}, {1563.6738195158246`, 791.4119025287779}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0., -1.5}, {1284.5, 623.}], Offset[{0., -1.5}, {1350.5, 623.}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 1.5}, {1284.5, 623.}], Offset[{0., 1.5}, {1350.5, 623.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1252.749921911602, 798.0031235359188}], Offset[{0., 0.}, {1253.750078088398, 757.9968764640812}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {303.07468171810285`, 1234.2138732103094`}], Offset[{0., 0.}, {292.92531828189715`, 1244.7861267896906`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {277.9296967434157, 1257.905099943842}], Offset[{0., 0.}, {273.5703032565843, 1261.094900056158}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {786.2469370907413, 48.11573689968667}], Offset[{0., 0.}, {771.2530629092587, 33.88426310031333}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {664.8480344462748, 1071.2171989726694`}], Offset[{0., 0.}, {669.6519655537252, 1066.7828010273306`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1459.607136707891, 448.0005739301787}], Offset[{0., 0.}, {1460.892863292109, 327.9994260698213}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1459.607136707891, 448.0005739301787}], Offset[{0., 0.}, {1460.892863292109, 327.9994260698213}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1454.3005305310426`, 449.45801444385563`}], Offset[{0., 0.}, {1380.6994694689574`, 328.54198555614437`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1454.3005305310426`, 449.45801444385563`}], Offset[{0., 0.}, {1380.6994694689574`, 328.54198555614437`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {459.50264131013586`, 703.229824337698}], Offset[{0., 0.}, {392.49735868986414`, 704.770175662302}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {317., 749.}], Offset[{0., 0.}, {317., 766.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {287.9289321881345, 534.9289321881346}], Offset[{0., 0.}, {280.0710678118655, 527.0710678118654}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {386.3059011569011, 1150.387553756535}], Offset[{0., 0.}, {375.1940988430989, 1159.612446243465}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {196.25415516277792`, 1005.9967697359314`}], Offset[{0., 0.}, {197.24584483722208`, 1045.0032302640686`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.49652553902231, 0.10203583220606659`}, { 562.3197611186263, 1075.9768369268154`}], Offset[{1.49652553902231, 0.10203583220606659`}, { 562.1802388813737, 1078.0231630731846`}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.49652553902231, -0.10203583220606659`}, { 562.3197611186263, 1075.9768369268154`}], Offset[{-1.49652553902231, -0.10203583220606659`}, { 562.1802388813737, 1078.0231630731846`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.49652553902231, -0.10203583220606659`}, { 562.3197611186263, 1075.9768369268154`}], Offset[{-1.49652553902231, -0.10203583220606659`}, { 562.1802388813737, 1078.0231630731846`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.5, 0.}, {563., 1051.}], Offset[{1.5, 0.}, {563., 1056.}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.5, 0.}, {563., 1051.}], Offset[{-1.5, 0.}, {563., 1056.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.5, 0.}, {563., 1051.}], Offset[{-1.5, 0.}, {563., 1056.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {587., 1107.}], Offset[{0., 0.}, {537.5, 1107.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {329.2260634749054, 1208.8622042689572`}], Offset[{0., 0.}, {317.2739365250946, 1220.1377957310428`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {360.97476864640123`, 1173.5776880235342`}], Offset[{0., 0.}, {343.02523135359877`, 1194.4223119764658`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.5, 50.}], Offset[{0., 0.}, {1375.5, 43.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.5, 50.}], Offset[{0., 0.}, {1375.5, 43.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {742.5, 705.}], Offset[{0., 0.}, {709., 705.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1377., 1273.}], Offset[{0., 0.}, {1377., 1268.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1003.1954890063272`, 266.672065083737}], Offset[{0., 0.}, {997.3045109936728, 260.327934916263}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {972.9389034781661, 645.311089307356}], Offset[{0., 0.}, {938.5610965218339, 696.688910692644}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {928.9844216206651, 714.1583366546234}], Offset[{0., 0.}, {908.5155783793349, 760.8416633453766}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1022., 705.}], Offset[{0., 0.}, {943., 705.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1023.48311424484, 796.8751621562991}], Offset[{0., 0.}, {940.01688575516, 712.1248378437009}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {657.8657317487066, 839.9552589992443}], Offset[{0., 0.}, {630.6342682512934, 824.0447410007557}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {656.6739158074179, 846.856897800173}], Offset[{0., 0.}, {612.8260841925821, 855.143102199827}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {660.5, 384.}], Offset[{0., 0.}, {660.5, 377.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.9407477507077`, 138.00971765062437`}], Offset[{0., 0.}, {1376.5592522492923`, 123.99028234937562`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.9407477507077`, 138.00971765062437`}], Offset[{0., 0.}, {1376.5592522492923`, 123.99028234937562`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {886.1693045781866, 424.2381293981605}], Offset[{0., 0.}, {903.8306954218134, 344.7618706018395}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {884., 529.}], Offset[{0., 0.}, {884., 444.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.1669117703055822`, 0.9425056606314319}, { 1773.2166289291238`, 806.2205881979628}], Offset[{-1.1669117703055822`, 0.9425056606314319}, { 1764.7833710708762`, 795.7794118020372}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{1.1669117703055822`, -0.9425056606314319}, { 1773.2166289291238`, 806.2205881979628}], Offset[{1.1669117703055822`, -0.9425056606314319}, { 1764.7833710708762`, 795.7794118020372}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.6217225506077748, 1.365086469812723}, { 1749.399423534582, 783.8551829959482}], Offset[{-0.6217225506077748, 1.365086469812723}, { 1717.100576465418, 769.1448170040518}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0.6217225506077748, -1.365086469812723}, { 1749.399423534582, 783.8551829959482}], Offset[{0.6217225506077748, -1.365086469812723}, { 1717.100576465418, 769.1448170040518}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1808.226418571477, 578.0877735403263}], Offset[{0., 0.}, {1839.773581428523, 547.9122264596737}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1808.226418571477, 578.0877735403263}], Offset[{0., 0.}, {1839.773581428523, 547.9122264596737}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1578.5, 627.}], Offset[{0., 0.}, {1564., 627.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1578.5, 627.}], Offset[{0., 0.}, {1564., 627.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 617.}], Offset[{0., 0.}, {1588.5, 594.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 617.}], Offset[{0., 0.}, {1588.5, 594.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {648.4824448420045, 1082.3224644558986`}], Offset[{0., 0.}, {606.0175551579955, 1102.6775355441014`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1855.2332966884676`, 583.6065761852121}], Offset[{0., 0.}, {1867.2667033115324`, 570.3934238147879}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1855.2332966884676`, 583.6065761852121}], Offset[{0., 0.}, {1867.2667033115324`, 570.3934238147879}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1665.5172500686406`, 869.4552002196497}], Offset[{0., 0.}, {1661.4827499313594`, 856.5447997803503}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1665.5172500686406`, 869.4552002196497}], Offset[{0., 0.}, {1661.4827499313594`, 856.5447997803503}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {519., 535.}], Offset[{0., 0.}, {479.5, 535.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {315.64019979269983`, 1076.907115796044}], Offset[{0., 0.}, {311.35980020730017`, 1108.092884203956}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {381.14610206948333`, 1105.703142852188}], Offset[{0., 0.}, {319.85389793051667`, 1116.296857147812}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1768.0410679353229`, 1049.0946425395748`}], Offset[{0., 0.}, {1754.9589320646771`, 1047.9053574604252`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1715.6703136785452`, 1163.8693855610434`}], Offset[{0., 0.}, {1737.8296863214548`, 1192.1306144389566`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1463.2330350111527`, 575.0294551449842}], Offset[{0., 0.}, {1461.7669649888473`, 555.9705448550158}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1463.2330350111527`, 575.0294551449842}], Offset[{0., 0.}, {1461.7669649888473`, 555.9705448550158}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {615.7929705563444, 811.1595417553824}], Offset[{0., 0.}, {609.2070294436556, 802.8404582446176}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0.48034169785427266`, 1.4210108561522234`}, { 254.52659429231852`, 1177.2022779856952`}], Offset[{0.48034169785427266`, 1.4210108561522234`}, { 237.97340570768148`, 1182.7977220143048`}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{-0.48034169785427266`, -1.4210108561522234`}, { 254.52659429231852`, 1177.2022779856952`}], Offset[{-0.48034169785427266`, -1.4210108561522234`}, { 237.97340570768148`, 1182.7977220143048`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {197.5, 1065.}], Offset[{0., 0.}, {197.5, 1099.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {197.5, 1119.}], Offset[{0., 0.}, {197.5, 1210.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1462.7205345866703`, 754.0024320709443}], Offset[{0., 0.}, {1463.7794654133297`, 705.9975679290557}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1462.7205345866703`, 754.0024320709443}], Offset[{0., 0.}, {1463.7794654133297`, 705.9975679290557}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1482., 1081.}], Offset[{0., 0.}, {1456.5, 1081.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1453.5331424170067`, 636.5733234716869}], Offset[{0., 0.}, {1392.4668575829933`, 606.4266765283131}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1453.5331424170067`, 636.5733234716869}], Offset[{0., 0.}, {1392.4668575829933`, 606.4266765283131}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1462.7677611041995`, 631.0035854432163}], Offset[{0., 0.}, {1463.7322388958005`, 594.9964145567837}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1462.7677611041995`, 631.0035854432163}], Offset[{0., 0.}, {1463.7322388958005`, 594.9964145567837}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1463.7273740982243`, 686.0037169348961}], Offset[{0., 0.}, {1462.7726259017757`, 650.9962830651039}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1463.7273740982243`, 686.0037169348961}], Offset[{0., 0.}, {1462.7726259017757`, 650.9962830651039}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {603., 706.}], Offset[{0., 0.}, {549., 706.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {566.3614202394517, 952.1747715195951}], Offset[{0., 0.}, {611.1385797605483, 715.8252284804049}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {566.3614202394517, 952.1747715195951}], Offset[{0., 0.}, {611.1385797605483, 715.8252284804049}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.0742888888044208, -1.4981592575558196`}, { 778.4877283837054, 537.4952592586961}], Offset[{0.0742888888044208, -1.4981592575558196`}, { 819.0122716162946, 539.5047407413039}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.0742888888044208, 1.4981592575558196`}, { 778.4877283837054, 537.4952592586961}], Offset[{-0.0742888888044208, 1.4981592575558196`}, { 819.0122716162946, 539.5047407413039}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-0.027268220501272436`, -1.499752127569984}, { 838.9983475171332, 539.8182118633249}], Offset[{-0.027268220501272436`, -1.499752127569984}, { 874.0016524828668, 539.1817881366751}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.027268220501272436`, 1.499752127569984}, { 838.9983475171332, 539.8182118633249}], Offset[{0.027268220501272436`, 1.499752127569984}, { 874.0016524828668, 539.1817881366751}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1712.5, 1111.}], Offset[{0., 0.}, {1712.5, 1118.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {661.4650527862839, 291.0143186772991}], Offset[{0., 0.}, {661.0349472137161, 282.9856813227009}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {317., 1033.}], Offset[{0., 0.}, {317., 1057.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1058.0350383887267`, 475.789134457409}], Offset[{0., 0.}, {1088.4649616112733`, 457.210865542591}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {459.50799041278214`, 534.6003196165112}], Offset[{0., 0.}, {429.49200958721786`, 533.3996803834888}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.9761870601839527, 1.138884903547945}, { 1484.407433976347, 713.4920862654403}], Offset[{-0.9761870601839527, 1.138884903547945}, { 1471.592566023653, 702.5079137345597}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0.9761870601839527, -1.138884903547945}, { 1484.407433976347, 713.4920862654403}], Offset[{0.9761870601839527, -1.138884903547945}, { 1471.592566023653, 702.5079137345597}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.16122276447013772`, -1.4913105713487738`}, { 893.9420704756585, 540.0748184298009}], Offset[{0.16122276447013772`, -1.4913105713487738`}, { 911.0579295243415, 541.9251815701991}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.16122276447013772`, 1.4913105713487738`}, { 893.9420704756585, 540.0748184298009}], Offset[{-0.16122276447013772`, 1.4913105713487738`}, { 911.0579295243415, 541.9251815701991}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-0.07078718710568963, -1.498328793737097}, { 930.988858624914, 542.5280854192954}], Offset[{-0.07078718710568963, -1.498328793737097}, { 974.511141375086, 540.4719145807046}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.07078718710568963, 1.498328793737097}, {930.988858624914, 542.5280854192954}], Offset[{0.07078718710568963, 1.498328793737097}, {974.511141375086, 540.4719145807046}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {827.470783932918, 913.8300508118557}], Offset[{0., 0.}, {831.029216067082, 910.1699491881443}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {913.1764310812042, 328.0358893649852}], Offset[{0., 0.}, {983.3235689187958, 259.9641106350148}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.4968201589487276`, -0.09761870601839526}, { 562.150791373456, 1027.9788010596583`}], Offset[{1.4968201589487276`, -0.09761870601839526}, { 562.349208626544, 1031.0211989403417`}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.4968201589487276`, 0.09761870601839526}, { 562.150791373456, 1027.9788010596583`}], Offset[{-1.4968201589487276`, 0.09761870601839526}, { 562.349208626544, 1031.0211989403417`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.4968201589487276`, 0.09761870601839526}, { 562.150791373456, 1027.9788010596583`}], Offset[{-1.4968201589487276`, 0.09761870601839526}, { 562.349208626544, 1031.0211989403417`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1704.7260477374011`, 774.4488748844624}], Offset[{0., 0.}, {1671.7739522625989`, 869.5511251155376}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {317., 987.}], Offset[{0., 0.}, {317., 1013.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {861.5879562647493, 124.28720567373527`}], Offset[{0., 0.}, {849.9120437352507, 113.71279432626473`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1135.1914522061843`, 1275.9287683848693`}], Offset[{0., 0.}, {1135.8085477938157`, 1281.0712316151307`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1375.5, 1165.}], Offset[{0., 0.}, {1375.5, 1159.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {2013.2260634749055`, 1045.1377957310428`}], Offset[{0., 0.}, {2001.2739365250945`, 1033.8622042689572`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1810.8964446377756`, 920.5944610030831}], Offset[{0., 0.}, {1817.1035553622244`, 903.4055389969169}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1810.8964446377756`, 920.5944610030831}], Offset[{0., 0.}, {1817.1035553622244`, 903.4055389969169}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {991.9045531408152, 533.2789440721831}], Offset[{0., 0.}, {1042.0954468591847`, 487.7210559278169}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {567.5, 1333.}], Offset[{0., 0.}, {567.5, 1341.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {567.5, 1333.}], Offset[{0., 0.}, {567.5, 1341.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1560.2580046626292`, 619.2001681016505}], Offset[{0., 0.}, {1582.2419953373708`, 591.7998318983495}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1560.2580046626292`, 619.2001681016505}], Offset[{0., 0.}, {1582.2419953373708`, 591.7998318983495}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1134., 1246.}], Offset[{0., 0.}, {1134., 1256.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {661.0165508542804, 263.0133501505789}], Offset[{0., 0.}, {661.4834491457196, 253.98664984942107`}]}]}}}}], Typeset`data}, TagBox[ DynamicBox[GraphComputation`NetworkGraphicsBox[ 2, Typeset`graph, Typeset`boxes], { CachedValue :> Typeset`boxes, SingleEvaluation -> True, SynchronousUpdating -> False, TrackedSymbols :> {}}, ImageSizeCache->{{3.0980968013494783`, 239.10502819865047`}, {-83.09566569865044, 75.82842712474616}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False, UnsavedVariables:>{Typeset`data}]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FrameTicks->None, ImageSize->{194.5625, Automatic}]], CellChangeTimes->{{3.525599324432128*^9, 3.5255993534620304`*^9}, { 3.526039989435244*^9, 3.526039990776378*^9}, 3.5278835559701967`*^9, 3.5594745228276987`*^9}]], "Text", CellChangeTimes->{3.559474532062817*^9}, TextAlignment->Right], Cell[TextData[{ "Overview of Graphs & Networks in ", StyleBox["Mathematica", FontSlant->"Italic"], " 8" }], "Subsection", CellChangeTimes->{{3.559456757001009*^9, 3.559456779325512*^9}}], Cell["\<\ Enhanced Functionality\ \>", "Subsection", CellChangeTimes->{{3.5594575209693527`*^9, 3.559457532070582*^9}, 3.5594745554879007`*^9}], Cell["\<\ Social Network Analysis\ \>", "Subsection", CellChangeTimes->{{3.559456757001009*^9, 3.559456800540063*^9}, 3.559474556782584*^9}], Cell["\<\ Network Flows\ \>", "Subsection", CellChangeTimes->{{3.5594568054035683`*^9, 3.559456816291032*^9}, 3.559474558191049*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ PanelBox[ GraphicsBox[{ {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], TagBox[ {RGBColor[0.85, 0.5, 0.5], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{0.9510565162951535, 0.30901699437494745`}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[ {RGBColor[0.85, 0.5, 0.5], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{0.5877852522924732, -0.8090169943749473}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[ {RGBColor[0.85, 0.5, 0.5], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{-0.587785252292473, -0.8090169943749475}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[ {Hue[0.55, 0.7, 0.6], EdgeForm[Hue[0.55, 0.7, 0.6]], DiskBox[{-0.9510565162951536, 0.30901699437494723`}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[ {Hue[0.55, 0.7, 0.6], EdgeForm[Hue[0.55, 0.7, 0.6]], DiskBox[{-2.4492935982947064`*^-16, 1.}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$5"]}, {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Hue[1, 1, 0.7], Opacity[1], AbsoluteDashing[{2, 2}], CapForm["Butt"], LineBox[{{0.9019894303059001, 0.15800403160865897`}, { 0.6368523382817267, -0.6580040316086591}}]}, {Hue[1, 1, 0.7], Opacity[1], AbsoluteDashing[{2, 2}], CapForm["Butt"], LineBox[{{0.822597217446374, 0.21568585064355866`}, {-0.4593259534436935, -0.7156858506435593}}]}, \ {Hue[0.55, 0.7, 0.4], LineBox[{{0.7922720905761016, 0.3090169943749471}, {-0.7922720905761014, 0.3090169943749469}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{0.822597217446374, 0.4023481381063355}, { 0.12845929884877938`, 0.9066688562686113}}]}, {Hue[1, 1, 0.7], Opacity[1], AbsoluteDashing[{2, 2}], CapForm["Butt"], LineBox[{{ 0.4290008265734213, -0.8090169943749473}, {-0.4290008265734211, \ -0.8090169943749476}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{ 0.45932595344369365`, -0.7156858506435589}, {-0.8225972174463738, 0.21568585064355847`}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{0.5387181663032196, -0.6580040316086591}, { 0.049067085989253384`, 0.8489870372337115}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{-0.6368523382817266, -0.6580040316086595}, \ {-0.9019894303058998, 0.15800403160865858`}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{-0.5387181663032194, -0.6580040316086595}, \ {-0.04906708598925377, 0.8489870372337115}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{-0.8225972174463738, 0.4023481381063354}, {-0.12845929884877977`, 0.9066688562686113}}]}}}, Background->Hue[0.15, 0.2, 0.85], FrameTicks->None, ImagePadding->3, ImageSize->{60, 60}], FrameMargins->2]], CellChangeTimes->{ 3.4955400393789873`*^9, {3.4955400886890182`*^9, 3.495540143395626*^9}, { 3.495540357473371*^9, 3.4955403708695097`*^9}, 3.495540421737155*^9, 3.495542446947692*^9, {3.49554257918784*^9, 3.49554264768053*^9}, 3.495542686454247*^9, {3.495544543583839*^9, 3.495544564736018*^9}, { 3.495544908515801*^9, 3.495544972211882*^9}, 3.4955450618703203`*^9, 3.495545413548705*^9, 3.4955456048713818`*^9, 3.4955468398163013`*^9, 3.495548342961187*^9, 3.495550256673864*^9, 3.495550327820999*^9, 3.495550521068549*^9, 3.495551011324471*^9, 3.495551152313281*^9, 3.495553000876917*^9, {3.495553047007546*^9, 3.495553098077756*^9}, 3.495553548792179*^9, {3.4955570419580727`*^9, 3.495557060014695*^9}, 3.495557529661482*^9, {3.495558041157292*^9, 3.495558071288486*^9}, 3.49555810389389*^9, 3.4955589567182198`*^9, {3.495559255008573*^9, 3.495559279655389*^9}, {3.4955594220526457`*^9, 3.495559430344759*^9}, 3.495559614628994*^9, {3.495560859809958*^9, 3.495560864826028*^9}, { 3.4955631428289623`*^9, 3.49556318518209*^9}, 3.495563719187069*^9, 3.49556384778574*^9, 3.4955653686053143`*^9, 3.495804370870487*^9, 3.5275180677795143`*^9, 3.5275181379190817`*^9, {3.527518505787027*^9, 3.527518511425797*^9}, 3.527520071542618*^9, {3.527599192238847*^9, 3.527599198603698*^9}, 3.527846431896058*^9}], " Overview of Graphs & Networks " }], "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.527527214495729*^9, 3.5275272216368933`*^9}, {3.52778970439397*^9, 3.527789737741983*^9}, {3.527846460822731*^9, 3.527846474473072*^9}, { 3.559473913945056*^9, 3.559473923046453*^9}}], Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnU2MZNV5hoEEKRvWrFhkwZY9G6RErFghRyxZGIkskFCkcVBklkgsWbAI E0UWqIlFImUCsQ3TCRDjDNjyOAkihhnGmeFnbEwYM2M8I0DTY0iln1v3ufXW qXtv1/R013RV3SOdvtVV5/5Unfd+P+/3fef+8QN/8Y0/v+mGG2741h9t//nG N//qTw4d+ua3/+wPt//502//5YMP/MH2i0Pb/antzpuffHJu9NnvPht9ev7C 0Lf7+e3O73Hu3G9Gv/n0/Fz78Bt+/fXXo6FN2oXffna9L+HAtS+//LLC1Oef fz7X+IsXL+3zFS1fG3A1aeDo3Lmx/BZbW1tbO+7H+MtzjFunJq74HT/66KM9 7RcvXqzmhWPTfc38OYcffPhhNZY5LPdnvhi319dlP3v27OjUqVPVNXAuZRTX ubV1efTFF19Un3mNbd+PNuBqtomr1157bXTjjTfuWb/ppptG99133+jFF1+s +pEjR0ZPP/306PHHH6/63XffPbr99turzri77rqr2ofuMe64447Rk08+Obr/ /vtHN998855en51zHz9+fAr3X3+1NbpS4wT8cI1t+z711FPVmAFXs22/cEW/ 9dZbR0888cTolVdeqfABTphHumPuvPPO0b333luNbTvGAw88MDp06NDotttu 29NrAyvPPfdchSOauAJTvzr32ehffvrB6Pxvx3YT90PbMfhOtAFXs20/caU8 QF4pp/j/nnvuqfAEzsATsojXbXPP+EcffbSSWSnLdts5F9cBFmjqvP/7+sro d5e+GP3ozV+OvvPSidFfv/Dfox+++atqDPoQeTrgav6237hiPpBXdOYTTNHB C1gBXzle7KhHwRbHAFtdMm3e/tBDD1X2lE2dx/bNU/87+rt/fXf0N997e/TM 0ROjZzZPjv72+29Xsqvr9xlw1d0WgSvkFbhCn6Hz1IXYWMgPZdctt9wyhTNw pDwDkw8//HA1ZjfXwPezgaOvfj+2oc788vzon350egpPdnD1/TfOND4hOnnA 1Xxtv3EFTrDZX3/99crWYm6QPWAEeQXO2D744INVR6aANzr7KqPABnZOObd9 HVnHPmlDXaltqE/OXxy9fPzDCjv0xNNG3XkN3k68d67aH1mXunjAVXfbb1wh h8AVx2cLth577LEKP+AIvCC7xBnjtat4jzHgS1wht3Y6J3PPOeDBacgb8KQN 9ZO3P6pkk3hC/5V4csu4v3/1VMOR5vkHXHW3/cYV8gY8vPPOOw2u1GlgS/xg c6VtxRadR9fGYjzHYGzX+cAm57Iho8AT25+fPldhpE3nlXjaiM8Yf/ydX1fH g+OSdxhw1d32G1fYRvA8cIvYWbxWn4EndKI4Uw/SkVF255EtYzlGyTswjuPb kjfAhsJOAh/fefHEjL7rwlTKLLbyDmB7wFV/229c0bHXwRX8I7gAV3Twwf98 nq/BCLhBVrFFPoE5sKgPqa5ky77qqcvBG4CDV//jbIWltKHaZNJO2AKTr/zs bHVc8Iq+RtfSBlzNtkXgCjygm8AWfiGYAifqQOQT2MGGl8dCzimTwA7jmEfk m/Y88iltKHUeGENviYedcLMTptyCTWQfjXMP8qq7LQJXYAhfCgwwH9rs6kA6 GMKu8n3klroR31A+lS2fvfXWW813EE/Y5vhu//Bvv2hsqKuRSfPgCn3K+YgN yoUNuJpti8QVHVmF7Y7uSlwhf7Sf6OpC7TDkmFyYfJK8AZiCv2xsqJdmbfJr xVTqQ+x/mnkPYGzA1XRbJK6wd5E1YEX5hL0kTyp+ynjNI488UuERX4wmb4BN Dm9AvAUsIU9K/bZXeHKLrfbcq7+ocq7MpRnk1Wzbb1yBEWQTuMIewYZCn4Er XiOz7GAu44TILLD23nvvNderziNm91/vfjyJvewxfvq2nA8OjAamsBvnydNa p7YIXhQ8Ya8jr5Bd6DtsLOxwPgdj6EHjPLwHzkoe6srWJPbyjz/8nxkeahGY aniH7Q5nD8YHXM22RfBXYAWZRV4KuII/YIssAlOMkTdAR3ItZf6KNhT5K+Cp LfayyC3n51q4Nuwr8yOGNm6LsK/ADPJHzkpfDzsc2QSW6Hzelb9y7K3p2Mt+ 2U9zy6zNCe/ANeLrDjJr0haBK2ws+Uv0IVvjx8gu/teGoq6ljL2U+St7yR1c yxZckQthbrV+xdAWgytlFvKI82BvyUe15a9s9eSvXE8c9fEO3AdXU8Oz6m1R uMLGIleGbn6Dc5A8FLEX7BZkQRsPdeC225hHnqKr0dvy/+veFoUrbCr8O3rJ Q03lrwSOUu8dCAy1bJVZ5C/zPbAPrdNZ57YoXOELgqese9GGIvaS+Svwji/9 5P1qe5B1YIP37WtEtuKvVjmDgw2/p7jCBsdmyjx081eubG1N1VHxmnl44fXT s7GXWrcQl6FXeXcR69tzmVPzUTuOKcdHR29zLwy8w7jtJa7gDOTLwRZ+njoh dV6Vv/KfZ8ecQcd8On/EkJkvtvPM/zy4aLOPnj92eur4iR8+5/z4EWWHnwX7 yltkr7yDHNw6tv3Qg3BTcNA2ZZT5K8wTmPruy2OZ1IutujMOfDF/U7JiTkyJ g7b3iS/SeY3u5fronIv3OC+58OLI17z/s5OfNN8BmcvnfF/iTOvMO8yLKzgo dJr1DHCa1tbwWl6d3D3bhDe4PJ2/EjhhHlrxEbLCOVQv0nmP46kj+zpj2Ycc v8QquPa4HAu8wL+CMc9z9KcfNjpZTpZxyDf3TR1uzvK68w7z4grMYHvDEzAW /NDhOXm/jL2g88CU+SvOCRwC88lr5sWahdQ74Er9whhw4TiOw2fOqVvlEfhA zqi3EotiWNzmGPDjvp4LvPA/n5MryhiP9fy/j/ervkvmeQXvwG+wrrzDPLhC PmErsVYB+XTW1shDTcdeJrwB9725K9rf3Ovqs9SBznPioPEHax2T9nzDmdZY FVfuy3nEzfPHxu+VHAY4Ay90xnqOcpzndBzn5ZxtOlyZhWyUd1hHG15cIXfA EHoNDFkfat1x1tSQh2AtBC39PLaZv8L97H0OxtAf4A19w5xru/M5+sP5r+ob ajypC/nsBz9+v8IlnWODjTwO+9GRJ2CA99lnSlbVeOF46jyuq9GpySHU3VxR 3gPv4EpfYoZ32JzUSq9r7FBcwQXgy7EVP2AKvw6MkX9HHifyiVyqzNmUN2jN X6nlgvJKG1hspG7hNXOm3FB+MQ6Zo1+mf6hcgqvgs1LeaDelrEqseF7GqFtL bKUtxvWJb/BY4arDV8ha6XXkHcQV+g05RI6w9TJZs24OcBl7sXbY2Etb3Qtd u5i5YQ6RJ7x2fkrfnbGpCzmu+kg5pKxgH/E5Za9td94/UvqBm+NaVPSaOlVM yRmUso1zKtv0IbOetW2bvANrfa0T7yCu0GnW9iGrrOtFZvG6re6FXFzzV/gN ++ItygdwwljlCFv0VMos/UR1l7YY7x+p5QW41LaWk+RYYKXiE2q7jPfzGrTZ 1Z/mcqXNzzHST02Zi2xsdOZO/EatM+Ec+M3A1ro0ccV3LmsayL3bTe1wHxel /lNmKWO0m5hTdA54UeeJvzyO+ybHpC7Th1S2zNhL29eLXvXY7CeevB6w0+Cz vm5xnH7rTrgyZ3ndeAdxha9nLQy8QVlHJW+ADWXspcTRRjF/bXE07l90HFvl Dp25Zc4a373WVcxnmdfA/3KqDX+weXLKPuI1uqqNZ0984yvgu4HrxkfdnOZS lVXz1t7P8HDbW2wFY4fr0MQVtjg8OX5h2lBwmvwexF64n7tsqBld0yWzAlsb IXfEztg3G/uO6sqM92i7l3wCx0nuFKyIhVJWqQOVZ8omzlNii7Fyo+U9NA+2 lFn8dvyO68I7YCNhM7k2Ky1zgMGY+Stt66+0yqU5sSUGPGabDZ0yTdwgW7TL vvf6e409JB/Ba32BGd+ulmVyWo5t5FH4ofoL6Q/sNra9bjnLrAmMH5wySh6q zF/ZyYaaO69k8+TU/CkTwJp8unJILpVuXBGM4S84PuNz6jg+L7HgOfU19SO0 +ROH2n+On8dO79tmrfQ65CyDK9eWdj3sqdrhjvVXdnvflna8vEPDKdS68bsv n6pj06cqnVbJrFrGyGWxxc5CXhkL5n8+47htsipjMG7FdhX3Cz8zdWUbB3q1 2zJneZV5B2QVuhBfmO+LjKp87x+802tDXQum2mwdsZD+H3Osj8Y18X/GhB0r PpJHbdOBG7UsU3YwPvlVrqGSU8fOzMSMKn9wlzk60/zqqaZWepVtePOjuH8q 3b/tt+wk8/dCXpUyJHNgkgfHhmLO1UvaYtrv6ipjNelvljgoOfPKVnvj/Wpf 9CYYBlNiOXkOjtnk6FzD9+X+4Fy0Vc5Z1h/k3vE7Et+bZ32fPcHV5oRP8H/m ubJ1t2UmuHn5+FjPlfYdHfwwT+kjZh5gnqfkYTk+ep7jpx5OGyz5/+oa9kBm cQxsDXibVZVZGcchB4aGTtTv3m9cbdS/s/59k+tXf648ShunlHfuq5+Y+Ss5 JnWo+KJzjuROMt8q44vufy2/i77HqtdKiytyqeDY9QvxibO2eL9lVvJa6jvt IDBiDl6b7ZzclnHt8vMmX7Q+D+dQx7LNnBy6+VjiMHNldqMP1cPakiXvsGo2 fPLt8KJw7TT4dWPJi8IW5zI2bQyx4sy3P2Muq1jkDthUbpW4kl/3WG05emmj u03/Mu2/Ntm5k67XZ2WbOcuryDuIK+Qx+QqZm44Nfy21Crux4eVLU2+ZgwU/ a4ynbX/jQMkxKKvApNhB5nAe9abrj2qnp6w0xjQVh948OYWteX0T5Z+YPbx9 72DLrmLsMO121kjAznJNPL4vc7koG15bCwwRt7OWIe2jznz4kHdw8Mm7Zaxb DlaOPjl8c3b0G+XV+IzrMOZsTHwunVjEFjLXxvtlFWulxRX3CzFC7hmfyUfj O++Ff321tpa8Z+ava+M0NnnIJLknfDvj0No05s6oyzKerN2ujSVHJrehvORa 3C/jkMq+rpi0sopxyrnq9dFJ3SHnW7Va6cy/Ik8GeQWuzOHj+8IRL1Rm1fOR 9TI5p3JQ1mQhO3gPGTcVc6l5V+WV9jLjKw6/rhmUYzCmA7b0IdynrONgX3Wl slBbrMwJBMvYqnzGmOQwPP6q1Uonz4DNDpbQh+ReyTtgW5IbszDeIeZEWaJP ps9X1tqIh8wj1rYCQ+DOtUT4Xx0rN1VxorUfqlyBG/e1nFjqTu0x87XK2qHE ltedPIdrBXDPrlqtdPqD5q2bM0PeqDILnxibZVG4KvWIfv84J28cB8TuZV7A SJMXn/sfneQGGmMcxxdPNziQZ0hZlvkOnluOLPuYnz/d2HwlJ1t+j7LmKH3P VauVFlfg6eOPP65klfa7OlEb3vyrRWMr6/jknJw/+YIZTNVdOZF2tvlW+oSZ Oy8HKl7FivYXx9Z/4DP8THMvtOP66i/El7pXHItpOOlVqJVOnkHOHY7U9dbp GTtUDiwSVxsxH/yfdRbJq2+07GNcUZ9so9Fx787YVebdmC9f4kzZZm6FtRfI Qrr2YNYf9en4Rn8fG/uGq1Qrnf6gz8u1dqJNZvG9F23DT81HYix9wo7xqbOQ M8mHOq/KF+wpdaU2XfLulR0VOVnuLzbTHte36LoHxWqTk1HjlM+Zk2WvlRZX 2IrUTLD+tXU5yC5s+VzzWt5BvbNXMmhX+AoZ1TZmKp5d+5fqKfmtrGWUB821 P+QeMncH2aRMMgeMY4Fbj2UNdp9sp6c+53yH4/lOy5yznPnt1J+ynizrfyK7 kFmsy2AdtP6vOVrX6utpM11NTKQPR/meHIA2UiPnNk9O1ZU1/luL/LNzLG0x cORWLFonlrxtrhPQ9zs0+To/ntRwc7wPfn1hqXOWy7oJ5BS4AlPIqVyngfdo +Cq7jetnvpz2TZOjco35mImNtNMzR4L5d85dP6LEUZvcQ55oy5U8Q8o78+zF tbk3Xb+FfAY98xHhdeDgL126tJQyS1yh53xWDXILfOUzTF03ze8Ij9dXl9O1 FUfp25d1VG3+U1ucMt93varUT7421ptYFgczNv/RE1M1gurBZl3KzUl9rTU/ Gb/me/l+X96q3499HMM1ypkse85y23oyrInteg3l89+x62lww3m/zytPkt90 zjPfKjHDa7lI62b0sbR93D/to+QOzENNPrPRvS3nzFoO8S+uPL96NOvFjE87 1lhQciBt8op9kE28NmZpHIrrxp5dxlppcYWNns+7xXbPZyC5fii6Uj+FmsI2 nqbPnlB35Lp3bfPLVt8tZY1rn2V8p4pfxjnMUxjzn2em+Cnm2LVquuwdbTJ0 00Z9vIwd87rKmajxLc6UwfoDDU/RJa8ixuN3U6daByXvcP78+aWKHaa8Qv+B HdbeQy75TAg7z7LxuZI0vi95Hofn5B3sck/NGjCh09Rn3vPqNLlxXk/V1Bfx 51wrTdxmzss8dpTykzxlcWN+6bOb49qHlLH6kMo449nP1vdGX25PnjPlb65F CG+I7b5MMitxpW2lLUWMMNc2zm7sEO6uWZNsB2zN2EXxv/6W+FEGZVytLW/g mQIX1t372jhL1hP26STjhOo09WDjt9V1FuljTmoczza59tpwmQ/YdV7XpeB/ X8s7ILM49rLxDokrn4OUaxPR23DFOqPakrvJWU5M5Zob+uxiCJ0lpspYzRTn cHSyBi32SupN3mvWO+66pnp/xiNfjEuX6x7x/wvHJnyouLKGMWvuU2/24SrX xh3XmU3WQ6nk5hLWSqd9BVbwAdN+z//b1vqn4Q8b47oqbNWYwn8qceX6Uv7f rMnXg8+skzZu7JyX64C2XYv7IHPMf+iSi/p8xnzMgSnrsMVpH664bmws/QDO Xa2xW+/jOofLlLOc/BU2FboQzGBjIav8v62DO78jvMMMd96Tw5y5UdpT6rDU IdpL2kp96x9nXM91RZQbbTZVm6+qT7GTnC1z5LUD9SfH8fGz0zUZPfJKO1+e wutXRi/b853KvD44UXw+1+3jdd86yfIOfF+eEZP3uP5am5zg91LXuI/+mnjj HkXWmMNg7agxkuQfct0jccUxfb+08brsnMqXeLE/9uL1K1fNq7cWzXrHXKO3 C1ceR3ntOhVetzmEysllyVkWV+TGgBF4K/IZ2LIuZMqwrnXdkXU0vnNyzcbL Zuzl2m8jd16uRn8r67GS4+Iz8JS2bZnbp957th7jM77Zbye/wryu5Cx20uMc N/Pjje94HebaYOt3YVU5mXlZ5s/oW+obIrM4HvbVQc9ZzvpBfEE4BPMZeI3c Yiu31YYrsMfzKM1ZhndQR+SaiqlLjN26zqi/YeY8jXXLWEeMbYwzDe+Y9pxb 5lX5lvFm116WR2/DiffCvDlm+pu5pmXDjW1/Xl3HG5N1efv04CTH8OwUF5br qNKf+uefV99DmYU+PKg2fLnONrwC8Rx4UXQimAFXcA7YW/Bb8Fh0bSyfLUjD tkw/Snme8mJjcxIL8V41l0qeWi4/eQblVhP3aZlz39fWsUZH7rGPx+UzMNhX 85NjPWZyXsZjrCvTbuqSgcqrjAnxu/BbyLeBXc7HM1N83gB4AlcHlXfoei4A GHKddmQWdhZ4A0NgjPd8lolyLWulzdHS3inlFT3zysVO6rfkuK1hMIe4laff nNTAl/a0NlpTV9ERb9Tf7+W64jxc47O1rDTvIfWisncn/sp7QJ7U/63XIbaB PnB9VzC1DPKqxFU+D4AOdsCQWFJ+wUOQ94Bc89k41kojo5r4bsvcaHvpD2Wu uVxjaY+DuylbuOBXnVvHGytOPsr9m/qZ2De5NK6/1R88eqLxKxwjnyWWK7sq dFpVg9GGraOT9XPS3+W+5D387K16PXPwhHzCZl8Wf7DtOSboPJ8j7/rIbTwp dhmfId/0U6yVNpZW1snwO1f17kcn6+wxVvvI3znXYcy8Kdcw1hd0LavSZpMT EFfj/PZJrqi6LP25znvh6ITHl8tUxmif53pJ8KfgI3HVal/V61yCc8ZzjeS4 uf60dTq55s9Bbzs9Hwc7CsxobyG3yng0Y4glKt9oWSud87SxOb2WaPk8S7Go DaXtoV5JbHV15uhIbYv5/JuUixzb9STB0UaN6fQvfRZO6kP5D3Pv8pzKq8xv EGeev0uv6uvxmt8MG0o8yYMeZJ3X1uZ57hJyy1w/urZVxg7BFNgijxnOgsa6 dNx7aXfoy8nLzNRxiq/69ZEid8q5zjr5igeq/89t8ljmeVXnre055nwmZnl0 UjudOXup96x302Zn7OH6/tFeFLNed5cPoA3Ffsh48KTOE0/LlntFm/c5ceg6 dCG4wndELqH3jCmCJ2x76w4v1/eWtdJlrnlyXPl8iDZbJvFzNd25N/9BXGvD JWc6c57CdstaCfNPrbPQn53KwQg+xJya0q7id2E//ByfJZs2FLmiy9ryuUt9 uDK2A76QTehGdCLYooMn3mfLZ5mzzG/Hb4ktk/IheauM4yYf0YeZvp5jzbMR X836t5GnkH5AuX/q7XH9/ZnKdkodqM2dOfDisKzt9zln3HNtNtRB5Q6upmUe Mnpspw5m6OAHm4vYMxjSbwSfbPEPtTGpAfDezHVUjNuaCzL1jKw2+TEH3rp4 AXNfMr4CD6le1AdsuKtCdiqP9P8r++2Nib+X2+RGlJfmFsvTYiOIp2XgDa62 iav9aPrD2AvMG3jShk0dlDXCvrZ+Kp8/WNq+XXKqK1ZsDFj7Sa7MZ5iI9cw5 FtPYVPn8C+0+darnQgZnnrJrPPgsTJ9nog1FHugyxJGvtu0nrrwPfQY9v32u c6B+Sv/euXONKl4zH8YSyzhfn5wqt66hXXJiaYMlxz9VV1jUdaXv6TVVMU58 wDfgGsa87eHChgJP2J787uR/LgtvcLWN74Y+//T8hT3vHJc8CdcOIVf7cK3z tHVdMzb5KfGl/598aJ/M6sOUHYz6HEzXRFAvih23GYvK54/pA4hHfc/kvPRV yNN2bfxVs6GuZ1NmycUoF8xfM8bBPd/6bMrCJ5vJSS7ssJ3wJTeaz2QF7/Ly aaOnLyEfIJ+bMeVS3oEzbMXkoVzLY/xbXL7e07ISLfOyrZVuyw/x+c5deZpi qFzrp+Qv+3JhyrUfta/z2XS5flDp77mefD5zhfPzneSAXSMtYy/ohVWzoQ5C c00nbAxlkrm+4ss6hTY9V+LL/D9tMG2hXAOyDV/moGdNj5y4x3FdK5/Fyhjj 0a4/qs5DNpkrwz3jc/UuL2HsZRkbHN+FC+M1B6yVtibZuW30SQs/2oUxY8za Sg3P2oKrzBXQN0xci9XkpZRt5iimvhRzyNm0oZBL2lCrwhsc5IYu4PfPWulJ PvrZSQ5gj+3dpduUHw2/3ZE7gM2unsu6QI/PvulLsI/rSGqPZewFP5fvU/JQ yxh7Wdbm705uKX42c/3s5mStIOXE1dZQyyF4HHjHtlrQlFmOF0epA1N+levX ovPApvkrGXsZbKjr18AV9oa10uUzDrVddsJTG77kvbTnu+KN+IPmRogjbSex nb6ePFTmryijBt7gYDTzZ/W9zVkpbaZqPnvq/brklngwxt01LmVj8p4Z78nY C7xsxl60obAZBxvqYLTkHdpqpadspnn1YZ23pfxpOK6O8eKJ1439tDlZO0I/ D3wZe9GGMt9gsKEOXkveoe35TjnH88gtbXLz8abWUOix9ye162eaOFHmr5gD DH8gngbe4OA28yDlHWZqpeu57+Ieym3W38sHZG5Mn03m/uuQv7IOzTg+84cP 17ZmqXPfVjNc8ZJ13YI+nfEha1z7cjXVh8Z0qNdehRzgdW+uQ4eeYT6nnnFa yyvXLyj5h6xhaNZb3Jx+hkCuY9wm75RRxl4yB1idh28xtOVr1oOXz3cyFmee zNR6kbFWBnpPzjP9vfT5jG2nfuU82FNdOcCDDbXcbate//5K7Wspd5Q31hK6 NobrTGljl/kPaW9pi1v/JZ7a8leIM5kzNOi81Wg+w8rnOzV8VqETzccyvzfX f9fOShxawyBX7ho21g6X+SsDb7B6Td7BnOXOXJm6y43nWq9ljqe+YNYOf/X7 5asdHtruW/IO+VzpzjqbyOlTRqU+9Jkg5q/IG1wZ8lfWriXvkM+V7uOf2rqx F/JXPF7GXgbeYL2avMOYi7zU5At35a+XvS1/pax7GWyo9WzJOzQ5y33xm5qz Mn+FWsVlXH9laPvbSt4h893bYnyuv5KxlytD7GVoLS15B+RPG658ry1/ZYi9 DK2rGUMxZ9nYoTaU+StZi27O5mBDDa2rJe+ADW7OZlft8MAbDG3eNs5ZvtTk LMMbDPkrQ7vWpg2/tTXOq9uq1wEebKihXWszZ1lskU++iuuvDG3xTV23yuuv DO36tMHHW672/3VlCk8= "], {{0, 114}, {150, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{150, 114}, PlotRange->{{0, 150}, {0, 114}}]], "Input"]], "Text", CellChangeTimes->{3.559474614901004*^9}, TextAlignment->Right], Cell[TextData[{ "Graphs & Network Modeling [", ButtonBox["web", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.wolfram.com/mathematica/new-in-8/graph-and-network-\ modeling/"], None}, ButtonNote-> "http://www.wolfram.com/mathematica/new-in-8/graph-and-network-modeling/"],\ "]" }], "Subsection", CellChangeTimes->{{3.559460443205266*^9, 3.5594604438203907`*^9}, { 3.559463394387533*^9, 3.559463408697156*^9}, {3.559463519922852*^9, 3.559463537073639*^9}}], Cell[TextData[{ "\nGraphs & Network Analysis [", ButtonBox["web", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.wolfram.com/mathematica/new-in-8/graph-and-network-\ analysis/"], None}, ButtonNote-> "http://www.wolfram.com/mathematica/new-in-8/graph-and-network-analysis/"],\ "]" }], "Subsection", CellChangeTimes->{{3.559463412209403*^9, 3.559463419657103*^9}, { 3.559463511579234*^9, 3.5594635175230713`*^9}, {3.559463549176979*^9, 3.559463549182098*^9}, 3.559474569983274*^9}], Cell[TextData[{ "\nWhite Paper: Portfolio Diversification [", ButtonBox["CDF", BaseStyle->"Hyperlink", ButtonData->{ FrontEnd`FileName[{ ParentDirectory[], "Files"}, "WFPCDF_GraphTheory.nb", CharacterEncoding -> "UTF-8"], None}], "] [", ButtonBox["paper", BaseStyle->"Hyperlink", ButtonData->{ FrontEnd`FileName[{ ParentDirectory[], "Files"}, "WFPWhitePaper_GraphTheory.nb", CharacterEncoding -> "UTF-8"], None}], "]" }], "Subsection", CellChangeTimes->{{3.5594569477789593`*^9, 3.5594569677053757`*^9}, { 3.559457089482136*^9, 3.559457107928619*^9}, {3.559457758792036*^9, 3.5594577628728647`*^9}, {3.559457799607346*^9, 3.5594577996095057`*^9}, { 3.559471681714635*^9, 3.5594716829098454`*^9}, {3.559471727378001*^9, 3.559471727381752*^9}, 3.559474571318404*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ PanelBox[ GraphicsBox[{ {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], TagBox[ {Hue[0.3, 1, 0.8], EdgeForm[{Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{0., 0.}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[ {Hue[0.3, 1, 0.8], EdgeForm[{Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{0.6427876096865393, 0.7660444431189781}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[ {Hue[0.3, 1, 0.8], EdgeForm[{Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{0.984807753012208, 0.17364817766693041`}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[ {Hue[0.3, 1, 0.8], EdgeForm[{Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{0.8660254037844388, -0.4999999999999998}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[ {Hue[0.3, 1, 0.8], EdgeForm[{Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{0.3420201433256689, -0.9396926207859083}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[ {Hue[0.3, 1, 0.8], EdgeForm[{Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{-0.34202014332566866`, -0.9396926207859084}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[ {Hue[0.3, 1, 0.8], EdgeForm[{Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{-0.8660254037844384, -0.5000000000000004}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[ {Hue[0.3, 1, 0.8], EdgeForm[{Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{-0.9848077530122081, 0.17364817766692997`}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$8"], TagBox[ {Hue[0.3, 1, 0.8], EdgeForm[{Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{-0.6427876096865396, 0.7660444431189779}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$9"], TagBox[ {Hue[0.3, 1, 0.8], EdgeForm[{Hue[0.3, 0.5, 0.2], Thickness[Large]}], DiskBox[{-2.4492935982947064`*^-16, 1.}, 0.10260604299770056`]}, "DynamicName", BoxID -> "VertexID$10"]}, {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Hue[0.3, 0.5, 0.5], LineBox[{{0.09395774386617815, 0.11197447880456482`}, { 0.5488298658203605, 0.6540699643144133}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{0.14395161515336413`, 0.025382553668099706`}, { 0.8408561378588428, 0.1482656239988308}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{0.12658892586629433`, -0.07308615042533076}, { 0.7394364779181434, -0.4269138495746687}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{0.04999387128718577, -0.1373570324726645}, { 0.2920262720384825, -0.8023355883132439}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{-0.049993871287186374`, -0.1373570324726645}, \ {-0.2920262720384828, -0.8023355883132439}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{-0.12658892586629494`, -0.07308615042533087}, \ {-0.7394364779181437, -0.4269138495746694}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{-0.14395161515336483`, 0.025382553668099626`}, {-0.8408561378588436, 0.14826562399883034`}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{-0.09395774386617885, 0.11197447880456479`}, {-0.5488298658203612, 0.6540699643144131}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{-3.4929529278423096`*^-16, 0.14617230085066168`}, {-4.278608244533786*^-16, 0.8538276991493381}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{0.7158737601118698, 0.6394555172526835}, {0.9117216025868767, 0.3002371035332252}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{0.5054305772138745, 0.8160383144061641}, { 0.13735703247266412`, 0.9500061287128138}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{0.9594251993441079, 0.029696562513566116`}, { 0.8914079574525379, -0.3560483848466349}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{0.7540509249798734, -0.5939577438661782}, { 0.4539946221302334, -0.8457348769197298}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{ 0.19584784247500697`, -0.9396926207859084}, {-0.1958478424750072, \ -0.9396926207859084}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{-0.4539946221302337, -0.8457348769197299}, \ {-0.7540509249798735, -0.5939577438661789}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{-0.8914079574525382, -0.35604838484663565`}, \ {-0.9594251993441084, 0.029696562513565478`}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{-0.9117216025868774, 0.30023710353322464`}, {-0.7158737601118704, 0.6394555172526831}}]}, {Hue[0.3, 0.5, 0.5], LineBox[{{-0.5054305772138752, 0.816038314406164}, {-0.137357032472665, 0.9500061287128136}}]}}}, Background->Hue[0.3, 0.1, 0.85], FrameTicks->None, ImagePadding->4, ImageSize->{60, 60}], FrameMargins->2]], CellChangeTimes->{ 3.495536298166102*^9, {3.495536372507453*^9, 3.495536397132792*^9}, { 3.495536456949012*^9, 3.495536471512628*^9}, {3.4955365039006*^9, 3.495536535522883*^9}, {3.4955365668582077`*^9, 3.495536620180993*^9}, { 3.495536650793551*^9, 3.4955367004896383`*^9}, {3.495536757373735*^9, 3.4955368393063*^9}, {3.495536891477138*^9, 3.4955370819468718`*^9}, { 3.4955389657952023`*^9, 3.4955389737377462`*^9}, 3.4955404523966618`*^9, 3.495542819755183*^9, 3.495542862968042*^9, {3.495544531046461*^9, 3.495544557766526*^9}, 3.495545070335896*^9, 3.495545247723987*^9, 3.49554541321455*^9, 3.4955456045549917`*^9, 3.495546839580573*^9, 3.495548342705319*^9, 3.495550256453249*^9, {3.495550327515601*^9, 3.4955504470908403`*^9}, 3.495550520832299*^9, 3.495551011050816*^9, 3.495551152101191*^9, 3.4955528875275183`*^9, {3.495553044085544*^9, 3.4955530962715893`*^9}, {3.495553242579844*^9, 3.495553270470943*^9}, { 3.495553370599283*^9, 3.495553431796111*^9}, 3.495553462278323*^9, 3.495557057374198*^9, 3.4955575549912167`*^9, {3.49555833041461*^9, 3.495558351558338*^9}, 3.495558953818892*^9, 3.495559722370714*^9, 3.4955599527527122`*^9, {3.4955603534068537`*^9, 3.4955603712352324`*^9}, {3.495561199694076*^9, 3.4955612187738113`*^9}, 3.4955614313491993`*^9, {3.495562957249865*^9, 3.495563081790389*^9}, { 3.4955638528478327`*^9, 3.495563856159471*^9}, {3.4955642978147078`*^9, 3.495564324516343*^9}, {3.4955646922477493`*^9, 3.495564734149324*^9}, 3.4955652645815573`*^9, {3.4955653061949*^9, 3.495565314253683*^9}, 3.495804370938096*^9, 3.527518067853882*^9, 3.5275181409594183`*^9, { 3.527518505942683*^9, 3.5275185115624332`*^9}, 3.527520072231826*^9, { 3.527599192411002*^9, 3.5275991987597513`*^9}, 3.527846432147559*^9}], " ", "Enhanced Functionality" }], "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.527527214495729*^9, 3.5275272216368933`*^9}, {3.527789860053916*^9, 3.527789870460575*^9}, {3.52785548075319*^9, 3.527855481036194*^9}, 3.559474001363688*^9}], Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3duvpUlZx3GiXpj4F3jhhV55Y2K80AtjjMao8RAjRGWPRgMGNYgoiEGY EUmLJ0RFiANi70FgOO4OB7URhuMwIyDINCgwoqODinaToKCGIEGzXJ9a9V2+ EAinGdbqnreStfc6vG+9VfX86qmnnlN95YN/9v4/8UX3u9/9fv5Lt3/u/6BH f8sjH/mgxzzgS7YfvvUxj3rIg794++ap29eN25cvN2tZy1rWspa1rGUta1nL WtaylrWsZS1rWcta1rKWtaxlLWtZy1rWspa1rGUtazmKcuUD/7m54873bd76 rn/e3HbH3eP1xne8d7y899v73v8fmw/910c2H/7IRw/d3LUcaYGN177lrs0N T7tl8yO/fGHzzT/9zM3X/tjTx/+vf8gfbq573Is2X37/J4/vvuqBT9183Y8/ Y7z32zf8xPnNjz/hJePeZ/3p2zavevPfDcx97H/+99DdWsuByp13v3/z2zff tvm2hz9r8xU/+JSBlW99+B9tfuiGFw2cPPb3X7n5hae8YvMzT/rTzU/+xss2 T37e7ZsbbrxlfPeNP3W6+aaHPnPz6898/bgOBpd4/M5HPGfcc9PL/nLz5r/+ x82//8eHD93dtdzL5b3/8u+bJ5y+bvM1P/q08cJvYOn7Hv28zQMe84LNr970 +s2Dzr14fA5Lvn/SzW/YPP4PXzOwB2vPeMlbNo/6vT8b937/Lz5/4NP1sHZu e92jn/qK8R1eh6+p88azN23e/p5/2Xzkox879DCs5R4q5CH8CQbwE9iAA/R+ /DNevXnEk18+3j/lBW8c/Mpv1jRYwHush7D15Of/+fjd/e7x3Ute967N6Uvf OngXPPr/0Cf+8cCg+2DV9T7Dmf+wbf19/7/916GHZi2fYyH3oDP+BFPWsuiO B5GNHvJrL92vgXgRPOFTfievw8FvPuvWIbe7xnrnGvf6DV7hCS5do47b3/7e wdPgVV3u8WxY89n3vnM/bOKlazn+gt/gO+iI7ngGTOBPZB+4eOddl8fv8Sjr os94GzkeP7rw6r8aOCCHwQ0MuAbmbn75HYOfhSt1wguMwtbDfutPNk989q3j mfDpueqEY7h2r/XSPgDm4PAVb3zPKpMdaXn9X/79wBH6op33MAEfz3vF2we/ sr+DgQf/yosHVuDAdX4n1yd3w8ptl+7eYujS+M3Lte7Dw3w+22LP/394378N mQyOrJn+WxvVa63032ftgkPPfcEr3zHkMpj66h/+/T0fgz/PX/UZhy/kqHNT vkY/PAA+YIpsg9Z41BOf/YZBy2jne7/jL+6xXuIp8IeXdK3v8TY8DN5cY511 v/0g3Prs9fQLb968+x/eP2R1dcIL7KgLnp6z5XX4Iyx5Dv7nnl85/9rRdus2 7MMf7K087DAFDdEVL0Dvi7fdudcV4CV/8OK/GOsbfKA7uTk5ybXugRe8Ci+6 MHmQl2vIQdYsuMAP1efzi171js3Lb/+b/ToLA54BE30HL9ry9r/91/FcdfkN vl94yzvG8/E++NJ+uPOCLy+YhzNrqn6u5QtTyM/282gJW+Y42sFN/AW/wMfo ntq/td643zXhgOxNHoIhOPO7F1r7zX9rHDnLc+AU1nz/nx/+71GX7z0DZlpv PQvvhJ32BelVz2/bhJdev11HYTxdGJ7228+9bS+TwbJ6V3zdu8Wchyl0QzPy FFrgIdYnPCKd0x/f+u6xLpKNw4n/MAJr6QbUg3Z4BHpaH+EAj/KCCzwIZjyX LkFdngsPeBi9O1yyAdlDwJS61ast7k2Wd4/f8DR41BYvbRt7im0/8DPPhTVr pzlE1wHna7nnCnnDumGNMObWqj95w7sHFuAInf1Ha//xELQk46ATvMAIOtvP /dOVD+7XM3Vb/9DZffEun2EYbdWPv6in+mHN7/aWPseXtE19roVtWHMNvPqN 3M8m6bt0Hq3XMK99voMj7YBj/0+2WCT/wR7sruXzK+zD3/sLzx17fzT+jp97 9uBT5roxJ4ujp9/Me5/R0hwnr7RfTOeJRnCAP+A/sIf+9mLWKjKR+9FffdZG chSspMOg48Q7rGP2D+T19Fd4knq0B47gV/tg0NyA82dd3K2F9PHa4Xt7AfXj b2Mtvrhbr+Of6sNjjYP1Xd3W4bV89oX+8Fse9kdjHhtHNENXvAcWvD+b+zX4 ay+H5/jvOmMPE/gXeqvT9XiCl3UJ5vxOj4V2aOt+9bsefe09k++9t/4lk7se Rqy5eAne4xnhWLvhywtGPc9Lv2Db/WR6dbvGeu9e7YE1ryHnbZ+L59qT4F2w pq9r+cwLWcnYeaVf9B8WjD+aWBeHnWbLA3yHP8GFdQYdjL/vzH84hCE0tsah Ox2U+9MXqLs9YzpPvAI/cR2awwBMJN9pn9/xOLjTLvjyPNhQH57ZfgA/9J3f l+ugdukDHPoef4NB7dKW+BhZHt6si3gy/qU/69r46QtZxpgZQ7jIb4D8ZDyN NTqQUfw37uQO781fdDW30QzdzXE0T28JE2irHrRyHxq+864r415rm8/qbF/n P7z6Dta8t3bCjmutv9ZCMp9rYNN1MK9NaA8DtQXWXGMNHe1dzBPt8j+stQfQ Zn2gj9VufIy86XdjpJ61fPJinMka2UGsNdac9lTmqjH12dy31qGZMUVbNHad McePhg59+9n16Gne4wmuRQ84gEtyDB7pufiFe6yBMGKNxQ/QnqynXeqDLXWN tl26e8hMeCTZSxthw7UwBBfpOciFMNe9sId/kdX91zZtco9++Q+z1nztMSbw VrvT1do7auOqV/34gh74Cz6VbcaYpQ/w8p58k99Lc9kadd1cG7ILh7vsfPgA 2sJmei6YzB6NVuQdbcALXWtdRfvkfLgjy8MnXoHO6vYZ/4JHz4NRz0t+G3qy S3fv8a++eJj78Uq6UNh0vz7ASPjMLqXf2prN2z5GH9Ox6RuetuokduWuf/rA 8NFEA2Nofhor44vO9vXt39EGD0OX7HNob76HD5/RFc7s29AmOwla+w0WXXth 7v3UyzaIdua89+Sc4aO1fQaauT892Hj+FuPWZte4Hy6WPhD55LjP9foH7/rj ejzLPa19Xvib7/FcOM73EP90nT6yAd0w9arku3QgcG688DH4vC8X64x5N3zq 5ryzhpmP7e2yd5AjYObi7XcOvuGVPG7Op0OAE/Qx5r5rHwgzaJus7IUnmfMw Zh12nfkOV/nSwAB8uB49YRg+FNjyvbUyHqQN6ki/pp3W0OwC2uB7z1S3l2vN Jxj0Ho61R92n21d6NVh1P37tc/zU2OirdZav69Dfb9dl8uJ9reAL5jq+YNyG L8uWbr4zfsasfRqspB9wLR7ie7gwp9EIH4NNcxYt2UCMM3zQparb5+GDsMWD eZ+sDdv4iLrRv7UENslSdBb57qG9OlqP8lfwUm+Ygd/0WGhvnqSXok+Aj+95 1M0DO36HhfPT9uQ/7NYnbdL3Ma+2L8+Afc/wLHIXvYz/npmuw+/m7n2lsH+Y k+iE5/PpNSZLeTTbn3HFD3w2/sYRPdC0fX62Q2PvumQkNCLT+ux7czx5H16s uzAIU7/z3Nv3z0Rr1+EDeBU8+A4WzQf3LNdt9eOz5CftwoPisZ4F4+EPHl1n /UL7bNTaTk6LP2qH8bBH1j+yuzryd3adOWi9D+v5U/jdGp0cel+Ruci9cIBX 2M+wr+SH0N4OllyXnjy9lHmPjvDkft+bw2iDpsafXhw9Ydc1eBX/PHTOrz0d pldyGhrCOvrCAn4GO+0b4BQGtbO9vuemY88G5DpYgD3f60M+9O11yZX6qW/p 1YYcvuV5eJy2w7I1XR+0N/8HegnzwhjoM9w8988ujbFzXbo7ddpzaKvvr+WC LuQQ//Em40xmsRahrzHOF6W9P5qj0bhmiwnrItnBuJH5YY2MhY+4Pr9fdcOi ua2uJz7n1rHe+Gxu+x2u44PpxzzP89HXZzj1LLwzGdn3eFd2bffa16Gp7/zm OvIdvMKVvmXrxKf0yRqbTVNb3ON56UY9N/tgutXs4dkk20+nw/+Bx75wv4/B s6yRfofha7GkEzCf0dXY6b91sHgGdDdXrTnGPZ6UzgAG0bd9GV5B1nCdcaar MJZw1r4dHZLjfUYfz89/wH3WVpjJfwUvUOKR6azGOrvFvzrTX3hOulm+fD6n g21foO9+94x8JNCfDJVfGF4VPvUD/8nfPh1+OD6/kDmL96juZC51GsNsCF/2 3U8av11LhfxI1iluxbyCK/KBsfNCG+Mcz0cH4wEH9EK+Q+907d4bazY6Y2jd aj30KobB2gSP6IHecNj+PXsy2uRHkP+oOtEf3clPXmif7cT6ms8M3CSnazfc q1Ofk++zP9rr+a8Pg0dt6yELJAe4rhgP7RCf0fW+yxeRLhVutE9f6MmyPbWH zf+1tdxYaOO1UMjp1gdjgJ7WhOywyVDGJj2zcdB360c2XjSGB9e619gPOm/p 5z3awo33eAQcW2fhAP9D156dbGfOG+8R27WlbbI32mgzfMOF+1pXs/nG8/JF UF8xYPnbwwM8+91z8T7312bP97s+578As/nX41nqby6Ze9Z63zev8Cefk+PS n+pz/l7JdMW8kUPIbVd70d/GM5sKGsAJmpqbxhxNln6Uxp3cYUyMfT51+RIY Z/yFzLKTsS6POfvI3704rkEDa0pytHrUjw7F0hh3dWpXvFKbrHvxVHWTl3xu 34mmrbOw4JW/gvUNtsn/npkvDvriqe7RPm2FB88yv9xbXBie5r/9w9lcI/O1 Ji/le53dC7/SVvvAdP/Zi4ytfuXPqt/45NWsgzAvjCV5W1/avxuXZbyBkn9B OuvsvsbH+OIR2WHzbcjnJJ+A9J/mazzMOHpea5Pnk4/CrHntM35hT0DW8pz2 58m7rWPZlN3jhYb8XWBfP12nH/mBpvNIf6L9+JTv8onWdu8923yDU2NljYa5 fOnzh9Yv/NV9rd/mqv6nD1Nf/hztEfG/6+f6bY5djbkm7NnS6cGW8Uw3mE6m NQMurEWn07aRnzk+AQdok63N72hoL2iuG3+8ybV02+pxbb4J+c7BMNriV8YU BsznfGHyHy7uXhvUnw7EMxS08j6dOH871yjJ6p6fbO7Z8JTvGCyqN38E8hys 6BM+SAehjc2/9g7ao+50rclbrkkP6vnaBovh8IZpzyKjprvXJnxem662ov3m WbpFvFx8AN5T3APa2w8WB5WtIroby/Y06WTyyTImrSV4kbqSxT3POpoOB17U jydl444u5m+xfuZvOliyFpraZ7gWFvKl0bZ0AWgEP+lFPD/6Db468zmku/S9 Z56f8Yb6ghfna53uK54Da+ZM2PG7+arN+cmGZWNtbmpLvs3padvvZvtRv/lz NfEsfEDbjQUamqP4RroD/IsuIf81uEKz1pJ0xvlvusc8RnPzLB1Vuid7aOMM V9l11Om5xjt9e/HtvdRr/L13T741MGTex8/SwRdroy+eby1SNxxpP/zCrWtb r/Oh9zmfas/Np948gztjhZe75wMf3Mlz6ReMg3qynVr3wrX2wSh86Yux1Re/ j33ljbfs/RLzi863WluN4dVQ6Pq0P3srXpJfHB5ujPUNrc6mTsn44T0wVRxN uYbM5XQ81ot03sUqR/dsKD6ju89w4Pnxwdbd+MTgk1PfSd5qn28uwxRMWj/U a16jnfbGE+A4/Zq2pI+CNXxKvbCk7vZq3uf/45riWD1Xu9vflE9JaZ4W6xhW jRWeU54Rc7W8NsZKf7zykYBDdXqmsW/feDUUbTZnkpOLuzLm5tnOZnJljE06 R/hxX7JlvgLuo5/KL8sY5aNAph37zKlP9H3rgrH2fTgrl1Dyu/HEI8jI1hh0 oRdw/fUzdxHbiHq1ESbU65nWs3wq8pPKhz7ZPt2TNpMFshWWX8T8av3X1mK2 PSespltPvs8OZF2Pf7dv1d72C+7NvoRvaiMeH17zQ7OOuC5b/TEX8xsNi28y DvlIGgt75KFX2vaR3G2ulE/BXB72vtt3czMdsu+TW7Ln+Zzsgd8Xi4ffwazv yF/GubULPmDbe+Ocv1T+U/QU6Ive+Fp+JrBHNlcfnqDO9gmtt3wUsoV7xUe1 EZ7ymfdda672omm63PYlMBeutJF8V7yQNtAPpCeNb9GtwEn5JMixyaVn026O f3m1TvOTTO/i8zEXYwoTyVbFfLbfhi9jmr+QcVj6D6CZ8cu/CP8xX+Pdxh4O svfnzwCn+1xEN96y903ySteIJl7oi4eEq/wEihnDk9DXvZ7Zvq91Jxn4dMo0 6RHgzLNOZr/xGvflY7DMfVMeG/2p3nRReL3/I1/O1GksfW9cXy5C84d+TFuK icTz4BT28d7WyGKbiqvM3mPMTo54LTTG5Oex1585C/QjHWJyMeygr8/FszQH 9TObqr5aE/Kdo+Nsn44euzxEOzsguSL/d/Xk/6Yd2SLz5WoPAVvuaT/lPzkc puAU7vNrKT4aL1FHeSA9LzuxfhTj6np8zz6RTkp92unZcIW2aO1+/Cg/1m// 2Z0vtrYYE+ur9U7b8dh8kfPFSk/mOvcYP/0qvsiztBfO6NmzIfL/0z5jZX7B 6DH6x+dThceenzJtdt7kdnKE+YomxdqkszQvz2bsTGsB3aG5195bne5pbqKT tQoNPRsOlHzi4IH8ka41n4l0WuVwzDcYNpYyE96bfhY20Ev781/OfzC9gOeg ueenZ3CPF3y5L/uPtjU+5QTQBjwkHyBjUZx++5JiJ/IJK84NLmDLOlcepnQ7 +VrrjzUd/zVHrRXZ6Y3DMfpp5ffTfl57s5HkM4Du8IQO6F6uxvR9aFOujmTr 8mpkM136RMKde+JF7glPxigZlk0XHyp+pv2+NrrfeJdf1G/qgxd8B89Av2L3 0Cyf0PB7OvEOA8lf6crKtVxcrXaMvcCMpVB3clfyQbzPM5b6rfyb8yHze3Oi tVib9b/62rMYN5jSds/LTzX/f3POd8dU8KpsTsZTG0cft2PXXr/86D63jjXP /WYsmpPWNuOUPh490Dk5xf3qMu+vW9jD4KN9UWtpsVnpD9BUfek18T37QO2F tdZtNIFb9FCHz55f3oV0a+ivbnM/u7c2l9sqTOHh4SY7YLSFR7gtx4d21Wbj mo4pvQp5Sh/gxX7BeGXTz77uHuOeXZDMaTx9V35x/dE2eNNO7Timor/loI4/ GwftNs/0xRwzXvi068qxUCxTsonrzMPGsX17e2R9N7bkhngJnh9ty+1vvUNX vNL36R/Uoz3uTTdBj7GUa7N/w066rval/ZYO0z3qxjPsJ9WTPizdVfYi809b q6v9ZjkXtDt+7TvtNU7wQB7N/0e7r5t+xu1PiovWr/InaYvxzufRd3wby1+S 3tAewDOPCVfGyjzLL6i+lvs1vaf3xVeZZ/kqlWM4PxjjDTOua17nS2ScThYx hfndWluyTxjf4vSMk89jfzf5m+uMIwykr6f3TJefvJP81dwur4fnkq3zTyzv x7Arb/FTXkf9GXa8i28be4p8jdE5HX3rtDrxzfz008nCvPnRb+aJ/pcDN5/5 ZAB0MHZ4o1f78XKt5o9K5tTmsS+YMXX6Yb91LD4OxVsZO3MK/8/vLv+W/FTy +WztTy81cq1MO6rf7I3xKHwm3WE6euOWbSPfrOIJ1bHjG1fG7zCPPs1z8mpr MLrAF1oVk6rt+a6GTbSHOTi3b2stTi+nzeXi0Bd4VdybjJZ/u7rSkZGlB1/d YrFcpK5V92jrFut4VX56+qdN2XOMpd/DfD648W+4yj+tXF75kOof2bK43GIX 7U2ORT9qHOgMW6uMu/lQHoRyxRbPWy6L4ec07YDGwjjmT5CuUp/bS7omG337 x8Yyf8CRq2x7XfE61hnjmK3W52Qzv7uX317803Pgw/qD59BtGGe4KocDWpXr T3uSs7XB3l2dZJ9sM+7J/yDdZzYA49beOV+G4Ru7xT/enS8L3OdTWz6GfGmT V41HulT3FAvpXvfAZPkGfa+d6UPSD5ofx5CnJh1gdKlv7evSPyevwlH2j/zC yyeU/sBv+Y8aL2ONF6oPn89XPf/HfN2qR514TvF9+e6hl/90/Plw5S+P91tr jH12ybCXvkhBb9jEB/XHbzBT7Jd6YRpW6Yry6XMNvuk5xdcUt2HPoC3pTZo7 +X+VU0db8Kd0DPmNxfP3+bOmHax9d/y8+Ea/weyYR/KIXHzbPp4Jjo8hVlqM AH5a/sPWMbqafHvJCtncrTnFHKQvz45aPsb4T+uK+VS8qHGJr/vd9+ll+NWl Y+4/vlmexXyfijUo3iD/BfxIab7CT7GfvoOH7CvpLPXLf89BN20tP23+AuUF yBaMfvlvns61CubjYeUpza6Uz0/7vHQM6VSzeWcH9H282Gc6Ft/BrfFEG/XC aDJIuXob00MXWKJTMA7ohO7e2/viZX5PBk1Xrs/6qT/ohP7lXND34pyNi5i/ ZIFe+GNncS192vAJtEXzZW6+xh/900GrHy/wnfFN16Et2dCSv4vLIY/lu54M hdfgXdWtLfkiZhcgY6EX/pV+SNus+/ahxa0ZgzBc/Fvrf34R2ZqaK8Xqw1S5 MfWvfZ46y4NpfPUp3+Ry0anfWLo2+fGQRRvtl+DKOJiHvutMovyi/GZ8ySi+ S6bOXxfdYC++Fx6K2/I+e366UDIw/Pq+cyKyIy/1+WgMG56ZfwQcqUfRJs+P 77j+8dMWi+54Vvs3ujh4SvaGV/Wha2d6ud+12a3qk/faG009S987n6eYyWzZ 5WqITy/jqpMvlnHd6Ymvn/mxtKMcl+YlzDXW+SOr2zjBcfJV2Dxk0S9t1N98 IpNVYS25ufxP2TiHDmXLu9Au/2Lj7L7keGMaX+9Mh/JVt39Bi2UubWMCWzfP +L3WnfL3tz/Nnzk5Sik2Bc6W/gqwlE9C5yd1rbrTsXfuTbzNvdrnZR7ADx4Z P86v5nTmYdDf8jeXJ3nkQrpx53NonMtJZLzjSeQKn5f8S7/T1+ivOZBfWLmz jKn5ZcyKNyzG1++HPP+itbj5U/4p+G9/WNxo9hp8Np+FfM+bg+ka9dn8dC3+ 3LXpv/3eeSPwEm2svT0XZpZx48Ys2Q/v8kwyGdxYp4yt+vEapXwxfst/QH34 UvYb2MnnL5tRudzyNYVT/CIZy2/lrWnNglNtfs1b/m4fc1ReiNZ4vK5YyJGf dM7h5thuHbi81/O61t6hc1r01fXaTkeVDTO5pHMWPIeccSj7szGzB9RH9Nen /D+90t0lfxcnZc5dmLrj4kjS2ZmT+rW05Rof45sOZ+RX3GIiX2bPVtfZ1KnC NlrZG6YDMn757hjz1rbWo9ZIvKFYsfIE4jPanUyffwD6qAcOXWN+n82c265R PCselxzqOb5zT2cB53vRHMxukT4l34fO64GX/O/zye9960c+rX4z3tlr7AWK 50/3ob35hGdLPFR+o7MZW5xvQLaE8p+VpwJN831Kv+5aPPhk6vPUZV7DhzGP 15eTyNj7vn0PmqM9HKWHh590T+VEL54hXpnvlvoUvIrcnI8prCUjtWYWB5rO x/t8afwvfq9zAfTPnEju73r0LDeIvvg+rPrdWPIvykadD2x2oPLl5sttjcxf MT/c8seoVzva46GLe1yjjcs1WL3Xz/xN2lZe1kPl8U7XkT693AbtYdLlFBta jC2+oc/ZfJJfW//yBzGfvE/GNz7x7OQidaoDJjsvLl+H7H3N9+SqfEajt/uX +gV8B36yg9ujm+/WjmJ10mHBY+1KTlvyKvsVPDC7SLZF9DWHXJv+lM0ZrzWO 1vpzMwa1ccOXz0+/sWyu0aCcNeWDL2ak7/OjMVeKLcjuqm7j5vr0DK49lC2n uE/9Mn7mhn5ru3lj3LTP3COjw9Gg6aWdH7Dvhx/exZ3eznxNLwpTaJCN2u/j DNyJO3Xlg5MewNjBVn6j8QNYaS9kLNv3lwtCH/KZUkf2aKXYKvdpMzylw3Cd euDHd8XMpsctzj7fVzjMnzW5E18Ih/m9Z6tfxvjrf7lG8BXYDJft7fBg359M 3zB4hdHiPooXMjdG3qaZr0Gdxia/63QZh7DloCU8kZGzAVv3rQ3JlmhEZ4qX ZYeDL3Tq7CP9yP9c/1ynbnMuHWvrp7GDM8/wLONUnDE6GFNjYS9Y7lpF3fny tf60d8t3EI58l70IHsrb4fl4lHUXNtxf/IL3+Fk2H/0qV6WCnp5pTdHO9LD5 aLrP+u1VHIP2kNuzS7lOP5OfWue9kpmy2WQzS7bKP8d8CF/qtNamU/Q8NMDT i/MgXx2CXxlfc608/Ut7cfO+/hXf1p4Db/P5Ax/68N4elk0i35r8apNH8xNN BjUe2YLcn14Zz4DfYgLxOvM7nxP0heueq4SNHX+7vNe158+Uf2c+ifDnBd/F BGk7jPr8yje9Z2/HS1cBN+opv1J++50tvjz7JL1+uXTyy45n4kHmlc+KtsF9 ujKYKD9IsU7ZctIvNM6dwan+9K/ZRA5xJjX6wFV5ndPR7WTGy3u7sraaG/pX DqdiAM+mbY0vUPtGdRaLXjworJCfygekDriGi+Qba2k6peateZhvl3rhu3Up m3/098xwlqydv4P3eFF5+cx9feyln/FKpT2B34yH9Uj70SmfiOLf8ITOlcaf jcmu/l0sUT6peEtxYek88WVjUjy1a60H5f0uf337Hc8cepXt88SuZXfMB1K9 +GjndhziDItiTpN7kl2HH/t27tnXFJPbOQ/5wxb/BFP4dPlp/d6cjR+7t30K Xu1auMgPNJpm881fXOnswPzrws3yvIBsyw/8pRft96nZv1svk3FhAM3dj++o 0+++hxevzh/Au4qfSZfh2uS6ztJIBkjvBYvFbng+PC31g615nuFauOgsk4HR SzvdGGy7bsRPbvtffCHsmH/F55en1z2du5Nt8lDylRjA9Ob5j6UTbQ1Dg/Qj 5pe5oU/GwG/kr7MZ5+Q69HIfGhcXmq9U/pHFxjSmrsGHjHV+SOVmsWakz0SH YYuZe750pupCD+NoPdEePBTPcA35sXid4l2Kg3FN/M38Lm9ZNHF/slntQF/z x7hVV/pwJV+EsbZO2R8Wig3Rb+uXNvtf/Fa5xOAyfT7+nv6ksy/Krdy+urOk 4Cx5zbgdSi9qL1dOgxEvPmXc8zP2jgxTnla8yCsdkPfG0fxN/9P5oO5X/G68 in/If6+9Vj454RQW8zf3HDZ7+4p0V/lT4Cuto8VTKOjkt+Q241ou/vRW5nS5 QtOJds5m62Ix6yN33sRwOmP2APXFg9yvv51R4r7yrLUv0A79JIuFneJMiqcs znF51nW+lJ0ZVN6a9gHxa/RLl1p8gHXkUHrR8nYsbQyt4+1jy6WYn1O+13h0 uZzSbbbvGrmK5h64/NLGE67gxvXt75MR0APvMB9b7/LN8tvZlPWz55eLttxo xUHgIcnk+R1qU/zQXiMfLnUUc1ismfUE33IPXtLeEv38Tx4r70LrcXHe7Sv6 Pt/B4iw6e7H9cfpn+4LO3ix+qLw844y8eWZm56sUG5x+sfiBzv7km3govah+ wZBxxbvMhc6It45oZ2e1kCPI78Pv9eJuvyzme7c+Xvo4+6ExcF35/tO1Zncx d40z2qGt+Z2/UPFy6ZnEkZevPdkmedT4pvPq/Nz2/jBgT1JMT75l+dKTb7Mf tn9MH1bMbbHcrYmdt4Un5oet38YmfwRzA39rn6PN1qf8/8ju8ALDsFNcLFqU 91mbx3lni7Ni81tI34sPhOVxhvF2vIw1mflk8rVD8Su8F260T9s7F7u4ZDwm X2D0S9/Qnh2G8hEuTiJ/2nzU1WNcjdnOx+3KGKP0CtnwTx6324d2Do363Jve 0JhWdjr8y+N367X3aJQPoPUmn872mOU7c0+yof++S+fBZtwZOjuZ6sq4rr1l sR3xGdfqWz4RMIRX4a2dP11ePnUZw33c4eRh2Tiac+4pNiwfOGOcvr18Y83T dGKdveF9e4p0IF/o0tqsHZ35GD8t33pjaAxcb26iBVyxi8CAcTSe+pmfZ+eS GGvrYWcWJffii+QBvxdLYcw7ry+9TTlM89krZgqm00OVMxCfsM4Vl14fvU93 0Blh2Rjzi9YOmNOH9ox+1y/Y7RzM5Mn07dqS/NTeAk8qd1/rPBoXN6jtnXNm 76Ru63C+q9m9YK5znsrnmp7R99mn6BPxp2KoyfQwf6iCDu1l46Hmh/f5QFnj rpsykb6ww+Mv+p4cToYvD0X5HzvLofP/yo3QudnpfPB9coD6YaBc1MZQgRO4 d5/ryu9QPEGyUjZOmNKObN2uSS5Eu/wV0oEWu5BPQz6k+ROP32fOSufzaKN+ 6Fv67/SVrcnqK9ezvrsu/+lsEPmxlqcofw1jnF6ZnFF+wJvmuU3adzrPHHN9 +buMWTr+ZJJDFjTJ3yl7TnF85nW5yYvdzT+j/Hs+5yObLis5vTicYnU6vzJ+ kj01nWMxrc1z3+MP5eTLN8V30cV65Xp0wRPK75guPH6WLJUe1cvvMKOYJ87W 0b70a8lIiuvUXZ7UYnDNqfKmVZfnaWt8JpuUscg3oTb6nN0eVs0hY6Jvxji9 SvGPxZMv/ZRfdusuXqg4zWS/Qxa0ta/rDKvyHBqHdAl0wtptjMlO5RzAa9M/ GpvmVfI+nLVnNrfgl04rX8BiFItTKGdBedvbT3ceCvkhGTtbtRds5RuTz3Kx XdlK2nt2fzmIy7/duYAX5nrqd/hNZ+EauMIv8HX0S4+fnqA5o93mhPEwhuVh 0qd8vtKtFlufPgRfK+9Meur2Ndbr05n/Kt8ytDG2yfrlXdWGQxZyVX6wxaIZ s2wLZAE0K99Ue+v2JZ0fY41vz4wey9wK+S+MeN6JXzKIl/1ecpv1ibwb/cvD ko6jc1CLpc+ffNh+tzIROsJoOqzipLMZmgPW3fQLaFYObK905DCZbAU38dry 3xa7rV6/d7aN+1qH0qMmk+ez6rO2tAc0V8ydZK9ioMtT5LmdIQ3r9hbGIf2z e85NH69iNskwZwc+Q4f8ko6KX3T+s9lifGcsvSen5xd0MnXzw5996jaTd7oe /ZZnMLUHyF952GnkVt5eD9fl/Q2XeED8x7jRycRP8lt1XfJ7uUm8R+M+Z1/O Z7HYwXz72vPlI6HdxceXgzgbTf5gcGgddW15v8eZmdMXsnW+XMewZVyztWqf 56ofDYqtwNPbV7Qu5APgmuKhzDPX0Wf5n93ZfzTLH+OQBY2LFck/L9tNuSvL w9/ZDe2j2+fmH2hs5T1Qn8/qbL03zstcvj7DsXEoFicf5OSa1iFj234appZ4 QKPWlvCRb1/r4W4NuzLwlDyPrynJKkscxSeU8nIP/r3FT/E4+cmbD/hoZ7Sm ry9vlfvLrRQfL99F9vPyeiX7u669jOuMdzka8pUpJ1l5EvNvz/Zz6KJN5R02 bmx+eFM+ZPkyJT9nL8a/7dHya+/6zkvOt9t7OGst8yqXOpqUBwg/Mibe5wOK d+W/ajyNm/ZZN9G6MyQvTF2Hkk9vPuvlNDK387EgGw556PY79+fXpedPrsof Ihku/xNtKA4knz9967zV+CDeYr50zpxxzNZTbid1lleNXNAZrvisecyWlZzZ fkLf851MB2Mf7bN5amzjvYcs5iX+a27l/6h/nYlgLdd3Y1WuHXSrT8u4US9y pnmEjuXMb5+4xFlrLZqUX7ncD50dkL1kd6blpb0ttjyTxcpG687jgu3imtHs ZJ5purR5xxOzZ6dfxVfgqDljXIoJte/v3AKlc72K8S6uoT2wdqYvz3cRZvSv c6mtqfpW3pDsV+ou9qQ8hPmve2VDLJ48nRgaHjLGa1k6NzTZ2/igtX4nJ5qH 7VHSbyY351ftt/wGirfJNma8/C+ewjXZ8LKn5btdrtJ0s2OObsfRmqIN2SKV 5nH2Hc8vBluBIxhvbcg3FI6shcU7dx6AfpOHqpfeW7vVn70pvSk5On8svCmb aTn88MXOoh4xjDO3P+wVE1fOOK9i3rJNa1NyafHjri9WMZti57sUk3EsRd+t fcV06xO+YF4Wp22cyxdtfOkMxh5te2+2LLyjXNwnU7YsDmzIIfOs8PhWfKM9 kHEqnm/s36cNtryH5btp77qL8drpMmHB59azzqhJr+QZ5f/MH9lcsifDy7yK kS0GUZ/Rs7iEzvzLXzvdtjU8XJEfjY1XsYLZpjqXV3/MleIWO8O5vWr3Dh3g FpOds1Dc49n0z12eUWw8fbY3P5aC35Kbs2em6zS3Oqur3MWwYe5mX86nu7zc 2VDTo5iHaGfs08nnK5FvpLEuT2C5o9s7FrP8XT9/87infLLkff+T7eGlnDPp QYrd0Abftxalq0gWj9d5TnEWxVMtc112DkRnrhoD2LSOJX+ibXqkco4mYy9z wpOdsqnnh1v8d/b3c9OnoX0sfoafljsThpLp4LmcQMdUykfReaXlg2r9Slec 30K8O7+s5LLyN46cRjPXWvmq02GPvHhzj2C80MI+svHL/h2+09cWb14eNLje 5yTaYiK7ZjwPzf1uL69e+IevfL+9tybG+5Y+qWhU3g3ysHHoXGl1tTcrri0/ 89aj9szhKl2L//mV4bH4ljYWG1EsD/1/Z/7md2U9QAtj2TkI+c/rOz/fbAvH Uox5529na9LOsGFdgy3rmVdyt/EzF42x/nbu53L/nl9e51+Wg6j8mfBjnSr+ p/zA+Tyksyy2Ak/BC8wB9G9fBi/JUa6HD2thOq3WzHJ3Z88pRqdzWvNJQ9PO w/FsxXPwlHyWO1NAv9INLM9QbN8XP0rfUr7C8vCMc1Cn3yeb87kpf2qjNhlz ur5ljuj2hMYctq0Jx5Krr2LemkfFQMlFlY0AHyE7GAPtNobZzzsPLju/39rz wAz6XDf3Y8VnGB/3LeVyBR8wT4sPbp+Wbyobvrqz/5Y/1nzwjP2ZANP/VymP ZP5R+AJc5ZOSHlM7yQLpZ8u9kO8y3qAN+Hg+H97Dazm308GgN15ZTqT8zsvF lS+t+4zH+Znzv7Ney9OVvmsZM1W+afJwuc87C4UscSx7wWVBq3IFhZti4OIz +p3cgOblV8uXoTyfjYW5p67y2xbnVH6aYgPam6ubjjD7djlow3e+Eq4vdtU9 XuryKua3/FBkEu3vbBx7wPYT5j2M8NUo70tnMnWWefFU5lmxEj7DMNz2HHjt PJvWvnw98rMo5165JrUrP/7ODM+nNBti56T7b33IH7CzhmHM3PKMYyxkDGtL fR05VOYeGQ8wb5Oz/YeV/GGTN9q3dC6Iz+mYkqHzg8E7jFt+fOaa68ttF13h zrPSSZBX4Z2OCbazYYT/zq+BT/WVexHN/O43/cvfBM61K/v1dTPeu9zH6sd/ 8onPv8wLf80vNhtQMQP4KwzAhPr42sJAuvN8EzrHufxGxU9mS/1E/mY80ger n4yCHxybzL4s7U3yhTHuaND3fNHyL88e1hltw1d7i5Vog+dk7wsr+Yfg+Z2H 0x6o2Bhld6bX5X3uhfS0xRyjVbLbkNPnc8uzWaxBZ3O5Lp+4cOj7dD7tGfNX Hzq1kYdtFwuYD44+dJZGvrPpD7J/++/a5Ij4WXKUV+NRbHk2RHMm/bzvtUHf zRH/fe5cc/SBU2OILvRpx1rQFf9tH1PM7tnMlVMMk/edWQUPaIMXF9Omv8Ye NorZMf6dTwQXaJodOZ01PLz2rXcNXWz2FmM88jZseadnlAcoWbe4ztolbrPv 413N8z6jefaDeJ05gM8+Z+Z1IwfGZ5bn4HZmivvxk2xHSme/LX1Hy6mnrpMp 1xkjn7O/5GOUTTldS3M8+9/Z3Gcnq3hP30U2PkQs6mdT0ARfhY3yTZjv1vIx h+b5Lekb8lFKL99c0/fs1cVmpJso/2xnxHifz0Rzu9w8rknnlX06m84y9j/Z FV3OZi7Kcb7d9n77QvQno+T7bk3r+eXWNZeKSSgOpnyqdBfpULJRDh+uS3fv eWB80BjmO5V+Bs6GDXr6WOtLcmq+xmSRxqfY4PJU5iNR7u/OW+ksqWM/49l4 40XpidEqf+VyiOXbkHw96Lid1/h1+UXRwDibR/kJtn/CxzuDPt8A9RhjfCMf q3yussXSaxdrjG5kt+Zp50Z6tnqtr+3DyVC+L34j/+n2+qczNnfpW5HNKX8r 8tJS36C95pr6kvmLl0hXa67BhrHAq8svszxXJzs+XS9emc26XCqdCd25OJ3/ 2b65c92vhlJ+8vLsZUsx/ztHvNiazj1IR5gMDx+dz1ssnDHxOR/kZC73GtPO TTG2Z9M3Lrm2fKb4Pjzkf+d5PUspN3fn3HUGTuvRMu9oOdzI9p25a2+IVp3J Bjf5BPE7TzYyHvCkTphrj+u6s7m/S9fgfnMO1syTzocq1mToU+dZnuWF6+zo 4iLOpu/NySIfunuNfzrdYy9obozbM7W31g/7sHEO77aP5nH5B3f74TvGOJRT Mv/A1iuyN1wmz2dPHb4D8yzpkW9o5gXO96M8nOpN51huc3SlE2zNLt6uc1HS mXiutahcWtqabcGahuZ4KDqR4bTN/fDhGut0+qfOn3RteYv111qEx/jefse4 FbeRDaa5VF7fzs/L9ya7hbWajAlz8FduxPTr6lAfvB7jeZafqhg//HjoYm7c 5ULDK/JnSReJ/1g38we05pjL+VAlQ+RTbAw7K7AYsPLIwKi6sqMlh4Utz9ee ckyO2MztWpkfJWyUy8gz4HjkWN/SylwhI1k3rYfwmT9gZzhpgzlTfvlzM79s +U3TeRXPE58Ky/lKFXdSjsmBz7keamc2nvI6w3t+8eWRW/pTqmfkltzOlfa2 6jjGs+E+XTGH8YHsEfAy/GO2tNW/zsrON7sYwuW5vfnTGufO/nZNPMK4ZhPL dgin5b5rrW3NCT/tkzpnN3/NckikV8dL8Ff0VmCsM446L9pzyqE0cmHPsxGy y/HDT1fQ2Sp+c38+zp2Biae1luljeWM6w604uPho+Y2WsnixYMYnu2L5JItt 6+wqa8HVsgYuSzns0DF7J97hfTKG34rZLFdbNhxrQbmD02N1tk66puJQl/nf zd98bloDO3sLT0vHSiYrZ028x+/phMaeb+bmLYdL5360N1N/evKhj5j+Y/HK bHv51BqDch0Ovffkl9lc4Bs+T6d/ke/Qvzj/8ttrW3zo/NxjWPeK50q+t69w ffm9zev0+Np5qJj5z6cUt9CeXv8620T/4Sv/DH0tvqv89dnhil0uz1h5JPP1 7Cz7fOGLqUNXPCnbbTFyI851+ikVm5ptn44w3SUc2Htq406vdGXvV9a+EZ5b a5bP6b12pS/KjqRubS7XApwWa1/+Utd2XkXn/VrrPEt9+cWWj3bpy1pMZvJc Z0dpi/52Pmp57K7GYuztvckdxquY7nw8lzlg0zEU95TOBf3HmUvbl1hKvKRc pvQT6cGvm34T2WJPFmtevjKwloyd/t11+Fb5YMttpyzjY/Z+ZJMv5uuUzebc 3H+VJzO/hvbG6bLSx5drKJu6NnU2trExDuW0XNoKe14xbvaZbP3uPT/9JVwP h2E7n13X5Yd5bP4Ln21Bh3ySzFfrifXQ+JCTzRtjvJyPncNefGVn3ZYLw9h3 Nof7wkcyWfqr/OLUh3fdMM/MTE4qPtQ9dAz5iXZ2uPryFS8HTj4Z5bmDB3Vb V+EgXUb+KL6rDdbo/CnMB3OuvF32g8WjlqO9/Z37yQXtf8tFqj2dD2NM/N65 Vu0vzMf09J0Ho11Xe0E7+RbNnXys8lExLuV1IOOSQ32P7u5rjWl9iHcY/2Kb k8HLb5p9MjtLvifp8v2eX3P7ADrIcnHZ95WPQb3lcmv/cTr9XtSXr4bnpadS d3qNYtqKv24v5395KfMjhB30T553XTk3i/HN/xjGsnHn/5EuPhnBNeaW8SO3 L+XMY/Ph+1yLsYCd8gwb52JSzbuhW750955HJZ+gDb6dn1D21vx76V/yn4j2 rk+mKcdo9pH2X/hmOv/8u7qn+Jz27CMfw5ZmnQWrDdYoNE1Xqn64TD9Q/HJx b57ZPiY9QHmyOvuy2NP0w+3/Ooe4e0Ye4C1P1O9sTt5rW358xdmlT+584XLN HLvd5rMp+tUZ8daP1i+8urx56Qqy9Rsf+Vg6H6zY9GTn4hPDqLWyfRnekg7b 9eorLj3bG5qlX89fGH06kxndxhmAM0c22zIMqLs83NqtzfQq2fo8w/XqST5y XX43numec1PHEE/WVtd3znA5A82NzkE1FuV00Gd9z686+0Sxu+XAyZ/QWnAM Mc33ZDFG6ZGyS5eDNpkH7oxZuqLi7/OtSneUzEzuys9tiRe0lzvQugE7+Ev6 anWUq9jYZ0sz/rAfrk5n7CO+kT2kNVY78dj89zt3mx6eriLfLrjX5/iOZ3Ru YDre8uOUx4RPRudTdN53NvCuhS1zB+82X1yjP+UAdG175KXP/CHz8d2bBR7w qmLI4SLe37z0Kh7MWAw/+O0YLuOX3VvsW/pM65h7zNnkbLyg82bcay3recmy 5aJJlkOnzmPJxhwPsGZZPzurWhvyeekcB23uvJXi3svpWNv02xoOSzvfnzv2 9q70KHBYzjRjkG/90s6kb/lAWrfz51JvcSjlEzPu5aS8Fouxx6PMxfh6PlDF eWf3KJ97sW/GzX2NvzHL5zS7ar6exj9/qc7G6dyCfHGtxZ7nmvIgF0vj+vws 8c/0lOVLcH3xGUOG2tLaNem0YXz40215Fjz5/cLsQ/4MxYhYQ9tDtqfIHtGc yCZo/ljf0s1kLyiuK5+f8iSrz3i651ovxRD6n0+fOZm/XvmkywPbGaT5EKCJ +RtulNbA9nnol48bfpIsVs4sz87XbRlXUF746FKu4XSM5WOEm2LEYLGzU7Qv ftIepVxey/PLy6eqPeU0gdVsOJ5DT9sZhNmYYLR8WeWkMwfKW5S8qW3ZrfhZ XO36qs+klEuS3EAGzp8FFjp3pvUAH0pH03nMYSifAbhRD75iTUleIx+Z52Gm eFXfJXvn3wUX+R63N2Vz0cbWt+xDaO3+8mN1RlvxWMVtlH8u3usz+ascxr7j o5q/T7aG/Avznzmd8fPuzS6ZnTAZDZ/WxvYfsJov7rW8/n1iIUuTCYo3MWYw ZHyKL04n3R6+mKXuS3/vPX63zJHvvzHubKeTOeatLcUpwFW2Enwmv4J07elo s4vbE6YLgNv2A3hotqj0SJ2FkU+YvUu+jfl26rf7rWWelx3IGu278vvjceWy iN+mwyufQ7YGv2vH1eizcE8UuvP8aciV6FCOpvIWlqO6WPvlWVfpF/CXeFLn /Zqvu1y5l/fnoqS7tCdynfs9D33iZdnYiofuzAv1ZCexHnXuSHFfeEoxSEv8 uVY9+Zjnr5w9qhgMfDF/Dn00l2DMM7JxdbZX/p7p3WAqG7X3+Dc+eTrP8Lgv FuOUb0N7qWSEeFbrYfE8+ce1hp6beSLxneSy7B3lHyqHFT6W3r68iJ7ZOZFo Ra7J7pt9OuyXxwzG0PGmmbsTLdGffIR/dAYSftSew/1Dz3H7nftzkM6mf3q8 2f2dIZY9sJxGYTa7Z3Ow85/pS4uLV899vRg7Y4G+xr/cHcVpZi9xHdqYo+VZ NNbpqtHq5HH/H3NcXgOYgbHsaeWMSs52vXUUnWCG7JNtxjPKq53+qvNZk+nL V1Ibs9dYhzqn0rPRuvNo4K6z5/HEcqfQjXc2sbUwf38Yzu8rX9nyTRQDpQ/6 Ws7AtWz2fiTlOe+cJutPvKs4iNaefIfN02L4kk/oRfO1weusM50vD7v5lxQr b70l85d372yew9WZE+zKrum8BjjxXb75+fwUZ1Mevc6NK+cEWSs7PByp23qV /xnc5AuYLTGbaPrTZXxh9msvc+YY4+EPXdCeTJ6vVHmgljn0y0GLZp2tCXt4 T/k57Qvbb/ncOYn4RHFBnaFWvt1iEmD0/DyHDV7QOb8xNFWf55YjRtwyWa0z 4r3Ib8VWwJnryw9ePkH8VX9hsHyjrj2bsmFnJ6SH1xf6gnzIjAcsWq/xTbaF tXzy0tlD5l5ng5G98iNovYET/MK8RZtlnhX0LlaxnHed535+nrlAroIXeKBL yJ+mHHvlTDybeV/yk79p5v7D787m2a/5V7UeZjNJdwTL5VvU5s4QyP+wvGnk MPkfmkMwBrOtr/FV+NcHeDIP1L+Wz6zk852up3NSik1Ai85qTN/TedH2QcU/ +72caukrk4GKm3IvvHXmW9iBAWtl63HnzHnGOGtg5vOOb4SVs8mLYL9zBTof V1/ISfBUPgr1FX+VL4T2aVcxH8XXlpfE8+DsWrT13dvFOlQOZHgo70X7PWPt t2Lhs/nBBN5EdoXB1qjsQ0u7x9n0A0y/mC5+l1f58t5fTv3lm8rvMDmvM86L HUqn4Pf2CNmYz087VTmL8m0oPy1+CXf5M45cdDMOJ9kgG9JaPvdi3Mutha7l fC9naDZjv+NT5XdJj1R+rXIkoXH6z+JirUGd8209swaHl/Sr6fd73zk4yXzF IeYT2/6sPWPn5eVznE08PWr55NJ/5PtCJtOedK8rf7rnSjlgyyOUHyhawQdZ yRoVz8Kj0Ax9vM/nIDuN7zufrtxY8qngb8VbL333dvHul/fnY+z2qLvzEOmy ku/dVz5bvIauNZ8qmNJ+GClmNXmrMyOyRYZNfjfZrtY93r1TljHC+WcXF2Et XJ4zje7xl2KxyhPrPZ6Wf2B26OT3cin7rbOGi7WBSbwt3VT6hXJOwbbnlFc2 /0VYzGcq3xy472zKYkOs83Bnre6c17Xc+4VdJBkpOqTbPJs+vuZ59hkyTXoB mMj/KXmofEX4VrHu6UKLAywfUDZMmMOPyleP3+CXXrACd+XjXZ5plM+06/JR VgccWQvLzVSeiLV84Qu6da5JtuNi8LLzF1OdX9fJzEFW7AzZzF4tmQf+8J+R m3n6FcNRZ4OUS709QrGgsJHNLj6WL0a+LzBajFZ52ssV3hln6zp3HMWeHV3Y ftA7Gd0a1F58eWZTvsBsJH6zdmbzt17RhfqcDagzeMji6bU9r3yvn5gzp/yy +YZqR2dDlde7c1fg/9jzmN3XCx6DtmShzr0uH0h6Jbwrmy++UmwZbLQHs96h eXbu8g9nx/WM4vPL+ReePZtspn655L3PTpAujAy/lquvdCZrOZXR3n/rDj+c 8rV3Zqnfy3kOf50T5rfOCXOt/3iiumC2uv0GxyPn0twvlH9w1S1dm6UzbPLJ Kj5lnMcz/ZuXuqTz82wbesnOHodR1/qPx5HtyexscPYPnXG5lrV8qrLKzGtZ y1rWspa1rGUta1nLWtaylrWsZS1rWcta1rKWtaxlLWtZy1rWspa1HEf5Pxr7 X4Q= "], {{0, 147}, {150, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{112.39062499999986`, Automatic}, ImageSizeRaw->{150, 147}, PlotRange->{{0, 150}, {0, 147}}]], "Input"]], "Text", CellChangeTimes->{3.559474722623023*^9}, TextAlignment->Right], Cell[CellGroupData[{ Cell["\<\ Updates and Performance Improvements\ \>", "Subsection", CellChangeTimes->{{3.5594574723879347`*^9, 3.559457484825358*^9}, { 3.5594586372939568`*^9, 3.5594586433552628`*^9}, 3.559464393767721*^9, { 3.5594645288470297`*^9, 3.5594645302524843`*^9}}], Cell["\[SmallCircle] Parametric Graphs", "Subsubsection", CellChangeTimes->{{3.559464984795326*^9, 3.559465001199407*^9}, { 3.5594651433129473`*^9, 3.559465165556877*^9}}], Cell["\[SmallCircle] GraphData", "Subsubsection", CellChangeTimes->{{3.55946517179886*^9, 3.559465176651765*^9}}], Cell["\[SmallCircle] Random Graphs ", "Subsubsection", CellChangeTimes->{{3.5594640754834146`*^9, 3.5594640804882317`*^9}}], Cell[TextData[{ "\[SmallCircle] HighlightGraph [", ButtonBox["ref", BaseStyle->"Link", ButtonData->"paclet:ref/HighlightGraph"], "]" }], "Subsubsection", CellChangeTimes->{{3.559465265104706*^9, 3.559465273301944*^9}, { 3.559465337837617*^9, 3.559465338834367*^9}, {3.559465416088161*^9, 3.559465416092374*^9}}], Cell["\<\ \[SmallCircle] Hamiltonian Cycles and Eulerian Cycles\ \>", "Subsubsection", CellChangeTimes->{{3.55946409043126*^9, 3.559464132412765*^9}}], Cell["\[SmallCircle] Centrality Measures", "Subsubsection", CellChangeTimes->{{3.559464141926977*^9, 3.559464172738536*^9}}], Cell[TextData[{ "\[SmallCircle] Cliques [", ButtonBox["ref", BaseStyle->"Link", ButtonData->"paclet:ref/FindClique"], "]" }], "Subsubsection", CellChangeTimes->{{3.559464141926977*^9, 3.55946420239312*^9}}] }, Closed]], Cell["", "Subsection"], Cell[CellGroupData[{ Cell["Enhanced Visualization", "Subsection", CellChangeTimes->{{3.5594576212013283`*^9, 3.559457626416926*^9}, { 3.55946453543561*^9, 3.559464535780555*^9}, {3.559474638813829*^9, 3.559474639537838*^9}}], Cell["\<\ \[SmallCircle] Enhanced Automatic Graph Layout\ \>", "Subsubsection", CellChangeTimes->{{3.559466236647574*^9, 3.559466272336681*^9}}], Cell["\[SmallCircle] Multi-threaded Algorithms", "Subsubsection", CellChangeTimes->{{3.559466149547042*^9, 3.5594661635912657`*^9}}], Cell["\[SmallCircle] Support of PerformanceGoal", "Subsubsection", CellChangeTimes->{{3.559464552669339*^9, 3.559464561938092*^9}}], Cell[TextData[{ "\[SmallCircle] Parameterizable Layouts [", ButtonBox["ref", BaseStyle->"Link", ButtonData->"paclet:ref/GraphLayout"], "]" }], "Subsubsection", CellChangeTimes->{{3.559465613388274*^9, 3.55946563303999*^9}, { 3.559465707444763*^9, 3.559465722402726*^9}, {3.559466021521062*^9, 3.559466021524744*^9}}] }, Closed]], Cell["", "Subsection"], Cell[CellGroupData[{ Cell["New Functions and Features", "Subsection", CellChangeTimes->{{3.5594575678149967`*^9, 3.559457577483724*^9}, { 3.559457608913872*^9, 3.559457609329639*^9}, {3.559458648532867*^9, 3.5594586580967712`*^9}, {3.5594645330355873`*^9, 3.559464533267756*^9}, { 3.559468123118053*^9, 3.5594681257495737`*^9}}], Cell[TextData[{ "\[SmallCircle] SpatialGraphDistribution [", ButtonBox["ref", BaseStyle->"Link", ButtonData->"paclet:ref/SpatialGraphDistribution"], "] . GraphPropertyDistribution [", ButtonBox["ref", BaseStyle->"Link", ButtonData->"paclet:ref/GraphPropertyDistribution"], "] . \[Ellipsis]" }], "Subsubsection", CellChangeTimes->{{3.559460504424396*^9, 3.559460546399639*^9}, { 3.559460627141254*^9, 3.559460662942491*^9}, {3.559464505014925*^9, 3.5594645214130363`*^9}, {3.559466845917245*^9, 3.5594668463893147`*^9}, { 3.559472221043326*^9, 3.559472249138475*^9}}], Cell["\<\ \[SmallCircle] FindVertexCut . FindEdgeCut . EdgeConnectivity . \ VertexConnectivity . \[Ellipsis]\ \>", "Subsubsection", CellChangeTimes->{{3.559466467999134*^9, 3.559466511377461*^9}, { 3.559466603182897*^9, 3.559466668436707*^9}, {3.559466848948783*^9, 3.559466855620371*^9}, {3.5594680950236464`*^9, 3.559468103487076*^9}, { 3.559472224388371*^9, 3.5594722449311037`*^9}}], Cell["\<\ \[SmallCircle] WeaklyConnectedComponents . WeaklyConnectedGraphQ . \[Ellipsis]\ \>", "Subsubsection", CellChangeTimes->{{3.559466739622367*^9, 3.5594668085487223`*^9}, { 3.559466857892148*^9, 3.559466858644175*^9}, {3.5594681072947683`*^9, 3.559468109902685*^9}, {3.559472184961976*^9, 3.559472186278529*^9}, { 3.559472227740396*^9, 3.5594722423794203`*^9}}], Cell["\[SmallCircle] FindPostmanTour", "Subsubsection", CellChangeTimes->{{3.5594669129234667`*^9, 3.559466919624304*^9}, { 3.559472153058804*^9, 3.559472239795536*^9}, {3.559474161866152*^9, 3.559474169811624*^9}}], Cell["\<\ \[SmallCircle] GraphHub . GraphLinkEfficiency . MeanGraphDistance . \ GraphDensity . \[Ellipsis]\ \>", "Subsubsection", CellChangeTimes->{{3.5594669129234667`*^9, 3.559466919624304*^9}, { 3.559472153058804*^9, 3.559472239795536*^9}, {3.559474161866152*^9, 3.559474166084762*^9}}], Cell["\<\ \[SmallCircle] PlanarGraphQ . \[OpenCurlyDoubleQuote]PlanarLayout\ \[CloseCurlyDoubleQuote] . \[OpenCurlyDoubleQuote]BalloonEmbedding\ \[CloseCurlyDoubleQuote] . \[OpenCurlyDoubleQuote]SpectralLayout\ \[CloseCurlyDoubleQuote] . \[Ellipsis]\ \>", "Subsubsection", CellChangeTimes->{{3.559466835304441*^9, 3.559466843476694*^9}, { 3.559466873732052*^9, 3.5594668778037233`*^9}, {3.5594680358914137`*^9, 3.55946807154953*^9}, {3.559472233259788*^9, 3.559472237147469*^9}}], Cell["\[SmallCircle] CommunityGraphPlot ", "Subsubsection", CellChangeTimes->{{3.559471799967853*^9, 3.5594718139014053`*^9}, { 3.5594719162718487`*^9, 3.5594719239231863`*^9}}], Cell["\<\ \[SmallCircle] Rendering Order for Vertices and Edges . Edge Bundling\ \>", "Subsubsection", CellChangeTimes->{{3.559467980344488*^9, 3.559468015692705*^9}, { 3.559472310742881*^9, 3.559472320958325*^9}}] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ PanelBox[ GraphicsBox[{ {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], TagBox[ {GrayLevel[1], EdgeForm[GrayLevel[1]], DiskBox[{1., 1.}, 0.175]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[ {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{1., 2.}, 0.175]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[ {GrayLevel[1], EdgeForm[GrayLevel[1]], DiskBox[{1., 3.}, 0.175]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[ {GrayLevel[1], EdgeForm[GrayLevel[1]], DiskBox[{1., 4.}, 0.175]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[ {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{2., 1.}, 0.175]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[ {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{2., 2.}, 0.175]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[ {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{2., 3.}, 0.175]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[ {GrayLevel[1], EdgeForm[GrayLevel[1]], DiskBox[{2., 4.}, 0.175]}, "DynamicName", BoxID -> "VertexID$8"], TagBox[ {GrayLevel[1], EdgeForm[GrayLevel[1]], DiskBox[{3., 1.}, 0.175]}, "DynamicName", BoxID -> "VertexID$9"], TagBox[ {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{3., 2.}, 0.175]}, "DynamicName", BoxID -> "VertexID$10"], TagBox[ {GrayLevel[1], EdgeForm[GrayLevel[1]], DiskBox[{3., 3.}, 0.175]}, "DynamicName", BoxID -> "VertexID$11"], TagBox[ {GrayLevel[1], EdgeForm[GrayLevel[1]], DiskBox[{3., 4.}, 0.175]}, "DynamicName", BoxID -> "VertexID$12"], TagBox[ {GrayLevel[1], EdgeForm[GrayLevel[1]], DiskBox[{4., 1.}, 0.175]}, "DynamicName", BoxID -> "VertexID$13"], TagBox[ {GrayLevel[1], EdgeForm[GrayLevel[1]], DiskBox[{4., 2.}, 0.175]}, "DynamicName", BoxID -> "VertexID$14"], TagBox[ {GrayLevel[1], EdgeForm[GrayLevel[1]], DiskBox[{4., 3.}, 0.175]}, "DynamicName", BoxID -> "VertexID$15"], TagBox[ {GrayLevel[1], EdgeForm[GrayLevel[1]], DiskBox[{4., 4.}, 0.175]}, "DynamicName", BoxID -> "VertexID$16"]}, {Hue[0.6, 0.7, 0.5], Opacity[0.7], {GrayLevel[1], LineBox[{{1., 1.244791666666666}, {1., 1.755208333333333}}]}, {GrayLevel[1], LineBox[{{1.2447916666666667`, 0.9999999999999991}, { 1.7552083333333335`, 0.9999999999999991}}]}, {GrayLevel[1], LineBox[{{1., 2.244791666666666}, {1., 2.755208333333333}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.2447916666666667`, 1.9999999999999996`}, { 1.7552083333333335`, 1.9999999999999996`}}]}, {GrayLevel[1], LineBox[{{1., 3.244791666666667}, {1., 3.7552083333333326`}}]}, {GrayLevel[1], LineBox[{{1.2447916666666667`, 3.}, {1.7552083333333335`, 3.}}]}, {GrayLevel[1], LineBox[{{1.2447916666666667`, 3.999999999999999}, { 1.7552083333333335`, 3.999999999999999}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2., 1.244791666666666}, {2., 1.755208333333333}}]}, {GrayLevel[1], LineBox[{{2.2447916666666665`, 0.9999999999999991}, { 2.7552083333333335`, 0.9999999999999991}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2., 2.244791666666666}, {2., 2.755208333333333}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.2447916666666665`, 1.9999999999999996`}, { 2.7552083333333335`, 1.9999999999999996`}}]}, {GrayLevel[1], LineBox[{{2., 3.244791666666667}, {2., 3.7552083333333326`}}]}, {GrayLevel[1], LineBox[{{2.2447916666666665`, 3.}, {2.7552083333333335`, 3.}}]}, {GrayLevel[1], LineBox[{{2.2447916666666665`, 3.999999999999999}, { 2.7552083333333335`, 3.999999999999999}}]}, {GrayLevel[1], LineBox[{{3., 1.244791666666666}, {3., 1.755208333333333}}]}, {GrayLevel[1], LineBox[{{3.2447916666666665`, 0.9999999999999991}, {3.755208333333333, 0.9999999999999991}}]}, {GrayLevel[1], LineBox[{{3., 2.244791666666666}, {3., 2.755208333333333}}]}, {GrayLevel[1], LineBox[{{3.2447916666666665`, 1.9999999999999996`}, { 3.755208333333333, 1.9999999999999996`}}]}, {GrayLevel[1], LineBox[{{3., 3.244791666666667}, {3., 3.7552083333333326`}}]}, {GrayLevel[1], LineBox[{{3.2447916666666665`, 3.}, {3.755208333333333, 3.}}]}, {GrayLevel[1], LineBox[{{3.2447916666666665`, 3.999999999999999}, {3.755208333333333, 3.999999999999999}}]}, {GrayLevel[1], LineBox[{{4., 1.244791666666666}, {4., 1.755208333333333}}]}, {GrayLevel[1], LineBox[{{4., 2.244791666666666}, {4., 2.755208333333333}}]}, {GrayLevel[1], LineBox[{{4., 3.244791666666667}, {4., 3.7552083333333326`}}]}}}, Background->Hue[0.45, 0.15, 0.75], FrameTicks->None, ImagePadding->5, ImageSize->{60, 60}], FrameMargins->2]], CellChangeTimes->{{3.495563756373073*^9, 3.4955637908337507`*^9}, { 3.4955651575830936`*^9, 3.4955651925967817`*^9}, 3.495804371072566*^9, 3.527518067914364*^9, 3.527518146832341*^9, {3.527518506089231*^9, 3.5275185117095633`*^9}, 3.527520072913082*^9, {3.527599192697962*^9, 3.527599198931004*^9}, 3.527846432656961*^9}], " ", "Social Network Analysis" }], "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.527527214495729*^9, 3.5275272216368933`*^9}, {3.52779015531417*^9, 3.527790161738079*^9}, {3.5278558642861032`*^9, 3.527855885814898*^9}, 3.559474200425028*^9}], Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsnQdcFNf2xxdUIijsUpcOIjawmxeTf5KX+tJ7eYkx1USNmhijscbee++9 994rdgEVUMECFuyg2AsWYH//c+6d2Z1dFsRE8xLd4+c4s7Ozs8vs7Hd+555z 7y1T75ePGjjrdLoWJem/j75r/VLz5t+1/bg4PXi57W/16xWjlVpOOt2H5LwR DnPYnzGTupJHq3nysamA/exsz7c534Y8xYt0OIc5zGEO+2eZybIw2Wy7z0NY HuSZYDKpW+0z1GEOc5jDHiUrWBfmQctBazZavz4v3xHyrHcwoeDHDnOYwxz2 D7bCkSYZaiqEiSbb5231p4OhDnOYwx4nM6FQzln0qGoWvWoyWTSr/UM4YnuH Ocxhj7iZpLa8ixzcwE1cMV1FlukizpuyyM/T+iVcpm03TDdxm/7lIRe2cb9y GBuGOtpHHeYwhz0edof+XSJWpualYW7OAvS82A/NTrdG09Ot0DmrF6bfmYN9 eSnE0yza87bkrkafmuzG7g6GOsxhDnu0jTXlLWIi686lV1egYdJPqL3zVZTZ 9yR8DlSGPiUKIbT+r4RX8N2ehph7ZR5p00zcJE0q9agNP8UGONo/HeYwhz16 Zsq/yvzMNJ3D2DMT8fSmlxGeUBPBKTXhd6gySqdVFK5PrYzgA9URlFQNz8S+ jAGnBuGE6QSyKe6/3/dzmMMc5rB/rNkwLZeUJLd9zruwCE+vehl+cdHQ7QuF LiUSuv3s4YrzegRtD4VXYhRqbnwGozLH4iJp11z6ZyooXnfoUYc5zGGPqOXR P24DPZx3FB+u+y+811dAsR1lodtFzNxNnkDMTAhXnNfLyO1xZeG7oxJe2fgW dt7dJXJQIqa34bPJ7gOHOcxhDns0jPXjDdMNzDk2F+HzqkC3IQS6zWHQbSXf Rus7iJexEdJ5fTtt3x4ufWsgQlZXRq99fZQc052C60fvUTflMIc5zGH/FNOi jLl3wXQBzVY3h3EmxeqrAqFbS+xcHwRdDPFyY7hkKvvGEOm8XXgIAlZWwrsr PkJS3l6hRW3zSg5kOsxhDnvUjNWhNpeUmncI703/kBhKMfwSI3RL/SVL14Qo HmTt/NxquTQsK4tyc2tg5oU5uEp61p455KfDHOawR8ssuZ9s+rf9xg48ObI2 vKdRvD6f+LmQGLmEfBn5cmUpnPnqKxnLvtgfzguD4DevLNomdRD193mm/O/h MIc5zGGPonFt/A1i6Oqs1Sg7qBJ8JlLcPtMPujnk843SmaeqL2K+GiVnhQdA N9cIpzmB+GL91zhvuqiQ01FT7zCHOezxMG7DXHRqMUL7loVhHOnQycTPaX6S pbOJl3NpOc9o8bmKz1H2Ufw/i97FkbxjmhqnghjqYKvDHOawR8eYofOPL0JI rwjoR4RAN56YOJEYOZV8Oq3PMFr7zAC5nTnL+0zxpnUf1JzyLPbdTBZ97R0M dZjDHPY4GDddMkOXnV6B0K6kQ4cGQzfaB7px5BOIj5OIl5NVJ2ZOUXySj3zM rJ1A6xO9UXF0Ney6tFPk+fNsx79zmMMc5rBH1DinFHN+EyI6V4ShHzF0GOnK kcTHMeTjjNJZmzIrJ/hJHy/deRyxdSztP86AiGHR2HFuu4OhDnOYwx4r4zHs Eq7uQbXOT8GzFzF0MDFxGPFyhI9k6SgfOI/xlqxkro4hbo4ySh/hJ/cb5Y6w gRWwLdOWoUpM7yhucpjDHPZImYVtzLyjd4/jP33fhXsXYmg/A3SDyIcQM4f6 SF06gh4P15MbhRcfHiBcN9RP7jeMdGj/Sog7F+dgqMMc5rDHwsSYnybu65kj 6jq/HlUfbu38oetFvOxLvBxAPpB5SowcbLD4EOLqYGLpIOLnQB+5z0B3VOhX GUkXkzQ5JYc5zGEOe8TNJMcN5RrRPkv6o1hzT+i6eUDXg7jY21M669L+3oKp TgN8xLpzP+JnXx/pvE+v0qg98Bkcup5W+PhNDnOYwxz2iJkctykHaw6uh+Fn 0qEdiaGdiZtdPeHcg/jI3osY2tsXzj29het6Ktu7e4v9dJ098OaIt5GZe9Y6 n+QwhznMYY+4cTNlDnHv9O0zqN3xWeh+LQ3ntsTF9sTRTga4dPEWS11nTxRT 17vI53ifEu28UaylAQ2nNsAN03VHs6fDHOawx9JuUTzfaV5nONdzRbFmxEfi oq61B5zaGOy6M3srT5Sg+N+tkSfGxY4X45cIc4xb7zCHOexxMgLdXYro92Xt Q9nvy6FkfdKhTVyh+6U0dM3c4NzcQyydfmH3kNt/oucbu6H4DwZENY7CvsvJ cvxQ5XiaQzvMYQ5z2CNvnFviWtGB8wdD914x0qMU0//gBl19YuUPLtA1JH6y 1yd+fk/b6tG2b2n5cXG0Gd9OzJecK3Ly+c1R2uQwhznsUTSrOY1FNigXF3Mv 4sPfP4buLWc41yFGfkmsrKt4HWfy4tB9TuufkX/gjDJ1y+Jg1iFR05QnRiZ1 mMMc5rBH39T6UO388MxRZmFqVhqe/Pop6F51Ik4WI11K7Hy/mMX58Tu0fMUZ I5aPFvrVlI+fDp46zGEOe8Qtz5QvyFY5unn/Fhg+NhJDddI/dBK6U/iH9Pgd Hf7d7EVkmDLF/nYObn1oB1Ad9kfNPBdXnuJwXE8Oe6BW0CX1Rxkmx3PKxlcj 60H3LTHzB/Lv2Sl+r0exfANaflMcTaf8ikumy5ZcUiHvY9a6JpuEk+ah/baA otebWs2BZ/NZHsZPzmTjj69Zj3WY/3zYHwvRBMu8NPavVbWvMHkeeW6u9Dzl scl6d3NsVZA5viiH3aeZL5lCrh2TzSRyJtEqmivmm28wvxGcOnqjeEcDdL97 iFon4bTu9rsvPp/yBU6YTuG66Xqh/ZNs3yP/B7S8t/Ux7m88fLsMtfmdPWhz /CTZ/hhD1X2183sJXjIn79B9+dZN4OYN4NpV4MRx4HAakEaeng5kXQCuXwey s+W+OTkWrhb0pTgY6jBbK0AEWTYrTDHvY7mWLVzLs9ou5krGTcTf2IUa45+G biyPMeIDl8E+cOY+n319RJ9Pt6FGBI8ujwFpg5FJ8Ty/RuTlTXlWn0H7oSzt rtbaId9n0egQtZ21UL2n4WQ+PVOw7H1wlu+gj/hcKAUGPTZ/t811Z/u9W71c 1ZDMwmxi57lMYM0q3O3dDVkNv8GZT97C8df/jVNvvIBT77yCc199hhvtWgOz Z0quXifW3s2RDLa6hgq5hzvMYYWARWWo+Zq2d41r+GkiAnKNKOvP1Lw0fL+8 AXymlIVuXjCKTQuE80SjHC90jDK2KI/RPC0AFWfVQM+9vZGUtwfnTefp9VfE fPU36R/nmnLtjEGiao9C/y7l85lsfnuFngfb/RwMfThm70Tavb5Uy8/QfMcS 2vM2cPUK7i5dhJQG3yHx6co4XDUUmVUCcLmKH65VDcD1qoG4Vi0QF2nbySrB 2P9kJSR/+D4uDh8q9SnzNyfH3HZqVXviYKnDFHuQLFCvqzti/KYr2Jm3G1/F fAevWZHwWFoeTovDoJsbCN3MQDn/xxRlDhCeE4S2u80PE/N6vrT+dbQ93AHz shciMS8RZ0xncMl0SehTbd3Tn2q3tWGlyc72Al9XhN2Kbtp7Tx6Qzx91K/he bKsB72nihkqvuUUx+aEDONnqV8Q/WQGHqgYjo1YkLtUqi2s1y+B6jTK4WTOC PEz4jVphuFYrAheeLIvT1ctgf/VIpH74NrB2lYz/81RN6mCnw4puRWYRpEZl tnH/zOukG8+aMjD77Hy8v+xjeC0k/bmG2LmKfFkIdIuCoJsfqMxFFyCd56pb wHMk07ZVPtCtDYR+VSSqrHoan26pg/b7OmLK6SnYdGuL0LXnTFm4SEy9Yrom 6vH5fSVbc2FVF/VHGFqEv/c+d7uHWfhp0ckOhtoytEj3LNaf3Ka5excSPn0f CdFBOEO8vFQtGJfJr1ULlV49DFdrSL9WnbRojWDh16sH4wbtd4W2n6Rlwr+f FDpW6NFce/UiDnNYUcxOu5SyXY2rmV+SnZlYmr0cDXY1RuTimoKD+phI6DaE wHl9OPFRmVt+sb9k6ULV1TnomaH03Logsb9XTAX4bqgE//WVEB5TDdW3PIe3 dn+Enw43x/DLo7Eqdx1S8vaL971KPL1NNNXOBfqnNIPtj9YhPx6y5dfftqe/ wK9AffIWxe+xsdjx+stIrBKOE8TKs1WDcJ50aBbF6herheECxfO8vERxPLP1 ouLqY/YLtJ5FTD1SIxRxL9QGtmyWxy7yB3LYY2WFXgt29JBJ1Z13kE2xNbdZ cl3n6qvr0XJXWzy58nl4ry0P162kP7cRN7eQbyT9uZ5YuZp8pcLRpQo3l4Qo /CRfTvxcHQjntWGCu7rNtNxKy1h63U5a7qJlfDhKbS+LMluq49ktr6JeQkP0 OTIAS66sQDLxNNN0TsT910xXxdgnd4mpD3oMPcdP58GbPKd/kKF5Su79UCpi 330TCZWCcKxKKE5XJh1K7DxL3MzgttDKwThH288RI4UTL+17AHE3AGdIlx6g /fd/XRc4f0G+j6koH8hhj5OZtZq9nIn2OY1J3XkVp0wnsCh7ERonN0XV9U+T boyC1/YouMSS9owlhm4nfm5lhpJvIF8TIjm6ipbLgyQ3Ob5f6i8eO60IFAwV +6xTOMr8ZY5up8extIwvA9f48nCPq4CA+MoIio1GRGxNRG9/Bm8kfYhmJ9tg 8u0Z2J2XhDOmDKGP79gdD//eXNXWGz7sn8s96wXs2iMY65vsripmw1j1+uQc ekYmdtf/FlsrhSCNuJlO/DxeJQAnKiseHYpTlcPIg6z8NO1b0DbOMx2n2H9z tXLIXrUKuH1btreKj2JyMNRh1mandsRieeLfbaIRx8ys9dbeWIvWe1rjqfXP I3BrFHS7iZtJxMmEMtDFhUnmbSXfTNyLYR1K66wvmaMc068I0nA0UK6zDl2p cpT2Wxsi4nrdBnq8KUiydBsdY0e4fI/d9F4JtD2Jtu+lbUnlYNhZGdXjnsfn u79G3/QB2HA7hlh/SrSfco6f8/s595hjxLZuypptD6+d0pah926LeJwYahMT mXPw9PjmTWQM6I/V5QORTDH8kWgjjhI3eXksOkDxYOHp5sfWbrv9aFSQcN4e S/zd83tb4MZN0eZqXT/nMIdZW/7fbZ6oKWL2ZJkuIiZ3M3493Br/2iLZ6b+7 MjwSKsIlgRi6mzi2K1TE24J1WxQduUFh4VpFh7Kv0PDT7Eba7i/bRFcFWfYV HFVYHBNmifG3ke8gj6P320k83RWBYrsrwphQGWE7q6FcXHXU3vki6qU1wKSb UynWT8Z5U5aYw5n/KqEl8kxWf+u9fxeF1Nb8oROOoonPv6q26n9lhRZaFJBj o68QtymGj92BlTWikBgVgpRKATgUZURqJSPSogKQVtkoPTrI4rxd44c16/w6 +fogeYxoP8SSJt34xWeyzvSuI7fksPxWkN6RY9jdEnWe6XnpGH16PF7f8QEC 4qqi+N5y0O2PkPovMVxqQmKYWYMyPzeFSeaZ+Rko+WhuE/XXuFFxX9KjRkWb Bsp9VZ6uUY7DmpbbV2MURm8Oku/H7a+xymdIIJbvocd7Q+FLjK8R+zzq7f0R k85NFe2mzNLrIg8l605zRT/9P1BP86dPPgrkaL6+rHZe9shYkdrkbRjKPLt0 EZvq18OG8kHYT7qRGbq/ohEHaV04aVFbP1DJj/bzE0t1nwP0On5tCr02RV3n Y1XywfboEKx+9w3g2DEHQx12T9Neyhy7s/bcnLsN9Q78iMgdNRGUVA36FIrd 95eT/NwTKhnKOjAuwsJPVX+uV9jHsTlrTNaa7JxTWhqk5JXIFxkt60vVXFOI 3EflKb9+hcLglUq7KbcNCLYGWvSqqlNFzB+O4rsiEZBQlbRpTVSKr4139n6C /heHYHturMjpM0vvin76hdUA2sSQDxpg93HMR4qd96yH1dzXbJNMt+kKXbwA i6MiEEcadE/FACRXDMrHQa0nExOl+wvfVyGAXmcUr02i55Mq+mvcF0kVfLGJ GLr87deBdFuGOmJ5h+XnhWhiomsjm/RnFmm1RdeX4L3Yz4hBlaE7RJw8SJw8 QHH7PlpPKiPbP5mfzKutSpwdE6RhZ6Cl/VPVnkuMcFrM3FRrnAKl87rqXPO0 KETZ7i/roURNlI94vZm3KnNVPbtMeS9+z7VK7M+1Afz5doUL7rsnVUD52Cfx we46GHSKWbodGaYMWcdvuqGpN9W2Cz88horScFGVJf/lFTBewF+V3/prreBc vOV5xcwNxXkyR04adEfdT7GhnBG7iH+J5SULBQ+JfXuJkepjyUnpgo0KJxMV T6hAx7DjO8v7Yg1xecWnHwIZZ80MNZmK0u7jsMfLLNcE85PrlaZcnI7ndvwH QftqouTBigo/y0l+JkYqsXuEzL8zp5id6wIVdiocWx5orTkXa7jJdfVcbz8/ oBD3V9wols68/7wAsxfj5Wzi6hw/6dwParZRrvPrF3M9VbjUwcxTivdd4iIR uDMaZXZVR7n4J/FCwutoerwFpuXMxr68ZPG3q/n8hz23qPaexf2wbij9WkV7 rdV+Nm2wjx5M7ZrdmECpZbq+fj3mVQhEXEXJOpWHuzVstHVmpYWX/sJ3Envj y3kjrjy7L+LpudhyvsJ30OMl9Pzqhj8A16/Jvp8Oc5hdk2PP89hzFyl+n3Zx Jp7b+h/476sGXRpx8mA4nA4o7Z8JETJvtCNCYWeYrKFX6z9X+Gs0Z6DkmBU3 NYxkBqr8U/stWbny3Czi4uwAueS+ojNofbpR9hmd6iP7jE6l7RO5/z35eD84 cT/8ibTflGA4zwhGsblhKE7atuSqcJSMId8WAaed4SiVUAEh8VXx5I4X8V3i jxhyciQ23NqIw3lHcE6pN+U24euiX9QNURebLah3W/l3x+6/25p/vG+2+HdT HIOPxTUOl+m45+l877qTiKXnVmD91RjR9nyLtvPdDDm3Zd/vu3eUPofK1/UY 8LNA4z5D129ga4tmWBrpQ9zTW3RjRelWWrKixomJKitVTgpWRnoL316O3Yit kb7YUk767Ajibv/+ss4+z3Jvyz/WjrUVlCLLV3thpyZGuu3YYwXYfd9PH7f+ xEW1gnIhRTtfonmJfvfcz33drQ14cfubgp9PpEbJGH5/GYWfoTIPrtZ9ch3n ag03lyixt5mXCjPnGS0+V+GhykQzG/00HmDxGUbp0/2kT6NtkwPgPImWE42C l2LskpHkw4ing73hMtAPzn38UbyHH57o7gtn8mK9PeEyiPYf4YcS9NriswNR bEkQDGsi4LOxEkK2VkX5rdURtbU2au94CR8n10WLk60x/NpoLM1dgbi8OBzM O4STppOi9pT1Kvc75TZjrp26JPyiWF4wXRBtIZy74rGo2Lnf/zHiI2vd7bk7 sPTuCow8NwZNkn7Bs6tfQs21z+DJTS/i+9h62HVxLX0pGcDpw0BaKnD+nKjh QY6lzttebG8r20z5HhQwFpZmlwLT40XYdv9W0PhMdt5DfcD3kwMHMOfZ2lhD 8XqswkTBxfJST0pt6ZuPlZKRkpOqbyNeblWcmbk50ohN5DHk62nb5MgAXNoQ Q++rjDdaRO4UhaHWf7N1m8Zfw1CHWayg81G08Rv4u2J9xDnrL3d8i/CkmqQ/ I6UGPcD8JN8dKtsVtyjs5Hz5UqWdcqHREnPP1fjsAI2O9DEz0pl0JLvko6Ip tZwUulLjk2nbJB/pCjedtOwcStt5PL3exMrOnij+myecGxmg+5rnb3KG7gud HAO6gRN0v9C2duQ9PaAbpIdunI98zwVKvorrUbeEwHlrGIybKqHSxlp4NuYV fLT1czSMb4JWiW3RLbknBqUNxqj0cZhwcgqmn5mFGWdnY3bGHLGcemoaJpyY hJFHx2DQwaHosbc32u5qj5+2/yLGYXlj1Xuoteg5hM6NkudlsY+8F60LwvML otB98NvY2L8ptnz1PmI/eAdJDerh/IRxog1Q9MnJy9N8d5Kd9sJeuwwqxO7J 0AfehvAHGHr7Ni5Pm4ZZZY3YQLG4hYvSWU/GlZNuqy23lvOSzrws6028lL5J 8ZgIb2wo64t1ZX2whhi6lJbzXn4eyMiQ5/ye7aAPsO6tkHNSaLtx4S/HA6/P ewStSOdFcwJNSg0o66lOx7uhQnxt+B3iGL4CaVDiaHKEzB0xP2OUGk/Wm8xM 5uNsjYacobj5MbNRYdR0b42W5HGbFD6yruR1s/spzDRanOPzCXSc8d6SeaOJ jyNpfbgPnJmffcm7ecO5rS/cmnhC9wYxswp5OfKK5P8if4n4+TZx9L/k35A3 JI7+6ko8dYOuO/F0IPF0pEFymj/zvAC4LgyC39JIBC+rgNBl0WYPJ49YXg2R y6uT10JFjUcurY6IJdWEl1lYDcHzoxE4Lwp+cyrAODMSvjPLkkfCY1o4Sk0O kX/TZB9xHzHODMTHgyMw6AMfLKvihR2Vg5BYOYI8FBujy+B0h3Yyt8Hxvcit 5P+2rdsQi6Y3CtZGBez4l/74bMYkyb6JuMb1sSTCgJjyFg2p+jZ7+lLDS8lM IzbSduYl+/qyeuKmQfjaSB+sLeuFZXSMiSEG7O3aydJf3mQbf+f/rAU+VdTz do/98rUF5DtHRTucg6H2rcjnRbOjOlbyljvb8NT2l1DyYBRc0qKJoVzDFAnn RA0/lwXJ2HymUbZDmlmnaMTJfhaf4mf9WN1mZqSPhZETbXyCpV1TOHOTfSzx ZhQtRxjgNJzWBxPz+hlErO7SxhdPNKTHL+tQ+cPKaNKxCeq1+AFPv/N/cIoo Bl0YcbQy+fPOcHqL+PkJ+Veucs7mn4mjLck7lYauF/PUHbphdKzResnuKfRe M8hn07Z5tG0+LefTPgu8yPVyuZCWC33kOj8/l56fTdtm0XImLaeTT+Hj6SU3 R3nL9xhcSiy9hhtRY1AIvm3mg+nPuGJ3JV/sq2jEAfLUCj44SByNrR6B9OY/ Uyy7X8b2HNfyeEWme8Uhdr5/2GjZfM8Xct38pT9ATU0Ea8Ezp7DkleewOsJL 8E/LRnYZj+fXmBsjvRT3NWtNdpWZayMNYrkyXI+VET6YE2HEqKqVgKREeZ6B AvtGF8k0DLZ3nyt47gXN96R5bb52nAI+kmW7I3a3ZwWfx3vHHGJ/+j4433HG dBat9rRD5K4niZ0VJT85B88xfJyS0+b2zjmyLVLwjHXgSCWW5ph6rFFuH+9n 0Y28tOWilRutWWlmJm0f62cZp3m0j2Qnv+cwb6E9nQd5y/i9lzecOnii1C+0 /oYz6rSvg4xrGeY6oRu3ryNhfyL6juqLF//7InQVSI9GE0ufI3/PBU48PzPH /IKltGzhIucr6UzegxjXh3wAcW8IsXA4+chSkq1j2Om5ceysj5Vt/Hgsr7vL /UYr+na4QbbXDqV9BxrkZ+/jLdsUiNsRvYx4t104fvlvKcyu6U5ayku279Hv PoHWuVYnpUoodhNLk996FZg5Xc5jweNl5uZaff/3MxfKvVBQJH36B+2eh7MS XXni77yVsAuTK4YLhq5XeLjJzEq9mZdCY/JSWV9PXGSX7DRibYQvVtN2Ps4q 0rQryujJvbCc9llKy7HBpEu5jyef3zy1D4byUe77HPBr+TuiY+EKHSCT/BR5 OvkR8jTFDyuP05Xnz9H+Sn7RplZDPT2FPbY+hY42UHtW8DVYFIbKuINzzqty 1uLfm19HcArF8IeJnankKZGi/5Hz5nC4LwuH68wwOI8OQLGBfjJ27qMwbJDS HjlMxtbMOufRtlwNsGhJrdsyU/UxtP9o2jbKz8JpPja7yk/Sn7peFLd3Jaa2 8hSa8qnvnkLGTclP6/Mk6w6u3rmGdTvWomG7hvCorZfxPrHU6V3i5qcucFZZ 2oT8V9Kkrem4v5N3ovfqRqzr6Snfszfxsa9eOn+OAcxFH7lk7+8uuavuw+eq t6fgva67QXiJbt7yuO1J/3YojUpt/FDnhyC0ecUNs6P15t8/82ArxZpcf5NS 0Uf0ReQ+OfE1KiC1WVNgx3ZZd8NjYty9a8572GsDK/r1U8Dzf3UAqMo+hhb/ XfT3nV6+FOPLGEV75VpmIelILS/Xs5tZKXWmWLLWZFfYuYr2Wam4lp2L6PlZ oV5Cg+ay3s+5a24HLWwMg0LbkcX1SHED5wlNSXS45biTMxo3srvhyo2W5E1x 9XpTXLn5K93z2+F2bl/6cyfRW66j/fdL5pLWsTp2AWMCFaw7HQwt1Mzn0fY8 FdZOIttBOXf886HfEJ5QE95pleF0JFJq0IQIlNpeHq4rIuAxNQTFBhC72nkI tjj/5oES7YgBnT3h3FPhGWurId4ixuZ5kzj/rRtllBpytLLUasrRPpptCi9V H6llJz033A/OwxRWEz95HiZdb3rfHr5Cgzr/4inmqp+2foad+njLKVJZyr7/ 6H50G94NFd+oKGP8ZyVLi3/uamFpY+LbL/T3NveQsX4bWranv7Ojh+RfF/Ku nhZXHjtrXOjZzgqHO3gKjSvOYyt5HnXN+D1cEdXEF1985I0OT7tjWpSX+F2z rw6X8Se36XHOmescWZPy+BoJ0SHY/fy/cLlbJ2DvHuDGNaUOyqZPQBGuh6LZ Q/4daq5jS5ufuilP/G0Hp00VDOVzIxlokCwta2HqOnVd4eWaMj6CmSo3mZfL 6PXC6fwuDTMIfi4uY8CsMr7obyyFlMEDZX982/i7AIza14TcBkDfiekM+V5k 31qMC1f6ION8Q2ReeA/nL/0b5y7XII9G1uXK5FVw/nItZF19FRev1CGutsLN 7NH0pzNLDym6lFgsmFzQd1xY7O5gaIFW6Hm0f95Yq3G94o6ceDwT+wr0qZXh driCrGXaFyFq0Z9YHQEn4ifna3T1neT88O+Q13FGsYak01qUFmxw7kFs6OMO J+boYMlSwTzm3wgfayaqbQBqbM7O+9i6YKdRiX99xDHN/GQdzJquC3GqNb3X D26o+mNNZGRnmnv53DNGVHoHnbp4GmPmjMHzXzwHXXX622oTS9+gv+9TYumX rnD6zg3F6tPf2chDtps2ky74x1xtVdoyTym5UxsDnGjJ2ljo45Z0PnhfOlfF mpWGyy8ecPnJALdGBrj8QOeuXmmhoSt95o2PXjHgt2oeGFfeB3NCDVgQJn/j zFE1ZuW8Mtc97q3gK8fIiA7GLmbpm6/g3Ighcs5KHmPo1h1LPc7fNXlwj9yM djfJ0BykTJmC0aHMQAsHVxIr2VVOal3ci8J9pKvcpPh9SZgeS2jJufclYT7i XM8ON2B4kDumc7+k8+dlLZntR7TzO1M/rVanyv4ZHLen4PbdGcTLpsTOt5GR 9SIyLz5FrKyBrCuVyMsTO8vS4wjysjh3KQLnLlakbcTSK8/R8jXiaV3SrF3p oCtkjK/G9lbNqkX7kh25pHtYvpNTMEO59vs83df6Hx6IqF1Pk/6sIOJ4J9Kg T+yOgOt64ugM4md3YtWnxJaq5JHK8t86kZNhjrq0khpL6FGOWzmG5Vibmcf8 G+6ncaMSkxstsbn5sSZeHy41p1l7Dpb609wGKjSop9B3XMekq+uCpiOaihpX 9TQUJQaV17/UplduXcayjUtR99cv4PF/9DfUUHL57z+BEp95oNhXHoKnuu9J n/L940dibGNaNikttKoTsVHXtLR0eqz72YDiTQ3yeeIvc9i1ngfcvqLHH7uI tlvdv+n4/yfrBgxVnVAhSIc6ZVzQI8AFE4L1mBliwDzSSEvCDOL3z9qK49Qt kXrsIJbuLu8r+nknR4diX9Vw7Kwcgv1vv4q7w4ilBw9a5qjMvYf+sMkx2Xv6 f/67Y4bm5ODIgvkYSpxbRAxk3bhE0ZDLIiRXVV6aGUtc5PuQeBzuZd6fX7uA jsHO53g2vWZ8sDsGRkUgOyFBnje7p8R6o/08OefxLwrteeHyUJw6Uxdnzj1J ejOEWBooPPNSsNkzLoRIzwrG2XOBOH3OiDPnA3D2gj8x1Zc4WpGeexkXLtI1 nrNEtpmKdlLrdtqifEl/i+/yb2V/TJuzUuO+MrvzEvDBjs8Qsf9J6I5SDH8w Ei5J5UQbKPerFG2fDVzRfFwLDJs9DDr6jQtnvfYa1126CE44t5U8E9qQ9Khs J1U4qsbhzNN8TPVT2lH9NAw1Kvw0WulPbitgncvzKhfr5Su1McXUxZrRts/c MHP7LBHHF/AHF3rhyGtfspSPkXQ4AT3H9cT/ffUsdLWcZW3U8zrBPedPXIVG dalDevILA0p+6YEnvpFe4ltafkf68mu5nZ/X0f66t+m1ryjHIJ0b+nY43mj8 Jpr3b44xC8Zh+fbl2LBjNbZtWolDMasw8LWX0M7DGX28S2A8aS7+fS8Ml7xY pbT1qZqUa8eTyhuxv4I3jvK4bdEB2FWlDBI+eBMXRo4Q47vj+k1Zn8PtpTZ5 fHOtToGxn5121Ic4N1uBR1ZyShdjd2BQeABmhbgL9rF+ZA6q50e61JasMxeX 0Qve8jovF4a6m/k5L8wds0PlvYrPc68gA9KnT5UxfIHBTAG/OauaBeJn3nZk nOuKYyffxKnMmjh7viLOEiOZjdKZlfw4VCxPZYQKP3k2FCfOBOD4aSOOnTHi ZEYATmeGEVujaPk8Tmd8jms3R8ocFK7R2xU+Hq7DCjdtHCEem6zHXrf/vGQF t4P2zOyPignPwDetGlzSOA9PHN0eIfq3lxhjFPWTP09uKurvuf9ivTY/yBoh zsWwhvq4uIiji7dQ2vq6eYo6d5ln0cu4XonthatMHKpp31ScH6su2gJs9KfK T1HLRJpXtDW2L43iP5dG4Neh2H1mt+Cfbd2IyfY+beZF/vnm88w1JrmirfjK nSvYtmcbeo/ujU+afILyb1UifeostThztTadg6e5LdVJtKcKZ135FHktneBv wMsBeOaLZ/Ftm+8waPIgrN+5DkczjwnNfFcZd0+tIYApR+aAMzOxe+oUDH3r DbT1dMHwgFKYofzmVU3K+WSuZ9yk1JFzP0Yea4PHI0qpHC506e7KZZD8+ku4 3rM7EB9PoeVVmWfOsfQbLbze0eZie2gipqB4SW43X8PM0bOnMfbZpzE+QI9p IV7EUoPg4Jxwd8wnPjIb55PeZFd1puSsl2Aub59N/OW2EubwdFqy5u/q7YJN vXsSP5U6h/v9O8X+au4oDRmZPXDk2OtIPx0lOHjiTDAtw4iRgYKR/PjEmTBi ZSjSTwWThxJvg3HsRCCOHg9GanoAuR8OnwjAkZMB9Dy95nQZnDhbmV7zAS5d naRw9Iq4Xi21Nn/oC3jszVIzlp8L2jiDn78j5n6/IsZ+ezHxLfinVoc+rbJo A3WOKyv7H00xijbO5zo9jxN3T4ix4fh3Pj9mAfHDWWqzF8nfKwbnb1xF3Cra A1mL9vCWuWuVo1xrmY+lfoor/FTczFR1P43+FMdSc/H02Yp18Za5mUZueLb5 c0jPPm7RoVa5iXvHqPlTL+ZEhvmew6w7mXUSsfvjsGAdxZPThqDDkI5o2vMX /Ni5ERp1aYxmvX9Fx6EdMGTGYMxePQubkzYh9eRBXL51SbxeO/eott1fnXfE /KGUuBVZ55EwagR6VIxAL29nTAzzFm12nDtepuRT1pWTdTucc9oWoRfxPbeV Hqzkh3RlPOLE6BDsevkZHGvfBohZZ+k7KnL5OZIZdtpN89VDPrTfZ+EMNWn+ 5/4Fq376GQN93Sn29sYU4uCMEIpDQl0FS6V7Ka43O7NWddad00L0mBzijVHB BsHP9W3p3GTzXMiF1dvmN+t79k3RXnnxyhykHHoHh9OjBA+PEQOPEieZh+zM xtT0EIsfCyIPxaGjITh4JAgHDgchJdUoPc2PHtP+R4il6cTZ42WIs7Vo/X1c u8569Bhkzj7X+joSH87eBy5g++NsyjnRatCCdhPaivi5K2836qc2RvmUJ+Fx JBouKaRB45R5jGcHwGV4ANxaeGLO7jlixAyTQpF9Z5NFHOr0fDGKTbmtkJZf uoj2PpE/4bpK1odcA9TH28xRwcBB3hYf4qO4wsrBiubUsnOQUkOvMrS/txVD RU0AMdSpoRs+6f6Z6Oufq45PX+hv0ua8FKFfj8nMUu0odeq/nAI811wDYJn7 +B7vbyWKZezKueire/ZgzBefo6PBGWMC9aL2hvUVa1Ju85PxveznvYX0Kfdz TFBYmhIdJOZWS6kWhsSoICQ+Sbro6zrAuFFA8j5rbVoQOsTnsZDswf8M79Hn U3uOiPmZS5egq9GAEcFSQ04OKkUsdcPUYHfBxhnB0pmXvJTbvWhpwJQgPe1L sTvtN9TfDe193bC2W1fzXB9Wte0F3mQLsiv0te3EvgNNkXzwX4J9B48YaRmA /cTAlMOSiZKPxMlDAWZPPmik1/mRB2DvASP2pARI3+8nHqeQH0wj/hJf046G EnMrEFc/pFsht4+eBueZrD5qQXM+ORia38zXt7Q8pWbpjhgrSI4TxPOwcx0o j0O0OXcLGhxqgqp7nkPQoarQJZeR44jw+PDzA+EyIVjULr4/5AMxhoY6Dhsz ITMnE680/g90L5MGfYv8gxLQ1XWTOZbmSt0Pa1HOQ/VW6kiJe5xLd1ZzQmY+ elv0qe02834yRyVy8cxPzln1Msi20E503LalRV7r55FNRV8rdY6PwsZ3LPTy uUd/6KJefoXWERYWbCltcNZcVVh6+Qq29uqFDv4eGOjngilhPkJfqSzlPArX 8Ij8fVlZU8ptpVxXmqTo0mOsTaPlvBc8f/DuN1/C8Q5tkbtiqRynnXNQN5W2 U+6Xz1wVbM2DZbyNh9H2ZoehBRnr5tRUDKhWBUMCSlFMXwoTgtxoWVL4xOBS xFS92ScFumMiLccHkW4NMmAMcZRzUp0NxdGjQjgOTJko9XiuZKYlPsi7T37y fpk4d2Ec4nf/B0nJ0di7P0h40v4Asyem+AtP2EfL5ACxZN+9109xf+G79gRg Z5I/4hO9ad0PibSNmcqMZeYeTA3BgUO1kZZWny4Rrn3KMp86k3nFui+a9Q4O Y7P+OcrzpdYs8Rh2PP/64bzDOJp3DFtzt6H35X54PfltVNr7LwQmV5XzIPHY 8zzmJ4+5QTG8x5BAGFoEYH7KAjG/sKqfmMvMqW+715N9JT9wFnXpQoc24L7n bjKe76QwrpdSV07s49pS1pFOal7IzEwfhZV+VjrVWdMGyl5MZSjn420Y6kIM 7TG3h2WeJOVcmExF+E3aXk9/8Pqyinmt7memgt/anMtRX5qX/3nzMRWOUhx7 bNVK9KpdSzBgfCjFpaEyt8K5Es47i/x9hIzvNyr9xbdHKjn88t6i/yjX6B+s Gib6PXGcn1gjEkfefQ1XWrcAZs4AOC/N42xcuyr6p4v++bk5lv46D/w3aMMs 7XmwfcAMPX4cY158VrBwAjOUfFyAG7kLxgXxut7KxwSWwihi6SBjSXTRO6Ol T2lMq18f10nfy3paS/xubhczqfHMfRjF8QfSWmNHfHXsTCyL3UmSg6rHJ/oh PsEfcQlyGZ/gK9bjEryVpfTY3b6I3eWPHTv9hG+Pp3vhbj/spOcSiKVJ+0i3 7idterACklOewfETbSD6OFn1Z8qz8YJO6uNt1pecPE/MzyPEzIHJg/Fj/E9o ltYKrY60w8eJdVAx4UkY9lWAS5Iy79BmZaz5hUYxjhLnkVy6eOPDgR+LnJPa vqgy9Cbp2a5Tu6L4h6Wg+8xZ1ImKfpI8fkczhaEdZN8hEW/3ssT0zgpD1T48 VpqUGcr9fAbK2F3LT/EaswZVavoVhnI9gEtDD4xeM1rwPs/q+inwRFn2eRgM tQnN81f727yfebWAfu1Wzu2kd0QN6Izvv8Xvni4YTPEot+tx+x+zlHPOosZH ifHXUmwfE6EX9VDbiKU8xnBCeX/B0kMVWZf64aSY21LOQ5RYLQIJrz6PQw3q 4UzvHrg9fw4Qv53eM1XOy8Z9om7ckLEva9Zs1bML91uaJevc28rYqOr4qKrn qO2zzDWFbaY8ixbm18bFYVRUBCaFG2WsHuCKSUKHumAs+RhjKYwmdo4iZ63a 07sE2rjr0C7IE1O/qouTq1bIz2KuUbC555otz87XWhBX+Rjp2LnrG2zZURbb 40KwI84o+Lctzhtb2WPZjdhGvlW4F7bE+pLTcgc/56s8Jt9ulE7bxXPbvemY xFxiK7N0N2nTpH1B2ENxZNLet3Dp8kKIWn7B0cL7VP2t7E/q4iK/vIg78i6X TFfQ5WBP1Nz4HCrvfAYBOyrDf2s0gmKrwieuvBx3nueLW6vMpbnAV4y1xGPJ uZAufKK5AfOT5luNpy7bUnNF68CU9VPwxGfEyq+KS/+WvCH3tfGQfSOZoV08 NQx1NzNUsJBrk0hXirqpgZb2Tnsu2kDV12nbQpW6Jl1bA9wbEz9iZ9sd/90u I/Ov/nPMrElzBMd2ThiHTpXKobuhGCaG+GB6KNfquIn8NNfxsDNPOcZfG27A ujKy7yiPxSF4SnF+olmbGsW4Joeql8GBamVEP6h99Hgvr/8rCodf+zfOfvkp LjRpgOz2bWHq1wcYMwqYMQVYMA9YsghYTWxauwpYT7HlhvVADPsGYNMmYMtm YOsWMQ8nEnYD+/bKGtb0dDE/PK5ckbqXGS3yXcSCu6x/lXFVmK3cvnD5MhIa NxTtGEvK+GIx592Jo3M4txTkKtpGxwW4Y5S/O4YY3dCRdGen6IpY0qEdMuNj lbZfzVgtD+RCkP3h79w+iE1bPsT6zYHYuMWITVu9hW/c4oUNW7yFx2zxVdxb uGW7+pifM1rtt2EzvX6jFx3b14qlrGN37yFPrIl9yc3oz9lJf88l5Ltz/50v 9r+4bcH63sL15NrxC06Qn0R6XhxeXfEMgraWh2s8MTOW52YnXm4kXsbwXB3K 3HA8VjKPIz9Njv/hMtyI4h0NeGvA22L8YHWuS/U91XHu1+xbA7e6xLHvXCQ/ 67mIenPB0FYG6zZRjrsVhpqdmOiscFTm7YvIUNahXDclGOor2wzalYZHE/od JS0R7b/55u6wNLBDG4M+Ek1CSt/H6wmJmFb3C7QlVgygWJXje85Vq/lorukR uacwvaJNDUq/cb3gqcjn05LHK9bm9A9X9EE6+WnSqGeig8TyOGnVw1F+ogZV 5KmqlsHeGhHYU6McEmuR16yI3TUrIPHJykioFY2Ef1UWvvupqtjF67WrIfG5 Wkh86Tkkvf4K9n7wFpI//wQp9b5GWrOfkN6hLTIG9sXVyRORs2wx8XYrsH8f xe7pcsw/4m5i65ZYUFaOkayOv8RtFyvDvQRPWYvPJKZy7VMfP3cs43k8Dh2S elfMBfAw2nT5eDnIvr0f69Z/iFVrg7FuQzDWrKfzvN6ANRtUp8+6wVu6sn01 7cPbzb7eaLWfup3X120glm5mJhNLd/gqLOU4vyzF/M/hbOZgJb/0N+8vUSQr pC0CBafL8h8lf67d3E7D9xtTEm7nzMPVG/1x6WpXXL01CEkXu+Bf43UIWOQD w1rSnKuMlrmNeD43Hi+Z2TlDGcOTx/wY4QO3PsHw+sUfs/fMEXGx+XMrH0CN 53ed3I2AH0Kh+4HYWa+4XDZylbE8M/R3pcapmxrPG2Q8r+SXJEP1wtWcvZmZ GnY6a/WnOZZXjtlVGa+D3svQ1A9rD60rGkNtN/+TTdWkrM+u38SuyZPQrWYN tDe4iHzzhOBSIkfNdTxqv9H5YW6i5nyJ0Kcy1l/DTI2Q43RwLopjfm4/jbNp Q+XxTlirHqoajMPVw3CkRhnhR6uHIp3H5NN6jUjpyvpJ4usJXpKf0Dx3lDTv 4aqhSKsSRscNEzUEyeSsf/dUDScmRxJzqyP5rVdw8MO3EfdsbfqsFAtXDMg3 jwe3+3L7LzOVeTojzBeTXn4ROHVSqZlX2wfwEC4ARYfeScPKNR9h8dJALF8V QO5FbhC+YrWXXbc852PlK1Vfo7jyePU6H8HfmE3e2LxVtg1sjw9E7E5uf/0c Obl7YOlTb++yKeL4+H8LKyyPWXSuWrep8euyRQ7ORPw8dbYPDqZ9jtSjLyMl rSb2HnwG24+8g17baiBqjA7GWaXgrIyV7DQnUI4rz/MRTVHGnBtL2pP0p3M/ P9Fn8otBdXHJdNm6v4+GQ/wv9VIaoppVlW2g9YvL5U8ahrbzRLFOvkqbqK/k nqZd1JahVq7pi6Tlp3istIeaY3mFoT7NArDp2GahkbWxfP65auz8Sf9gy5dz 4lzL4SNY2bYt2of6opPeCYMD3TE21Fu0lzJPpTZ1U/r3yFiftRuPubGcGLuc 4n3mj8pV1qrryEWen8c3Jq4yr+QccHLuTOYq5/mPEPuOsVatHIQTip8iP1Ml GGfZKwcgs3IwzlUNxHni8PmqAcKzqgTgEm27SMuL6nplI7Iq+yEz2genonyQ Vt4TyZHuSCnnjeQKAcqcnNzP1Shcztcp55djrvJnXVDGB+sb1pe1Bnbmknvw zYX068g7RRr0S8yZH4yFi/2waKmP8IXKcvEy0srLPLBwuepeZl+y3Ef44hUB WLTCB0tXeGHpSg+5JF+mOjGXmcoad8MmLxHnb97GmtQfm7f8H86cna5pF30E rdB74L3uDfw8jyPD8xJsIt3eCSkH3sSuxCjS82WwIz6M7klhWBcbiXXJL6LN Ii8EDdHBdaIcw1M7/5DzGGUM+CF+ogbpid99EdI0ArGn4s0ssvqYSm0g/zuV fQbPdXiB4ncX6Y1dLGNxaBnK9ZvdFYZyDN5Hy0V3xTXxuta1+pMZ2tcgx5vT MrSLHDfO89cgbD2xTcPQf8o99gGbOXd/B1k74zG1cUO0CvJGR9KlHOPzeJgT iKlTlPrymSGynw5zdS75fNKq8xW9qralin6RSu3UUsWZtStoyZzl8Tu5nxTP f7lbmaOd+0kdqOQnxujjuJ/7n3I91Qli6EniLOevThNbTxMnzxAzM4iZ7JnK OrP2dLQfzkQbxTKdjsHH4eNxG0MKOc8Rv6+it+A3P+b3O0j7p0TJuZB57s5V 5fwR8903so1VMy/8w7h/Wu5nWaQNf8OU6ZGYPS8Ic+d7Y84CH+HzFnhi/kJv zF2kt/J5iz3FcsEiA3GXYgVi73xaLlxswKIlHuRekr9LiMOLed1ArCWOksYV mnSDt4jvWZNu2VoDO3c3o8+zF7I//SNs95XbYC7cVmL3dLoc1pH+bIP9h14j 7V4Jm7a40b3PjXS+hzinfI9asTYQs7c8hecH6+DWvxjchnqLuvnioi+6n6wd 6uMj5mxza+cv+niPjBml5LbVevD8n423X8i7iLd6vyvj9ybKGPBNlXk1eAyj 9gYzQ8X8HD29C+CowT5DbZ8X42/q7TO0owd8W4Ri24ntgqGmx5Ch+fpWiPx1 jmj/u7h9G+Y3/RntywSJ9tLu3i6kTQ0YFeyNsVwXFKwXbadcg8757elBsg/P DGW8E9VFrXqQu7l2nddnBrthZqAr5ga7YgkxmNsFYngOI2VeTa5J5fj/QCVv 4h9pyWiFpwpTpV4NEEw9pWhWfixdrnOtAGvbtEqyv9VBOpY8nlE4HzONWHwk Wjrvc4A4nkKfYQvxdBWPVZ1+TOai1POFhxmHXMHBQ+MwelxlTJsRhumzPTFj jjdmzvHBrDmemM3rc70xY55css+a52n22cRcsy/QY85Cd3JP4cxf6cTbxR6C pctWyvh+zXo/bNjoi42bK2JDzOu4cnU+/YHnC7hgHtof/wft/tunC61hsWvZ UpubduHq9SE4dvxrJB98HvEJFbBxaxAx0yDuWbPnlrLc6+brMW1FZTQcFwT/ djroe7jCtbc/XEhzCm1IfHNr74cSzT1FjXzXGd1FHb7t2MX5Pib9XrlGtM6I uubxiuQ4Ra5yHDxm6O9KfVMnZWzNHp7WDO2rjF2njl+s9oG3y09l396yPYDH GjHXNnWWY3P6tgzOx9B/TF3Hn7R8l40WELl55lz2tX37sKpPH3R/4Xn8rC+O dhTnc9/Rof6ybpJrz9UadNaqouaSl4rL59zFuEbsXIMplgFuosZ9PNdX0frc ULqfK/NzcMyfUMGbYmwvoRlZK3IuKo20KMf9R6OCzCzlZbqGr8eig3GEtKfK xsPEQ3bBzGg/s75VNS7nuvg4R5V2BeYrjwe4rFoFYHOMrKOCbU72Ydg14tc2 jB33KsZNDMfkad6kST2FT5+hx1T2WZ7Cp8/ylk6ctfUZc/TCZ85xl6xV+Cs4 PFcvnH/rrFGXLPMgTUocXeuD9RsoDl1fA/sPdlTi+ftlzd/fTPk0niZvY2Uc e9wUsQHXzt65u5pi9+5IPfIOkpIrYMfOIKzf5IWlqw0iDphJ38nkKaUwabIr pk4lbTHFHWNnRqA13Q9DftDB65fi0Lf0h1szX5TgOds4l/6ZEzw+M6Df4n6C n9pxiwu71m7SvwaTGikM9ZD85Dj+N2UMTWYo1x11UcZ+76H0/VQZqnWVoSpP 8+lPbyuGCn6qeXlubyWGGltLHXr3MdShBTLUaluezKVw7WVGBo6vWIaFzZuh 7//VRgsvV7T0cBZjRHENUC+/UhgYqMegAPZSooZ9WAB7KeFDg6QPIV5y3RD7 YL+Swof4lsQovxKYTrqU81U8pjyPhSI0aUVfEX+nkEbkGtRD5GkKF1UWMiuZ q0eiLc4ak3l5ROwXJNdZmxKPtW2uqh8X/JVts5yX2lgpCFmDeG54zrHkqckF eVoeGE+1eY9sUSOzYGEzDBsVjnGT9Zgw2cvsE6d4Y/wUD0yc6olJ5MzYSdP1 wlXWTp7hLnyqwtwpM0kPzZa85cfTZukFZ5mnrJU4vmeOrqDYftUaI9asC8WW bZ8hNzcV5rHx/s7M/LP1oXa+RxPRQI59nU6X/xpcutIbh9PrkPZ8FvGJFLtv 9xe1DtzezPycPpu0AjFz9NjSGDbCBSNGeQgfMjoCjbpGwPXfOji9Rv5mCTnv xfMuqPBpNBr0aIit+7eKuspcTfun/RjeYhzvt17QFs4/eaAY69jmpaWrDFXH ee8i57ywYqiYR8Mmx2TPVf2pYSjPD29mKPNTYahPm2DRHioZ+je/Xh6SmbQr +f5+5fctcvh5clxmhaent21DzPBhGNegPrq/8jJ+iyyDxnoX/OJRHC3cndGS vC15Bw8ndHTXoateh+4GJ/QwyHH5+vi4oJfq9LinVzEMIH3L8f/yCF9Rf8Rt pSpHua2S2ywFS6OVeDxK9j2V+tQouGnRmwFmzcp+TOkLcKJqEE5WCRLtqtym qvopcxsAHY/WRRvtl5+JmlLzmCoPIZdk6VvMbQZXkZw8B/0GRmLkGC+K670w drxe+LiJtJxES+Ipr4+n9fFTvIQLztLvmBk7YYpeMJZ9ouLM28nT9MKZtdOm uwvtNG+eHgsXeWDpMh8sXynbSZeveBaXL22hz3ID+cZq/rtpjKLWvhd6z5N1 EfIedlGp9dxDcfsMHD/ZFCmHXkTC3rLYFm/Auk3uor2T20LmzKN71UyKpya5 YdRoDwweVhr9+ruiTz83Wvqic/eyaNSyJqq+4YZGXb7BuqS12LAnBrEHYnHi wvF7zJlhU0+lecwM7bWmD1x/pri6hbeM4dl5TPe2cm4g0YeI43iVoWosr2Vo bzu5d/WxVquqcbyGoaI9Qsy/UVowdNPxTUos72Bo/t+LdtwjzX55ij5Va9ez snBzfwoyNsYgedYMbB7QD0tat8LU777F6I8+wNDXXkWfZ55C16pR6BAZit/8 DWjq5YImpZ2FN1b8FzcduhFvZ/CcR+UCxTybnCuXHPXXcNTPzNFDyvhS7MzO VKX9VNWdatzP/OS4nfl5SuEn56HOKXmpjKqhog6Ac1fpSrvB5qcqg6BmPab/ Q7tGJEdv3z5K7HwT/Qf5YOgIPWnS0hg1Vk9eWvjocR4YozrzdaKHxSd5CP06 fpKXcF7nbcxbi57VC2eeMkc5tl+wkDWph9BWi5bUwOEj02Ucizuaz/Y346dd s64LLYid2u0mobezlXx7PLLvTMKZzF8obn8be5JriZw719SuWuuBJSvcRZvy zNmk6ad5invZ8FEUTw3To28/d3Tp+gTa/u6K1q398HPTsjiQGoMLV0/TJ7kt ajtziJy5yohCyvAWNp/Hfh2l1rlf+qgdoy0MbanU1qtxvMJQbSwvxvvsqbBT 5Wdvbduoje603U993Ms+Q9cdlvWhpnz33MfMCqiHNT9tez1q+1CqPFX9rupK H8zr12A6l4nbJ9JxLfUgLiTvwdn4OBzZsAHJixdj++TJWNl/AOY2b45JH72P sdGRWBzpj82kQ+MqyDxTYkVZlyTrTY1Cjx5QnHPugqEalkqGqrl9ozkHdVqp mcqsGoxz1YKVWin5mFnKz6madAtx9Nz0KZq+nXjIHGW7gridI9Clezj6D/YX +mbIcDcMGVFS8HQ4aZ6Ro/XCR4wuTXrVw8zY0ePdhDNfObZkxrKPm0A8neAh faJecQ/RbjeD4v05c72FJp2/qCTmLaiE+PheNjVO/xSGst37s0rtz+3cV5R8 0UHcurMSGZndkHr0vxS3V8WuJO6L4IV1Me5YsUrNG1HsPsMdkyZ7inM8fJQe AwZ5ED990KmLD1q0MOCbb0rgww+LY8GCPhBa3qo/W55V3X5+xBeNodP2zoTh Z3+4tPS2zCXEGpTnqOyo1Nh3seSU8jFUddv2UVuGanVrL7U9wFswVHCUGO3T LgjLDiwT/VDz9fV8bK3we7jco+DnrO7x9sYGFNdUrqVuXYzRd1cyN/uWqCda 36iBGOtUrX2KFxz1J4YSRytIjorxojUstdKjSg5JMJT8eBWZs1drTllzMj+1 DFUfn6sSKjUpcTexcggSm/xIP7XL8vMJDf7gAWp9qrNJ2qdj2MjP0aWHP/oO dBO/04FDSmPQCA9yN6FPpZc2c5V96Gg3DBtTWrBVdWasdDd6XFKyVvFxE0oL TcqairUVx6czZ1fEhvUtwf0WOYNRWO35/9pMtleinUbF/OOwKfzkOfpEP6M5 OHehHQ4f/wQpB5/Drj3RxE5/rN9oEPVKi5cYRNsxa3a+50yYKO9hQ4bq0X+A Ad16GtDudwMa1i9J7HRBo0bPY8mSsfQe1+n4dwv43PbOX57V9VXQ+eX56Ben LYVX0wC4tvIV/S0FP7UM1c552cPCUdFnyZajgqVK/ZI6l7BtzG+HoSI3rzB0 zp65NuM2/T2uj4dthf028rXRaMaJ0o7Zbb42C+CKXQ5rta6VllVqAbJvIqFv D8wIk33zt5czir6kzFBVi3It6R4tRysaLZqUYnfO4aeK2iWpQznvflLRl8xQ LTuzqoUKv0Aa9IK5hl/uk1Y9AhufrSX76N++k/9veSjGseUN7D+wFO06RKJ7 Hx/07meg36te8LT/YDcMHKyXTB3qpuhUD+HM18EjSwu2srN+VTnLPnSkm2Ct zHu4EQtKi7bWiRTrcz6ZOTF1WjmsWP4TfXdH8SgwFCJfw98d59kvKe2dh5B9 exXOZ/XFkeNf4UDaU2IMFh7jZf2m0jJuX24QbRycf+N2D24HEdqTzu+gwXqh PTt39UUL0oJffFEcP//0JNaumUCXbwZkG4hGT9r8Diw6VJ3ztYj9yel3xjmo 9adi4Nc0FKVa+8n4vV1p6zhe1aEcy3fX5JYKYihz0pahtvxUY3lmaE8/5bhu 8Pw9AFN3TbOqzfq7XB8P2+6HoVZPqg9NSj7kT50wm/54rEtvZWNHt86YSTrU zFDSofHlfMWYUYkVpcs8kzVH1dw9t5XmZ2gQTleR8Trz8QJpzYvVwsx+ibZx P6dLVUPFc8zR48TW+MrhuMpzHXM8fw+N8GBM9p/n/Mbseb+hVRsjutJ9v1dv N/Tq64be/d2IpXrhAwa6S43KTCXvP4Sd2eoh+DpgGPF2eGnBWWsvaXZm6pix Xhg/3ku0m44bH0lxaEP6KpihSiyviUX/1n097VyLMs9+FWJMkLztFLNPxrms ljh24hMcOPQCsbMK4naHivFZuP/W0uXuooZ2pojbZdsx32dErp3OF5/znr3c 0bmTD5o0dkedOgaMH9cWV68chzxffA+UNT6FjV9p/rw2q3bHw1c28HPM0O1Z OxDevKKFoaqrOlTVoCo7VVcZ2luN4/3kupmZynZbhtqw1Jyf71Eavh2CMWbr aDHWdK55rL7Hg6H3tAK+X7uJxDyTRp/a7mJ//Afb60usc1xPOnT9b80wO8KL YnkPbCsv43nWotxPNEG0jVoYqsb1gqVCi8p+SalKDT0zVMTxVYw4WzUI56oa RR9R1pyCm4pf1qxfUjRpJrH1cOVgpHzyvpwDJe+vaTOX5zIb167vR+9eb6Ft 2wB06uqOrj1d0aOPG7r3dkXPvu6CqZzL6NdfL7zPAHfhrFn5t95vEK0P9hCc zecD5XOsZ4cOY12qx+gxxIqR5TB/3k9Sr+G29ef6uzNUvf+YNSePqXQMXB9/ /eYcnM3sgKPpxM60mkhK9kfcLk9s3lqa2Okh+sFyjYJo85zNdQ3uos2Yz8mw 4XoMGuIlznXXHnqK3Y2o960LMbQa4mLnwlzDYD43lnxs/ryRxuz8xgDtb0Oj T5UdmKG7LyegStsakqHtDXDimnq1pkkbx2sYahXLMytFzZKv4kruyJahVq7R sD3UY5eGJzF0wNqBYp7SXOTvF/1YmS38Cvh+Cy68yH/dSLPPULv3KmbolStY 9FUdzI3g9lC9YCjXisZV4HZRmaMvjKOFMTSD+HmuitHcz555eaV6qNmv1ggT y8tmjoYKjsbVqAAT19uL8ZseRrt5/nOjzlF3+EgMfmtVCa3a6tG+0xPoQvET e9ce7ujWi3nqLrjKTO3Z11V4L4rHpJNupd8919v0VZbsvJ2f792HtvXVC+YO JK4OHkLadUA4li7tAOu8vJ0YxW4+5I9Z0XVLXoH7y3ZPPmdXlXg9Ebl5C3Dl Wk+cOfsDjhx7EwdSnyXdGSV0J48ryOOvLBf5InfRt0vki4idrMfVuH3I0NLi /PSgWLcTsalFSwPqfO6CXt3rIuNsMiza86+5t/B8lPuup6B2x2clQzvI/p3m vknafJImjrcwtIB4vsA2UOv6Jqs6UWKovn0QOi7pjKvE0DvI3/77977nPoLG eZv0Y5jx2otYrPSn5zmcmaFibhJiJ48Nwm2ju1SOVpA1T8xStX5UctTSR1St p9fG8ZeIjczKa9UDhV9WtKj28UWRYwpEUtUyONytM8mNa3bHIHkwZstQdds1 bNs2Hk1+DkDL1ga0/b0E2nd0Q8cubujQ9Ql0smGq2XvqBV8FY3u6ifiTl+y8 L3uXLq7o2pW36UVbQV9ia5euYYiNmwDLHPS2n8nehj+Xt7+/2E9lpdLGaTWG 5xHi5k7cyJ6PzPM9cezkt0g99hL2p5ZDYrK30J0bt7oL3cl1XByzz5rjKnQn t3mq7JQ5o9Kk1UsKfd+1hxfadzDix0Zu+PxzN8ya1R05d7k/7F+vu7gOM+32 YbzU9T+SoR2Vvp2qBrVlqFVe3mCHowa7vLTazw5DxfF6ekDfwR+/zm4h5ou6 33k9HfaAjdsauQ5qxzaMj47E8vL+Vgzl/p8cz8eXD1A4qmpRlaNGMRaUtg5f ZehxM0NDzQy9TAy9Vi0U12oEC7+qLFVnPXpJ2Te1ejns+OgdORbp3b8qt6Sa rL1fvKQfGjQ04NcWbmjdphSx1A3tOrqSl0DHznozUzt2c6V1YmtXV7kuHruJ tgDeLrzjE+jQgV7b3k3UM/5O63yMLl3c0alzFE6fjoeM4+2MB5nPChtjzvIy e37fJht8YOmHmQ6uh0feSmTfGYusy21xKuNbHD3+HlKPvIjkA7WwKylSjO/H Y1StXmcQNZ6Sne75dCfXMXAebsCgkqTb5X2nM52XVq188NVXLvixQXXExy6E yLk/SO1pm2uwfmg1zhozND33ON7o9bZkKHNT6yo/C2sPvRc/8+WSbF0Zx4QY augUhAaTfxRj9t2B7W/jn1QT94gYxcqnxo3B5HAfrC4fKBnK4+aVM5q1qMgv CT2qievLW2rwte2iqUrfTZWhZzUMZUYKzWnDTuG0XWUo5+zTa5bHplpR5v7z f217uWzjyzNdwqzZv6Pe9wb83NQbzX/T47fWJSnGL4nW5MzUNu1d0bbDE8RG 6bwutv1u4WWbdrS9TUm0bFUSLX4rieYtXPBbS3ptW4NYDhv+EWm587AaT7dQ 8N2LoWofdWZfLiR72O9onHnNmpLZRFpfaOArkP2GuAbpDCxjxR8W7Zu3c9bi 2vUZyLrQD6fONsGxEx8gLf0pHDgSIebfi0/wxJYdBlmjtEqOWTVvgbvIs6u5 ImbnKK75GqW0YwzmPkYyZ9S1q17ULP3UpBT++4kzenb/HBln9kGdd+qBXgP3 YKj2Ce5TecaUgQ8HfCprm7T87OxxnwwtKP9+r20KQ+l4Pl2DUHfc1zhrOutg 6P/QzLmqW9nY3qQR5oZ7YT1xcbMNQ1WOyrjewtAEpR+TNUfVMfRk/001lmcm XlJi9uvVJTOv1wzVMDRA+JXqsr30QvUwMfZzHMXzN0YOF/n5h8dQDY80tWSy re8OLS9jztxe+PJLT/zQwAU/N3NH0+ZupE3dhT5t3rIEWrRysXLe1rwlsfK3 UmKfX351QbNmbmja1AU//VQCjZo4o8nPJYjLpfDTzwZsiBkAyTHtFwRY5ry1 /fK0n9ve36NyU+XkVVgzkvVkhsJIzv+kkaeQJ9DLN5OvIKbPQPbdEbh6oxtp zWbIOP8NTpz6gLj5Bo4cexEHUp8mblYhzVnGSnMuW+Fhro1X6zvHT+Z6rtIi V8TtnVynMGCgQbYT93ZDt+6k59vT/ek3b3z9tQu+qBOMBfMGITfnovI3qGMT 5a+h/sPjKNwXQ3OQZbqAOkO/kgztbCeGL5ShhbSH2svPa7WpDVed6FheXQLw 3ogPcSTvqMh3FXYGHPn6B2xWSUvIXM2pk5j/wrNYGSHnaZYM9bdi6HaK7WPL ewstqtbeq7WjQo8qNfgpUX44GOUj+iulK/2TzHF8DQszmaM36LFlKRl6uRpx tIasezpdvQz2VgnFyVa/yjn0HpjZY4+1rjMPB25Sc87XEBMzAd98Vxb//cIF P9R3x4+N3dHoJzdiIDmzkfznX0qS83oJNPmppOKl0KhxSTT8sSQa1C9Bry2G 7753oqUOjZu4oVmLEJw6tRYyz2zzXZlz3qw1spV9OH9zQWmP1GrFdEUvMg8P KkxMIt9Jh9kBU95W5OVtQm7uBtzNWYU7OcuRfWsubmRPw5VrY3D5ylBcuNgT 57J+x5nMxjhxpi6On36HmPk8Dh+vitSjETiYFoB9KV7YTXpzW6yXqE0S3Fxl EP1WRX+BWe6i/8Ckye6ijxZrTm7rHDpcas7+A2SOrSexgHVn+44Ut7c2oEkj PT76oDhat3wdB/bHwHrOU/vf258ah+Y+GMq5b87f1Bv9g2RoF4WfnTXs5Pp3 TX19wTklg81SrRX1zs9QO9qUGere1Q8vD3wFyXf3i/p/B0P/QlO0jTBRX38H Fzasw8SIADE+szr/HTOUfbuGo5yjF3G9qHeSeSauHWWXWtSIvVG+xFFv0SbK fT15PHyu+WRtyfl31p7MTZWdN6pZWCrbQwPN7aFnapQRc40c+uFrMSfpwx8H rzBdJ/t3HzkSh06d6+Dtd93w0acuqPuNG76tV4qY6IYffiiJ+vVd8D0xUnpJ fPeDi1h+U6+Y6I/41VfO+LKuE7mOXqcTjO3SpTquXt4G5nT+v1Edl+OSwssj 5BTb5m0hJi5DTt403MoZiZu3++F6dmdcvdkGl6//jIvXfsSlqw1x8Wo90pB1 kXWpDs5f/AyZWR8hI+t90pRv4+y5t3Aq43WKyV/FidMvEy9fJl6+gCPHnyVe 1sbBw0+K/pdJ+ypgZ2I4YuODxLjR3A9T9CVaKvuxz5nnKcYB4XHoeCwQ1puj lD4FzM1Bg2V9J+eJuCaBY3ZuH+Z2Dm7LaPqLOz6r44zP/xuKmdP7UFhE9wbm gsmWl9p7nP1r4c9cI/diKNcRNZnYVDK0q6I/tRq0m7dlPqV7tocaCtafvT2t 60dtxiEROrR7AGr1qoW46/HKPFAO+58Y1zTduomtnTtgRhmLBrXHUM4tqfG8 ytF4pU+9tu5pjzKPE+fnmaGcT1LjeM4f3SAu3qzOHiqcH6t+rXqYuT2UuXuK nBm675s6wPXrf9HNtJB2JPH+OcjJvYA1aybix0bP4+VXnfDaG0746BPOHXug zheu+KxuceF1yD+vI9c/IUZ89pkTuY720+HLL3X0eh3attMTY6qTDp0u9aQ5 1lZz3ml0y0sizbiBGDmfmDiGmNiHONgKZ883IA7+V/Aw48LLtK02Mi7WRMal aJy9WB6ZF8sKz8gKwdmsYNo3EKcyA3EywxcnzvoSM404dtKXmOmLQ8f8kJJq FG2aiXv9EZfgJ+Z94vlKeQ6+Zas8hM6cN7+UyKlPm/6EZCaPuaIwk2N0wcyh Um8OGFha1HYxN0XNQjd3dOjkTux0R8tWemKnAV9944L33nNGx44fI/XQdlji 9oK+m4L7If1ZuxdDuZ699cy2CkMN+RnaVRkXxJahPT0Kzxnlq7H3tDBTo095 DH51PDzPngGI7FoRMVkxor+nw/5HxvVCZ05hxluviXk3eX44+ww1mueR0zJU clT6zvKWcZ44puc2Ue4vf756qKhVYjayBlUZmk2aVGUos1Pl52VFg3L8z/2V EipR7PjDNyKWf9g6NN9vyGqD+vu1tDNeu34Wa1bPxG+/fYrX/uOH2k/r8MKL Orz1rjPe/cAZ77/vjA9o+d6HTnj/Yx0+/USHL77Q4etvdWjwI/GzrY4444UJ k0KwbTv9jRRry3z3Zty+OxdXrvYj3dgCp89+jZNn3iPu/QcnM/+N0+efkby8 8BTOX/gX6cvqyLxQibZVIK5G0LIsMTMMpzPDiJd0Hk8H4tipQBw9Hoy0o0E4 cDhA8nI/z3cfgN1JAYjdFYDN2/yxPsYoxofmOU24vzqP0zlpqqtozxw/oTTG jHbBqFEuGDHCBYOHukiNOViOLcB5IY7Re3O9bC9XdO8ha7i49qBtB9Kc7VxF +zCzk9s8335bh/oNa2Pd2ul0O6d7h01fzb+T8ehPPJZ990U98MRvnrI/Z752 UG/p+XSorRYtKMekuh128vNqn9De7tD38kNYt3JYeGKxZKjVdeqwv8T4nN+5 gztrV2N82UCsiAzCJrMO1YucktZVlqpxvZanav3TTsV5ThEef4T7eGZVCxTx +XVi5M2aEWb9ya7G71c1NU3cDsr8PFs1DGlVy2BrpRAc7dBO9vl84GYTK6Io DLUdR0P2z0k9FIvJk/uiXr0X8BSx9NkXdHj9TR3efU9HGlVHmlTG7j82dkKz FiXQ5ncnUcczbqI35i8IwKrVVZByoCnOZvSkePoXMY7RkeMvEP+qUbxdDmfO h+LsBX9yX2Re8iW96U2sDCQPln4+GGcyg3E6I1DhJmnMU0biZgBSDxtxgJiZ ckBqzJ1J/sRMfzHGx4ZNRjEO9KLFcu6TiaQtx4wriWEji2HIMBdio7OoOeIx Ovnz9iU+9unjil69SqB3b6XutaerrJUlXnbu/AQ6dSqBDh1K4HdiJteDcX18 s18NaNxYj7pfSXZ++WUlzJ7dn+4Tx+kU38r3XfzdjPuk3yBWDVg1CKWEDi2t 9I33tsTxgp92dCgzU2jRe+SWtDG7DUMFR83jjOrh2tsP/t1DMT5lAn2qm+a2 c7v5R4c9eFPZQFziud957qW15Qtn6DYzRy0M3RHprck5SaYyQ/eU90Z6VJDo a3SZ+Sn0Z6gVP1WGMj8vK22g3I9J8jMUxyuHIrlqBJZUDMHNObOAW7ce4Al4 MLUflnEruC8q9xW5Qx/zItZtmInP6pTHB5844ctvdPi+gQ5Nf3VGq3Yuon6U +zZxXnrMODfMnuuHZcv9sCEmDNvjosTYmdwWmX6qFk6drUoeSQwNxelzxMjz gYKbZ8/7S6fY/Oy5UMHNU2cCceJMML0uWLCT4/P/Z+884KI4u7e9YomiCNIR RcTeWzQxxiRGY401PWpMorH3gooIKCp2jTW2GHtvIGDDih17773XmPIaBe7v nPPMzM4uizHvl2L+r+PvuG12Zll2L+5TnnNOnfUkdnrj0HEf7DvkLXPtE8U/ 95J5TtwDetFiT+l5yv730OGvYGCkEwYMzISIAZkRHpEJoeGZJHbJl7xeK4zX GWh1rv3JJw/t5yzrD3r3zSi1XsG9naV+qzvXInRxlrXt37RywQcfOqFWTSc0 b1YOc2aPwJ07F6D8drXOPd3ag+fJ+fwNGzOU9d6UzdORvZcv8dPZFAM1a1Cv 58gpOWCn+O+uapanPiPENCvE3KuZr2clpnpE5cHwXSMlxmBmaPrv08uapz9t 4zeYZzdduYwlb1WW/vUbpG+or8FQ7sPMxrX2YjpLC+v190qXbivgIfl7ft7W oJzYRcZ+/PXSyod/VC6PQ37yfey/3y/jh3tl1cxlKz/9pRfz9hKBWPx2ZeDc GZs5n///25/zWdK7F9n2M1D9nxITZ6NdBw/Sm84Ij3RF1Ah3jBrnTvoup2hP 7nHPfe9WxnjLXErO1ezcmx0HDrkQ99xx9oIPLl7xIy764fL13MJRset56NJP GV2/fJX2IT+d9z1/OQ89j9678z44ecYbR0944uBhb+nJuWO3FzZtdZOZoszs xUu8MWOGK0aOzIzQ/hbysS2kFTOgS1cnsa5ci0XGdaxdu2WUyx7khzMbu3XP qqxbdqnX6qLXInTgGgRXtG2bHS1bucrazDqkxTlm3KHDO1i2dDzu37uA5/bZ XyCGcn85zn/P37MQzj00HWr48W5WhtrVNaVlqB1Ldb1pZqhptpJNn3szU4mh rEV7r++jGAprzu0lQ/+GjfPx5MdfXroEP+T3w/oCKp/EtfW8Vv5ZDNXrRtWl H3HTXWbZs23NlxVHCrviKrOxbH6pBeW4px77VOzMLfyU2Gc51fvuFnH0JnH0 KnH0AvHzFGlQrmlaGuiOPYMiVF1T8t/Td0R7g/Dsz1raXgTWWK3Ko9+5uxdD hhZX3PzOHVNnuGPmHG+ZsbRgiafMoeT5yRx73LjZQ/oO797nigOHcwn7ThED z1zwFl3JxjHNi1cDxC5fzUPc9NHinJwX8hOf/cz5vMROP9GeR497Ez/9kLTP m/StmsPMNUjcl3P+fA9MnuSK8P6Z0KGdBS1IK7f4UsUaWrZywjetM6N1myxo 0zoL2rbJSuaEdm0z0n0ZpT5L3ZeV7nNG69ZZRWdybULzZs5o3NgJNWs54c2q Tvjgo2IYNrQTdu6KF31u1Z3pzCF+5oKq31+X9VduvPaB18yvProaOXp6W335 gbnS9rrT8khp13o6ioF6WGcg6/FOO146soyjVH6p5bJvpF7gd3tivNz+3O0p fc9//BGrv/4SCwM9ZYbSZjHFUMVRVWe/tbC7mFwnzclc1fNOXAfFz90Y5IqN AZmwv0BOXCP/nes7Ve4oAP8pTwwtn8fw3dmv5/joPW0tktKe/tKb5HxJH1nj tL9EANYVzo0Fr5cDzp6m1/tEcf9v257nu5re42pN5M1biaQ5S8rcpTnzPTGf fHael7ycuBkd643YeI5DepPf7yV8Y524Z78HMdQbR4554uQpFcdkTcl8ZI3J duFKAC5cJnZe8tPyRMTOC36y36kz/lrc01v0J/Nz925fOT73+Yhe7YYFi7wx abIvgoMt+KKpBR82JmuSAR9/kknss8+zoGnTLGjePBu+aJ4DzZpmk+tsfL1p sxzEypykMZ3RpEkW1K1rQY13Laj6tgVvvcU1W2URGfkN1m9YhFu3uY9f2jy7 FZPP6EPq8PfxzzGUXyuvB9p0bjPcevwOQzn2OSSnnQ51XOup7nNRHH0GM1mP 2mhSbS7oB/M+wd3Uuzbr418y9K/dRC/x2vM9uzCtZGFEF8otGpR5yGbVooqT okeZo8zPAnyfxltNe27M74wt+bJIDPRqhYJ4UD6/1Hw+rpBf8ZP05S/lchu5 owcaP5mdN0ivct5JZiSXVGvtuc/zxiJ5ZY7z2UnjSS9zLunZNYH//eYoR/Rf fEdtXhb7qQ9w7vwKTJ9RXOYl65pT2LnGE/HrfbB+kw94vjzXqCfu8pJaoqSD 3th/yAuHj3rj2Ak/0pSkyc8SS5mRF/3FT2dmsrGvz+w8dc5bWCv686Q/8dMf h4744sBBX+zZ642dO32xaYuXzLRfujSX1ACEh7kT/yyoWcOC2qQZa9d1Qt36 WVCvQRbUb5gNDenyfbqvTm2OYVrwXg3FyCpVLKhc2YKKFenydXpO3XykX6si PLwN5s8dh4P7N+HhQ55l8lh7H54i9Rnr25+13sgWp2l70f2tW6piKK9V2nNj L3L3CZB4qJNRF/o8DLU3E0NN+jPNvHnT/Y5m0decXgeXnlySWMPLPiN/15Yi NaGHIvpjTj43xBEPFUO9ZI7SZo2dzMotxnWdnx6ynxhpzy3ku+8JzCIz6O6+ WgCPKgTh5wpKdwo/tTgoa09hJ/GU8/Q8j47ZeYnsvPS+VzPvkor6YnNhP3ld P9StrXqHav2a/pq6pj/K0Of5jP4qtZ17k8Zizryiap78ak9h55oNfsLODVt8 sCmR3t9EL2zb6YWdSV6SK+ecOddncv6cGcprglhbnjxHPNWYqWtOsXP+8viJ 09a8+2F6/oGDugb1xrbtHkjY6IE40r0LFvph7Lf+aNTIglJlLChd2oKSJemy bFqr9HpG1KjugSaNixEn30SXLg0RObAdpk0fgvjYOdi3PwFXLx/Hr/+5C7OP bu6T9zyb4znJLx5DVUQ0GcfuH0ORsOK2a+RNDNX7KukMtVnrqdeJ2vvyZh/+ d7SoxWyj3VBh3Bs4/tMJqV99ydD/YpO0cIqtPXPRV4qKK16+hEVVKyGG2Lm+ oK8WC7WtD90ietRqug7l+Oe2QGfsIjtaxBvXywfhYcUCBjvFbyd+6muRWH+q HiK5JeYpfntJNTOZ80bHS+QR7bmL+JlQyEdioMO8nXFx5Uqll/9WH/7P2H6R NZfrE7piybKiWB3vLnN9eTY6606eVbl1u4/Ur7P+TNzlgd37vEiDeol+PHJM +eLHTnobDGWdKXrUbJr25H1436PHfei5/ioGSgzdneQhcdCtie7C0JjVfpi/ oDA6dbag/Ktcw1oKzb6oia7dm2Hw4J747ruhWLxkBtavX449SRtx9NgeXCJG 3rt7BY8f3wek/ojn8Or9SvQeJnpPk3/b7+mPb8yoc4/OodKgytoMupyKn5KX Z2Nu2vZftvb8TM+PN82kM8yB9rThpzcso+hyrBsKjSiGPXf2SJwh/dl0f3IM 5Fl5Pgf80XuI/7H4t+PTPnO3Z+xg5H3tH9dnIelzPPm6uUYkzf7J0qPp7Jwf MDPQE+sK+Eg+Xteh4p+buLmxkDLRpkE5kJg/B/YGZsVJ8ttvlM6PH18tjJ9e 1fip5Y4k315G5YvuaezU8+08F4TXLrFu5dkh3KeE58lvL+yLdYV8ZR7eGI+M mM/96x/9mPZvwgsZ5LH/bP5Ib/EeYtZniI4rRtrTG+s2esl6n83bfER3Mju5 PnNXEv3t2OchdUcHDH76GPwUX15nqMk4565rT9arip8+mg/vjT2kQXdJLknF WjckuCMmJgAzfyiOjZtCcO7cNtx7cB1Pkrlfk73fzT6h7he+rDe03649voZq I95T/Zf12UnM0MGsP3Mps8vLpzvf07y202bGpx1DDd3pKZZxtB/dpnOPzY68 w4Ow5vxaqRl4cRnqIPZtfvKf9b1O51jmHobKNC35mD77P/8MnD4NbNuC5E0J wPFjak3kfx6r+fNPtJnJydosT5lJfxPLPmqMpUH0vQ7y0NjpJfpSjHPyQTnJ cmBrfmex7aQ59xbIKfHKq+WC8KBSYfz6aiHx063czI2fyuWXfLueL+K5x1Z2 qn54XPfEfUm4TwlrT66n4l4nC/xdMdHXGZH+Hrgdt9qoZXqh4+Oaj2d7333c ubscy6PfQdz6QtiwmbWn7rf7YMceXzJv0Z579/tK3RHnkbiGk1nIXFT8NJu3 Zn6a9jTz09/qwx/2wn46HjN0J51j2w5i6FZfYqgXYlcXw7y5b+PnR5sh60ml ptU6g+hFyNv8G7YHqQ/RaEITZOjjhowRdvWhokFNuXlHM+kc9aq3n5FsXxOq MTQD5+L1y1HE2TGu8BuaD/MPLZA1VMnpMTTV4dUXansWi23iOXb91Rw/2f5u 02da5nGq2UfYn4S7oX1xotbbOFKhCI6+WhRHq1fFT1FDgL17gavXJffOM+Zl //8o5iavWoEfgrwRm598vMAcipv5XbGNLlln7mQ/PV8WHAjKiqMFs+FMUU+J Xd7jeCex81FFjnvmE+0pvevKK82pZiLlk3Xu10v6yRxPngXCvZh5zRKz8xhp T54jwmtCWXuuL+SFFfQ6ZvtlwzSvzBjl54JZn39GX/EfVe0AbP9U/fU9R/7g pr0wm9eVegunz45ETHx5JGwOkrgna8/tu31Ed+7e54vd+72xl/TivkNaDPQY +eIn/YSLzEjRnmfzahrU34ahBj/Ff/cT/cn85Dw8a9B9+72kbzwzdPsuf4Oh q2OKYvHienj0cCtU3yd+sS95+Uc3nqPZfMaXyNA7pzDUmlfSmDkkrQZ95jpP m/pQK0OZn1K/5ICheizUMtoF3kMDMH7bBPyU+rPDmSCy/VUM/aMC53dYZ/Ow zWt29Dc+Je0BbLYUEzdM3NVmx/0Wvxo7iZ2HSwbgammtxpJ0Hs8h3lciL3a/ 9RqOtvwSF8JDcWvit/hl0Xwkr40HNm7EieafSX+m3cX8JA7JevBw8bzS2+ME He9sGe7bmR83yU+/W6koHr5WlHx25a//rPWue6j1SjbXJ/GaJOYm85b9dYl3 Flc9mTlfxOfiNUzbtfhAPGnPpQFumOmXFZO8smBKbldE5fXG5ZhY0stP1RoA 07vxgtEz/S31KunAzliXUBibE3MTPz1k9i+zk/Uhr03fd4je9yN+sladffjD HP88rfFTi3dKvkiLe9r771w/evS4u8ZPb+XDE4uZn3tJ3+5OUn4869DNW72w YaMHYuOKYtHiGnh4n3vsPXToR6X9G/WSsfYb671OCzsjS3AuZAoz9Ryxqa/3 EkvDUPt+TPb9QQ2Ops3RO5l1qPDTTXSoBzE0NCbMdiaIbH/d782Gc4abnP75 nhe1z7824L/IMUruKFVpybgYJFQujX2lFe+4Jv2i5GjyqPx2qfzYV8xf/GS2 PSXzYm+ZQOwrWwiHyxfC2QoFcf31YrhViaxiYdyuWFRYqds90pr3KxYS3Xmv QhDukK/Ops+Bl7nw5dSa9mul/MRPV/n1POKrMzfZ5+dezNx7hHs57SmqepFy LelaslWkeef6u2CaT1ZMI+05NY8bJtDl/IYNyFl6gL9rjud/uznMJcsauyf0 0k9j2/aPsXFrXiTu8pWcO/vte8jHZt3J3Nx/lPT4MT8cOuZP/FT9P06cVXkj Pfdu5N81liqGmvNHnsJPpUH9pJaJc/FSz0QaNJHYvW27jzB0fYI74tYUwoJF lXH71gqoPnpw+Bm0/dleMtR++4V0aHjcAGTr5YEs4V7p9K/3sl3zaa5pMvoz uTlm6NBcaXL09nFRM0NzReVB+4UdcJ9+p7/93Qw1nevPYGj6Wzqfw3TriB0d IkXFB0+dRux772FjyWLYXqok9pQoQvouwOglv1/6eXphP/nIh+nyWBEPnC7q If74BWLaRbLLWm951otXZU6Hv/jebNxvnnvVXZd58AESyzT2JePrl3nGBx3j QnGr1lTM5HlKeSVPxK+Fe+FxHxJm5yby25mdXAewiLTnD37Ows5pfq6Y7pcd U/J5YpifG64tmK9itv/KPIaqrf/pUSISNr1L/PQX351rliRnRL421y2x387c PHLCX+zoKX9DfzIzue5TN6N23szQE36aD++PQ4f9DX6KBk2iv1d7iNu7fUmH +moM9ZG8/Jq1QViytBzOn5sC6a0nW3rv88vYaHrbL/Rvws5Jst7zWQx1GuJt qg819x15xqwPc07pWbVOo1wNjroN9cfnM5vhWuo1WUdl3f6J39vvfG7SwPQZ MU6H+6R3nHTy/fpN1gWcF/rpERJDwzGl6KtYULYmZlb8ALNL10J04eKk7/xs ajhl3SVpvV3kM+8mniZxLyXi66EiXjhCbDtCbGUfWzdm4CmtTvN0iQDh4qli Psbtk8XJz9dmfJyQmUmaj05s5n6hwszCqq89z65L1NaEcr6Ia6eYnYsDvTCb 9OZ0X2dM9c2KGbld8L2/K2bldcFE4uqUOjWAmze12gL1c1vjwS/ellaLMvvv 4MrVRUjYXMnKz8O+4q9zzkiYedJPuMnaky+PnVb81Ovnz1/KjXOXVM8Qg6Pn VG6efXk9j6Qz9ADHBQ5wHNTXYOiOXbnFj9+6zddg6LoN+bBiZTHSqSGQ3qTP 5ONLhqa3cb/jRceXIFd3X+To72vXgzlnGoZa+4e6WefKO+w94mbKz7v8LkN1 jrpG+eH9yQ1wKuXUC8BQ/bzP+7lJsbmmT43lSpH/aParZvptfuwJrJlQh+6U IxY/oWccPIohletgZLXWmPLFSEzsMAuTW07Cd1VbYEbBCoguGIj4IDfJFbGt ze8p6+A3BHnK+iO995L0qeOe9IWV6X0/mX96T/p95tmdJtNnKDGT92nz6Vhr qv5NPtJvlLnJ9VLrgrwQQ69hWT53zM/jiu9Jb04T/Una09/Kz9l5nTGc7j88 Yzq9Qbb1oCoqbK3ZfpHc+7QMVXWhh44MxpYd5cR312vmxV8ndh45TewkZh4/ o3p4Hpf6+bzCSWM95xXV69NYA3/B21iLpDPUPo/EDOU4KPvxXFcvGpRjodtU jyauS127zgfR0fmQkNAcqtfz/0ZN55+9cQ3Rhqsb4dM1j8wnTqNDh6QXD1X1 9xmjvOAwt+TovmdwNIOWb2Id+saYt3HgPwfltTnc/qovj73eS3MarT4ujdk+ hz+JzMcHdOPUfWDrWWBFEjA38SlmbX2KOdufYuleYOMp4Mht4PpvaiKOvorY YXzW/ucl8O6YthAdq7ZE9/aL0T50N9pEHkGvQYcwKDgWoe90xrQCpbEyvxsx yxXLA90QTRzlfkyx+V2FreuIZ8w1ZqrO1c1aj6YtpvXxem8mNnNfO/0+6duk 7aev/eT6KD7mOtK/8aQ5+dxcKz8/rxuxMyum+WYmnz2rMuLnTLpf8dMVM/Jk x/QqrwJXrqg80osEyj+0PST87yF+fYNde8ti/xFVr8T5ItacrDePkd48fk5x U9YekZ067y96k5mp81P1r8stmpQfU2vhfWx8eftcvOHH7/IQfloZ6iEMXb/B B3FxflgVXR2PftoH8zr2F63c4UXeeP5b0oN9KNmnFFxCvU1rlfRaejebeKg9 Q5+rF579GlB70+Okw93gMSwPig8phW0Pt6ffz/4fYyhvafmpc5P1JLPz0gNg 5c77GDj7JL4ZfQAfRO5H48jjqD/oJOpFnkLDIWfRePBJfDT4GFqOOY6+M05h Wvw17Dqbitv/UTpV7wSW7meZTvhdxFR8/fEINOi6AW/3P44akZfQYNAFfBVx CL1a/YBhRd/G3ABPMjfpI7IwQHFsWaALsdVVuMa6kI11KufF1xJb2Zh9YgU9 xVi/rgtyV7wt4IoE4u36Am6kL90lp88m+xTwkeNwfWcM7c/n4XMuID7OZN3J OSP/7LL2fbq/M7HTxWDnHNKfs/J74Fva7+CwIUqD/pu/y6n38NPPMdiS+D72 HiiFA8TOIyd8hJ+sOU+c9Rde8ppNXv+u2+mLqqeI3p/pwhU/6cckHJVedlaG 6jWh7McbDD1km0varjGU1ycxQ3ld1MbNPsRQD6xZ44Olyyrg8qVVUDWi2ifP UY3Wy83hxuuBTv3nFN4ZWA0ufYmHA3I47tuk1YcyM3n+EVva9fNq1rG5Dt82 j28XO7Vf0zTMlRjqJ/3sY67F/v0MfdZp0jmf7lkyO8/TR3DG2gdoNeoI6oYf RENiZqOhF9FgxDU0HnmT7JZYkxGa0X1NhtFjURfRaNAZYuoJBH9/WTTrlV9h 7eTt4NzJdN+gkTGo0fx7VOuyAdVCDqLGwHOoO5g4OuAE2nRehYgKTTA5IC9m 5PXE7AAP4SnrwIXEUDbO5QhT87mLXl2Vj7QqWQzdFxPopkw4q2IBsYHMRi/h YzzxNU5jJd+/Op/iMXN5Jd23JMhN1hjNIi7O0Hx2zhWx5rT67W6YTSydR379 PNqPOTs9nzfGvloaOHHCpj+o9S34d/SiUevIbuLq9YnErzdx4HBxHD7pr+Xb 1Xr3UxfyGsw8c0ldsp3V9Cf3T2Z28qV+Xe/LpPqB+mkMzSv8VLFQtS5J/Pg9 XhpDlQbl9UlmHZpADF27zhMrV5WifaM0f55npf6D69D/hdtvMmf+OhoOb4Ts wcS8gTmtDLXvX68xU2eo7Xolze+3Yyg/J0N6OlXP4Ru1+a4yEyR3ZH7MPTVP alcdbn8jQ21u2/1N5tIi1p5M+nUHHqHtqL2oE5qEOoPO4/1ht1Fv+F28P+Ke WP3R91F/pLJGI5Q1HvmAbj9E/RGPaJ8Hct/7UZfReNAx9Jx2AglHnoiP/wSa Hk21/ujXHqSiSacfUOmrBXizSwKqh+xHPTpvvairqD34LJp2iUOfys0wPG8B TMrjTbrPg3xkD/GZZ2oxR9anC0ibsj5dlI+4R4xdks9NmMr+vx4DYGPGrmDW 0n583bB8Kr7JLObnMpfnB7jgB3/lp08ln13XnTOIler8bsLPOXndhZ8cG2V+ MnPHEV/X9w9VNVvJtjX1/558hr7+4RqOnggmjpXDwWOFJV/E8U5mp/QLuaTH PO1M890vXw/QLLeY3pNe721n7Wvnb6yLV71FPGRt/M49qn+eXtO0ZavGz81u klMSHbqW/vatLor4+GZIST4ANW8etmvhUtJ+2V4i1rpxDSbXYn418WuZCeKk 55IiTT1GBrv9zppPzXRdqu/jgME6U9kymmctaUzlPsw+kXkwPmkcfiKGPis/ /Wdtf7QsU89sMNvukuszceU1NAhJRL3ww6g/hPg59Box9KZYvRG3NY5aGZrW Hlr5OvI2sfQG+fvnxNcfF30PVx+ZfHuouMHaxNMo02gYKrZcgqqdN+K90IPC UGZw7UFn8VnnWHR6rRkicgdhlL8PJuZ2wWQyrlufSpyaEWBlGWtU5hnr1Hl5 FFOFaQGuygIVG5mzbIuJl3xb7eeGecRQ6atE2pJz61N9s0uenXUnxzZnar46 a85ZubOr62R8Ln7+QuE4cZSYPbFIPvxn/361Jsnmu5tOX8kXbtM5n0wv/xyS DrTA7v2Fcfh4oGhQjnsyQ816UzHTT8x8m2cgmY3714sWvWxlqL42SdZ18hqn A1p/Jo2h7MebGbppCzF0i+o5wmvm1633RlxcEJYtewM3by401Tgh/Z4MeIHf /n9g0+d7Bs/prXoxSzw0h60WNfnoZk4aDNXX1ev76z2fzOtD02FoRrsafc5R uUb6YuCWgfK6XiSGKr891eDnbRKgkTP3o2avbag94DTpz0uoM/gK6hJD65GP Xn/4LbLbhhY1NKnGy3oj6fYoW57qvBXmDr2NhgOPI2TKMZy4Yc3hM0+HTYlG iQbDUKnlcmFojX4HhKH1h9L5ib8fdIpFwyL18XVOD3R1yYKBXlll3eR4k31H zPvOj31rN9Gp35PPz1r1h7weVu7pxpzN56nxVvGQ65KYm9O1HNFU7yzCTz4e H2sW7y9xThXrnKfZHO0+jisohtL1QE/ie3YktG+j1qGmpD77l5JOPfg/tdm+ FP4r9xiPHx/Ejj0NsfdQftKjgYYG5b6fSm/6GOy0+usBojX5OnNTZn3cVPOL DYZeyS11TxwPZYZyTt6cS1IM9ZOaUJ6VxH584jZen+SOjZuVMT/XJ7jJDKX4 NQHkzxfFvqQ+9EPQB81mTZz+U6VYf1Dj57W97391U3OVfsHIuNFw7eFlM9NT +DhIi3MOyWWrO4c41piyvzaXXuYqR3rYMNXJgZY14qtar/xX6HndY3vIes/f i0f+HZueP9JfBn9DOPcTOv0QqvXYhNoRx/DegLOk/y6J1Yu6pmzoDfHpmaMN bDh6Pw1PdX7qlxwHaDjsLhoNv45Gg0+h/fgjOHzVWhfVvt9UFGs0HBVIh1bp lEAMPSSx0PrE7nqkQz/tk4BlczdiXsQgRNSrja75fNEvVxYM9siIKK8sGEas G+XnjLGkGzmHM55YOIF7fBAXJ5NNIZuqGV+f4u8hxtydTM+d5JMFU5iZZMzP mbmdxS9fEOAlmpaNOTtH9Kar4bOL5bXGEHSty+v1RxfOi183bVT9pp6Zz/iH e0c62NIy9Bf89PMObN1RHUmH8+LIqbwqh0QMPXPJz9Ca5ninsnyKn9cVN3nu 3NVbfjLD8/INH+EoM5bzSmkZaptLkppQ7qlHlpjog63EUNGhm3QdynPo3LFm nR9i4wIQF1sPv/12FHp+Pm1NCuze75cM5U2fqzR351xiqFbbZPQccRwP/V2G GvWl2ozQgXZ5Krt8lWhR4qceY+XntVrS+oVjqM5P7g42cu4+VO2yBjX6H0b1 iBOoMZAYGnlBGFpn8GXSgldRN+q6MFTnqNWvT6tL09ynMZS1KLO47sBj6Dg2 CSduqzqoL3tNQLHGI8WX1xnKOrj+sOu072l8PWQnfmLgch3pwwdI3bcX82vV wEjPjGLD3TNguJsFI3IpG+3uJDbWM7PYeOLsBJON5/vIJnsr4xgna9W5nHPP 72UwcYGmLXVusvEaTuGr9piN/67FDCbRfYu+bK56TD1Ntv8FOF7L8AIx1PY1 sbfwM+49SEDC1irYd8Rf6kA5jyQalGvmtXw785Lnb+oxz8s3rAxlfl656YPr PLfzljLe96KZoSf8ZH3ngUMe1ppQLZek6up9sS0xN7YmWnWoYqgvEhJUbp7z SvHx3li2vByuXNHWfdrUZr/cnrXxXCXOK609td7EUPt4qMmiPIycfCbiXSZz P1FNg2ZmDcrsHOBmmJN9f3yTLnXSjmXoVNr3k9lN8SD1wT/zFUm1v2r1bVgD zt90A+90Wo4afXaieuhh1Agjhg44Rf68maNXND16XRioNOlNg6fMSLZ6mr0/ 8o4wVnx/fR/i5/vMTz7GkIsSb+017TRuPwV6DV+CIg1Ih369GG922oCaIQeI oReJu9dQN/IMWg7fi9sMe65P5554Bw9g4aulEV3YH6sK58aS/KrWidnGNUcz fLJiundGTPNywlTPDHJ9BtkPpDe5hxLrR8k9BbjJc5cV9JRLa2zU1TCdkczV +SZuzve3xj+NeGugqhMYQ8e4GhercvH2PZbT1Jw9ey3uP7PZM/QRbt9bIwxN Oqxq6U+dD7D68TJLTvnnMotT89uZoYqlPsLPa7f9tHnxPAM5L67SPpeuBBgz 4rk3M/cX4f52nEtifnJN/Y5dPpof76utTVIalGfdSU6e+LkhwRfr1rsTQ90k t7RqVTFs3xkq6wJUfv7l9jybPhMk6eZ+5OldQDHPLoZpcFLXn1pfexvfXPfh iX/MUIOfen983fT5oRpPM0eafHw9hkqPN5jWBLdSbv4z35V0Yuj8zTh04Qne 774S73TfjOp9kkT/1eh/VDhaK8KWo3WHXBE9qvv1Vo7eTKtPR+psvW19jPdj hg69Rse7rOKtoUmYs+khFm68gYL1R6HCV4vwdscN9Fr2kf68IAxlX/7rYUm4 waP9ntL799PPiGvfhvSiL9YX8JEaTu5vvLZQbsQV9EUs+dAxRdhyI7qoyYi3 bDEFcyOmkFrbHhPE9UtuWBXEeXpXLA1wkV5L9gx1ZAvJz1d1qmo/YS8xlPNO CxvWBu7fN3osPzsU+iIy1LypWci3767D+o2vY9+hvDh6UvnyzNBzmh8vM461 fJH47TfzEUfzayz1MzSoYijZ7TwyO/7KNcVQmXV83Ft6hBr9mXZ7YNcuL6Oe Sc8lMUM3S12omaGqzp7zSjwLb3VsYUTH1Mcvv2wC14q+7DXyfFsq1EyQkz+e QrkBFVU/e/MapSGmXLsdQ+19c9aaGQd4IMsAuoxgftK+4W7qmHwZrjjK++gx U7PpPGW+Vp9YC5ceX/rnvyuaBmLv8iH912vselTtuArVem1H9d57hV3vahx9 L1xxtJbm17MuZL9e9+2ZpZyzZybW1fSp8HT4dWV0vc6wWwZv6+kalJ7HulZ8 9YEn0HRwEiateYSiH04Rhr7VYT1q9N2v5ZSuof7gs/gyag+uskv2OBk/x6zC dO7vQRxUdfCkPbhuvpCXqqEvoHonsfGaIsOCfMR4bdNqbZ0m145KHWl+d2Eo 1z0xRxcGOBt6lDWmvSkd62Vo2UWkPbkeal5+H9Kgnrg8b3bamnqbX/2/6fur ZiHff7AN6za8hT37AyQvf+KMyidxPv6C/Zx4PfZJHOXYp+7HX7udWzh6825e MeYo61aOp7IO5V5N5npQ5udOnieyU8VBWYMqhnpZY6HMUK22SWcoz6eLj8+P lSvL4OTxYVDr51+u/XyeTeWaU3DtyTVUH1kTln52DI3ysM3Pmxlqp0GZjWIR Wj9nZmdYLhuG8v1iAzysvUo1Y4aqY+VE5dFVcfaXc//sXCXT95mjQ7G77+Kd 1rPxTrd1qNpzO3F0l2hRrs18106Pco7JytJLNhzlyzpRKl7K+XuphRp6zWCm jWnPqR15SXRmnYjTqBt2CI3C9qLYZ7NQrsUCw5evG3lOdGj9wefQbOBO3LxF L/rej4ht1ADLSDsyI5mhBjuD3NVtk/F9iqvusg6U1xzFm2rpmaHMT+boCq2G lBm6JJ9LGp/exgLdjDpUvs37cz0p1/9Pr1kduH7V6C2S9v1/0XWnbbhB9Xd9 ip9/PkCMqkOaMAgHjuSV+lBZx3k5t9Ki17UaUE2H6szUjXNJbNdJgzI/b91T evTaTRVH5Tp7joWqHste4r/v2OmBHTtUDmnbNqVB9ZomK0M5HuqmcvPCUD+s WU+/4zWkR+PyYeP6D5GSfAIqcpV2hrHtjZf6lDd+K35M/REfTPoYFu7FzDpx kIeVofqlufedmaEaP18Z6GVwUvGTrH8ONWeErmfozyzVeBqhx0tzCEuNGKqW fyoZVQ5HHxz/HYb+2b+/tMfT1yHdfwy0GRSPKu1WoWrXDajSfQtxdCfe6bUb 1frsFY7a+/W1Is5oLD1vsFTPORl5J82MXL5mxmODrgg/5fkDzkusoFb4cdQK 3YfyLVei3FdLVU6JdWjkRcXjqMto1m8bfrqWgnOz5+H7IPqOED/1NZvsz1tN Y2dBN2NdpyOGxurrQjWGqpp7V60WX9XX6zX2up9uMDWv4is/vlj4qa5zTf+E 3B44PGWKzHRKf9bcH+lV/c9saV8KKZOUC9iw4RNs2loMSfvzS48mvb6JOXr+ Wm5rDZPBUD/Ncgs7WZPydWYnM5SNecralfNKrEP3JLka6zm5holtK8+541mh W7zEVE2TLUO5tsnw5de5S0x0TTz9fVzxKq5dXekwt5Tq8Ad+yVDeuBdz2znt 4BScKy1DdTPPAtEZquXhlQ/vYTBUeBlKPOznDEuIxlG6nYGZqutSu5xTZj2P P8gZQRGFkHR7n8Rq/0mG8i3+FK3ddQVVW84iXq2RdUFVum7Cmz0SFUeDdwlH 3+27TzhaPfSIcPS9/ieEo7VNHHXEUvHTbUxj7GAVA+Xn8PNrhZ9VXA4/iVr9 ua5qC0p9tRJvdNooDOf9OC/PHP2i9xaciD2EWTXqYFnBfMZ6draEAr7YEGTi qOhS0xp53RwwlPlpz1B9jZLZdIay6XknpT1dhKOsSbmm//vXKwGXLqs1Sam2 /QEcx+NeTIbab6o+/Rb27OuHmLiS2LG7gPRa5rioqrP30+KiplpQhwzNrWlR 8ufv58Ht+3nFOL90iZ7PtU2792TH1kQXI2+kc9PKTw/DdD9er7Fnf54Zyrl5 sXg3RK8qhsQtwfT6z4OrUBy+xS/we/+PbKmQtelhsRHIFuxFPPS2zqSLSlvL ZNTYm+rpLVoeXuKg4UpzZuibDZY+zqJtM/TVeBqawzY+qhtxN4vu30dmg39Y fiReSZT+dynpxmX+eoZKLRP912NENCp/PQdvdiAt2nGdxtEtGke3K44G7xGO Vg85KBytFXpcOPpe+GkTS215WnPQBaOutCbpTfH7B13UHr8k9l7kedSg5+v8 rB56TGnePrtRvnU8KnVM0Bh6zogNfNNnC8Z/2BvfFy6F6ML5TKzU+t8JUxVD zbqTbU0BZdwrL474x2YwNNDLIUOtjLRqTP26kc83MZTzW+P93HBgaJQ1Dvo7 38u0fuSLvj3EzVurMH/RG9i4pTjxNC8OHlU+vbnOievqVX7JR6sFVfw0m56f Zx1qcPR2PtKiAdi9NzuxMYswUWejfl2YaWhPxU7OJ1nXKVnz8vFr3IShcasL IDq6Nh7cjxMt6lDDvGSo7Zaq+ohO3jVF1iplidAYatagQ2zXcZrXI+kxTNGU wk/yz0OckaE3MbOXM5x60mPBORRPRZPacVTPPYVreXxiqHe/PFh3dp30lfr7 GKof07pxLv7IpWTU+GYK3my9GFXax+GNjoqj7EMLR8Wv3463eu1UHO2dRCw9 gBohh1GzH/Eu9ITSpawfxcdX8VLDiJFiAzS9OdDK2vcGnBN+Vo84qWqo+h+X YzKnq/XejddIg77WabPBUJWfuoa2fRIxvFo7LChSDrEFgxQfTT2YbGKguv+u MZR1p85QoweTiaH6WnkzQ5UpP53z9GaGmq/r+8wM9MGEV8tpvUWSjc/hczH0 Rfz+OnxNv5IevYgVq9qTFSVf21/ySweOWTnKepRzTMxRPTbK+ST24XV+3iDf XWpEtdwS8/POg3x0GYjrNwvi0JFciFtjQRzzj3xxXnvEti7BQ2Z+sJn1p+ST EpQvzwzVdajiKP3O4wKwamUJHNwfqq1bMn//rN+5lz2drFtqquojuvzUCunF nCXM1+rLm81RPb2uQdkP1+OgoRoviZ+WbqRFu+VAph60Xy830aROITmVb98/ lzLN/88U5qFiqQNzwDPEHyuOrhS2p0ityF/PUOvaNq1PKF1nP/6H1adRsfk0 VG69FJXbrlYc7bAWbxJD3+y8EVW7bBKOvt1juzVGGpwkOXtm3bv9Dgv7xISl Vp5yXWkNLW6qa02ds8Ja2o/35+dVp+e/2+8oqvc9gmp99ov25fMKQ7m2SWNo XbLWITsw6v1gzCr2OmIKF0jLzALutpcmhq4Jcpf+omY/fnWQp+HLrwpyt+Oo u40pVrordppZqvn4fMlrTTcNiCDM/Mdm1txz1c6bHn9hvsUO16by5/YnXLgY j6kziiN2bRC27gjE7v1+ml+v9b/T+i3br/HUOcoMvWFc2nL0zv0CuHqjJHHR giVLLVgZnRUxse6SH+JcO69DYpbqutPw4SUWqtYqMUPZDIbGa+uW4urQr4f7 kHCtqF1u6SU/02ys97bdTETeHvmRM8xPmzH/HAyNzGn48cxC9uEz93NTupPY aemQBZb2xNJObnDqnlM4mkHz7TMQPzMQN/X8E98Whg5whmsfX8zbt0DWoSb/ jQy1Hldtv9LVzlGxKP/FLLzWeiVeaxMjHH2jXazG0Q3KmKWsSbttwzsGR62a tJqwVIuV9icOhh01eGrm6nt83WSyH+9Pz2MWv9vnkOJnr72ifVkHv955i+SU zAxtGboHw5oMwPQSbyG6SOF0GMoxUFeb+KdYAStDDQ0aZM3Hm/s2mfNKNka8 XZrPS1mAm9HbifPz3KNkconCeHLksMrF29cwPQ9D0179ZzeHr1nl57lOKC6+ G6bOLCjz5bftyiszPXkOHfez1/NMvAZU6p60mntV46Tio6JF7/oaLL15N7di 6INAspK4cLkolkdbMH+RBStW0u8qxhOr4zyFo5xzZ73JvFQ1oR6GKR1q9efX rPWWNUvx8fT3Mrocjh//TtOi6fShfLkZG8cdD/54EBX6VYRLPz9jrqdNTxF7 hmo5oIxaLomNtaTBz7akQb8mhn5FDG1F1iGHcFRnqJ5nMjNU9+eZodMTZ2hz 5k19JP/Cv39petuRXbj9FHXafo/yX85HhZbLUKn1KlRsG41K7RRLK3eIU/FR 4mhVjaNVu28VTcosZY6+03sPcS9JYqU6S3We6mxU149pl4cNk5op3p+eK0ZM Zj6z3n27GzG7y2ZhqJ5Tel+rOW0Vtg9DPh6BiaVqYWXhwjY+u0Nf3sRQvQ+z Q4YG2epQvU8+2wqDoa7is+s+vvAzQPXQW5jfC5P83bC5e1fV3y7lWcx81prO FywXnN7PIPfRp/iXg5g6vQ5mz8uHuLW5ZUby7n3+SDrEHM2r9XTSffvcsoZJ XzOv14gatfZS65Rb7PZ9ZmkB3H9UAeevlMSq1RbMmWfB0mWvYFW0u5WjaxUn 2cwctfIzp8FQjgnw9dWrC2HduhZISd4PvSfeyy39jdd7nv3tHGpH1YVLX2+l LU3rO21qm/TcktZTxGBomPLRM7LPTry0NCd+fpIJls/o8kviaRvSnl1ySnw0 g+7T63kmUw2UJTwH3Hv7YlzCeOndlGwz3/Pv2fS18Zv3Xcarn40jhi5ExVZL UeEbtuV4re0qvNE+hvRoTBqOsiatIixNJJbulDjpW8FKl6r8PXEwZJ9wj5mq W3XNqvXbr2pONW4yf4XFxE4+FvOTj83neqPjBmLopjQMbRl+CJHNJ2JMuUZY XqSYDS/t+Sm5JjuG6jo0VuvBHKNx056fSou6GBw19x61ZyjfNye/D8YWLYCn O3eqdZ3PzCWZGOro/hdps6v1se3zwJ/fH3HqzEpEjciH+YuDELsuABu3+mDH Hl81Z+mYF46c8pbZICcv+Kveoppvz3693nuE8/HC0Xu5lS6ly1sP8gpH7/1U jphbFhs2kx5dQL79koxYucpNOMrrkLh+SffZdf2p1zbp9zNv49bkFI6yP79q VUVcujQVPFvvxRH9L+bGNUR3U+/i0zGfI3tvO4aa1yXZ+PG5TH68novPgVe6 k379mpjZmNhZ2wmWBhnh9Fk2OLUkbnbMqTQqadUM5tiobhpDc/bywrDYYcTQ RwZDdZ1of/lnbPbHTIHKJ81YvhNlPx6Dcl/O0bToYlT6Zhkqtl5GHF2BSm1W il9fpf0avEm+fZWO61Gl8wabOKnwjv17rQ5KrDf7+XsVH8neYX3Ze4+N6dzU 2SnxVtK4zGepreqUgMrt15lqm86p+lDy5b+KOIzwVjMxvOLnWFqkhMzt0I3n eah6ei+HpueS4nn2UqDSodF6n/v8Voaa/XorN61m9u2X03GWE0enBnggplNH kDAzeiz/8e0FZajR7zTFrtup6ifKvTkXLGqLQVFumLvQH9HxftiwxQfbdvpg 935v7D/ih0M81+O0j1H/ZM3bW1kqHNV8e6534svrd71wm3z7Bz+VxJ2Hr2H/ oUAsX2nBoqUWrIrJShzNiVjiYrxoUm+Nm+6muiYfpUHXuonFxxNP47xJiwYh IaEpadHTUP2c7GLX/6ObzJg1GW9PiRjcJ6nd1PYya94hQ9PEQk0M1WromYvZ u3ggw6fEzzcssFQiq56BeJoJTl9kES2asavSqlyLmqGPm6ZHTSztrxgasTyC XtMjUshPjNdtf/lX+fb86eBPTL/Ry1Hq49Eo22KWlaNfLTJYygx9rU20ESNl lnKclDlqsFTP3Ws+vso9bTeYKjq1l+11xUydm4lK05LvzlyWegA+Np2nUts1 pINVbRPn8qW2iRj6xYDj6Nt+MQZVaY1FRcvIDCQ2xVErQzn/buannkdSfryV oaxDdYY61qLPZijrUZ6FPKFgHtxP3EofONt5nc+zOezF9oJujutcf8GtO7vQ J6QYhgx3w+y5fsQ3P6xL8MXm7V7YkeQrvv3+o75Sj88z65ilZy8HyByly9fz S08SZqmRa+LYqFY3Kky9lw93fyyB+z9XxIWrxbFpK/n1yy3C05hY5qjKNym/ 3V3YqfjpbtQ3sXGtPcdEWcOuWPU6rlxZBtWfWdXcG+7D//Hckpkx5p81JSXF xiB9R36T2OOAZQPhrPdi1mKiaRhq9LTTzUP54sTBTD1zIeM3OeDTzB9Or2WG pSgxtApZPdKjn2dBhjbku3ehffX8ks5QsxYNdYZrL1/0mR8s66c4Vsuvn1+r /WWK6Xuo32e+/cc2Td+kqIq4n0n+tg6ZibKfjkXpL2ah/BezUZEYyn49M5R7 d7J/z7mmysRRZilzlH175qhYJ1tdyjyVOCbn8bttM/io/P7tpttbVWxVsze1 GAHHC/i4fI7KbWNQ8Rs6L2nR6iFJRn0o935uGnkKPbvGIuzd7lhQtIIxu1Px U9XT63Wg0oPEhp9u2qwkE0O1uaCKobazQFZILNTVpEfd0/j03GuEezPHf91C 9VhOVfUyKfYJIge+/YtYyvTfbexPPcSq6CFo296CwVFOmDnLD8tW+iN+vR8S tnqJJt21zxv7tBnKPMOOc05nzueVvssXrjjWpLeInbKG6b5mnG96xJr0DRw/ XQTrE4ijqyyIjrVgdXwW4mNOIw+va1AzQ9fGe4oWZe0aHV0CW7b2oF/CKajO i//+34nORjMH7bWlPSfN+6R5Tgp7y79Jnf2kjapGVNUrpaND7RnKdfVhSlNm 7p5L4p9hiyIQPK4PLIGsRUmH1iSGfpxJ5Zg4T9/VGU49lBZ16pvLpEFzSXyU X0OnHzrLnBKps3fw85h/Dv19sf85/9hmjb/xtRsPgE86TUSZj79FuS9monzz WXi1+Wy82mKe4qjoUcXRSt+sMGnSGOJarFhlTZe+0WmdVZt2SbAyUff5Tbet vEww8v7M4jc6rJPjyXH5HMTu8i2Xo2K7NWkY+mnkWXTslYC+dUIxr0glbAzy sPrwWi7eYKiptl7pTzebeXP6XDpHDOU80bNqnZZqc+8kDhqUBz9vWK96LGv8 TFM3/xwM/fd+f5V38+DBMYT2r4C2HSwIG+iEaTP8sXCpH2JI860nTbol0Rfb dyv/ft9hxVLuE3ryjFpvr2KluY160ms3rXWkrEN1jt66H0j+fWHc/akC3S4r eauErYqj0astiI1zNvHTW9bNq9omd+XLS70pfQ7iCiF65du4dXMB9Fkh6fyq rDVnqaa+5emuN7OPC6S/Bs3xOVIdfhbM57P3t+1v6/c9iy/PZ8niyzOrlu5f CWfuI6r3HdEYqvcMNfdYdjL58cw/9uOzdfKCz+d+2HVtNxJPbkfGoqRFKxI/ a2SE5cMscGqRTfL1Gbo4G1pUGNrH5M/3VwxtNa0t7qc+UHX29Bp/7+f4Pa1q 5q2jzdxTjf8/fyMFdb4eLQwt1XQ6yjX7nuwHvKppUp2l5b9eJBwVa23LUtaL zDyuy2f+GUztoHJQHD9VuagE4zabrmP15yjduVqxs+0q4udyOV+5r5agQtt4 vBe6X+YoiS8/7CY+GnQebUN2onfjoZhb7HViqKua925aD782v6cNO839Rbhv U2x+9zTr5M1rPR3lmKx9SNwkBqqzlHvhL2ENyj2W9Vlz/8f9QNnSfMn5k/Uj 1q4fiY6dPdC6nQW9+1kwYbIr5i30Ib/ZD3HENa6J37pd5ZykDuqQmpnENaU8 V1lnqT7/k/s9sS69ficfsTSfyt1rLJW808MCxNKydLsCTp0rhB27c2HNeuJo POnSOK7Pd0L82qySn4+LdxadqnjqTazNg+hVhbB9Wxv6WS5Bn+6l/w20rQnU Yr+iuTka9qv8vNIHiueGpp7W7Kx2+w6UtrWrX3zWH0pHrosDTtprS0eP/f+z 08rQJ6mcmX+KTWe3wqtXPi0e6mVdm2ReH6/pUCebutBcaq09+fHvBdfCbXpv 7jy5i9caVYalFGnRd4mjDYmjTTV/vmM20aE6Q1nDCkOFo84Sk20+uQVupd7W dOgfZ6ijx8zva9pfjZWh/Ck4cuFXvPHRIJT9ZBxKfz4VZZvOEGOOiiZtMUc4 Wo5Z+rWKkSpNquKkwlLmHfv57WOEf1JX2k5pVK7VZ5O8fntbE+62U3pTuEnH kGOS3mXtyxqYY7Olv1iIim3iUaufVh+qzcP7YMhFfB12AMGfT8IPxd4Uhup9 76zmky5D47ScvDA00D0NQ1U+yVWMucksXR7gIsZ9nAwNms8Li2h/7m93a/06 pUH/sH/wL9ieWxzzz/4LHj48hAGD3kWXbtnFr+8RbMGoMe74Ya4fFi3zIa3I a42IpZtVH+Vde/yEpezjHzjii8MnfYx4qV4PxT1MLnKP5hvWdU7CUtam9xRb bz8oIPHSOw/K4cqNomq9/d7M2Ej6NJ6YGk9MjWOmxjohZnUWMmfExnpidawP Vkbz3Lo1sJlDb/Nz6exkbj7ScvnMyaNITlmBH38eibsPeuLuw8549Gtf/JY8 iZ62UfGUOfoc633TfVft/E/77/uzePGnWSpxlN6DA7cPIiikmLbm0sE8EBND paYpQquT76dqlriGqed3PWWuMbMveGiwYuhb5M/XVzFRS8tsqvaJ8/P62iXW oiEqpso6lBn68bef4Vrqjd/15f9/TD7+DnjKn4a9px7h1cYRKEs6tMwnk1CO OFpOYylztFxzpUfLtpitOMqxUhNLlS418bS10qdm0xkpfOVL02Nci8rP42MY xzPxk89dqtlcvNZubRqGNhl6GU0HHkePr2ZhWolqpnVJppp6TY8aPnygu1HP ZNQ0OWCoVXu6ambNzcscZYmRuksenvNIPBc5utmnpEFJj6QkW78jnMd2MHf3 X7n93jpVm88Y6bPU+6T3RqF7z9zo3isz2pNf37GzBZFRmTBlug/mLvDG8pXe 5N/7SI38xi2+Spfu8hGW7uX5c4e9jJjpsdM+xhp8VV+qzVS2WTuaT+WhSJcy U+88KEQ8K4s7918lHVsB5y6VxImThbD/gB927nLF1q3OpIfJ399AGnWdRfJf iTva0WvfS3ZM05LnNTur6Uu+/yAxcxd+e5qAh4+W4sr1KFy49BUuXa1J56lE r6MMsf01XL9VH7fu9MUvvy6i55yBYrN9HWOK8f7y19WRD+6Il386H5+LoSmy Lv3Mo9OoNKiyyhFps+l+j6ESwwzJpXzz5tkwe9M84R7XS0VvjiGGOimGvu+E DJ9mQoavyKdvT8fXakX13JLqS6JqRpmhjUY1wcWUS1K7+lcz1F7zM0N3Hr2H Mu+HovyH5M9/NBFlP50ipmvS0k1noqzGUuYo61Iblmr5e9GNRtx0mWhJ8fm1 GKpcmqxiq+Wyn/48OYZwc6EcX2IIxE/meNFPZ0p9U61+B20Y2pguPyDfvlPb JZhctg5ief27PUM1M+vQuP+Sodb6UFVrr8+ilx7Lgd54EBtDGvTxH+LOv2oz fhbdl0lJ53He1NzPew+PIXLQG+jV1xXdemZB+04WiZH2DbXg2/FemDnLGwuW kH+/kn4nXJO0wVt0KcdLt3Gf0L0ewtOkQ2rNk9SYEk857sn+Ps+wP3cxj9RH qVxUPps1+czUa7fy4/rtQsS0Erh1rxTu3CsjdvteWbqvDK7dLI3LV4viwuUi OHuxHE6fq4a7978hNvbAg4e98OBBb9x/EEz7d8XNux1x41YbYuZXdM6PceLs +zhy/F3SzuVx7BQ993wJOkYhnL9SEBeuFqHXVJr2q4JzFz7G7Tuj6P3hdaUP bN8z81tol+9JfQ6f9O8zTQvT7/1m8k3UHFNH68XsIf68tbeIh8ozRWo+vKlP vfjipCtdmnthx/k90hufqXz2+ln4VM8Ly5tabp7zSl9mUWuYiKGWHjmMGic5 BmvRkGzC0LrDGuDsk/MOGJqM5/Htn8fS8/EVQ++iTP0QlP1gFEp9NF44ynq0 1GeThaOlP59uq0k1XSp801mn10KRVWR9KqYx1e7SzEveT2KtNtycq87TbJac k8/PDH294zqZL6/qQ2/IHKZGw26h0ZBL6NA1DuMrNUF0odxab3pTj7v89L3U tKe9Dx+TThzUUW2TcDO/u+ppr9U06es7eS7owmafAz/SdyP56f/dGKhNfX06 DE3j+z7E6rgB6NUnN4JD3NCtV1Z06pJFYqRde1gwdHg2fDfNC7PmeWPhUtKl 0Z6Sd4onXbphowc2bfUinqpc/vbdXpLP37uf/X1v8fcPHffB4ePeag3UGX81 i+ScWp/PvUfF/7+cR2Y7GWv1r+u9T/JJXIBnk1y+FYTLN4vg6u2SdH9J2rcE PY+ttHD1zIUyOHW2qMRZT54tSOcLkNqsfUdy0WtyQeLuV5B00Itel4fxujiu y31Xjp/0x4HD5bEzqQUu3FhJf1lSZV4Er9Dnv7gcMXiaao15yrv7d+vL5+II DE32KPURPvruU9GVmbmnsq5D7Rkq+Xg7hnbMhhJdyuLM/XPCT/55f0n5FXU6 1FW1orVVXsnSgutEs6gapx45rGvoTRxlhtYYXBMnHp9y4Mv/eQx1xFO+ZIYm nbqP8vX7okzj4Sj54XiDo6U+noiSnxJLRZNOt4mT6rHScgZP51pjplIXNV9j o/nSajovWdMaPNaOV/bzH+g8M+mc3xPHp6HEx5OFoZzrr9X/sPTMq6fNEm3I M5lIi3YM3owxbzbHksIFsbqgj/QT0RnKOSVrPb09Px0z1H69vJ6bZ9PrQ61r 4z0xNp83bqyJt4mD/p/l6HNstj/7L7h7bw/CB76JPqE+6BWSlfz6rOjcNTPa dbSgA+nSkP4ZMPJbD0yd4YXZCzyJpR5Ytop+F9xXhHPqpE3Xb/KRNU9cY7pt p5fSqHu8ham7eUbIAS+Jo+475EcMI2Yd88PBY96qnp9065FTfsJZ3TjOynNL jp3xFz3Ll8fOBODo6UB6LBBHTwTi8In8xMJAHDiaH/uPBMrMqL0H/aSfys69 vkjc5YtNiR5Ym5BDbPM2D2zd4SGvL5HnPRHzeT+ePbp+axXMjW6P0XMnYcj8 /eg3+woGLbqJ+YmPcfquiq5KJZyd1jG+u6n/PEPNxjWi7Rd2svZiHpjWh7fW NGkMZV8+WK2PrxlRG3ef3lPLNlLUvLuwyWGwvG5R9U0fZFJrQL8hHdqJc/PO Kq+k8dPM0CoDq+LoL0e1vLwD5qU8W88/v6VlMv/Ojp5/hEoNeqNko8Eo9uFY 4ui3wtGSZMxRtjKffCf+vcRKP9N1qcrfi15sbjWdicxV28vZxuPm/ctqTGZu spX77Hs61zQ5ZyniZ2HiejHi6ZvdNuO9sCOKoTyHSWbc3RGfvn3fnRhVswvm FC1DWjSvne/upZljhv6e/jTXiKapB83vJfWgKz//BPjpkXVdvIBEWWqq+kv7 v7pJV7DUe1ixKhI9Q/zQJ+wV0qTO6N4zO7p0cyaGZhDfvksPjpO+grGTXDFt phfmzPckH5/e8xWeWBnjjdWcO19DTF2fU/W54571PD9J06lWdvkKv5ivzC9m rM5Zw/Z729o+1pIe2KntuzNJPZ8ZuG2XOi7zkS1hizvx3I2Y6UZ8p89QPP1t XelCP19O9frWuklsd80Gd9HRaxNyI3ZtIXy/4F10GNQWn4RNR/2InTJTsW7k WTSKPIq2o/ZheeJ9/Jyi9GhKatr69t/TRH+rHiXjPkkD1wxGFmIY9xGVNfGO GGr25cnvlzXyrbKgxdgWql+dwaKniN4RDUvFDLC8lxmWRmTNssi+Th2dxf/X 189bNC2qM/S1sMo48Ojg38pQ432nz/iZa7+i2if9UbzhABRrMgolPhgtHGVN WlJYOkHj6CQbllq16UyrmTUqc1Gzcibj2xxjFaNjsLHWZStJx9fZWYLOz1a0 yTiUajYbVbtvIYYeMxgq/NRmLbftvw8jPhiEqcXfwYqCBQyGqvzRMxiq1dSr OZ6/z9AVdgydG+SLMflz40ddg8Lk7qaJHf7vbLYzSVVc9NrNvQiLLIOQCGf0 7e+M4N7O6Nk7O7r1cEbn7hnRljQp69JevTMgaoQ7Jkz2EZbOmpsL8xd7YNHy XFi6kni1WulTZmrcWuXzs05lZq3bqGz9Jg9s2OyFDTxbaautbdzmZXefG+2n jLm8YaPqR8q99PiYsRs85Twcq42Oy4lVsS7E9JzCzMUrXLFgqQvmLnTBnAXZ sWiZJ5aszEWPuWN5jBtWRLvRa86P2YteR/DQ+mjQcyTqhG1FvcjjMsum4bCr aDT0osxgbNhvG+Ym3FAVUBpDU//U7/+fy1Dm35Td06RGNCv3Yo409W/SGarP 8ND8eF5nxMzjXFHIvBBhnv6zcVz0+LXjyFMjLyzVnRRDm6rcvKyd7+ps5JV0 hnJuKXuwF8qElEXSg71/G0NFF+l6lH5ftx4CjVsNRpG6oSjacBiKNR6psVRp 0hIfjDN4amWplads7HPrPGSdar6tbKph/JgYPa+MwcyJKPHJBHUOzfj8RT8Y g0KNxor/z2uamKF1B1+SecoNRhBDR9wTazXgKAa3mILRZRtjWeHiJh3qY7DU nEdKrx7UXBNqXw/K9UwrzH2b6P5J/q5Y3LKF0qD/9br4/3ub+vNh18849T6W LO+G3v08yHd3RUioM3qHuAhHu/bITDpUxUnbkSbt1EX598NHu0pN6ZTprpg5 OxdxylV4yr7+0uUepP/ciVOeWLVaGbOVOcfx1NXx7pq5iT5ki1mrjO9ji17j hlXxOek5Lup5saqfHveCYkYys5esdBVWMsMXLqPzL8mOBYtyETdzYfY8V/ww xxXTZ5J2npGDrntg3kJPzFtEl4tcxWbOL4wxU99Dsx6f4d1us1QfnrCjeG/g adIDatZDTZnFeBKfDtyBhGOp4tc/TVFuTUpyWgb8I/l403l1hq48HY1c3fyR LdzPYKjN+iR7hvbNJX1Gsn3phvFrx5GHYmUoU/Thk3t49+t3VW6+gZNiqL5e iXPz3ZWOzWBiKDO5SJ+S2Hl319/A0BSNn08NhibTh/0x/Z7a9Z2EgjV7E0Oj UKTBULocgRLE0WJNxgjLFE+VLiyZxs+fRBydrPFwksFE822duxJfJY2pbKLB Szn2R99KLEHOSecu2mgkCtYfIQzl3NM7PXegVvgJNTtZY2j9kffFWgw6hf7t l2Dw662wsFApU0+7Z+Ti7fPw+dwcxkEdMVTvEfptkB9ub97ooD/o/+bmeF2P nnt6hKvXNyI84lX0j8iN0DDSo/10jmaV2ifO23fplkX8e9aknbpZEBr+CoaN dMe4iR6YPJVY9QNxiVjF/GKOzSeeLViSS7jKjGPWMfPYWBOyLVvhZtjS5a7G 44qNLvS87PLcxXSMRXysxcTKRS7CQNaYs+drRuecOTc7vp9F3Jzljqnf5xS+ T57qgfGTc2Dydzkx7XtXzPjBXZjP+0yeURphIxqhQbvWqNZxtsx5fKv3LtW3 jHs/9j8ucxzqDr6AuvQ5/mLEIew+DxNHk//ZWiYHOoyvM68SbyYisEch5Ohv t17JzNCInEbPZeaeS3cPuHxBPkXSYsXQVI1vqU/kdofBHWCpalEM1WtE2+VM w1A9LsoMLdCrELbe2iY99m1fr/Z36C96HySnpMVfhk9cjgLVuqPo+4NRvP5Q jaPDTCwdpWnSsYY+1dmn56FKfTgBZT6eIJf2t3Xuin2gP+9blGxCx2tsZaYY nbNIg+EoVD8K+etFEUPHoXLr5Xg3eCdqR5yUGXY6QxuMUgxtOuQC+YabEFaj N+YUedVgqH1NvaE/n7EmyZxDMq+L12fM8/VF+b0w2Tc74r75ij7svzpYs/fv mCn3Z2/plY+r94Pfp1uYv6AnsTM3wiJc0a+/i+jRPiHZENw3q8bSrOTfu6Br 9+zo2NlJWNqFWNovzAlDR7hg7HhXTPzOHd9NcyeeumPGLA/y9z3F558zn/Th Ag9hK5vSgx6Yv1AZX9cf0421LRvzkY/BunLmbBcxZqXwknUm8VKYSXpz8tQc mDQlJ8aRRv52sju+neCOUWOdMWpURkyYlJMec5fHJ37nipETyqBrxAeo8WVb VG3L9SVr8UaXjXizx1ZUpc901T5J0p9c5jhGXUWDwWfwzcgk7DyjcTT12Rz4 e/lqZSjXER3+8TBeDa0E5xBfqw41rfF0xFDnrrng9oU3Np5NEGYaPrHU7v+G KSumqvomZuhnWn0Tr1fq5GwwVO+Hxz49M5R76m+4st4mvvrXMNR8vGTjPk6h xm86jKCqHVCkzkDy6SOJo0OIp1EaRzX/vrFiXDGNqTpPrTbO5PvbXio9O07t 1/hbg5vFGg0XZvI5mNtszM6i9QahZO0wFK81gM75rTCU5yrx3JB6Q66gwfBb aETsZIY2GPUAnw27ho7h+xFMvv+MYlVsZnzEa2s6zfOSnseHt+0Vauq5HOCG 2YHeGFs0EE+2JwJPnjhgxsvNpk5cTK3tuXwlkXRoMYQPdNE4mk04ypqUc029 +rigR7DKOQlPSZt27KJipZ27c12pEwYPdceI0e4YQ+xijjGvvpumGMdcnU5c ZQ3INkPjINsMk02flVNs2g85hJGKk64GJ9n4mGw6DzmuwDZmYk6MGpcTI7/N gZFj6XKUK4aNyIbBUZmkVkvuI6by5aARJdCmd2O827QNqrScLGtQpB9v+zXS m4x7m3E/XZ7vUHvwRfp8X0T9Qafx1YjDSDiqVohyRzdmjCN2/lPGDD33+AJq DamDrNyLOVKrs9d7OOmz50yzP9iXz9rFA4GtC2DPjb2mes5k0nNPJSa69dAW WN7JrBj6kZPWk5kY2jmHkVfSGcpM5niof/cAxF2MJyL/+pfGjpO5T5NeI2u8 /+oDfun6T3i9YTAKVO+tOPp+pGhS3XRdyswzTOOqsJX1qsZFR5e8T/GGo9W+ DUYZ3OTYAeteOQdxk60QMbx0zf6o8k53vPFOL5StPxJvtFmBd/vsQe0Bp1GP /lbXt2NokxG30GLIWfRstQiTS9TEavLhV2v9mGz7iljnJaWXQ7LXn0aPZXre Ym0+Ms9Jig/uqTRoenHQlyC1rt827kmRHP28+W1IV3oKQ8PDs4lfL3qUOMp6 lFnKmlRYShzt0ctFmNqpawajHopzTxGR2RA13BUjxrgJ05iprAtZpyot6C7+ Pxvr1knT6bFprtp9Oeh6DkyY6iw++KTvXBUn6fq3k3JgLNm4iTlIY+Yk7ZsD o4mXo8bklLWqHKdlTcznHjzMGZFRzhgwyBlhYZlEL0cMdsagYe6IHOKKsEHF 0bJLHVT79EtU/uJbVPhqASq1WixrTHjmDtfscf9H5ihrBI73c71eg8Fn0WxI EpbueISfoNWQpqOp/gme8uqi26m38eGoT2VOchqGDnKz6tAwtb6d/e9snXOh dKdyOHT3MDHvicamFDxNfiL+yumbpxHQJBCWuhZVZ99C06Ed1cw6qRMlhuq+ PDPUp3serDqz8i9nKPNScdTu/df8+fYhk+FftSOK1e6PQrUH2LCU2aZYOkTj aZShG61+f/pm3pd1prLBYnwOtkL1BqJgnXAUrBWGitV6oknF5vjorTZ4o+5Q vNU+GjVD9qmeTVHcs+m2xtAHaDDmIRqPuoePRlyn79lGjK3wCZYVLIDoAv4y Y87Gh38O/ZkeQ3nO3MIA8vuIoRNKFDTNSUo7C9IOHP87OLWZWZeSpv+muvwZ Fy7Eo3//0ogY6IMBA7KRLs0merRPaGaybOjd7xVhaXDf7AZP2fTrXXs4Geud upA25eeERxLPhnti6CilUUULfusqbB09IYfUTLF+lOvjFRv129+Oo/u+pduG tnQmLrtg1GgXjBjpgmGjXISZzMtBQ12EjczMgQOdtdfuovjfJ4vEddlC+rvT fa7o0ScIX7V7E9U/+hgVP42Sej7ui8Y1f7zehNc/cx8ejvfzTDKeOSafc9Kj jYmjHw08gEmxt3HzsaZHXxAdyvXsj1J/RNtpHZCll7dtPRNrUGMGcg6jXxNz z7lDLrzRsypOPjwtHE4mDcKm52nu/3YP77R7B5aaFjh9nA1OXzgbNaLsy+u5 eVmzJL58Lnh388WiIwv+BoYqEylg3Fb+ATM0OuEQ8lT+GoXf6y0cK1Q7XIxZ ynzTWSc8rT/IRjsaelW7zVbwfWX29+vHKVhngBxXP08Q+e5Btfqh4HsheOeN NuhRqhZ6VWyCmrUHokbnNajT/yD5OudVbejwu4qfox+JNRr9kJh6F537J2Fk rR6YWbg8lhcMMnx4Y2787+hP2zp6xU7zrM75pG3H+jpj94Aw4DGvB0+x6etu 5ob1vv+hzVTPpb8XKWn+gjyW/kazZ3dEv1Bfg0NhA9RlSFhm9O3/imJpiLNh vYhP+iWztXeIm2hTjpkySyVu2sOC4JAM6D/wFaUFo9yIe67SC5o149ARbmIj RrqS/+0mXBw60hnD6XK4piuHDHcR03k5cEg2jZkupHtdERrhRlrTDX2JCb37 ZEdP0sjdenigUxdPtOvggpbfZEXT5pnw6ecZ0OyLLPi8uRcaflQc5au9jbKN Q4z8K9erSK9e0qQ6R7mnLs/F4dm4sh5vyDU0GnoJDSMOIWL2WZy8pdY18fc1 WYvD/dW80BlnZZ2673HqY+kXwv0/pRdzZC7bOKjhx+cQP/6VUMW8LO3cUCuk Di7/56ro0ORk83lUXqnV4Faw1MgAJ16r1Jz42TKLmvup+/ImhmYP9hCGzj44 S8VDk//a90P+diWnagy1xoc5P3+XHIban/dG3jfbE8f6oHDNfsJSM09ZJwr3 zEzVNKRxfx3r9UJ1I2xMnq8fSzs2czN/zRCxItV7o8LbXfBBuU8wuvSbGFKq Jj4gX792j82oN+A46kZdkpp6rmeqP9rKULb3ya9vHXkcUV+Mw5hStbG4UOE0 azr1/Lu9/rRqT1fYz0nS+ck2PcATkyq/Cpw9LRrUKKc3Zk07ykm/3Gw3jn38 gnPnNqB/aAFERrpIbJStf0RmhIZnEt9e8k1hLsJS3YJDsqjr/axs7RuqNGC3 nhnQobNF1pC2aW+R6916ZhTectwgNNwdYQM9Sa+6y7kiIp0RTloyfGA2YaN6 DcTySCvPJVYbpmnMvq7o1duNjulG2tdTmNmmnTOat8iEJh9kQN36TqheywkN Gvnim1ZvoFfPhogc1ALh4S3Q6psG+OzrVqjQsBdKNB6m8gIfjheO8no9XvvM /Xe4H6RwtHeSzLmVmQ1DL6P+0ItoMPAo2o47jo0nVYxUrWnSY3NWPWTve4rx 46lm7fpUs3RYQUBIeWrm6BO1/9Nkg3WPU7kX82NMXPcdcvTwU7w09wsNt9Y0 cb87noPMOjRLGzc0Cm+MW8m35Bi2jH4ieaXh84fDUs1JY6iWm9f6MRvrlUw6 lGfdT0+aYeTldV2rMz/d9+UP55xs9+ee1KkGR9XvZM6yBHiWbYoC7/YiPdpH NCGzVPRh7VBldly1tyL0GFuhOv3F9OfxMdj4eMJnOrZuQe8Gi5Umfr9f5mPR oNOLl8PwEjXR7POpqEt+fN0BZ8SPbzDitqppGn1f/HidoczUL6POIrx7NMLf aI05hUub5s2ljYPa92Gyn3vM+SPdf1+Uz1Ouj/HLjsPTpgG/Pbau6UT6+Wib HV5usvH3Xc1duoNZP7QgTpHGi/RUTGP9GPGKYli4C/qFOxPDsokutZqz+PrM Ur7Oxvv0H0BsjPSS2lPmJuehvmlrQas2Fnz1jWIr94zi+7uRXu0enAE9+2RE r76ZiY2Z0VOzHsEZ0aOXE7r3yEiszCDGPG5Dz/+ypQVNW1jQ+GMLata1oFY9 1ppFEdy7IaZPD8OWbYtx9twe/PjjFfqVP4Ki3S/46adb+Pk/v2H87PXI+1Yn lKgfKbkBqe/7bJroUZ2j3HO3atetMmeM60hrRp5B3SFXhKV1h5zDp1EHMW/T Xdx/ojTpE+N7nR5DNW7arBV9qnExrd6U20+T07BN9tc03tOnvwn/2J9fsm8F nLt6WXWnuU+TiaHSm4TYl7FNTnwy5DPcT71v5JTsGRqzOwZO1TI6Zqi2bt6i 5eezBCuGTt41RZjOx+HXp15zcjo/Y2oaHj4/Q02aVOOocZt+Hw9+TsH7zUPg V6kVgt7phoLVg8l6iy5lC6rV12Cq/aV+vch7ygrX7Cv768/VjfNWujE3A6v1 knMVr9oJb5f/HJ2ImyPLvIvxRd9E+OtfoWWHWNQfcBrva7kko6bJjqGSn6fP WdewPehLf+unF37dJpeU3np4nZ+65tR7iSzJ56L4yRylY0zzz465dWoAd25L X5H0453P7lX+v7zZ6vNHOH1mFfr3L4GBg3wlP8TGHBU9SBwNJS0oFv6KWEh/ pVHTGD2mxwMGDHLDwMHu5Md7YfBQH7rvFcnz9OxtQWdNp35DTG3+pQWff2HB Z82VfU7WlG5/SpefNrXgk88t+IBY2ehDC5qQffwZPecr4mgrCwZGVsGadWNx 6EgCbt85D1WFpHcPkeyPWCqeiPHfDPl+/QI07TgUfq+3E73BuVmu9+O1J7IG +svF0guSe5TxbBye08hzwzmXyrkm5mjDqAtoOOAwBs67guO3TOvsTXn75Of2 zVPEnnJ/+hR7bioz3//06VPj+m8pT7RezFvg0TPARofaMFTru2xm6Fcjv5RY alodmixrPvde2Auvej6wfED8bJZJqxEl65zNYKiuQ5mhLsTwcVu/lRklZubb xyCe9Z48m51aPWhKSjprx2C9pN/F5l0nkLf8hwis3BaBb3VF0Ns9RJcWeFfl 7Qtq/NPZWtiOiwX1fWqQtqzeS3sucbJaT2Fy4Ds95DpfBhI781btgiJV2uL1 sp+hafHaGFOyCsYVqYI+Fb5Ezy9noEXYIS2PdMtYl6TnktgkFjqa80r38THt 8+XgcwhusxgTi79H7PQRs/JT8+N5LpLe/1PvQ0+cVQxVvrzhw9P+M2mfoeTH 31kdozSoIx/dgRh9iU7bzTY2yvWi1zF9Zhv0D/PFoMEukqdhjnLskTnKcU02 5iD7+f01nvYLyyzG/OT7+DHeR3SsPN+ZOOoi8UyOf44e44txE/zx3ZSCmDa9 KCZ/VwjjJwRhzPhADB/lgyHDvGh/PebpjMghbnLfqFH+GDc+AFOnFcHs2aWx eMmrWBldE4nb+9JrPwHzPHrx5XS9xzwTS9F6MCWrfC7td/YyfXZbhMG1dHP5 fpRoOASlPhqHsk2nqX4SXy/Ca8RRmaHbeaPMbaxBHFXrSy6qvo+ct488gTaj D2LNwd8kby9xUi1vnKxzNNn6XXfER52h/4+9s4Czstra+IgXhLnAADMOLTiA SIMoKKCChEiDCkgoSnd3DjAM3d0xpNIN9lVESrqlu2s6nm+vtfd+3/2eGAbx U6/X8bc8MWcOJ//vs9rz7+I8slVzI5Y1Yyz20Szm3i8xK5OZ/fGGDmV+9lFz l5qnRqsJLeXs5fgoi8vWqfjvzL2z4pjyGu9KZoY282UdyntButoxUc1Q0sFj vxmbKEM9mY5pPJ6hpu7UPrwX/x7ymBY6biHS5a+N7IKjVDea860OrBU1/7SZ fAwq1wU53+nCp47z4u9MIy6T5RC6M3uZdmx5XmmONws2QLPiDTCoaB2EvN0W vVuEoX3wXtQbfh7Vx9ySMVDVl0QMJd+dY6LifO3Rd5mhdUbfRp3QK+jc/TuM e6MxluXKhdUvZrVySLQjydKhVv/788xQYiZpUWKqlUcSt10qeDo+Sxqsb99G uGbCN6PXHUnfkfTPj6cfoglptXCcPLlVMDQ3M2yw4qhmqa1Jn1OMtM9L87X4 OiA4Od9e/z3d17BQwdARMl80fqI/pkz1x+w5mbEw7AUsXRGEz1flwaq1L/E+ uo0bC2PT5kLYvKWwsKLYsrUotm0rjO3bC2Hr1gLiujzYvDkXNmzMh7XrSuHM 2SmcG6P+GivOmOCqAQ39kpBg6ZQbd2Mwcc5aFK3UBlnLdEDBGqGyL4V6p2ne RJNlqo50o1FDuk/V4v/Kvn314RdRU/j2dYcexIS1N3BG4DxSvaqxxEUVv4x3 ydmQ2WxMnKFuJvgcG2vfF+1WOnn/JF4bUpL3w1n+vMnP/qnt3R2KoR2mdeSZ JcTQmJgY5iczNCZW6Nto3E8QfmWXWvCp+gx8Pta9SvaeT5OhqXr6c+9T6PYR zFDJYs8M5dfDNJcYRpzxHiam5b3mmvi8ZMN9IRHqtQxGYJH6yP56M8HSlshW ujXzTjPQtg7IUda78e8FL6luiv++tLAybcR9Nke211vAv2hTBBVvhxqVh6B5 w5no2HEDOg/cjebDTjE/a9F8JtKewqieqdaoOxZLyYif+jq6Hc3DaztgL0bW GoBpL5fCiqCc1kwRPTuEzLWGSetQ6cdLW/qC0KDZ02FioXyIO3LYUcskZ5Ml IWf0jy/v5UfGRRMSbmLe/CZCXz7PPvhgQ4/a/n0q1oeeWCp/l8qhQZmhw1Ih dLgfM3TEKF+MHuOLCZNSYvrM1Ji/wA+LwqjvPQ33fq784t+Co+LYuj4t1m1I gw0b0gqmplP76tJg80ZfYWn58kaaH7XxRXz51QeIjj4gnsND8ZGItmOOCe7f K9v3i3NolQMnrgvffjT79vmrDUXBD8YJv366nNPzyVKeVc77yNt9yRzlnP3A I5xrei/kgvDtrwuWCk0afAidpx3Dd8fiOQLLUQWtj9xim3FuDNVMeZw+JTbH mtcLTl+JuoR3x1SWe4sHemFov3SWDqU9St1nd0e40KGRcZEWQ/n+BENj4mSc tc3wtpKhjZPJnvlWagaeys2bvjz1PgVvGsxcTkyHujLUNUYRExcrXxcvDPVe T2bOxJOvO0VwBo1dgX/lqsU5piyvNUaW1z8VzGvG2jSH4ClZNnWa/U3bsqnr s5ZpxUbns4i/Icv0RgtkL9kCWYQFvNYCKQo1x0uVh6FBl7XoMuAHdBq6H02G n0WtkVe4BpRqmMg0Q8lqjrzDZnK02ihpfNvRN9F00CEMaToLoYVrISx3Pkce yaxf0gyVsdA0kp3CZydbrvqRxmRKh8OTJkofPsF1Nug/DH2aH+np3ue4aN/+ +TF4aBaEDPNj/gWHPGebwVTNSmm+0kIox56KTweH+ll+PBnVKRFDqc6T6kKp jn7mbD+eD7JkaXrm6Mov0mP1qnRYvSaNYGlawdAMzFDN0Y2bxHUb08jLmwKF Hs2MtWuL48SJGeK9vSyewyNHbCxBmfbx3L97gK7kuCug139UGH838lYL5rkR PBtN6VHe+9B6A++8LdP5Pyjbcxfn7KmvifqeKU9A85+oR7ReyEFM3ngHZ5Um pXyTZokdy4x3YyHn4I2cu6sPr3M0+nq6L80+2utef/pHnN95VhwH5SxRFQ8d YNfX+/T2tRjab+EAQTuboTExcdKioxEdK3eDjF08Fj6VBT8bPeNkqJlXon+z O+1ZTot+6wc8lqHeYxkqLmzEe03/3sHTOG/s1Pklyc+j5yNQoeFwBJRoC998 H8K/4PvIWLQeMhZviMyvfoIsJT5DtpJNBQub8qlka3M+1ZZF/T5LyeZ8+yyv NWELfKURfAs1wTPFOqJA/Xn4cMh+NBjxKxoMO436IYKfFPuk+iWar6yMeTpK WnXByeqKq9KInZqxcp5owyHH0LvLevR9qz3m5C4mfHc/K4+k+bna4KejDlRo 1GVCfy7LngZThA8/v04d4OZtcpCsWlA3LHpi5D/sfOyPfHno2HQV8xa2ET59 VmYo1WNS7w+xlC0kjR3nHJbKETflGKZgZ/CwNGxDhqez/l7WeT5nMZR62qn3 aMbMDJgz3x8LF/pxH/3nnwdi1Up/rFmTgfUoMVRzdNOmDGybeRd9AJ+nvfSb NhbAli0fISrqR9Csfkf/NM9bsvsCvdfIyNcgSvxvath25HirDdf/FX5fcbTh AtajvDdHcJR2OZTu9L3KNR3EuwOOc599lWGX7Dip0KSdJh3A1wdjcD9e3jdp Uvr4OngRH+dgqM2QGNZjZJq92ui66Jhox3WkJzss7cS7N/81wF8yNDi9k6H9 1MxkxdAhS4ZIX14wVPI4TjI5mngazTOc1vywRjK0sdo1T/PsDR2qGUq+PDG0 15o+/Fis40Csh3zVYxjqPYYRKy3OjgF4e0+Jn+duAc37L0LR2iO57zLja82Q Om9t+OapziwNLPKh4GldZC5WX1kDZBFsJb5mfPUjPp/t1UZ8OVD8LvCVT8Tp p0hX5BMky9cQyQs2Q+YKwajYaSPqhh5GzdDzwi+5yJ8DMppR/96wy6giTrme Xvgr2qqM9MBVrVXpOsFPyj/VHXISbfr8gO41QzEtTwnOJSXWh7RC9SGxCYaS Dz9f3GZMUBbc/UF8R2JinzzV/g9Dk/gj60VPntomGJqX8+qagRZHBUO1SV89 jRU/NU3/DRlp0NDhvty/TvFQ6mkfM5b6kXwxfZofZs9OiwUL0mDxEj8sX+GP L74IEDo0g7C07NPTHLwNNENvUzqLoRs3Z2Bjrm7OIbRoERw+OpSPAQnxMapO U3HUrH93xElduJogP1r03VuyYSfylm/DtYOF35+EonWnSz2qepooZ0+7xCln z7mm3vt4HiTFSNm3Z016ATVDTrI2GfnFVRy+ZufuJUc9+Pax8cpiLZ0pTbM1 3sFNK/8jmEcsHLIlBM918ce/+gc680nsx6dmP58ZKthHDA1dEcp/FxkbgWjS nsKkHpUMpQ1LO0/uQqoa4m8aCIZ+qhjaNpU1R/RZVd/EPBVc7fq5jA/Ixxft YKirvrSODUpXu+bc4uNsXa51aGz8Y/JOkDGUQ+fj0GzQOrzaaCZe/Xgu113k qzwQmUs0h+9LtZAi6F3B0opI+/K7SJevMvwLCK4WqInnC9ZSVgOBBWqx0WXK S6XK+wGS5fkIzxZujUwVh6Fk85WoOWAPag85iqpDTuG9YJqheJ6N5tq9N+QC M7XysAs8x6aK4qlmarVQzdSrst5esJPPs11mDtcWn6mP++9Dp8YzMSlvaWPH cTprL7wZA7X4yfWgGYQPnxmjMvri55AhwimKcs6n559/aud/3x+qF72FRYta cFx0yLAAi4O6T0ibxUuX60x20in1GRE/yWgeCOvQsWkwbnxqTJ6aGrNmpsW8 +WmwKCwNli4lLerPsVGan0zzQ9dvCLQ4qhm6aUsgM1TqUfH7DZnF+cp49GAH qFYrIcGYQ+QwL/XsOn+vWEocXf/1QRSs1AUvVeqPou+Pc+HoCt7vyBzt+A3e 7voj3um5G+X7HeJee5pZUmX4JfXduIjqg4+g+ZiDWPH9LVyLkP69rUmNXLgH RmqGaj9bnpec08zTDJ29ay7SdcoM336Bjpom2rvJDNV74QXvUjZPi1ErR7kx VN4nnUbxa3Li+km8/Gl++NRVvnwLNc+eGNrF1qLMUsHQTiu68n1KXRutOBrr zFl5iAtrvW3xMs6Zc/LEWnkaz69jjNKeD8X5tf+5hPc7L0GJTxejZItVPBuB 93oKv4Jq5ikP5FewruBoFfzrhfL4V46ybCnE+VQvVpSWUzA2qDLfJkWuavDN Xx+BJVqzpi3Xehlq9P0OVQfs52Mn5RjLDzwpzp/GuwNP8wzFdwefEXZOMlV8 HsiIp6ZOZaYKI71ZZbg81Ub5SooR1Qg+jdoDDqJtszCML1SRc+3kuxNHTf1J DOVZoEYd6NIXnhc+vD9mV3kPuHpV5pEcP876z3/k5m//0WFlefII585vw4BB xYTOzMLspD5NrUVNjenNiJ+yRzOV8OM1P2Uvp2Yo+fPjJ6fAtBm+PM+OtOiS xeL9Xy6OrRQXFVp07doArF+XUfjzgbx3XurOdJY/v3lzoHW6fn0x7N8bKp7E Wcj8UpyhR5Nq9mGa9OK2/xxH8coduN6a5kNyb2jDebIW/9PlKNGccvabufaJ YqRUj0/1TxW5/umMjJOK7wbPyQ89I74PB9F99hlsPwrciZcVrDEqv+7OmmhH nkfHK6OjYw2taFuUIPO6kxsQ0D6bnIFn9CcxQ/sI7dhb+t2aoePWjOO+TFeG aqN/+3rEDbzduRx8Pkim5t85Gap1KJ+K69ov68A61NNjNDnqylNv5z37/HZu inptqb+T9gruOwf0mb4TZZovQenWVJe2ASVbreU+XtoZV7zBHBShGcnVh3Et aJZSbeBfpBFSvVxTsjJnZctIq6Z9uR77/zne7oL8NUJQ6pO5qNhhHSp2+Qrv dPsB5em42Wc/yvU5iHf6HREMPcY8fWfACWYq8bTyoF8590hMJZ7SnO/KQ6XR 56PKUMlK8l+qKKOZeLwnZMg52dPU/zBatfwcY4tWx/KcmXju/KoX/XgfPNcy vRCAFdkz8G54GQP1w5Ls6TA/u7/w4bPj9vffWjvmPNYxGWcd+z/++UnCj3EM SjDjotexZFl39BuQlXvdTV2pT13Pm9cRO70xlHx5mu80alwqjJ3wL0yalhIz Z6fmmXisRZf5CS0qjrGkRVdnwLq1gRZDOb+0Ka0VD9WnW7YSS1/CpvVVcPf2 BtbSNOPPVYs+fo66PbOe9Chx9JufT+GVKl25B1pzlDSN5ijVPlGMlOc+CY6+ 0+NnWf808Ajeo7y9+K6wtlD+Gu1vqjdsL0KXn8a+87KDilgaJSRCtIBBdKzt S1vciZbG/DR0qGYSnRILf7j6E/J0zYcUvQLtGKjy4+UO4/Q865MYmqJZakxY N5E1Y0RMuEeGktHvGw5tCJ9aev4dzbOnHZ+pPDK03dL2XHPqyk4zTuBZazt1 KF12r6eVmjM6Tr439LqRpj98Lg6Tlh9Eza6r8UbL1SjTcTvXotFcQ6pLo/eI dxcLH4L6enl2cs3RKFA1GHkr9UKucp04Bp6zTEvkLNUCud5qK6wd97wXqDJQ 3HY4CtWdjMKNF3Ec5011zCzbbSfKdt+Ncr32CY7uZ6P4OPG0fP9jqCiMYuXk m1QYdIr1qTZiapXB59nY71dGcXVpv8rPT7Dwa/odRPNWX2B08VpY+mJWjnnq vfCkS7/IIdmpc0ikQxeI8+TD7xs5XM4UifdSS2+cfWxu6Z+fJP7IuOjlKzsx aHARBIdksOKiOsduWyo3I3aSbpWnMp8UOtLXnisy1o/n1tH8unETfTFhSkpM VVp04ULK0ftj2XLh068kLZpO+vMbpenc0uYtpD3t/JL067MJ3ubBzzvbi/f/ vNOfT7DztQkuTDVjpSZP+fuaIL+n/xECp0SNTshVoTf32FNvKO8w+2Qhin26 jHNNNK9E9ofKGGk5munc/6j4/pxS+aaLrEmrj7zEffdVBh9Cw5GHMWnjXRy+ arOU80gxJkejLYa6stPJuggcvHsIr/ctg3/3DLT5adSFki9vMnTS+snSl48S DI2MEl+1KCdDo6K5D7TvvL7wqZ4MyT5JLWc36Xgo1Yh2dTK0zeK2eJjwyKsO NY8J5vNystSZz7d9ePnpJG7eEP/77kgchi44hhrdNgnduR5vd9omjmPfiPfg az6m0ftBPRIlWqznugriKOlRfu/qT0OhD8YxH0ljUi1G3vcGcV983ioD8HKV YNarBWqM4pph6mErKhhM98O+h2A0cZTmJb4lWPqWOHZSzVvZ3r9YLKXYDn0G Kih9WlFo0/JCm1YYJI00KpnN1LMypir89/cGn+J+jsoDDuHdPnvRtNkyjHyl umLo87Yf/4IdB+UcvLAl2fwwMdO/Me+D2sDNm9KHV5CUtaBKM6mdtY/bffwP W5/0x967tGZtT/Tum9ERF5V1SukcepNy7tJ0Dt7POk86lBk6WtqIMamEL58O Y8f78Yy78ZNSshadMYvioukRFuaPpcuFb/KF8FVWp+Xc0roN6RRDVU5e+PNS ewZK/17FRzdtycx191evruf5qJKjsBmakODoa0mMofo6HWfbsf8cStfphZzl egodM1b22DecjcIfL+A9Y681+4LnkFKMlDRQ6S5U/7SHv0dU/0SaQs8kJU1a ZaTQpCMui+/NMTQbsw/ztlzF8av2rvsIAYvImHgHd7SeczW6nmqUzkWJ7+Cw qrzj087F+yoNmlrGQnvK2viUzdNj8oYpNkMFLzVD9SnVONGukZlbZsOn2nN4 trGcf2f78jZDfRRDWy1qjQcJD90eq6mZXfnpyd8nvR2t4px0bKF83CPx/T1y KQ5LvjyLTuO+ReXOQv+328bzYei4RbW7Zbp8xzHqNzt8xTO4yrTZxrW9pB/p PeId8cKH4D2dvEtOvI/15N44Pdfe3gmq9tOrngtdm8G1woLPFMOh+gyKh5ft 9hNzlPYh0K4u3jEjWErvf3nWpUdZm1YQfj6xVBsdY0mjVhB6k85LO8H8pNq5 Sn1+wbs9fsJnTeZhZOF3sezFTAZDn7fqP2knEvFzsbh+TvYAjMuXG4/27LZq 6eWcq3iDoQleGeqckfmPj+/tR9eYe39JwnH71i4MGVoGAwdn5H3JmqHaT7cZ 6mtdZ7NTzrAjfo4Y7cezP7WNGp3KyiuNn5gCEycLLTo9NefoFy5IL3P0n6fH FyvTsBZds9ZmqKwL1To00DCKlQZg/fqC+Pb7tuL93w/KL3nMwT/Glzdru9l3 FoKU9M/Phy6h7Ac9kKNsN/k9qzdZcHSm7A0VHC3BHF2HN9puYh3E/h7VP9E8 UsrbB8u42HsqTlqN66+FLh32K8dKm449hhlbH+DQVfCkFO76F597yu+QSS7F GnyS9UhU5/QoNpxnMTea0Bj/6qIYqvvjVY+nZijVdaZols6pQxVDpdF9xyAq IpLr7Dft34wU1f3g01DNELV8ecXQbsTQ9MzQlgtbCdYJHRod6zU+4Orfy+cW bRn3yarn/1B8QI/fAFbvDEe/OYfxfr+vUbbDFtabFXvsQPmeu1Cu+05mGLGM dma+zQz9mrWi1KKb2E+g/BLFRomjr4n3i/YekyblXca8Y07upqMdyuZsRB27 4b9rvgavifsq0UZo0Y5fMa/LCoYzQ8m3p8cjOEqatDzr0QPMUfLvK1gc1bpU +vnlBx1jozg6x1TF7Sr1PcJ/X6nHLlTp9BWa1puIsfnLSn6q/BHzk/z3nKoO VHB0bg5/DMuUBkdmzBAH42g9MIzNsa8Gmp/xbjy1+z/V7xLlxP/mj3l8cZ8r qn9iWctt2ToGffplc9TLu7LT1p++Lgz1lQxV7CQ/fuRYXyunNG58Sq5xor6l yVNTYuaM1KxFFy6SOzspLqrrnGjPp5lbMn15m6FU8xSE1Wtfx7lzM2QPqO5d SgJHdf2QWc9t9wZJP/KX49dR/qP+yFGuq5yf94Hy84ROofl5r1HtU8s1KNlm Pdfjlxa+PX3Hy/fa66JJL1hxUitWSr2jQpc2HXUAU9Zfxu6zwJ1YqcEixeMP F1+J6JgEZqcrl4ihVGffY1FPJO+S3qoHtXqT+qq6ph6pLR06cf0kPKJ4qGBo ZGQkGzE0MjIaERFR0r8XWv7n87uR9cMXkKJhagdDuUbUhaEtFrQU3HsomBzj YKYnjtLziBLPJypO1c9C+ul3xXM+fgVYv+M6hs3fj0bBX6FSl23MR+IT+cts PffKeKQ4TmmGlhW3KStec81R1ottN8u9Ly3XMkfpWEexbHq/tCYt3GiO2jFv Gu2ZX6D4uYTr2oihFP8u2XaL7LcQ/8bbnb+ztDAdM8n/kBz9xeJouX4HLU0q WWr7+DQXjIx0J/v/fQ7KXFWPPeJ5f4daLVeiZZX+mJD3VbkHKaecCWrGQKkO lObSjw5MgZUtm4mDsNxxrP2tBBUPtXwuNacxQc+SgMHQhHiLoY/XWv+jP95y cTAv0GsejYcPT2Lk6LK8L4TiotT7bupNOVvZnpdsslOb6ccTQ6nfk3fHjU+B sRNSSn9+ii9r0blzM8ia+6XpOUfPuSUdF1V1TszNLQHYIpi5xcHSAI6LbtiQ A19u/0AwgHpAw7lm1PTPvfYKWr0v8vcch9P9Rdz7Ljl65NdbqPZxf2R9qzPP fKJ4Ge8n55x9GMfdXlOalHx7/p7R97v7z3JnE/XbC03KdYRU60KaVDC0Ottl nglVY8hRNBh+GIOXX8Wmg8C5B9LPj6baq9gEpU0jhd6Tp+GCoZQPH7dhPO9K MuOgtLvYp5ev3B9HPncXyVDSocTQR4KhxExiaHikUKbiPFlERAQi4sJx6s4p wZ0SeKZ+ChUPTW3X2Stfnno+iaFN5zXDPcFyJzMjXSxKvp4Jtp9+6SF4j+qC r+6g95wTqBe8A5W6fot3un6PCr1+QsW+e1Cxn+BRP8UlofNovivVQtDr+iYz 9CdmGTGNjH1tjotuZd+AtWirtTIPKN4fOt699skyi6XkT5hG1/FxkfgpmEvv KcUEiKGcr2ovc1d0nNQMZevxs6VHKb/Ivj359cKIj8xI5qlpB6Vm5ef2C/OT PjPvtdmABg2noX2Z5pj2UhFrn5zuQ9IMDRP6dGrmf2PqG8WBUyctH17nSBOs z/XjtYSpV83zjIfHxE7/Z34ek49zvk73seOnqUKLZseQkIyCoalcfHeboa76 U+eSbD8+laVDaS8SGeWViKGUW5oyzRez5mTAggUBCFvsh2VCi1Kdk+SozVCd k9+qzO5dCrR+t2ZNERw5PJXr7iHYYmnNxD4/cdJ0/Yx7r6XMC9PR5deLD/B+ ixHIWqYT5yVo76PM2c/j75/+zr3RWnC03WY5s4R8PuXby1rSU7LmhXKyVIPN tdd2DwvHTYecRp2hB9Fx6iHM2yy06ekEXAtXU/6o/ylG6tNHsRQTjcbyn1ci bfvnZT2TwdBnevpKzhFDlS9POlTQUzGU2BnODI0QOpRZGi74Gv0Q16ME27tX 550gPs1SyPl3aq+SrLOnU2KqL5rM+Qx3E+4JNzJGWBzChcikxxcRK/lPepMe +w3xv6OXgO177mDSF8fQafxO4ad/K3zXH6WG63tYajTh+2rOUJ5Gs8iVoeRH S4bu4NeZNCvl95hx7bbLOLXw6UmPlmK/XnC06SrmKL9XgpPES1ej31n8bL5a Hhdbb5QMpTgB5ZY6fstxWGIeM1T59FqPat9e61JtVBOl8/nmc6LnQ/dFWrpG s6VCg/bFgCJVMTsoN/Nzha4B1Tmk7OkwK7s/QnNkxo0N67gfPsExN+Bx9Sje WZqYWchIQl7q7/cT72Ku15scpVjVWUye/BHPoTdjoab2JKO5ImQ6j2Tm4918 +XEp2UiHTpjsy0Y198TROXP8WItSXJR2zMt6URkXpfyS5GQg55V0bknXOenc /Yb1L2Pjhup49PBLyB5Q758Vm5XeZ2Q4ahRVu9zFa1Fo0nEsMr7RFgVqhHIO gvToqw3n4pVGOte0grUP6SDOcYjvG2mmcr12sx4hTVpRaNJKQ89a/SzSt79h 9fxRz1P1YadRfdBh1B92GF1nncOs7Q/xvZAbZ+6Io1yc1KjkB3/z649I104w tHcKuy6UYqG9jZnJzNDUGL9uIud/HkTcZ14yQ8nCJVMjw4mvDznP3jSkuZwj 2lT3zKdgZhI7k3VLIThKufoU+GT2x7hPOaV4m5n3xOO7IHT03nPAul0xGLfy KjpPO476Q/bgvV47pM7ss5v3DL038DDeHWj4ueTzKh9XMvSgxRv26w2Okj/v ylCu3RWvO+WeyEw9yrl68uvJbxCmeWkax2aYnyuZu5qhJVtvlgyluDfnlr7j +Dfltej9tfx6YfT4yIiPFNORPJVM1c+DdKf9HH6Q9yk0aK2PpqL7Gw0x4aVX sOjFbG575YifC7P7YUTGNPhu+HDxIYjkucqJ6cuk8tOVpUk5r9nxv8FUTz1e av+S8fxpphxV3hw5ug59+ubi/k7aiWzWMOm9mpqhmp2eGEq1oezL65go69DU zNBJU2Tv0uxZfjzTSWpRf8VQoS3XBrBPr/PzzM4tAarWKRBmL/3GTS9g7dqC 2LOnu3hTL8gcfYLt05uzLJLCUHNGG/e1q9FhN+4loF2/WQgs2QYFqofIGtIP pwiWzjLiaNTXtIq/e/S9k3vttSbdK/O2g46jwmDJUq63Jv8+9LrVT03atMqI m6xTqf6a8vn1hu5H5ymHMGHVGaz/+Q4OXgG+PnsZL9C8uo7FBStfEVYIPt3y Ccsj+BkkTnMIXz4TUjbLhNErxwvePcL9iId4RJqTmBlO+lP49OKU/PuHxFSh bwfNHQGfmhnwzKeZ8EzLF4Q//yJ82uRCsg75kaxjYfh0KCYul8AHk/vhjAD6 CfFYdhyNwPKvL2PM0mPoMmkP6gf/gKp9fuJcM8cEB5606nzoPOfcBp3gmDHl VzRHNUOlbjto+bs2f2yGkhaVuaUfuF6XOPqmxdHtVs0ocfQNwUPWo4KPdKxj VjaTPC2hLr+mjGfOCD+ec4aUl1dalO6TtajJUWK44qjJUpOp7O+b1yt2snYW XC4t/p1yQgfXqzIQIYXKY36unFiWM6PRx+nHRnWg4zKmxJJ67wO3b1s5JM9s dM5m+S3mymFHnkpd97/8k6Ciy3zeqIHgWfAJNxEW1lr49JnYpx8aksraNae1 qO7plPl4PzdfnjSojIf6ORhKWpRrRYmj01JbvUvzFwktKhjKOfpV/rJ3SdWL 6l5Pi6EGR2U9vrBN2bBmXSlcu76R82Px8eHWZ8jsKTTnIHnqkbFntJmMlRyl mN6DKDnziWai0R4zqn0qUm+qzOkKPUo1ifzdbLFazSzZyhwlrfRW9x3Kdz3A movrWgRLecd9yCUr71QlVPZT0zwf0qY1Rl7hPXm0u5nyUDUHC4064iiazxQs HrERhQfNQu6+IxHYrSvSdGkqdKPgavsKwt4Q/BPc+yQPRq2cLo6OcXgYI3z3 6FjpdwuLED54VHQ8ooWYjIxNYH07b+ta+FR7GT4NBZeblBY+fWWkadMAmTq1 R/auffFyrzEo3n82qo3ahPYzj+DjEQdQs/8uvNdvN97tuwfv9v9F7mIbfJz3 AdBzJP2tjfhJtT6VB2qGHke5ATJfTa/LO/0PMUu5hp1yNIYWtRjaY6eqcfqJ j1HEM13rRDl04qiOjVLOz9KjLdeI92al5GTzlYatlnNm6LTFasXP9RZDS7M/ v9WKi2qO6vgoc5x8csF1m+8/cY7RjN+y7uyi4rdCK1O84W1x7K1RezRalm6O iS+X4Jomyr/rPiRdyzQ1q9AkxYsg7uB+niei41EJ8d7jmk/D0MRipyZD/3e0 qP3Dz19n6Iw5tvp35C1evfYjBgwsgUHBWTAsVM4kMRkaqmYzaYayBvUYD00n d8Qrhjq0qGAo5Zas3qUl6VmLrvjCH6tWU24pkOOisn/erHMyau6NnqZ1a/Ph m2/bi0PzEZ7vlxhD3XsL1f6iWOdlx6zLWJkbCRf+6tjZm5CzTGvex8N7mj6Y zHuainHOfpH0DcV38bVWQv8o355rGYX/p2u0iRNc9zL4JNfmc88fcXSESw5/ uNzHQ7PTqoy4xTPTSKdWGn4R1cedRY0Jx1Bj4h5UmfAtKoxdhTdHz0fJ0Eko PHgo8vbrgdwd2qHXglU4cDUGhy/H4+RV4NQ14PR1eUo68siFBPxyLga7zkRh 4obdyNe6J4r2GoLSwRPxVsgcvDN8Od4dtRFVxn6PqmP2oNrIg6gcKnzv4OMc 5604mHoaL6BSyHlUHGrM4hDPiX8/5LQ8XgTbpusjiaHvDDzG+ry8zmOL14b7 Kl0YSrMKmKMOhkqfvozSosSnN9m+snx6rUeJjTrXpE0zlGOgirN8O0OHEkPf MDmq/Hr2M7pIljIbtTY1jK8nvnfSua9tHDen+DkdbyvUm4yPy3ZE/8JVMDt3 Xpc6euGjifNUBxqaPRBnv1gpZ4IqX4nrmJ7Sl38aprrmofTP35GpVl7e5Xhl vg6WJVDl9z2h98agR69Antsk6+5TudU06dpQvetY+/JmTJT3xo+3NajF0Klp ebboVEOLUo6eOLpqVYDSooGq1imD0UNv937quOjmDYKl64OwZnVJnD0zjXtY 9c6JJ5tv6WnGkupp5zl0cbz/g2c+rfsR+cu3R9A7vbifUObsp/GOEV1jWLy5 8A/F91L69ltlnSFrUtnf9Hbf/bLehfz7YMGTIWekLg29ZPN0xGWLpVXU7DSO oQp9Wo1qTkedF1z9VejCU6gx5iSqjz+GWsJqjj+EWhMOos64g/hg5AE0GHWI 61Jbjj+BVhNOovXEU2gmbvfZmGNoPPIIz0KtMWgP6gzbj/dHH0btMYdRU5zW GH1U3PdR8TiOocrw43hv2ClUHnZanP4q7DzHI3RfODGUTM80oudDMQvZR24w dNCvVr05PXftz+uaSa4PGnDYXYf22i1zOIqhpO05LqkYSiwjrnF+qYOpRTcK v2C9xUbOubfUDF1t8VTWRK2xbsM9aZSbIgYTiwX72LdQHH2945eSox2UUQy8 k81L1sUd5OPhGDnnuzbIntTPluHVj+ejWtXB6FWsJufil7yY1crFcwz0hTS8 Fyk08N/4fuAAOY8pNsbmJu+MhkML2eefzpf/LQw1r/u7/XB9qEvPgtc4CsdF hc8XflroyIroO9CP596Z9aJmjSgxlDQpmWao7vUkfmqGUn2TzdC0PFeUtOjk ab7cuzRnfgbuXVrCffT+bgy1+j9Vzb3J0E3rxemGLFi3Lge2bq2NqMhfwPNI 4qISZah+3p7mC+ldGTZD7fpHnh8k/oWvdp5Cmfd7cs6e+gWpp5Bqt2nmBdfQ 8B7mz+08L+XtKQZG3zPV7/JWb8GGftK/Z44Gy3lAHAulOZWhsibKnk15VdVG XWOOEmNrjKT5+jrHTzPWbrjYdZ4bVHnoJdaLNP9CzsQg7SgYGCJ+F0IzMK+y VQnRdp1PaT6mnD0k5xDRY+K8WIi7VVb94DxfY+g5qy+cdwEojsrYqDtDuV+S tCjxs/8hi6FUNyQ5mjhDtSa0GbqN9aNk6AYHQ1lnCmZa3DTN0qHrFUc3Whwt yUb1Ttt4vizxVJv+d+mUL6s6Ac5L0d9zXHaVnL/QaA7K1RmFBmVaYkz+0tzb uVzt5qR8/NLsabgOdGwmXyz8sA5w/Rr78M7vruuuVDi/y78h7vm0TGXe/Bf5 94/tf02QuSP23BPkcSreqMW1tafxWqh6XOqgOXhoObr3DMKgIZnYn7f6l0ZK 03l5J0NTidPnLA3KDFX+PNU4jZ/kJxiaQTDUz9KiU5RPT7Px7Pmi6a24KM0X tRmq+0ClFl2/Pg379FSXT7OfVq8ujv37R4kneU48nwcucU+1i8PippcdHMau DHMesp6xxPPpYmUN6WHhFH/YMgRZSrSS+0XqjLd2MBdT9fhy9tNKlbffYOXt ZX73J+YC5076HrT6Wnh2hfCBK3LuyZ6lRvq0mpo9qXWqPZfymjWvkuKqJkP1 38jZa1es+ZaerKqL2bOGDY6qx8SPa+hFxzwN7isYIudsmAzl2Ojgk26+PM3r qGjpUMXPRBharqeMiZbt8ZODoaz/xOvqjaGWP6856spOS4+us6yU4ij/bZv1 fF+c8ydTPr7l51MekbRvm20qp7WZ4wFWTotr/pdyTdxb4nhbt2x79ChWHTPz FOK+JD2XnubRkw8/PasfxhcpgJhDB+VMZXMetesenP9n3/1JOJpYf+nTMu2P /nEwFPaOb29zjaw9ivw8Irn/Z/GSrujZOzPvXrI4OkKcjrTr7F0ZquOhli8v GEp987JONK3qn0/NWnTydMlRyi/NnSdrnZYtC2AtSnFRqnMihppzRVmHGv48 6VTaKcJGO+/WV8Wd25t4rhP1LyU+Y82T7x5r9Xxb/YqxMWreprMHh17hq7dj 0X3oPN65Q3MrC9QZY9XjF28wz+4fbCbnkfL3inK9Hb5UOSeZu2d/Vfdekx4b JFmq56mRruNcvsW0Szy/lGtODa1qMVbNUue8v2Kuvp2+rcXO4ZctM+dbmtz0 ZBZDaQ6xyVE9qyj4nJqx6Z2hFdXsI5Oh5foddGOorMX0okPNmKPSgZJniTPU kw7V/KR9r2+YupV6P1vLXBMZ3S+Z1qmWXlW/53iAuH9Z57/C6jstVm8aKlUd gPbFP8DYAiWx8MUcNj+FBl2czU/WgWYPxIUVy9U8uzhH/sjaaWt8b/9qDNXX /7f+eD4mOBnq+ronGPM5EnhjZQRu3zqA4MGluGZUz7zXe5Ps+GgqR68SzQ4l 0ywljo6e4OdSby/josTQqRQXpT76WUqLhplaNB3XOpFPb/d/2jNGaZ/d+vXp hAVg7Vq6bWahRfNgx4524vmeBeXo9W4iVz/eednDLg69d8jDPCKrr5F3aQDh wrmftXg7CrzTClnf7CJ32X8wgWOkhRvMZe1R+JMlKPrZCjvf1E7m7rkuv9P3 kqWCD1xfqGYC8Uwonqt2ivnDcUXSdjTvd+h5y4fmWb7GbgppmoNKTxqMdGem 5DHPlCatO0zNBx7mYZYw1RGE2FqUYgLyVMVFh+q5bjIuqhmqc/M0b/Ndw5e3 +sqVP69rRCtY/TyqztIlpyRz4bJ33mSo7p/XGtHVl7cY2mqtW47JLTaqrZVx e+N+ShqatSRzea0VZ31NsZO0J+UayS8pXm8qStYeiTpvt0VIvjJYSLVMlItX s+xorzH58KGBKfGVnknPvUgJ8FazJOeUmde7+vh/jnnn0F9La3r68VYf66Y3 XThq73aLt94v8ul37pyD7j1y8kwSvRNEziTxM+Kitskck68jrzR6fFqPDCUt SgydJlhKffRz5qbFIpqNtyQ9a9GVK/2tmlHXnUs6HkoM5T2hawN4RxPFUamX /sK5z8UTuinY6L4H3alNnddbDKWZQi4M5XhotL2LSM+C1/NKvt0l+NCgH/xL tOC5agXfHy1nAgnfnuqfaK5a0SZLlSZdJXWNqj/k77/qgyFOcL021ZX2Vj2D Aw5z7JD1m4qbal+ZY48WV7WffcGFgUqzGuftyxc5zsnx12GSka4MtTTpUJub mqGan/QYiKE2Rw0/XjNUzS0iDaoZWl7HQo2eSMlQ24/X/JQM3eHgZ+lO31g9 nzoOyQwVPjfx08wp6fw8+QRsKi+fuK2Uxz5l1t8af0/1UbrOtLhi52tNwmSv PvW1NZiJ1+uMRuUK3dG6ZF1MzVvI2ofEvfDCh1+QU8ZAl31UV9aBxsWrXk7v scsEN7b+NRjqiUN/ZYY66uVdHrPzucXBsYfd8Tv31547nQWH5s7vgO49AzHQ 2Cev60aHjEiFEEOL6jnMrvn50eN9hR61+z6Jn1qLkj8/fYafiouml3Oal6eX tU6rAiwtas51IiOukgYlhq5elZYZumYNzdLLh23bGiM6aqd4/Pfcaph0HZO9 n8OcLW/vNLL3YNqzPu1Zycb8TbocE88cPXflIboNmYVsb3yGoHd6oEANObOE ZwY1nM3+nI6Tcp9oS5kDfl3lnLyyVPCE2aLrogYeN/JQp2X8VOXCOWfEbDXm /hq6lfM/w8guOmKbmr1Oc7+N5OYFi5+6lsmeLXzWXX9STSztUBnorK+vaOaT +kk/3luvJzO0m11f76o/+VjURs4TLW3V2W9wsNOua1JsNGrsTaN8IM8f4csr vN6O+/Hptp/JHijqt3jl0zCpPcl35/l7s3hO1NtVBqFZyYYIKfAm5uXOxXOW dR099SJNzuqH0SVfQcKRIzR4RvLT2reoct5eaprYnninwx/LU2/M+iv8mDkx /ZjNy6789M5Q18tEhShxSDzEPn3vfukwaIi9Z4k4yjHSkbZPTz1MI0els2pG NUdJi45mLUp1Tilk/7yqFdU+Pdfdz/Tl/qXFS9KruU4yT697QEl36vp63rOk GEo6dDXFUPm2OQRTi+Hw4VDep0w5+vi4aLsONCbWhZvyvNzH4erDx7n58m4M jZLnqX+cXnny7Zes/RGvV+/EPaKkSdm/rzsRxerN4Nz9q40XcoyM+2Xou6x6 Rbnn24WlpLtkzHS3yj8dsLSp5Okxu0Yq2NZ9PIMv+IyKqZ61NCLrRK0dFQu1 P27m2BM3m59031VpL8qQXz3ys4JLDonnZg48Ik31J0kf/oCMg/Z16k+dR/Km P83aeslPZ12oq270xkvTXhFMfOWz5awp9am0z63zdD3PKlVGtRg0s/uVjxfI WaSN5sr5peIYWly8/9XKdkK/whUxK28+rmXS/KR5oLOy+3Ev/MX16wU/o1mD Ovlp71/wyFCXPNNf0f5quXtPXHcwXxU1PfZ5ubFU89Y+Tz79vn1L0LlrEPoP eB6DB/ti6FA/I1/vPlN0uOCoPVM0lcrTp5J6dKLkqPbnLY7OSIvpM1Nj9jw/ rhkNW5Yey1cEKJ9e+uysR1X9vZWTp9wT8fOLtFi1kvaLCH9+zQvYsP493L3z rXj8d8VnL4LZaTLU1KFaf1L+yN7VEeO4rOd5mnPpoqIiXPJNMTy7jlT8kdPX 0a7vZGQr+SnPI+V+e9UnKvub5lv+PWueFva8C5OlxArZW/ij3Zut5sPJevSD 1rw10nXEKDm3Us3+5R0Vpy2/Wu/+0WzVsUvNWd6tNtRppsa0/8apOU2/XdYy neR/m3e5DTxu6U6dP6rQ/6BjlhFrbWWyT17NGun+k1f96VpLpPUn59SN+iU3 3cn60XsPvSsbWV+yLTNsiZoHFcZGulOzk95fmk/D9W6Cn2Ur9cHHJRtjXP4S WKr6kSgHTz68nge6k3Z6UAw0Jtby4cnoM8rfUa4rcZnLlOBifwFWJqZFH+fT /9Fs9VaXxec9stEzQ+15cKZe1e8R4Tia+yiXr+iHTp0DMGBQBsFRwVCjBl/P J6H596GjMlgM1XpUx0VdfXrN0cnT/GSOXrBU14wuCEuv5t3r2KhRN2owdMPa QGYo8VMbadKVX+TDjz/2FY/9FBLi7kt2Rrvv+rH1Zpw7M4mPJlNdGKrn01k7 NiKl0WV6Nx5EAss2CJ/8w54IeK0Z776Ts0sm8PdL94oWa7LIml9pzg5iLrTb ZtVyv636Yew5lrsccywpjlhB61TV+6PnWFZUbNVzgXmHSbCzH9Nm7Rljd6Ur fyUj33PRmpT3IpPz2u1+TqsnfuAR5bcfttjJM4367jNin3vccvBm/l3X0lsz 7wQ/KTen459af5Zqtc7g50oXzWn43YqFxMmkGLGSuMnHPtacCxU7ld9Ou0UV PzmGI6xUtSF4/81W6FasGma/lM/KwRNHdR3osiaNgTu3uY7eYy1znMlQQxv9 FzHUZCmd98TMp2Hok/ytKy+9Pd6nMvM94dr7KISH/4pRo6qiWw9/5uigITI+ GhzynLUbVO8R0X2gI8ekc8wV5Vony6f3tbUo14tmYJ9ex0bnLEjDM0nYp18Z oOqdAtivp1ioNFkbSr48sfPzFWnsfXerXsSqVaVx8cJ88ULdUDWe5s6KOKN2 KXHTrPU2t13v1zDnxNOc48ioOI6Tnrl8D0PHh6FAuRYILNESeSoHc68ofcc0 S2mfKH8v9QwT8d0nDpCm0n3bHPdrL2ercy9hV6VPVb6F/F7KYXNPqdJ3FlP1 7h+X+cA6PqkZq2MCFay9Fcb+ikTMvg97HpPu39S6s1LfQzbnFTcd7DR64s3c O/cAdbRzR1ZfvAs7rdhnCxe/Xc2/k7ZUclMct/RcUW9G7wcZxTfN62k/TKHG 85XunM95I3oPKX9YUOlPem8L1B6HckKDti9eG6PzvYIFQdmUD0/zlAMwJYsf Jr9RHPEnjwv/PRoJse51JJ56Q/4u9lfw6//f+mPd6njlHrsLF75B776voGfv AAwcnIY5qnfQE0d1LT4xlPd9qn56eyZeOoujzhy9qruflpa1KMdG56S2YqP2 DrsMll9PsVDip2bo6lXpsEIwlOY60+nKlYGCq0HYvr2hYNohxMU/EG5ShGKm 59ol1zy8p90WSeOoYijPRoqwdlXuOnge7ftN492SGUu2Qd53+0ldyvubJvP3 r2hjWQ9F31uaH1xCzRR6Q8+1VHFT3m2p6kzlDIzv5Z4MNeNS+/2aqXp3RTk1 d13HVa3Z6sw5J18tzvY3/XD332udqee1631trnFOs15J1s07ffY3XXx2a56I oTtlTbuHXk7Kt9NOpRarYc+8+1zGMy3dKdlJZupIt9nMylyv5/iLMpqLz8c+ YZR3l7ubpnP+iPhZuPYYFK0Wimpvt0dw4bKYHRSEJUGZrHmgM6kX/sVsuLFp E9eBWv108e61y393nv5RHHWNJfwR8wUczzOeJpI/EP7xAnTqmgW9+6Xh2fcD B6cSLE1l1T2Rf+86797iqNClvPfT2lnnrHWiuXhULzp1Ou2wUxxV/fTs06tZ zVx/v07uVbYYujqDYOe/sXTxc4K5acT59MzRlZ8Xx6FDk3kXaEzsfVWz5Cl3 FOfGyidnp975Fq04GilnxdOszgiaywc8on2VO4+iXe/xyF36U6FLm3Pv/cvV QpilBT6coGZCzbRmmVD+qUST5XI2lJHP1/6+nnNJRjsvdU6KGaR3ARFXtV7l mOpuZcZuIGtnpc1YMtKPZBWFD16xn4pj9nfOadd/Y8c397sxk2ZoOvLs1nx6 Z8+RlW83Ztrp3kkzZ2TOrecdIIKdxdU8UJ0vd8Q1Pw5z46bWkqZxPVKjufK8 NnFs0ztENDu5bo32G9SdiiLiGEj9FcTPl2uPZX6+JY6RH7/xKca9/CqW5Mxo 8ZPmgYYKH/6niePlTiRm6JPPdPDG0v8mxnqatff/wUtXZv7R/JQmhBT79fcE z3qjfccArr8fEOzLM0eDVe2TOafE3JtM8VFi6KixGRx6lBhq5ekNjpIWnT4z JeeYdL2T7mGy6u8VQ+l0zZoA9uWJoUsoBrDMj5n6xRcvCcbWwd2724S2vg1P e9296c+k++62yb1F0db+ooiIcNajrEnD5U4O2sn8UHx1fth9Cr1C56F45Q4I eOVTZC7Vjnf3FqwVavU8EU9J59B3lnK+VDsj9+OtQEk1e0j30pgzMqivm/mj clM8P0rFAKRmlXEAzvt3+8lmq2FUW6SN90UZ84Vp/4U9a1jPV7JnLGmzeGnV Jv3kNt+I9xUZczrMWk/LZ+c6pfUOdsr5Iaus+aDFtc9u1Rots2KZzvjlfIdp bkpz2bdkXCfZOVP660p3Fqo7TfFzovTfaX9o7dF4vepg1CrbHh2K1cKM3Plk Hb3g5/ycAbwTaXXTT8RX6a7cyRnrZOJv4aj3HhLvvPqz2emxhv131KSusdc/ i5sJCa7PLxLRURcwfuLH6NjJD30GpBIcfY61qK4flX69ma9P5dCjdp4+rbNu VHOU60YlS0mPzp6fGgsFF2kuCc0alT69zDFxnmldBq5r+uJzwc7F/8aiBakQ tvDfsl5/RVZh+fDDjs6IjzuL2NhwxMZEOnqOYlT9vJ17/+0MJYuIirR2bUgd GsX26NEjYxYy7Q+Qez4OnriEyfNWo/anfZGjRCOke+UzZCrdieOmeaqHyjl7 4jtK/n6hj6bx95h8Sb0T6BW1D0jmpFZyDT/XSzlmYW6y66faqfnsVBekdley 6VluirO0z7Kcjkt2+8kxd5jYa54nHusYpussOHMOnKkxNS/1HHrXGKe09Xas s4VZ4ylzRXqmsoxzyn2eeoeSM95p+OUq/2Oa1paak+wHfDRbmvLVtb8ubaq1 I1TrT7l/eRxerjWaNWjTEg24HnROUE6Og9JeuYlZ02BC2dJqJ5LQn8Lijd5j 7/3JSZs1lphO/Ssx9HFcfRpuul72xOk/6rVw/3cSVI4pAjdvHsCg4LfQpZsf +gdnYI5qv57yTHpfvT0L39eIj/q69DGpHNPE1Jg02Z5JYvUxUf39wvRG3aif 5deT6RrRVSv9maEL5qXBvLlCvy4Un9ulAUKPZhR6tDQunF/NfQOxsQ/Vrrdo F4Y68+6uutTcz+7N6PeR4r6JodqXp7nxxFDeXxQud3E8fPgQjx485FPeTRST gCs3w7H1uwPoM2I+3qnbE5lf/ZR5SjP0X6zUi2tNX6oZggK1R4nv7DjZmy/8 SLkvbw6zwcqFcK5/mdp3QZr1c7XvYpXVw2jPeFsvGWvN0KD81Ta83U7lb9Rs otc7SLPqMvV8N6NOU2tfyUb7OtMnt/rZDd+8lIprmvM+zb5LPjYwM5WfbtUl LbVinXJn0iKPPrvWn3q/p5OZtm9O+pKOU7xzvv4sZTOYmeyzfzjFsWNZ598L vD+R+UnHO+qtqFihG7oXrYbJeQtjQc4s7L/PfMEfw4Oy4dpX22UvfHS017ng T6I9/y4x06fttfekbb0x9I9np/m7eGt/yMmT29ClRxF07xmAfgOfQ/9Bgp/B qSxNSmZy1PLt1R5Q0qTEUD1nVO4AteeMapZS3SjNGqW5JGGLZd5Ic3TV6rTc n6TzSksFZ2fNSIlp03y5D3/BgvSSo8sLYduWZuJjuxsJ8Xftek6Hvox1u86q W1Ln9X5h7368NOJkZGQ4+/K0x12yVPKT9Kjm6IMHD9ju3X+A+w/Cec78o6h4 nL5wA5u/2o2h4xagVpM+yPt2E2Qs+hH7/FS7n6t8T+R/bxDP3uN+qNrj5Oyo DyfJ/FR9yVa9P13H+nS+hFjzqqp9lBp2hayb1LsxWq6y+aVmb1CvP5msH7L9 asrrlGhtXy5lnd/gcnm9s2/IbS6ys47TmtnhUsepa5JsZsrcOfUuvPqxOzdN 3WlqTVNfOnXmVGXTnZeJn/r1VdrT5ucE5K85lt+LItVC2I+nvvgFQTk4Bz87 RyCGZvTDngnj5U45ioHGxDt64ygnHx3722Ojj/Px/5vstzLUlV+ervtjzdkD 6ng8CZRjuo8fd4Shfccc6NHLH/0G+AmW/svK2VOcVOftdd2TmWvS+5f03hA7 PmrkmbiPKTVzlHrqFyxIwz46cdTaCboqLdeEyrxSRkycmAxjRyfD5EkpeXcT 9eEvWxaEZctL4sjh0bwLNDomXGnNOGeNvBtXPfvurlzVuSPNSnmemPkQ4Y/C LX5qhhI/NUPv37/Pdu/ePdy9exd37twWTL2Ph48ice9BFC5cu4f//HwUc5ds RecBU1Gxfk/kLtcUfiXrIvXb9ZGmfBOkqdgcmat0QLaqXfBi9d4Iqt4feWoM Rt4aw7hPiuKrxNjC709AkQ8myhjeB5OlvmLWzrR4S32pdrxQ1j+Sti3M+lbG F1+z6s6XyJ6dz5yM0/r3Nau/R/VFGr0+nmrcdQ7I1JdmLZLWmTq+6dCbmpcu +XNHHoh0pjKnbz7djm8qZpp6s5DKGWnT7NSmNWgRcUwrXakvGpf6DGNfKoaw FwJ4J9KIQF980aolxJts6U/67BE/aY6Y2TfnyX4vnv7ZbPz/YqjmkquWdWXX n28mU+OQAJlj2rBxFNq0zYJeff3Rd0By9B+YRnHUz8nR0HSKo7KGVPcy6Rip M8/knq+fNTMt5i/w5xzTkmX+lh5dtTKN4mgGrPziBYwdlwKDBvlg5MhUHBuY M8cfYWGZhRbNgbVrquLe3R3i8d+1OBoV5UmTevbZtQ7VtzG1p52DD2ezuRmh TGjP8EeCoQ8EP+/bDL0nGHpX8pPstmDozdu3cPPmbVy/fgPXb9zG7dv3ceP2 A1y5cR/HTl/B9j170Xxif6Rs/Cp8GhSDz4evwOe9N+DzdllhVfDc2x/C/81P 8XypFsj6Zjvkeqc7clfsxXX+NKcvT+WByFNVMLbaELxcdQjyi+9+/urD8XLN EcwCiukRF7iGlZihjJhSoJ40zSLiL+eoVR6Ga111vsZln7tZe+lekxnmVotp MpJ2qbrWIBXzkDf3FOMsZGhN0p+21rR5aXKTL7tyk9k5weCnjH+S/uTXrOYo lKg2CFWFBqX5dlNy52cNOjlzGkwv+yYSzvzKs5gSzJoPl944T+z0xFLNxN8S Q/3zOfL/w1D9d4np0b+iUf097eBYsLAr2rRLh5590vEM/L79UzFHyayZT9Rj r/rsHTl7xVG5U9muw7c4qvYqT1dz8vROUNKjXMP0RRo28uWptn7ipAzo0tUH Awckwyhx/1OnZMDcuRmwZLHw6xdT/9IQ8djPICb2nqU/iaM6/plYvNOKeXpg p61BiZuP3BjKOSXWoPcthrIGvSc4eve+0J932G7dvo1btwRDiZ9Xr+Hq5Su4 dOkS2/nz54VdxK+3zmP8t0IjhZRC0SkV8dK4csg9tBKy9ayI59uUg2+Dsniu cjmhR+sh7zuNkKnI+0idtybS5f8AaQvUQ7oijZDx1abIUqolgt5siyDxvQ8q 1wW5y/dg1r5YqQ9yVerPlvu9YDaqv8pbdajQtsORp+ZwZkY+oW/JiCfEFfZv FWsll5S+U/FFYq3mmoN3jVQe3NSPmo2ak1aeXHLa4aM3co9xWvFNZa75IG/G NZ5UE6Hy7YUsv32C/TzrqPxR7bGs8TVDS1XuxxqUeuOnvhiEWS8EIjR3DtzZ vo37OJmTNL9G1Yc4GRrH/r03nv5euvTPZsbvzVBPMdC/Njd1P2gs7B0ikYIr FzF+cmO06RjAepTy9RQfNf16rn0SetSuIU1l7VY2c0x2X72sH504Ka1R9yT8 8zmp1X56mWNaofqTKKe0amUOzJn1Itq09kHnToKj/X0xRvB6xnR/LJjvj6VL c2P5indw+fIy8dhvIsrUnjHRfPlxDPXETldz9d31edOHf/DgkWDoA8uPJ37e Zn7eEBr0Oq5fu4prV64yOy9cuMD8PHP6V5w6eQqHLhzCyG/GIPfIQsg5rzAy hhVCpoVF8ML8V5F15ivIN6k0Cg56G0PXTsKa777G0pVbMHn2MvQPmYImbfqh 8odt8Gr5hnihaA2kzl0RqfNUZsb6FayPgFc+QdYyrZCtdGvWsNnLdkKOcl2R s2w35KrQWzC2D+/le4n4KjSt5muQ0LNUR6C1rOTrOMke0rMfTFZ+sc1XrQ3d GTvTccox3Y+cjKTLzEnFSve45nS3mKYnXjry68p0rqjw+9Jc/XZiqak/yV4S Rr3xHV77EMPzvoYZQUHcC//zlElCakSyOWvqol3MvT/OnI/jTac+aa7pv4Gl SWGma6/7n5E7+u38dHJU9jFFCD/0sNCbVdCug7/gKNU9pWGOUg2p7g1lv14x 1JrjPCqVsaPenpenc02Urzc5SvNGafb9okUBWLLUn+c2sx79PIB9+WVLC6J9 Ox80b+qDrp2TI3igYPEYP8FRyktlFPo1D7Zt/VTw8ITQAA8EP5VPr+xxWtRV g9r5dxkH5bqmSCdHPcVBJUMfemDoLcXQ65YGJX6eO3NW8PMEThw7jn2n9mDU t6Pw4ti8yLgkF3w+zwyfZQHwWRIIn4UB8J+dE0Ej8iFkWyh+PPIjDh48jCNH T+DIMcHfo6ew+5ej2P7NTixfvRVT5ixHz+AJaNS8D8pUbY5cJT9E6pcqCa5W Fbq1FgKKfoQsJZsi2+stkaNUW2Qv0w453+qEXEK3UoyA8lvE1VwGUylGIDXr MNatFBtg5ij+5PtgvKVZpRksqzuNYwVUh2mapWktZs6SvUEuv3dlp2edOdnO qxv5dfbTP7AZWrDORMusuCeb1J4mQymfVLlCV/QtUhnj84jXPpM/1rRqATy4 z3kkXQsSo02x09SlSek7ToyjSWGo/ps/nydPztDEZiT/tZgJF/N8O8djZj0a Lr7vuwQ/S6FDZz/06p9OcDS54ijVPkkz80x2HWkqh19vxkflHhFfa6cd9YTK 2ST+golybvMy1qMBXA+6emUBjoc2buSDVi2ToXuPlBgq/s2JQuNSbHRJWFbh 15fE0SNzxWO/JD6bD6x46OPql3Q81Jsvr01qT+XDqzgom5GLfyg06AOVT5K5 pHtst2/fwY0bN3Dj+k325TVDz/56hjXoiaNHsfvELoz5bizyjM2HzEtfgs8X mZBMGHN0cSAC5uZEnlH50GdNP2zZsQU//udH/PTTz9i1azf27NmPPXv3Y98v h/DLgaP4Zf8h7Np7ADt+/gVbvvwBi5auRujYaWjetjfKVvkEQa9Ug29QBaQX OjVT4fo8iyrb682Q/Y1WCCrTnnma423iaQ/mac6KvVmnEk8p5pqnCunTECve ylZ7pKwDYt/YjgPko1PlS5ua1RGnVD3pxNrEfHInNyc5YptmbqiQkWN3+uzS +HHVmeDGT9rrSkbPp2CNUBQVOrxO2XYIyV8Ko7NmxPgK7wCnT3MdE82mYe2Z aN2xPcfht3I0KQz9b9Cj3vjpyp+/Fje9MTTx2zqfA+0ReYjjJzajU7dC6NTV Dz37+Vp+vazF91V99n5u9fjOGlI/Rz+T2WNP8VHi6MzZfjzjadGi9CpXH8h5 eeqTnz7teTRs7INmzZ9F2/bPolef5zB8+HOYMjk15s8Ttw97GWtWf4SHD35A fOwtr/kkbzVNbnkkDyylulCdS3pk6FDmp46FOvLxdHqfT2/dEnr0xm2hRW/g 8uXL7Mtrhh4/chQ7j+5khuabUASZVryEZ9dmhc/KLIKlGeEjXofnFwUJvhZA p+VdsPLLlfjm62/www8/4Mcff8Sunbux+2dhu/cK2y3t513YuXMnduzYwfbd d//B9i+/xco1WzB55mJ07j0SFWo2R47CNfB8wfcRWKwBMr/6CbKVaM4s1do0 Z1nh87/TDTkr2NqU8lemNuW4qtCnls9fe7SlTzVLC5h6UPFUm6uW9HadbZMs hjpZ6axPcvXVdc7INNLTnG+jmbA1qRZ0FD8PqmeifHzDt5oiOKgwhufJiatf fQVqpIiLjExy/1tStOjjck9/hzipqTm9MdQTg/4yTPWwO9CepQeuYzN33Tlq J+JkX/3uPZ+jbccgdO4u9GhfX/Tu/5yDozpfbzKUdoaGjrZz9qPHpLM4qmuf iKO6r2nKNNpR78f1TrQXlHbayXr6jIKn+dCylQ9ztEXLZ4QuToYBA57DOHG/ lJtauDArFi/Kh10/9xPP7RL786wRomI8MtSbJtX8dGWo6d/reGiEYOrDh3ZM 9P79e2zEULY7d9nInye7eVPo0OvXmaEXL17EubNncOLEMRw6cBDf7/8OodtH IP+kV5Dxi7zwWSfYuVYwdFUW1qSZl+RG3omF0HJBa4RtDMOWLVvw7bffKob+ jD27SY/uYX7SqT5PJlm6E/8R2vWbb/6DL7/6Flu2fYNVa7dgQMgkBOarzD5+ xqL1mKPk52d/oyWylW6LHG92FBztjKDy3VmXEkcpP8WalPqudC1A9aFcC8B+ vgtLTYZJHTjBwTtTPyZmj+OlvF+n5vTEzgKG326a9uGJp69WCUa1Cl3w8Wv1 0ClHPuybOI7jn8zPKM3ISKfmZDPmKMZEyXmLT8DTp2Go/s7+1RmalNr5vww7 vTI0zsFQ+/f2PEP7vaDZGpKjX381Da3bZEPXHgHMUcrVUy2+HR+VeSbNUblb RObsaQbpKME72nE3egzNzUtpcVTX45MepVl5lGOSWtRf9cmn5/mhNOe03kc+ aNLMB63bJkO3rs9iyOBUmDBO1kktXpRZsPYtXLvypXh+t8VH/pEbQ5MSE03M r+dYKNWHPhQcfRTBZjH0odChD+5ZepTqm4ihOi6qGXr16lVm6Jkzp3Hs2FHs 3/cLtu/+EkO2hKDQlFcVQ4Ufv1bYmkzM0SzL8iLfpMJoNrcF5q6eg82bNwoe fuNg6N69e7F//35hB9TpPra9e39hI57u2rULP/30E2tYYupKwdEiZRsgbd4a gqO1EVikvsXRHKVbG3pUcLRcN96JonNQFkerDJIcFdpNalLt44+SbKo91gtL vXNRs/FxtyG22prTMzNdjRlaa6RHfmor+d4AfPh2KzTIXxFz23eBeBMBOpZG G8dimjVr1iLTZ83gK/2eOfqE2vRpc/aW/on/69Tku2pP/fNnP67f01xfe/O9 o/O6dnT16lFo1ToAXXv+m2c9EUc5Xz8wOTPU6rMXHB0S+pwxz9nuadK5Js1R S5OOT4nJU50+PetR7gcNwowZL+OjhkKLfuKDpsKn79AhBXr1TC58el/26ane KSysEL7c3kX480cRF3PPmqFMM+qjIzUvw8V3IcI9LhoRybdxr61356iZm3ft UXKts6cae84t3bjJvvyVK1eYob/++iuOHj3K7Nv80xYM2RiColNeR5bPBUPX Z5EcVXo0cHlu5J9cBJ/OaorZK2djw4YN+Oqr7fjxPz8ohu5lTu4XmvbgwYM4 dOgQDh8+yEb5J7YDB9gOMFd3Y9++ffh+x168U7sN/AvURkDhD+FfsC4CijZE 5hKfMUMpl5/jzfYI0gwt391RK6XrUlmPKr+eYqWSo6MsjhK3qPdKG9USedKL ntjq7XZuf1dHmvnvkGlOul5mH762jH9S/khzn/Lxpar0R90S9dG9SiM8/PUc x0BjIiPcaopdezSexr933eX9e9Q/OfWQZ57+EYxNSs/m38U8Hcdi4yRThdfP +m7hoi5o1SYdzx3t1S+VxVGtR02OusVHR9scJT06euxzkqVkY1Ni/AQZG501 Jy3nl2Td6L8FR7MKK4Y27X1Yi37y2bOC5SnQsVMy9O+fHKNHp+E8/bwFObEk rIzg0zxxkLsudEGE1ARR5uc/wo2hbIKhkSremVitk2t+3nOO/oGVW7p9+5aD oToeqhlK+nDTjs0I2Tgcr00qjWxCc/tszCo4mklxNAvHSAtNLoams5qxDt24 UejQr7/Ejh9/4Njnvn37mZ/EziNHjvD9Hj0qT48dOyZM5v+PHz2G40L7Hj1C ef2jOHTsDD5s2lew8wNke7URMhZvzEYMpbhoFmHE0JwGQyk2avvz3hg6zKHr NMMol889lLXHJcJDHcecwPY4dlr6sra7mfVK+rzJUO27a4YS+4mhJSv3xoel 6+Ho9h9Ag7fN+LlZT+waI/LGzN8aJ/29WPpnc/S/o04p6Y/f0+uXNJPzSaKj LmHS5JbCn/ZDj97/tjgqe+yTc64+eKh77ZOe+aTz9Xo/E/v2VI+vekQnTErJ s0lIV+rY6NLlgfji85cROuI51Knjg48/ToFmzZKjTbtn0bV7MgwW3J4w0Q+z Z2bEooU5BGM+Emw7zDn6qKhwL/FQNRdU+2eRMn6alDy9N5566ve0apyYodct hp769TSOCp7t3rOLdeiIDaNRavJbUoduEjp0g9Cg6zOyJqXrikx8BS1mtcCc VeTLb8a335Iv/wMz+Bfhux88fIjv79gJwcqTgpVUN3XyJE6dOuXRTgo7fe4q WnYbwxo0+6tNkEWwMxvXPTVz5JaCjLonnacPqkx1TzK/ZDKUTMZGR7pxlEwz 1M3HToLW9OibG7zU963Pv1zDc+yTfflaI+26AorhWteFolCFLlgwawUgPg8x EZEOZiY2YyGpmvRJGOqJpb8HR01u/hEM/evXyv92exKGxnGOKUrw4SSGh9YQ DCOO+jk4auaZdK5Jz8R3m0PKetTuaSKTPr2McVLdqK6/Jy06d14eNGrsg/r1 fdDk02fQslVytO/4LHr3lT791CmyfzRsUXEcODBTvF9XxGf2vjXDjnhpfwfs 2cr6cmRElCOPxH/nIbekz3vSookx9IaKh1J905kzZ3D0+DHs2bcXm37cgvEb J6LcpIrIvpx0KOnP56UOFQx9YUV+vDq+JNrP7ogFaxZaOSXKue/9ZR8OHBJ+ u9CfxM8TJ48LPp5gRpPW1Ub/HtnZs2dx7tw5nKHTSze5Zz9zsQbILrhJ7MxR uhXX5BM/c6hYqF032itRhmqO2vmlpDPUlaeJ/T4xhrqaJ36a7DSN9DNp6w/b jMPd+4JV9HkJd77fdP5x8fWk8vRp9GhSeZrYbTzx8/+Dcd5ySX8HSxo79esc yxyNjYvi2tGrV3ejT7930L5TOtajvfv7Wn79oEG+3F+va/FJi7rV4o/0NfSo wVKHT58B8+an4diontfUpdsz+LCuDxp+7IOmzZKxFu3cJRnHZMeOSYeZM/wE R/Pg85V1cO/u1+IzdFvx0nU+vee8PM21M+cue4uLuupQTzFR9uXv3uGeeepX unHjutWrdO7ceZw4cYLzP1/u+BJztszBu+OrIOuSl6T+3CD8+XXSsi/Jj9dH v40ec3tjyfpl+PIrqm36kTUo/T3578ePC3ay7jwpmHlKsfI881L3RdF56i0l o+suXbuLXkPnIlvxT5Dj9Zacj89epg2yv9WW+Ul1omYclPrzzZ5Rq160yhAv DB3hxlBX41ipYZ5yQImZt/t1z7u7MjOUjfz4gjUlV/PXCEHuSj0xdu52xMRD zkrw4IuYNRye6o0fx9HE/P4/2rf3xNE/Kg/1d+Dpk7zW9H7JXiZ634ijNC/v a3TpWggdu1BvfRrBVMnRgQNlfFTOILX33ek5pPbe5TRWf6jM2QuOsm+fkn36 6TP8lU+fHksWB2DZsjyCry+i9gc++KiR8Ok/TYbmLZJxfqlnj+S8n5T6oGbP zY4FCwsKndYX8bEXxWf2kRUTdeNnhMwn2bkC2W+fmA/vrQfUdX4T69B7iqO3 b8p+pavXcJkZKvz5U6dx+PBhfL/zeyzbvhwNJzZE0Jx88FuTAymFJVuVHSk+ z46geYVRPqQiQhcNx8rNq/H1N98JP/4n/PLLL4qfR3Fa+OZUc0qcZG4Kfl48 r3vyz3MeS/bpX1F2iWee9Bu+gHPxOYmdwrK+SQxt7+AnaVDiZ+7K/WQM1Jhx otnp7ssnjaGOvFMSGJpUZrrn3D0zlHoFdL9AgepDUKByN3y9+zyiYiH3Fjzm OOpay/EkevRpYqX/n779P/b7cZPZSbsJ1d/Z75n26x9g1+7laNU2CF27+wuf OhVztN8AX5c6fDNf73lHk841EUtHjU6FseN8ZZ5e6EriKPcwLX4BYWFF0ayF D96vT/WiydC06bNo3SY5Ogifvq/w6UeK+5sy1R/z52fFkiXv4NrVb5QWfeTI JVl7kCOjjPx9lEcfPqm5JU8z8GS9vcHQa1dx5colVd90hvM8FBPdsG09es7q iRdGvoTMQov6LcuB9MtzIWBBLr6u7uC6mLl0JjZu3cC1SVRTTzkk0rLUM0r+ utSZ51lj0v2TUfxVzzih85cv079/jesDrt54iH6jFnMMlHqUKH+Uo2wH5CjX kXvqqZZJ1jP1MuqZBlr1TE52hiqTDLVZlThDNT9dz/9WZibmqzv99uHWKVn+ 6iOR/70BqPrpUJy5Jt7/6AS178W95yKxvGNi8dLfI3//3zjD5O+gN70xNEnx FPbf3Xdly72vUVzztHX7FLRpnRk9egSgdx8/ZqnJUc95JucsZ843KT1KRnqU fPrp0zJwTyfFOak//vMVBRE8+BnUqiO0aMNk+LhJCqFFk6Ndu+To2i05Bg16 DuPG+8l46twC+Obr/uJ5nkJU9B2P+Xiu6YuMduQMHqc9PDHU1KFWjaiH+SPX r1/DtWvXlD9/jvUj1SN99913mLpiOkoFv42Mg3MgaHI+tkxDciFXp3zoNb4n lq9ahq++/pLrPA8cOMQ5d8oPnT0r+UnMZB9dMVNzk3ip7erV68qu4vrtcPQd GYYsJZsj51sdpP9erjOb5qelQQ1+Uk29q/YkfrKe+w0Mpf195u1Mbfo0etPW wu5G81TI9G2IoXkr9UafEYt4P9aj8GjH+5tUv+SvwtLf07f/x9xrbpPit3u/ Lt64HMPzm2k/3LIlfdC6dUb07BnIDO3bP40LR+2dodqnN/vrrVnO1Bs6SnF0 XEqeGTpdadEFC2guyQuYPftF1Gvgg7pCizb6OIXQoikEw5OjY6fk6N0rOYaF yPzSvLkvYtGit3HxwnJ+jDIHH22Y5zl43vo9XfnpOsOJLrvWiFK/p6xx0vNH bjJDL1+9gguXLjL/SEtSnejG7RsxaFowyrQog+wfByFb4xeRv0FRfNavGWaF zcGWrZu5Rv7AgQPMz9OnT7P/fvH8BcNXv8gmNafkJ/17xEzm5vXrtgmGdg6e K3vly3a2ejvJf2d+VujNdUxmTT3rT6PPU7NT6zlXdiaFoU9rnn1179pTM5Rr mWqNUDpUPP4K3bFm+17ei0Uzs2V/r/t7bXLVG2NNhroen5827+Tt+qRo099j PunfTVcm1nfqelz5Lccls/dM3o+8X/M9S0igz8JFTJncDG3a+KFnL5o56scc pRnOem6ersM3OarzTJqhI0b6CYamY46OVlqUdjHRDHuZc0+PJcsKoFPnZ1Dn Qx+uuyct2qJlCqVFU3LNKM1snjE9I+bPC8LmLU3F4zsp7KGsD4107jw2P9OJ 9cw/aX2o7J2/r/rm76i+T5pBcgtXSYtekXVO7NMfP85178TJ8TMmoHmvFvik SxP0Hz4QC5YsFFp/G+tP7b9r312z02bmJcHKy0pzXrV6oxzsNBjaqtcUjoPm eqerFf/U/LR6OzkOKvj5nt3bacc+h1sMdTLr8Qx9uvimqz2enybn9Xmancrn xTGh1IeDcPTXmwiPiJa7Bh+5v9fezNNnxIyXPm091NP0Of0V/fv/Fvs9GSpj oDHWdfR+WSxlnz5K8OEIQkLeQ4eOaXjuKOXqSYtSzZOc4Sy1qOaop34mnW/S WpTq8GlW3qwZzwtdqfJLy2Vu6f26Pqjf0NaistYpBXoILTp0iC8mjPPDnFmZ sGD+6zh5UmjR+GviM3vfkRu16kCjjLqlcMnZiIiox/LTjIN6nEGi+ubvCnaS 2X2fSo/q/nnBQ/LLqf795107sO3rrdj61RZ8+/134vIu1p5UJ6/ZafrsdB9a Z167doXjBVSLyrOiPLFTGD0Giod+3HEcx0G5fkn57nr+ne7rpB3PFkNd4p82 m0a6sOz30aCuPr4rM13Z7cpKYqTk5Ehlw92M+gJIZ3/Wcw5uPYi35iDoOdva noSjniypDH0cV//o/P2fzbE/m6GucY7fbpKhno5x8n2L5pqnc+e/RffexdGp qz/31TtzTL72vlAjNurcvSz766VP78tG+SXyzWfP8se8+emxMCwr55ZaUG6J ONo4GT75lBiaEm3bJ+daJ8ovjRiRCtOmpsWc2S9jw/q2iIrYj5io2x5zqjwj NELV/0VEJomh9iz7hx51qNk3b/bOS5/+NutRmotH7Lty7arK/wi//ILMq9OM UdKozM2z59hnd41zUkyANK1m4zXr/A1l1/nfcD2lx3D+yj180HI4x0FzEzcV P60YqGYo5+LdGerUn656MHEdmlS2JlV3emKj1pmJMZTz8TWHcU3TlMXfcyxU v3/mMfFJeJqUHH5iLPXEVjOH/0fn7v9sjv0ZuvP3rHcw9ahzpkw0m/l+xcRG cM3TL/vXoF2nXOjWw9/KMZFPr2vwXWOj5u5lU4eOGCXjo9TLSfNCZ0yn/JIf 5i0IxLJlLwvNmxy13/dB3QbJOEffpGkytGr9LDp0Si7+7Wf53xo7TvzdjJxC w76Gk8dnID72Gtf9WdogUu7s1LOWE8sTJMZQMxbqrLO/b+1Wot555uit2474 KBnPGFWMkyy8wj755cvaN5entt40eWnbtRvi9CbtbbrFjNaaUxtdpn/39u27 OP7rdVRqNBg5y9n1n1p/5q7Yz5ptr+fd6TpQ2dMZ6uBQYgx9Ol/98XHOxBhq 6mQyGXsY5vhd/mqDUbxaT3y37yLuP4oV7999t3pf8zhpMvVpNKknpibG0d+q R5/2u/9nc+3P1J5Py0xXfprm+T2TXKWap23bx6FN24y8a7m3MefJOTPPtQbf z+IoxUUlQ9PxKbGQtOiMmRkwe14GhC3MKDRpXq61r6vqnKhe9FNVd9+pa3L0 7P0sQoY9h8lTMgmfPjvWrK4r/PSj4rN5DxGRD6U2iJA7k560jsk1DuqNobQf RM/Du3v3tmSpmodnGnFNG7FUcvU6G/vmlmle3nRoS4vFt6QRS/m8dV/2Kc0z vXP3AfYdPo83avfm2KfmJ53K8/3sXHxlJz/1fCbPOaSk5eM9/f5p45yPY6jm pytD81Xuj/dbhOL8tUjcfyjs/l3exXrPqK8w31tXpv4WP/9xmvT36hv1pkWf dK7e/4L93uz0xk09v1u+R3GItizauk1cXDjPJwkL68u77aiPiXz6Pv2eY7+e fHrJUUOPDvOzGGrXPPlxzp4YOmrUc5gwPiX3LxFDF8z3w9IlBQQnU6LW+3IW CcVFmzRNjpatfdG+Y0qudRow4F+yf2m6v/Dpi+PooTDEx12THI0wP+NRlu9O elTvk0/se6G1iP5OOdmpdKgxl9nWo3fUjHt5XurCmxZLTa5qNlrnb9+SOvPm DYuLtO9O81ffln5/89YNqz/KZDQx9O69R/hhz0kUrNTF6j2y9n8os/jp0sv5 ezD0aXJESefmcCvmYNsw7um0c2EjWYMPGL0U98KB23fuq2OeffxzfU9NhtL5 p4mVPi7f9Hv1jP5T85Q0hv6WfSzeGOopLq0ZKndwxTkYGhMXq97PON41Ex9P dSHnMGZsXbTr6Mc7Qj3HRg09qnaKaI5qlg4XHKU8O/Uv0R4m2h0yd96/Ebbo RUyZ+jI+EDq0Xn3K0f+Lc/TNWqTguvtOneV8PPL5aT/9zBm5sXpVS4Q/+kV8 Nm951J/2593e5+n6HdGXPelPN1/eqLXn3JLFUjtfL01yU8ZM7zh4qM9zPor2 LCvTv7t985a1+87iLfGTuXzTmh1l2x3cfRCJddt246VyHZiXrvzM+94gx1wm vQfUqgd1y+fY7JN17p51pjmL5EnjnU/KUL69ZmjVUHV+mLXLRNazhiJvpR5c 03T/YQzrc3oP9PvjjaGedOnj4qVJ4ainPuTfylBPs/T+F/36xGqxnvR5J3Z8 Sbq/nvh7Zce+dV/9XuHHl+d+UJpNQjPwnXuZUlm9TM6aJz/ONYUO9+V5TczR Uc/xTJJp0zPwfLy5CzLxzNCOHX1QR2jR+g1kbol6l2SOPiXXOvXtm0z8bXJM nZYVs2cJLXp0ptCi1z3WRfPlcDVr+ZFnfiYlDupaZ0/c1Cx116R3rHyTed6T v+/p+kR/r/bb39Y8pVjsrXu48yAas5ZsRa5ynQQzB3nWn4YPr03PtntcLVPS 7bfHOikm69SYnmyYrMGyegFCkLvaUOt6Oj6Uqz8Yh05cw727Dy3fQHJUvkeP 42hS46RPmq83Z5UmpVf0cd/Pp6kT/W/lZ1K059P67b+Vm95qf833VuaYwnH4 yCa075wbXXqks3aJ2LFROXeUWGrOHdXxUWLo8BGyjpR8eqoZpZn3Mi76PBaH BWHcuOfxPuWW/q+8846Pqkr//66rrLIqrAgIiiAgCNgLSlNQqorYAQEVpEsv oRN6sVBEeu+9BKTXBAIJkAAhCSV0CBBISEJTXN3P7zzn3nPnzJl779xpwf3+ /jivqQkhmXnP53k+T2nwdzRufA++bvoP3rvU9ttcjK/3ozvTooMG34cxYx/B 5MlFsHJlI/Y6P8LrnIzd8be1PUkqQ1V2qnlQq/nLZhxVY3qVpTJD7Vjqy6H9 9qJfn7SqlovNRsb1PzDwx/ko+XZnnZfhytF8+LvFUKdaU2Wmq+fU1XtKP7fM UD7flC7fH4xSNXuhZe9pSEv/jX22uH7fgqHi7+CUo/749sHIizplqK/slJ9/ t3n3V+Gnf16Rud6U2WnG0Dt8h+wtpqUzsWXrz2j9bRHGM8bR3vdyj6kP06Mi NyoYanCUfKaRD7hq8HWWUq3T6DG0D1Sru6c987PnlEWLFn/DZ59qNfeNvyRv Sdei7XOhS9d/cC1KtU7a1zEtmrQQf/znMntNE0dvazXVXnJaarzmK0OFphHv TSs9KusgM7aasdI33mbjUsYdtOw+FqXe6Wb47vIRM0W8e0nqCVx3OmGoHTPV w3Og0kwpcT/NGClVvTvGz9uBjOw7pr9T8XcwY6jM0WB49r7OLPGFocHqA/1f PoHmOVVumjE0EM1p+Xcljv5+Hb//cQmz53ZHu3b50KPnv2zrRvkZpu1konhe i+l1TfqdNreZ5jPR7PoZLKZfuKAMhg19nNc5NfiCPPp7+az7Fq1ycS1K80i6 hd2D8AF/x6jRuTBl8jOIiGjHXs8JuP1rusFQubfPjp2yh+SEn3YMNdOmaizp TZva3W/K0MxbOH7uOup9PYjnAnnuU897yse9pzP0DHWqPSmGd/Xne2eoJVff 7c9rmnbEncPVa7eMXLL6O5T/NnYek5oXpeu+1o6GwqMP9nySu81Cf9gZCDNV fsp5ETN+OuGpL71p2rmFP//7G7Kun8CPP3zMmEYxfR4lpnftWuZ+/dDcXIu6 cqOiL5Ryo/+U6u5JixbDjBkv4KumWs19/Ub3oslX93It2rLNfXyfcpeuudCb 6d/hw+/Dzz8XwfTpb+DkibmM8Ze11/wt185jqz4kf/WneN+prLSL7a20qapL 7XKqZvfzuD77N+xJuITXP+iBsrX7GDE715ykPQU/FYa6z7RzytDAdKdVftOX Y+xwpkupR6AM+79/3uY7nEq9iStMm6enX/HKUJHXtovp5ZxPsGqdgl3n9P9T PjRUDHWqPeXn+MJNs7/9n3/exNlzUejR+w107qbtBxW9oNoekQdcXv2wh/gR M/Blv55r0R8eMLTotOkFsWBeOQwYeB/qfazV3H/R+B6uRZu3vA+tv9V6QCkv Ss+h/OnEicWwdl1z3L51nMfzN2+y1/+tm6axurpL3heGmrHTH4baMVXVm7bP I///xn+wfGMiyr7Tlc97UxkqHw/tFkSG+pLv9FVnqj+3cd3wl4aj5DthGDh6 Ea6wOP7K1WseDFV//1Za1CwvqubQcyKed+rN/1/16K3i9GD9f9Xv52v87g8/ 1XlINMPzv7iBvfuXM6YV5blRvh80PLfRw9SfadBwaU7ekKEPSHOetFlPwqen 3SF8xujUfJg9uxDTpKXxRZO/4eP6FNP/3ciLtmj9D7Sheffd/sFzsZQTmDTh MaZFK+L0yV/wG9ei1zhHjRiM7z9274U3Y6c3ftp58ep9Zs/zR5+qX+vGWcbQ zJt/YuSUDShVowfv0ZE9I8+Zyq642Xy2iH/He7yu7bfzRWdacVN+TlmeBx3G L8vU6IbVW+KQnnUL6RnWORKnOdFgePSBxPO+1tA45YrKpLvNSvWI2iWrn01w L1gMVTVpMNlpxk9Ro6E9xl4njKP/+TMDEauHshi7AN8PyveIcH/pnx7+0uAh /+TslOflDRuu1TzRTJIx4/LwWifqAZ3HtCjlCD78RGOoyIuSFm3TLhc6dMmF rmH/wMBB/8SYHx/EpInlsGFDT9z+9Qh7radpWlS8/q9rx6wW0Iyd6vtL9uHV WN6Mc2a61BtDZc9J/Ro576rq0MuZd9Ci13Tej1Su7lCfGRooR+W8ZrAZKv/s Hrlc4c+zyzK1BuKdRkOQeOIyY2i2JUPlv40Thqp1b77E8nY1osHs/fy/lg9V f6Zgxu7q54ivGtTsb+QLO/nf/FfXdd6TzuLlO79nM5aex/gJrdC+Qz6mDR9A 7/7aLiY5pqfZzXKt02AlP0o9TLQLdNz43Hzm8qw5tIf+eT7Lifo/KS9K/Z+0 j75V21xo1/F+pkVzaVqUcXj8+KcwfeZbOHtuCX797ZKuMalXOttSc8rH7D2l slM8R+aj+t60YqUdN50+z3X0OXyMF8dOp6PO1yO5l6QyRp1tZ8a5UGhPwehy HziL1610pspQXo+l1xYYNQbvscsafdC+/0z2efKblt+wyIPIf0f5mPnyTmqc xH2+eEpm/fRW70df+Blovehflaeh0Jv+xvG+5DwtP0NvS7s1xHy5X2/g9z9u IC0tAQMGVEPnrvlYTJ/X6KmnWfSCoWrNqBrX87r7n2iHXW5Mm6HNc+re8298 55I8i0Ro0Y6dNS1KedEfRxXEpEnFsXlzB/a6Po7rN65xhqpaU53HZNrTKb2/ VG0p3+ctB2qVM7WK/614Kv87GhuyeA9O9vVb2LUvBS+818M0Bub8rOtZy+QP Q8VzvXnsoifTab7TTHe61bAqNa0eh312lK7eFTNXxCD9+h29n8s6/2kWx8uv Cat5JDkVx6t1Mr5yNBjs+aux86+Q/7RiqDpbxkyDynO7PV4rv4k5cxTTZyHh cAQ6dymnzya5j/fUu/QoY+kQzaOXd9qJ2J5mj1JulPaBUl6U6u5nzymKCZOe 4v3z2iySe9Hka23vUus2TIt2IobmMvKi4ycUxKxZb+L0qXWM7Zc5R7NvXHcd L7lOOecpNKVaxxSs46Sm1Jqr2YyhN5B14w9MW7QVpWqF8X4dvg+4rjlD5djd V/3pvJ/dXVOact0BNy2P7o3JXCU//o16YYg9fInXKAgNapZH9ha7q9rTrJ5J ZqeVBvXWt+RLPs3feP5/sX40FHG7zGBfauh9zXvKR/78tJobZ8w/0vuBtHrM bPznj6tYt3402rUvgJ699J56yafvP/if/Mg77VwM1Wrvqe5e26fMtOi0hzF/ /rO8rp7m3GuzSO5Bs2b3oGWrf/D5okKLEqOpXn/K5HJYv74bew8ksvfIZWNm T5YXbloxUn0fBoOXvnyduV+VzetC06//F50GTEXp2r30uZqCoaoOHO43Q53U d7r0p73eVONyn49UXyDuIy+tSYcfcP7qHVy9dsPWN/LmwZt58VYMtdtj5yQv GiyGqhwNBj9zmqehiNnttGcg/pHZ/erfVdWg7q8R1zwkwVGtHpPq2m8w7Xed cfU8pk5uyXOjFNNTblTUjYqYXt0NauxZHv6ArkXv1/eAPoiZs5/CT+NLazuX GEOpzom0KPV/0nxRqnMij75X33swYsR9mDDhSaZFKyA5eRL7Gc97xOZqjadZ zC7nIIUetYu1fWGok3jdjr9iDlFG1q84fv4W6n7DdN974TrT3OcYmc2Gc8rQ YNd3+sXQ9z3rs9x2kL43GKXe6YIx0yK4Jk/PyNbyHPrvTGannLPxNvvOLm73 FsM76Z0PNkOt9GigfPpfznsGGrc7zX9axe7GTg2POUiuHW/q57R47d35LROX L8dh4OBafP491Tv17Z/HmJPnNvteyY0OG65x9Pvvtd6liUyLTp32GObOe5Fx 8m/4+FNtFgnV3H/Z9G9ci7b59h506kJ99JQXvYfvAZ027UmsjPgcV69Gs3j+ InsPpdvyjN5jZr1ATuNrp3x1kg8we45nPiGbM2NL7Bk8/153PPvBEJ17KkNH +KU/g1kj77fm1Bkq91nxHaTvS7WvdQbhhTrdsSPmCNPlNxhDs3S/zb52yaw+ 2Mlsezke88ZRJ3Pwglnn5C2u//+Fof7E7YF6SOqRfUWr14cVP3kf0M0s3Pk9 EwkJ69CpeyleN9q7r7YXNDycsXOgS4sSPyk3Sj1MgyQ9yrXoj7nx87jcfFbo zNlFMHFScaZBaRf93/lcPD7TqcV9fC4eaVGaL9q799/5105kXzNrzovYuasf Y+g+9p66wGfEufX4+DgzSf1aK676q1V90bPXsjJ5Xeio2Vt5HF/2g6F8Rh2P resJPaoy1ElNvTe/fVhwuClpSrmPyujrN+lVlVkqLmnGX70WP+DEuUxez5Se 7l7HpM0NZec65XIyjXolNefpdPayLxrUbOdnTjPU37on9WvuRv7TX7bKvLS6 bve7s4vZnXLUjJ+muVDOTp2lvIbd9fokP/zOnatYv/57tOtYkNeNUm60v85R saee69Gh/3Rp0WF5tBlPw7QeUMpvThj/IKZNfRDz57+AUWPewCefaVqUZjQ3 bZ5L6/9sdz/fGRLWMxfCB9zLZ+pNn/EUFi56CwcPfMfeRwfZe+gMe3+lspNm MJLec3RoH1KG/h4Ut7Xr9iw1Y6hai2j3mJPYX/63je/HdOilzDv4Mmwq3xFP NUSCld4YasdRJ56RL3G7Wp/q4Q0pXLS77vFYnQEoUT0M/UcvR9q134y9UvLv SuyyzszOMhhqVrPky546O46a5UKt3me++hR3Q4eGgqGB/hx22jOQ+N3Xv4fV 56OtB39b3aNx242hN2+4x0m3bmaw+05jwsTWTCc+qvUw9WNx/ABXH5O8z07e I0Ie/bAR9/GYnvaAUl6UmLhmbWMMHPQCn0fSUO+jF/WipEW7dL8PPfv8HUOH 38u0aEE+S2/lqjdxKGEIY89W9n5KRkb6eVy9koarabSfKANX2JEv06Tb2q65 K/r8iismPM0y8m8a9zKY9jHvJ7Sdlcd99myuL7nG9HiOa5fTNR7H30LckVRU +HwQZ1+5D0Z61MyrtUgaJ4frxxs7RU5gWGDa0yqf6UVremjPOq7rxd/Xelmp r7Vcjc6I2HIYV67d0neqXHb7O2Vm6HF9tqZD/Z3N5KsGDXYsH4geDXaO8a8S s5tpz2DUKvnLT7km2C5+9+SnfqgP6Ib77sTrNzLZ8zJw4cI+9BtQBZ275UWf vo9wjoqddmImyWDGzyH6DhGZo9QDSlqU9nlOmUL1olWwI7ILmrfIi8/r36vv C7lHm+mke/S0T6Rfv3t4LmDGzDxYurQ41vzyJvbu7YjTp2fj0sWNjJ/RSL+6 n514xsgD7BxknExwnSuJ7LFkpF85jrQrKezxc+z2ZT5b3p2jmRBzfjWmZnCO Ounr9I2hUm0p1YXe/A/mLI/idT2l9D524qhgoojrBTP9ZahVPZLj2N1HVvrC 0NI1e+G9xuFITLmCS2mZ+h7ANLe/kWCopkWvGd5SsGbWm71HguUlBVOP/hU8 +lAwU1yX/985yU/HNaAe/JRzoLeM/d3uNetiJ3sG7vyahn37FqNjp1IIC3vU YGg/fdZoPxZ7ix0iQ2l/iMRSqnWieSTj+DySfJg6tQg2bWnCtGUnfPRpLnzR KJfeu6TNImnX4T4+655mOg0Zci/fNTJvXiGsXFkcmze9jF27quLAgU+RnNQM x1M64dSpHjh9pj/OnBmCs2eHszMC585+h/Nnx+L8hSlITV2AtMtbkHE1CVcv n2XXU409HlZzP91j8WzD43DnZrYrznTgK2ls1fhM3snlrD/Rrt80Pu+NGKrt 63DNCCn14UiU/MDVk2TUHjmO34fZ9mb64gXJh/jHGSju02ejGMcbT6Xnlni7 K3oPm4nUKzdx6bJrp586807+vXubE+q0BtSJBvV1t1KgetRuHkmwGHq32WkW q4fCK/KHn2a1wVb8dPeSPBmqHf065fSzrrDnnsOKFcN43WiP3g+hd38xm+Re Y7YTXQ7mPfUU2+fh8f3QYdruELEHlOaRkFeUmDgOAwdWx2ef/d2VF219P58v qnn096FvX4rp7+G1+gsX5sPatQWxbUc+7I4pjP3xpXEw4SUcOlyefa+3cDjx bSQm1URSUi0kJb7H7vuInYbs/pZITu6HEykzkXZxF9OkJ/V40XyPh6fOdK+1 kRkq2GrLTsNDyjAYmnXzDg4cy8Bb9cPxfD3GtA9/kPjoYijlRf314O362534 6VYMtGNoydre9Sh/Dj2/9kCUeqcTlq+PwcW0a7h4ybVb2o6jVr2d6pw7f2N3 9firR+X3udV73te8aDA4+r/OzkAYave39Oa/u58bxjwkWYdazTzir1n2vr9+ nV7PRzF2bAOmR/PxWSKu/cr3ec4mGZZHn/Ok1TrRTnqqdZo06UFMnfI01q9v y7TtaDT5ksX0X7CY3vDo72daNBefL9qjVy70H3QPRn5/D6ZNewSLFj2KX9Y9 iq1bC2Jn9OMstn8ScXElcPBQKRxKKI3Dh8syjj6nXR5+njH0ZcbQ19jjlREf VxeHDvVC6sVoXE47zznq/j7VdsV5evRZbgwVO+nddahrxkh2Zpa+6y7D7X45 xs+6/SdmrdyPZ+r0xrMfDpc0qOsQQ+nITH3mo+9M2em+x8i6xyjY+U31GDuf bA7tiuL8rNkPNRoNxuHjFzg/L168zBjqzlG+40+fbUX5FvH7tqqz96ZH7d4n KkN9yYH6wlOn8bwVQ3OKo2ZfEyyGOvHYQ8lLq8edxu/EUI2jwn+/aTDUvOfc tQPz+o3LTM9tQa/e5Vm8XYDXOwmOuvbZufYrC4bSvDxNi+bW6u6nPIkZMyqz eHwMu94EH3/2ABp9ldvIi5JHT3uXunXPxf2l/oP+xhh8H59jsmBRPqxeUxAb NxVE5I7HWGxfEDExBbB33+PYt5/OY4yrjyMu/jHEHyjE2Jkf8fFFsH9/aWzf 8R67Pg8XLqaw9+oFYw+8axfyVRM9mqXozQxFe7qzkvMz45rb/TzXmql58TRj 5Gr2n2jTbw6vL3+2nrnP7s5Q131m2lNmqFfdGQA/3XaTOOCl2SHWlqkdjuJv dUWP4fNx4VIWLlw4zxl6yUKLput5a/mzzGxuk9on722uiL8MDUY+1Ak/7hZD Ve758/2tdKevuc9g89OqhslJDK/WgspzkKx2savxaEZ6Gq933xk1Gx06FUNY rzxGL6jB0SGi/l7jJ+VH+by8offpPaAspp+YH1OnFsPaXxrh4MFpaNnqeTRo LOdFNS3ascs/eA9o7373InzwvXyeCe2znzOnAJYuLYA1qwsxPVsQmzYXwtZt j2F75GPYEcXYyk7UzsLs8jFEReVn9xVmj5fAyog3sXL1EKScTMCF1LPsPXuJ v189GepZ+2RWs6Q9lmHCVZWt+t7lzOvIuv4bDh1LQ+X6wwwfiQ73fySvSHBV 9pmEt2RWM+/Yb3fITGt9qe7K8/UM5LP6n6veGSs2HsD5S+mcoakXLuJS6mXt b3L5Eq4YHHX9PbztVHKqRwPJf6o6xl+G+usrqTWfOaVDgxG7hzped8pM+e9t V99mx0+zOfBm8zdlVhjxLuNoduZpzJnbBR06FmA6MZ+mRftrM0f7GX2gD2Hw YJcOpRpSmutE80jG/ZxH2wM6/UWmFcdj6rS2aNBQq3MiLUp5Uaq7J3+JcqPd emizT2jOqKZnc/GcAHn2c+f8C4uX5MOyFQWwfGVexslHGCcfxaqIAli5qiBW rCiIJUue5HP4ho8ozX7ucBbf78OZsyeZ9rkoadErEj899yJb19+bM9Qz5tdm jGTf/BPzVkZzP572uZf74HuNgYrfLjNS4+hwxwz1xyvyOJZa0p2Jrt3NzhlK 8+rrNR2IpBNXcT41jTH0ghtDL19mfxcW11/hfxt3hjrJjfrjMYWijsmKm77k Qq00aagYGgx2qpo5J2qWgsFOJz6SyH/evOnykKxmGKu+CMVTtBed7/O9dhGp qfEYNvxTdO5agNeNksfUu78rLxo+6CHuMw3S654oP0ocHf79Axg19kFMmEQc fRorV36D2L2j0ap1Ie4tkRble5f0eSRUM9qp6326x8S+d/h9nMlyjvWnn+/n 800mTXmQs5nOpIl5uN4dPbYgBg0pjLZtCqFTp2rs35uJQwnxOHP6FPs/pOo1 iWmSV5/p8Z41Y6hdbzx/TnaWnv/U6kIpxs+4dhNXsv6LjuEzUO7dcIOh7jVN I2BWuyQzVu078kV3ih2h6nXrfKYnB8Xee5mf8n3eTrE3O2DEz0txPu06zl9M Q+qlix6xvIuhV03/DqpPb+Uv+VLrFMoY3owRvurPUHnzgTLZmwYNRH865and 382MnbLWlK/b50GFHr3t5sOr/JRryWUdlq4fek1fTb/MnnORxeHr0K37Cyze fpTF23mM2SRaT/1DnKWD9Nyo6K0nLcr3gI67n2nJJ5kGrYDde8KZNv0YXzTK zbQo1Yvex+eR0C5l8uk5RzvnQvcwza/v1ecBo3ef+k655uUeFuP04EcRPjA/ +vTNjy5d8/B+0o8+eRCtW9fErNk/YWfUNiQnJ+PMmTOcoSKeNzyMdE/dY9bb ZNefxHv3Kf+ZlcnrG4w86fVfcfhUNqo3Gsz3AFOuU2WoWf2nq8beZP6yF8/d rvfSWX7Tmp9WR34e9XIaj9Xui5I1euPFd7ti597juHw1ExdSL+Hi5UvcT0pL u+L6TEvz9Obd+5dcsby4VGfK3m2Gyu9/Xxhixc5gMlTs6wh23C7fDlXsbucL melPwUnVN5KZ6rRH2H232y3uJ1lpUOGNuOJ47ZIz9KrWT5KReQ5r143Ctx2L 6r2g/5R22j1g9DFpx7VLhPbK8530E6hetDiWLf8Q69f3QfNvnkLDJg/gi6+0 /XWUG22lx/Vt22nznTp1+ReP72n+PelTYiu/r3NeplvzMfbmQ4NGD+ODenlR 591CaFD/dfTt1wbzF0zH9h2bER8fj5SUFJw7d44zVPUwxLHrwVfjeznfodbc G59N7PdJdfXLNyehbO2emh/PdKjnvrjhem6U2PkdP+Y7OjznjDrxiXzRm77q S5mZZl9bulZvFKvaGd90/5lr0Eu6D8/PlTR+tDp7yU+S65tM9oGYzSHxVutk FcsHYx+yGUO98TKn9Kc3HRrM2P2vkvv0N26346eTXcIqQzU+aIwQei3tSjrT o0zDXU3C+EmteG60V2+qd/L06omdXJMOzcPj+uFyrdPkfJgx80Vs3NgDQ4bU wecNc6N+o1xaXP91LjRrxjRpi1z8tGydGy1a/Us7LfOg2TcP4cuvHkbDhnnx 0YcPomatXHi7+sOo/X4JpmdroXfvDpgydTx++WU1IndGYX98HNegp06dMmWo 1XvXvn7UYn+d3rMkND3/2ht/ou/olbyunhgq14M+XdezzlO77zv9uOrstXmf 7vWfjn12L3rTF43pjaV06PnFa/Tl12m2SsmqrbFwTSzfHy9+5+L3fiXd9bs3 jhzDZ3jONvC2i071ApwwNJBdnoEw1ImPFCyGyiwNlJ1q7O6L9+5vbsSX/KfM STN2eq+hd8UznJ+3mPa8eUPx5W+ZzoB395MyDB1Kr3niDuX+r6anIuVkNMLD q7LY+VFeNyrvYiKPqT/XoXl4zD2Q94Q+gJHf5+Z7QMdNfJBx7mksXPgZFi/+ Fs2aPslj7wYNcqPhF4yljR5A48a50KjxA2jQODdj7MP45PN8eK9uXrz9zoOo +mZ+vPVmEdSp/SIaNKyFDh2aYejwvkzfTsDKlUuxbdsWREdHIy4uDklJSThx IoXF8adx/vx5zlDhK4n3sic/3Wue1HjepT89e0T53FK9LjSLxfSnU7PxYZux +oymEXru07c58970pzUzw/mMj0C1ZvE6ffmhuLx4rT4GK8UhXtIRj8unxDsd 8cFXfXH8bCbS0rP47zvjaobJ79q9xsyqD8xuJp6I5dX3QCDxfCD5T390aDDj d28M9Zenavzuaw7UV2aqt9W/lxqze9OhvmhPw4tn/KSdGjeM3vibUl+nuR8v c5T4QhwVeSvScRkZ57Andp7WC9qzoLYXVNeifSmm5z59XiOeJ2+Jzxjle0Af xMRJT2L69DewfFlz/DT2S3zy6VOoUeMB1K6Tyzg1aubCW9VyofKbuVChSl5U fetJ1K1bAV82rof27Vtg4IC+GDt6DGbOnI1ly1Zgw4YNiIyMxN69e3HgwAGu P48fP4qTJ1Nw9uwZzQuW8qFyrah7LK/V3tvNIhV99sKLd9Oo1JtEvV43fsXO uFN4+cO+Us7T3SOy26tpxVCz2XNunpFJrK566d60pHyeqt2HH4OLJs+h+5+q 2Zsf7XlMf9boiSJVWmH8rDW4dv139tmbqX1WpV/TDv9dp7v9HlVmqvlPq50g TueQmL2fgpET9TX3eTcYGgxP3sx3D5UH70vsruY9rXSnzFCr14k8X9H4jL55 Q9GhMkOzXHs3svR6HIUVKkPJB7h06Ty7/xSWLh2u7Vfu/RB69cnNa0e12fcP Gf2ggqGDh9xr1N1TrdP0KcUwf+67mDe/F4YOaY8mjWuw2Pw5VHmrJDtPo2q1 coyl5fHpJzXRvOUX6NqlPcIH9MGoH0di4sTxmDNnFlasIHZuxNat27F7927s 2xeLgwcPcv157NgRFsOf4F4SxfGCoVSLyI/OUHMt6q4/3XymTL1+Xn8s65qW +xS9SqRB0/V5y7OWRfF4VtTKCyZyljIeivl38vx64bvL1+X+I6u+ISt2ehxd L3K/x0Q7yqzkGlO/TXucxSGfSFyK6yWqs/9nTY2dJWv2QIm3u6PKp72RfDKN fabckHy7a1oPUsY1/XdmvreTZmllZ2daslPeS+eth96OoXRpVxMabA2aUzlQ K4aqLMxphvoTv5tpT7Oj+u7+aFC1b0PWoa7P7ZvS6zFT2lt03eitM4vnhQYl hvLLy8SkQ/hx1Oe8F7RX30e5f056tP9A1/x7Yqg25+mffMaoyItOm5oPM2e8 hgXzO2LGjCH47rt+6NmrKzp2+RbtOrRB166d0a9vbwwZMgSjRo3ChAmT2PNm YdGiRSxmX4l169axuH0bdu6MRkxMDPbv349Dhw5y/Xn06FGkpBzn/Dx79izj Z6pLg+oMFf8nkZsz85NEXtONp5najnhDN9GcIYMHgrM3cO0G0G3QTLc5TWJu PelKFzPFTk2NkeWIm2Y9m0pfu51XZOb58LjcgpeeOtLzPpmfxEvBT9fpaZxS 1bvjiUptMHxCBLJv/ankNLW5A9xzy8zyyHG6TpbBUKudIGb7PL3pDF/q7UMR x1v1IonboehbD6afpLIzVHWgTjVooB6SFTdVD4mu2+12U+tDVZbIOdG0tKuc oRcvXkDaldNITFyPnr2roEv3fOjZ9wHu1fPae30Xk2DoEH0eyYgRmhal2XjT ppZmevIjrFoRjvnzx2PatCmYOHkCJkwaj0mTJrHb09jjczg3ly9dgdURa3jM vnXrVkRF7cKePbFMe+7jsXtC4mEkcv15DCdOnMDp06c5QykPShqU8qB0zDwl q5oafq6l8+OK4bVeUKFHPfN2jBXZt3Dq4m182uo77ifJOVCz+k71PvW2sUdD P7w+Se9DL1knXDsW8flTtfrx487MXpKe1LWjCQvdudibH3G7xDs9tMN4yo9+ mx4r/nYnVKrXGYdS0nifltmMFqsdg2LWnVk9sxk3zeJ4u1yoGUfN3p9mLDXj qi/sVG+HSndaMTQQbsrX7fo5nTLUjqfB9OB9q1264Z4Htamn95WhdFy+kqZH SdNduHCG3X8Cm7dMQbtOxdCt50PoyWN6F0fd540+gGFciz7AZ9zRfNEZM1/B qlVtGRtnYlXEcixfvpSd5TxOj4iIwJo1a7Bx40Zs2rQF27fv4DlP8oxiYvZy 34hi94SEBCQfScaRY0d5HZPgp4jhBT+FnySOylAzjvLd59fkWetazkNlKOeq 8Jpu/IaYw5dR4eO+KPv+IIOflP/0Z668mDEnajuL1x7gYijpy9r2uU13hvbS 85VCT/Y0ZajMRH75Nnuu4KZ0ir8dhmLVuqP4O921GL56GB6r0BzfT1qOrNv/ 5XG8tdbMNtWZ3nbHW8209yWOl/2HYHny/sTyOcHOUPVz+qo/nehQp/wMFjvp qP2bZrftXr9m89rdOeKqD9VOGuenxiTGp9SzuHwxCbNmd9Fzo3mZHr3Prd5J 3mcndoaMGns/712aNuNxzJ1fE1u2jMeOyLXYsnkDNm/ezA/pze3bt3Nu7ty5 U2dnDNeegp+HDx9m8XuSHr+ncA/p9OmTOHPuLM6eP2eqQeVcqFwfas5QMUfI s9bJrPaJPKWMG3ewdMMhlK3VndfWu+qTzBkq5zutejRdsXu4Xnup+OdKDE48 NIvZDUbq+tHgpaInxSlWXWcp3Wa8JEYSLynfSYeuu253RdGqHVDx4244djod N2/dgTFTUXq92dUniUtVI6heqZ3mVNnpjaH+evOqrnLqI5npu1AxNBg6NBAN avX78pejTvSnP3WfZvWfdvyU/U6zvkX3XKg2Z5x6PgVD6RCTKMeYyr2akzh1 KprxsR46dM7HOKr5S3x2sxTTawzNre0M+fE+/DQhN9+7NH3ms0yLdmWx+RJE 79qEXbt2sVg9ijOTzp49e7A7Zg9i9+7leU+K3Q8dOqTxMymR8TNZ5+dJ3Uc6 zfl5nv1sqg5VY3k5H+ra2SSxlPiZac5Ms91MNHs989afGDl5HUrX7Mnrmrzt czfdP/y+u/ZUc500S66UhS8uGEqnWI1exmNP1VRicJmX7DZpSjqyxjTu40dl pouj/Hq1Tij0+teYNH8Lbv4KD35aaVB/YnNveU8rbvpS3xQMHWpXD5pTMXww akK9nVDnQFWPyRtDvb1mrGaIOOWnyk0zH0k+cuzLOXpZ06EXdEZdOH+G3T7F 9GEEuoSVY8cV04v+JTeGDqd60Qcw+qfc+iyR4lgwrzp2Ro7E/rjNXGvSoTol OqQ7Ze1J/CTvXfhHx48fxwnG0FMnTho+EvFTZihpZ22+xWXLWN7q/2/HTuGN UH0O5UKJt1ev/46Wvadx35sYahqjm+zJNJujpHrsgpmyT+7yyN1zmKqmFHqS ZoCUlLUlZ2GYdDQmFnu7m4uj1brxQ/fx+6uJ04X3ItH1IhVa4aOmfXD+yi1c v/Erbpgw1Ft+09edc2Z6U1w6ifmCUR/qJIY3y4XmZCwfKoY6zWME00cKRIOq PpLcK2w1z86On97YKfqUxBF19qmpFwwdSowiZvE+oIvHsGr1CHzb8Qm+X1n4 9CIvqu0O0faF0N4lmulEs+2mTcuPObOfRsTKxoiLX4b98dGMmXs4N0l3Ct9I 5D61+D2Z+0fEzxTBz1OnjZ/lQqqLoXQEP608JV846lYPTr00Ga69TDR75FRq Jj5s+SP3eixnKznqL/Jkp9CUZr64GTPV3KVLP4a5a0nKaVbr5nEEM4tV7epx aCaoxs8uKFqlPUpUbIa1W/fh9p3/cg1q9pnuzRuyqk9yojft6lrU+N3KT1J9 pWB58la+fE4wNFQxvBOGyo+rvPSHoXa5GW8Mterb9NyL5Jl3UmeKmMXtKj+E xyJyh7IXQzwijhKbzl04j3PnL+D02TPs8gTjVgLjYlu06/Aoj+l5/X24qwdU y4c+gBEjH+I19zSLhGYtz5ldAPPnvYZt24fiYMJ67GMcpV5N6nc/GH/AiN+T kpK5Bj1y5AivATUYeuqU7iVRT9JZw48XvUmqBlXjebt+Tyc9oKJOnGpv45Mv 4I1P+lvmOWV+illK4lLuLbLWnb34frdS3AMPU2LyMI9Y252VJpxkHHTnY2fj FH2zE4q+1cV4jK67HfZ48artUejVpujYfzKf2X+d+uBuWGtNNX5SdaeqQa3e G07jdHV+j9rjGWgs7w9DQ83PYOpQta5UXPfViw9GLG/1t7SL5c3y6VZ1S2q+ XvWLVD9E5aVaxyTrT5mfmgZ1aTziKM8/MnZdSD2N5KNR6BteDZ266jtEwvWZ SzpDqdaeOEoMHT32XkycnBuzZj7E4vlSWLLsI8TsHc84uh1xB/Yb+pP4SRo0 MTFZqgFN4YdqmYihWhx/xpKh8v9D/lzwlaFmeVBRO0r9SRuiDqNMLRYrvz/M vT5JZ6jZPDrutddx157uXpC71jRicTV3qeQrzZipcbMr55/MSX5pccTzitHt Kh1RhB1+uxq7XqEFXq3dBgnH0nDr1/+w12W2SW/HddPrZr2avvhC3vSmurvR 2w75YOdDzWL6UNfT2zHUl3/bWz2rr768N1/JLh4Qfw+zOEONRaz0p/q6k+Mi b/VKsg61qv8UR+anNtdRm5Er4mDZS7ogHYqfiVvnzp1hvDqBqJ2z0aHzc+je syCvGxXeEs+JMoZS//z3P7B4fvS9+HnC/Zg+42HMn/84li55Fus3fM3YuRLx B2KYDt3PGHrI8JB4HlSvYzpuMFSrZxJxvFbTRHmGiwZDVV9e9edlftrNH/G8 num6TbXjN37HrCXbmU4M47Xzqkek9hapulNoT/d+IPc43UxnEhetmCnrSIOF gp10qnbgbCxmMLI9n/lJl0Xe1A5dp1O8ckeDoY9XacfvK/DSF5i2cD1+/R3I Zq9ZmZ12tUlq7G6mRf3hp2Cl+r4M1bxQO39esIYeC0Usr2rMYDJUfr6/NaG+ /B7t4ne7nk4nDDWLg+w8I7OZoFZ5T1l7qrpTqwNN5Qx11TPpXLqgHTc9ek5j 6bnzp3DxUjLmzOuLdu0LGztEuLc09J+Mobnx3fcP8bmiP47JjbHj7+f+/Ny5 /8ayZTSLvgJ27BjM2LmWcXQ316FGLjQpUWPo0eMSQ1019cRR0ZskM1TVoWYM lbW4cy2aZfTIZlzLRsb1PzB0zGLuyav1neb9Ra5+dll/WrHTSmea5SuN+NtC Zwo+8lO5nekhTmqPt+WnWCX58bYo8MrX+LLj90jP/p29Xn/V+HnLvG7Eqr7T LH4PNHb3ZU59MBiq5v685UJDydBQzKv3h6G+/h69MdTb397sNaNyU+hRp767 N79I1p5qzC40p+APzR0XTNKYeV4/Gj9F7EyXZ/XcaMrJPRgy9D0++57vs+t/ j9azNOIhzlDylGgGCc1ymjwpN2bPfogzNCKiDDs1sWfPcMbOLUY8zzmaeAhJ yYyjR4/g6PFjRk2TYKiorRc/j+zLq/w0ZrApdaJqjsPWX5L659OvXceVrD/R tucEd4a+JzSnZ1+72scu96HLOU53jdkFJdgpruYtpbibPyZus3hb05gdDD3p zsq2vDfT7hRlp5j+PPH8wq9/g5dqNEfckVTcugPQvG/BSLPPfzPfXTzX3xhe ZmUg3PSXoYF4SnTf/wJDzbgp6+tQ8dNpLZPKT7v6T1V/muU/7Wo9rbSnyhY5 Zjdi99RLnKGCS5r+PO8Wz2uxvBZL0+6NCxeOITp6Lrp0LYsePfMZNfeDh+fG 8O+0WXjEUNrtMWHS/Zg56yG+K2nlqsJYt/ZZbNjwMfbGTkJc/BYe1/O86GHB UeHLkw49ZclQJ56StxmidlpUzPvnv+ssrcfzs9YjUaZWL9MZIWZ97WptvFuO 853uRi2Rm98jYm8ThlKcLWJyc51JDPzWxcKKrVC4QmvXpXQKvdHKYGhRnaeP V27N65gKvVQf0xdtxK3/ADdu/sYZavVaNtOZTmuX7N5DTrip5tSsGBqKHKid Dg1FXjSU/HSqQ3OKn978dzXmUfWnFT+tfHdZV5nF7e7x+yWpLv2CW7zuYmiq oUnFpeAnxdLEspOnjuDsuUOYOTMMHTsV0HZ6hN+rzcL7jmnRUbk5Q3+e8CDf jTRtZh6+C3nlqkexfn1RbNr4MrZsaYy9+8Zg3/5N2Bfnqq9PTEx01YdKWpTX B3CGUt1qqm0sb1bb5CtHeQ2+3sd0Lfs3HDiWgbcb9EfZOn1Nd3HIc5WE567G 7iJWd4/T3VkpNCVdyvpSaEztsq1xiH9FGBO1y1b8Ol0+8UZLdporl66jPa+1 /jWtOGeLVW6FfC80QMvuo3Dt5h+4dfuOoUFvGq9l9hq/6Xzngr8xvL8M9Tdu /6syNFR756x4mRMMNduH5ISjHvM//aj9tPPf3eeHuHaCCc9I1KK7cp/mDJW1 p6w/6XCWsUNeT8qJZBw8tBH9wyuiW5iWFw0f9E8MGZmHMTQPxv78MNOgD2Lq 9EcwncXy8xfk4fs61617BFu3Fse2reWxbVtjRO+ZyFi6AfvjdrvV2Qt/Xnjz p/WcKOVmU3XdbMdQlaOyLlV/d6b+kpiDx65nXr+DnXEX8OK73VHu3X7m++GU uUou/dnTozZJ9oRUnSkzU43PRbxNelGcopVcHBR8pFjc6rg42oofmaGFXm2M SnXbIPlUOm7f+ZO9bl3xOOVCBUNv3/rVKx+daNFA+OmrvnTCAG+5TzN2yrdl Pv2vMjRYuVBvn33ePkOd1IF66333pW7ejKEyS918d0lnuulPujzn4ubZ82e0 o2vPM2dYHH/mLGcasY36MI+f2I/lyweic9fi6NW7APqFP8T30o/4/iHeNz9+ EmnQRzBzzkOYs+ABLFuRB2vWPoLNWwpjR2QJRO6ohG3bm2D3nh8Qu3cDr7vX euWTjFp7NS8qzwyVY3m1zl78TtSdFN7zoVnck3f9rq9yHbp8UwLK1OiCZ94L V2aFKPOVlPynXAMv9/8Y2rNKR/0If7y97u+4tKbIXRaW9KZLXzbX2KifwuWb GafQq1+h8Gtf81OI7jNhaeHXW2oMZfcVKd8AERv24M4fYLqT9Of1oOhNfzRo sPd5BEt3WmlQ9fZfmaH+evFOOeotp2LlwzvRn74wVNQwqft+1DnKdnlQVX/K eVAP7cli5HNntBoiYtXps4xZ57Q8JPHr1CkWw588zRlK9e/k/SQm7Ud8/BoM GvIewnoU5juYqM6J758fkxs/T3oYU2fkway5/8KCxf/mDI345VFs2FQQ23bk w86dJdmphO07mB7dNRYxe9ew2D7amDlyROeoXCdqlhOV+Sk8edVTkplpF98L hrruu8p16Lg5W1GyOmPouwNtGWoWw6t5T3fd2dFNaxI/5RylnMMU+UrBTjrE RuplJ17SKfhKE344N/X7+LFgKNei7Pvke/ZThH8/G7d/h/T6ta/r9MZHf7wk 8Xiw98qZ6VFx3QlDzPo6cyIXGmyGBsLPYMXx/vR1qvPrnM5fcqJF5bodtRZU 1M7LHNV6kTwZKsftLu15hrOLdCAdUftOcTbpxAMH9zHeRWPhoqHo2r0o301P 9aJUK0p19j+Nz8Ni+YcxZ34eLFqcDytWPYKVq1k8v/5RbN2eH1E7C7NYvgSi oysiMrI+du0aiH17VzOOaj4T5Uapb0mee3f+LOnlCx5aVP7csOr3tK8VvWr0 JPHbV8Xj7PLGf9D3x6V8Blzp9we64njZQ1JmxxsxvK5BPfgpeULkA2lHeDyu GN3wf+Q4/Y2mTHM2NThJzKRazoKvNEIhdllIv85vkxYlfrLn8q/x4GgrFHyx IT78Mgyp6ez1+9sf2me//Bq+ac1Qq9e+1XNUjlq9n/zhpy/v80B0p5UGDSY7 rViqXveHoWY/f7AY6q2WwkkdmzctajVPxMnsOpWhcowq+0lmWlSecWTHUMFO mZ8ifif9SUyjfCXVdB44EMeYt5vF5csxYHA1hPV+FP0GPsL30FOt/ZhxeTBp 6sOYPe/fWLSsAM+Hkg79Zf0j2LQ1H3bsLIidu/Njd0wx7Ikpj6ioTxlXR2Dv 3pXYHxeJQwnxbjE9r7c/c86NoWb5UFmDms2zN4/jXfuW+EnXn8tOWtYdNAub xLn49LsDUPx9z5l1MkMpD6rG8HL8LvhJNZoyP+X8Jl3KHlDh11to7OOxeRMU YafQSw04/wq88Dnyvaidgi/W5/cXeLmBwVDq1xTxvYj9NYY254+Ve7MpYg+c wJ3/iBie6c/b1gz1piWd1v35mw+927G7lR4VjAo2O600qa9fb6VFQ+0hmWlQ p7682x5Oi944bww1m8fkSz7UjqUqR80YKvhJh1hGTKM4m3Qi5S9pfl1k1DrM nNmTadHSTIcW5rWiNH+Eapwonp8+Ox8WLGEMjXgUq9cWwNoNj2DDZqZFdzyC qF35ER3zGGL3l0BM7MvYFf0+i++7IjZmIeLiohmrtT0gx1OO4eRpzz1KTmaO WOVFVZ6a/W5pj9Kp1Cx81PoHTV9S3F53sGctkw1D3TRo1Q5GfxD31St+y7Un rz/Sj8h3GnG7nufkOc9XGzN+NsJjL3yCfOXq4t+l2SnzAf5d7iMWj3/CePqZ i6OkSfU4Xo3liclFK7TA44y/MxZswm+8jsk6Nqe43vXa/83jNe8rI+3yoE58 pEDj+WAw1I6lwTzie/obywfS1+kvQ9XbTl8bdh6lt5mgTjx5eZayygGrWN6O o2ZaVPQDCYaq/KT4WvAzNjaWxd/R2Lp1HVavno4hQz9H97BiGDAoPwYPy6P1 zY9/GJNmPIJ5iwti2aoCWLOuINZtfJQzdPPWRxh/CzKGEkfzMo4Wwd795Vhs XxtRkX0QE7MA8fGRSDh8AEeOkYfl6v2U5zbJc+xVPa7mRn2qb2KHdiEfPnYR bzccyOfKkwalY8dQMd+Y9x5JeVDKf7r0p17jzhhKNUZca+oMfayCS3c+oWvP ouWbcn4+9vznyPv0+8hVrDo71fDwU9WRt9S7jKf1FIZq8Tx9LfUcyQwtpPM4 f7lP0aHXWGTeZPykOqbbnnM9Xa/rmxLr7vitMb2x1QlHfYnjxf1qTjMQ/8iu nj5UMX0g+VB/GCp/1gSiRcX9/nrxdgy1mtFk1hfvrb5e9pPsauzNfCaZpcKv kRnq8uGPSjH8AT63juYo0zz6DRvWY3XEciyYPwZ9+1RHWM9iGDi4IK8V/X70 Qxg74UGuRRcufRSr1jzCGbppa0HO0K2RTItGF8QuxtGYfUyP7nsce/c9z2L7 GtgZ1ZZxdB7TozvZv30Yx44f57kF+tnsepXMdiqZaVD72F7rmc/Kvond8Sfw wvthmofENKhZLK/mQfkujbelGSBipofuHRWurDFU1Gk+oec8C77Rgh9iXUE9 Bn/ila/wxEsNueZ8sFgN5Hr8LeR+UuPnw0/XxL+feQ/5y9ZDfs5QLZ6nGN+I 5SV+FnxDy6fS49U+7oCT59JxiwXxN29ZzLi97WLpr7f8j9llr8js69TawWDF 8SoPgsXQUDMzmAw1i9+9fZ74ml/2FssHa8+HlZ9kpUWdMtTMV7LqlVe9JrnW yehFUvKhlAcVDCUNSnPrSIPSHg/a60H75NauXYuIiEWYPmMguoVVQZduRRA+ qDCGjXwUP4zNg4lT8mD2gnxYsjIP06KaN79lW0HG0HzYHvUIdu7Jr3M0P/bG FcG+uFKco5GRYdgbuwAHD+1C8pEkznSxk054Smb5UKs4Xvbo1dseeeYMrUdp /fZDvK6Jz2F6X54DOtDDj5fr6TWGutcwCQ/JiqFG3lPXn9wzYrx78Om6uLdI NY2fRavi4eLvMH7W0DToMx+gQDnGz2c1DVr4lYZcs8qePHn3xE6uQ9ljxcrX x+aoBPz2B4zaT9Oaztsufpox1Je43WzWkjhO8mm+1oMG81j576Gsrbfjp1OG +tqL5G88b5f/9GVXpxU7/Y3nrXZ62M0bUfkhjq96lPcj6X4Sr2VKTjYYSnPn Y/buYQyN5Dp088ZNnKPr1q/G0mXzMX7CIBbT10XHTmXQt//jGP79I5q/NC03 5i7Mw2J6pkU3FGJa9DFsYQzdGkX+Uj5E7c6H3XsLsJi+AOcoxfUxe2ogKqol 06aLkZC4j/0syZztck5UrW1S/SS1VtRKe3qwNCMLGdm/Yd6KSJSq0RUl3x+i 7PAwZ6jqJRXV+zNFDZPwkETuU633JOYVeLkxi80/57F77pIsdi9aEw88VYPp z+pcfz5Ykl0+UxN5mQbNV+4j/rwCL2geE8Xx9PWiNpT8eFmLUsw/esoS3Pyd PKTfLD/33fjHWPrrbc/7zY7If6nvHau6T8FQp7lQXzWozFR/4/mc6Of0ladO vi4QhgZTg5ox1KxfyZsnbzWnyVtO1MyfdzJ7RGaq59x6z9pR1Z+n3KOoaRI6 lPqIuA7dG4Pdu6P5jiTi6LZtW/i+uTW/rMOixfMxefJI9O3XAB07luO1o0OH F8aPP+XHlOmPYN6if/M6p/WbGUe35WcMzY9t7ETuys/06CPYvS+fwdH4uNLY zTi6Y0c/xu5VjOXx/GcSOVF19p03T8luT50HUzlD72DUlFUo+U43zlD3efQW DNX7kYzZSh4M1Tx42T+iHCj3zCl/yVhY/PUv0KT9SB6jP1jiXeQuXpPnQCmW p+sUw+ctU5v7SZTXfPT5z/jXET8L63lQucZe6FrictOOI3A16w7PgdJcZav5 IG5xONOqv9623wFnx1DZV1BZGWqGBluHmuUYQ8lOwUJfGWqllXOSn1ZxvFVu VNWeKke97Zmz06Oyp+Qkvjfzm6xie8FR1VsSWlRmKHlKlA8VuzxoPxLlRaOi dmB75Ha+7zhi1UosWjgX06ePwQ/fd0O3bu8yTVoK4QOL4cexhRhH82PewnxY GVEA63hMXxhbdxRkMX1+bN+V15UbjXucczQm9iXsiKyHnbvCcThhG/t5XPG8 +Bywm2FvdjIoTs9w9SqY9TJdTc9EevYf6DViFuNiVxR/b7DCzwEec0FFXyft NnLvR3Lx8wmjt72V4SdxH54xlOLxshUbYeW6GCxdE81idsbLknXxQInaGjvZ ebBkLe4rET9Jg9LXiDwoZ+jLTQx+FnnVVRdKj1Ws3RJJKWm49dufUv+m9Fql /k7yln69zc9tzk359f4bP1bvAbPYzUmMbsfLQOuZnGhQ9TGVkeI+O37mFE8D 8ZR8yYeGkqHB8Ja87f8wi+mtap3k3ZRmeT01Z2o2D0+uvRcMFf3xsi8vtKjI ixJLab9cbOweRO+J5ns7SY+ujojAsqWLMW/uTBbbD8eAgY3RsfPL6NGzKEb+ UASTphRiHC3EOFoI6zcWxmYW12+LfEyL6xlHd+5+hPv1xNI9e0siend59n0b IjZmMY4dTTYYKntKqh8vc9TTk7/G7vess5VPWnoWLqbfQfPuY1GqVk+UrO3y kgQ/PeaC6n3xoqdT1IN6Z2hz5H++Pl6o1hxrtyXh5n+A7ycs4rozb6kPWDz/ Lmfnw0/X5jnQh0u7+Kl5SFo9E/GTPChZg/JYnt1+4uXPsWr9Hl4HeuPmr/qM +etuPZ3EUM7RABkqx3D+MjQQL8lbbtQbQ+x6kOjxYO1194elwciH5jRDZY7a +fNOfCVvHr3ZDiW7elFv80is6kjlmF7VonI8L7x5UV8vepSSk4/wvvYEnadC m8bE7MXOnZpfv379ek2TLp6HGbMmYNTo3ujV8xN07vwSBgwuinGTnsTsuQVZ XF+A50c3bnF5TFQ3Smfn7seYLi2KndGlsH7DO9i2ZQySE/fjzOkUo7bJbFaT 2uspGOqK5bVj5jkZOeR02kN3E/XbjOQMJQ36DNOipWsO8JgvImtQ7icJDarU g6oMfaJ8C15nRPXxz7/dDBt2HkFqJnDozG9o1m0cz4XmfaYe16IPl3xP4yc7 /y77oe7Df+apP6Weea0+6iteP9p35Ey+25j4eeOGe55JjaGs2GmnO2XeWTHU l/pP9XYwGepP/jNUdfTetKfKzkAYGkwfySlDfdGk3vKhThnqrebeyrdX86Te PCer2aJiZpOcE5V7lUiTHj1KTD3Ge9qT9X1yWt3TQRbjx+m1o7tYnL6V8XE9 Vq1ahYWL5mH6tLEYMaItuoW9gbBeRfHdD0UxfVZxLFr6JNasfQIbtlBcX5j3 gtLZHlWY6dPH2X1FsHpNJaZvBzGGxhoMtdqJrPrv4rqLmXQ9wzRfapxrN3Ao 5SrqNO7P+zy5n8T0Z5lannWh6nwmtaZenh9SWJpPR/E7+UBlqjTBss2HEHXw Kvr/tAYtwxfx/vwHy37OGco5Wvp9fngOlPHz0ec/Zez9DI++VN9VT6/XQ9Gl 8JGoZ+ndRt1x9tJNngOVX4d2++LsGGq1/y0Q3amy0qkGtXqOygKn3DRjqBWb QslQ+d/wlaH+1NP7y1BfWBqMGic7n8lJXO+L3+SkFkrmqNoHKnKiIqaXez9p 73vK8RQ3rpJOJZ4mJrj6mDRduhPbqI50I2NpxHIsXDyTxfLDMXBIM3TuWhG9 +pTG6J+KY8784li2qih+Wf8E95s2bi3MLgtyjbpyDWPt7JexYH4/9m/E4ey5 U6Z+ktmsEfWY1y64M/Xq1TRczbyJPQmpeP2D7ihTu48yt96coZQHlf14Y3+R Ou9Tn/VB+cpi5Rti5tJt2LLvAj7rugjV2ixC7faL8Uil7shd9gv8+5mPeOye 95m6Wi0905TET8qBCn569HWKetDXvkLxio2wIyZJ22183b3fWIvjb0ga1Fnf kfxeCBVDg3mcMEON8Z1o0FByVP7e/jA01PVMvjBUze8EytFAZjk5nU3ipC7f bD6JXC8qe0vy4fM/TnuyNUXn6vGjrtxpQoLmQdGc5d0xexC5MwqbtmzG6l8i WIw/BxMnDcGAgQ2ZLi3H66BGjS2OGbNLYuGSZxhPy7E4/1l2/TlMnvYM+vQv xRg8ASdOHmU/3znbON6sP8n+Oe4MvXKFfV+mQzftOYFyNTrz2ct8bijjJ2lR q9p6tT+eGCpmzPMj5h4zfhZ742veszni56WIPXwB7QfMRsXmC1Gr21a80245 /lW+Cx56rglnKHEzL4vf6ZJ8eOEhET85Q19rzHkpekK1GL4pr2P6YfIKvtPj +nX315r2+nMx1MqXN+OnWaweaP6T3odqTiBYXA1GDJ+TcbzMTV8ZalfH+r/C UCfeki+xvbddn3KMbzWnxG5enlk8r+5Skmc6iVnIRl/oOW13Me0JEUwVsb/Q p+TnU6xP+nTv3hhE79nNtCnV56/BsuWzMGXqUAwZ+jW6dquKbt2fQ9/w0hg0 rAwGDy2DPn3KoEP7lzBuXFf29bv5zyFq62UP3mrOHT0uXzfvQ0jnx+AnO+mZ t7F4XRxKvt0Rpd/t7+bJywy1mjEi+/EijnfNmW+OfM99iPZhIxB76DTmrtqN ms1+RJW2K1Cr+xZU+WY2cr3UBv9mDM1X9hOe/yR+/ptq6aU6UDHrTuRBeU99 +Ra8Vp84W795b1zM+BXXb/zqrj+v3zIYeuOW+ZxQs/ynXZ2nU06avd/E/WYM zSl+euNoTvJUjuFVhsr32/FTvt+Jj+aEoXaP+ZoT9Sc3alb75GRHiFpL6o82 tesRtfLo1Z0g7kfLm9IO+nO0f/6Ctodenp3nrlFd/U7JSYl8j+cBHu/H8/qo HTvIg4rAkqXTMWliPwwf+SX6D/wA/fp/gO9GNsfSJRNx+PA+9n1Ps5/Pfk6o XAMq19fb6VSNoYKnaboOvYVJCyJ5XlJlqJmf5JoTqmlQMy9Ji+VbcA1Z54tu iNxzENt2xWPkpAi80XAkZ2jNbpvwUoOfkfuFFoyd9TlDZf0pM1T0IrnxU591 V7ZKE+yJS8HN27+z1wR7bWW7M9SoC70t1zjJe4vtGepP7K6+11Sd6Y2dTnOf /vLTWzxvlRsNpQ71pU/JG/9DrUXtWCq/VlSGOvHq7XYjWGlRs/yok1klZp6T 03herb2XearOcJbvt5qPL2tXWaPKHpXm8yfzGU0HD+7j85r27t2G2Ngt2Ld/ G5IS97GvP86+3xk3/ck5mnaFz/o0q2ESbHTzjq5oR9afaWlSXviyftIu4zJj 6PCJv6BE9W6Mn/3x1LtaLpQ8JcHQUjX7uXvykgYlhmqxfFs8Vsk1Q5l6LctW aoAVv0Qhdv9BrN0YhR4jFuDVz75D5TbLUaPTWr737l/Pf8Vr4sk/EnX01I8k a9AnXtF76nXtSfq2yBvNUOD5TzFm8nLGzz/Za8EVy5jtL7Y68utcjcHM2Gn3 HpLvt4rXzb6XU4b6okmdcsQJP4PNzEAZKnPUjKm+fp74w09vLBXxRjDqndQ9 3GrdqLcY38x3kn17b1rU2w4RkW+UuWp21J1N6s56qx1N8owo2bsSM5/lOXdm daCcl4yf10z6NV3/N3eGEnPpmM1Z1Rh6RWdoGmdo2PAFnI1ibihp0DJ6HF+C 87Ova+fHO1Icr/vx8s5hjaEt8NgLn2HEmNk4kHAckZE7sWrNVrTrNw0vfToS lVosRvX2K1GkWi889JzW7+nqQ3LV0VMvJ59XL2qYXmtu5AjIZ/r46544n3YT 2UxvZmddc3uNyBy1+nz3Fr/7Gsub6RRv99m9N/1hZzDi+lAy1EqHWvHUSS4g p30lp7G9rz30Tv16X2pIfdGkKkOtPGq7+aP+HlnPyn2ldtpV3jGq7j4269/0 mBUix/BXNM666rm0I1jq/vOy25cuG+fSlZto3WMaSr7dS8t/KrvnSuga1DOW 7+qqa+K7OPUZ9RVb8jj802Z9sffAMcTujcO2bduwbNVGNA8bjxc+GoJKzRei 4jfzULBiR+R7oTGvuy/wbH1+KetPw4Nn7CQNWoT2IrFD8Tz1iW6MjOd1TLTb JDszi2tR6usUDBWfwWZ61M5LCsR/d/J+s7sdqP70N66/mxy106TeGGpXq5VT 8bzd68SOoWavQ18ZauY7Wc1vVhmq7ld2Mr/ZrB/U6sjPM/NpzGacyHpPZqK8 T07WsbI2VP11sxnKVjVMInaXfy7+WSFi9svuO+0uX7zEDzH0XGo2Grf/GSXf 6aP58XUolh/A65mIofLeeNecJm1fp5gVKnqT+H6k15uiTOXGWLluN+IPJfP6 2U2bNmHhktX4pttPeOGDAajw9Qy8/MUk5HutLR59sRFnJ+foCw30GiYXPzlD efzu4idxtseQabh2/Q4yszWv8Tp/HdxAZpZ7PG/GULpuVcck926qfryvOVAz rRLMmN1Kh/rK07vJUH9j+b8CQ73pUPk48eh9YagcW8mvb18YatZr720/vZnf Yna/Wd7RjGlW/o0cQ1vpXtVrV3137d+6apx049/W9yDx/KjMepfn7pn31OcA EsMlltPlsVNpqNf8ex6vE0PN60JlhnbR5i1X6SLtmmtrMJTi8d6Df0ZC8kmm QffxvliadzV/cQRj6BiUrROG1xuN47nQvC+zmJzxMC/jJ+18J55q/Gyqz6Vv bvDT2C336teoVKcVEo9fYry8CdptkpWZYehQkRe9ccOlRa3yonYMtcqF2mlJ K96GwocPlJtm/pJaH5oTLLVipr/1oTI7nf5OQhnPi7+/U39Jfm36o0lVhtrF 9nb7Qb31gwbzmM7xsOghMptPZ/d9tX1HOkON76UxVNOdaRKvRQwvdO9FrjPl vdEXmR7lR881XGJ8TTiaippNhnDfiPhZqvYgV588Y6hc06T1JnVF8be68nnL YtayVlffmmvHyh+0ReSeQzh4KEGrRdD7YecuXInWPcaidI1OeOWjoSjyVnfk faUpZ6jGz4ZG/rOg0X/UQuq5b4ViNI/05QaYOHMV16D0u7jGGJp5TTDUlQvN ZvpU1H7YeUve6kODdezef3cjfrfSoWZs+ivqULuf2d/fQ6h0qD91o/7qUjX2 UmeXWPXZm8XzgXJU/R7q/uZQc9mW1QZDlXn+uu6U8wbG3NRUyr267zu9eCkN exNO4c3PB3BuavyU6po4Q2nGSC+9LjTM0KDFdE9e7PwoWqk5Cr34KUZNXoyk IyeNHQCUC1275hfMnrcM7XoxHfpOG5St1QMFK3yLR19uinwvNdL4SR7Sq03c auiNXXUVWhuMrvNFd5w4x/S3PguAfjeZGdeQdU3726iekjd/3io/Zfde8CW2 d/IedKIxnXDUX646rRXNaX46rW2y0qQ5Ecv7wlJf2OmL1+SkFt/pbiazuns5 zrc6MjPNeGnWGyU/T1w347DKZL+4qmtPI/dg4btz3XnRxU1iqFH7mkrcvMhr Xo399alpiIxNxqt1e0l19S6GarX1GkOLVSM/vjvPgxYTdfWcoXp//CuNUPeL ToiNP4oDBw8be6i2bNnG51vNnLMYXfr/hHLVWqBUtfYoUL4V34FEDDX0J/GT 70T+RusRFTNLdK+q6GtfYMGqSN7jL/IhmhbN4AxVXw9qnZNVDZ6VNy9rB/m6 OGbvHfFcK1aGIgcqOBhoPG/GoGAzVI3XvfHUafzuS07UG2ODzVKz15BVPt7f 2lGzmF7Vn2b8NPOY7Ljny5FrpuRZKE77933ltmCxG4P1nCjlPenSlb/NcPHz snttllYHcEnj5Xm11or6rtjts1rNFTF0U9QBPFurq97bqXvydcJRvE5ft/4k Q4Mqu4+f0HfFU4w9Y95qJCanYN/+g9i9JxZRUeQnbUHEqgjMnrMQPQf+hOeq NeW7NguVb8G0Z1PGT9od/7WUA23mmjXK9ye34fkC0qgNW/XHibMZTD+7Pje0 39U17s2Lv5UZQ73NYPbmz1tp00Bieac8tXtfq+/9YGrQnM6F+ju3yUlu1IyT wdKmZjlxJ3F9qGJ6K57a9YjazX+yYqAVI53275t9X185bbf3RLuerh9XTlTM Y3LF766dUUJnnjmjMfLcmbM4azkH4AzOXriEVRv3oPTbHfU5I1qPPPHzqdru /NT6O7u41YVSHF+kShs+C4RqmeIOHcfBg4f4TCti6I4dUdyTJ4bOmj0ffQf/ hJfe+ZrXxxd8rTlnKPGTjjxDxJ2fWg9+yUpNsWRNJC5cTMf5C6lGXYPmv7k+ k+S/o+pP2vlKVjx1OmfZ2/vH6v0WTE0aSoaGiqs5yVBf/CZ/9GcoGRoKljrt Y1L77NXbTnhpV1NlxW4zTpsxVGaprEWNOle6fU07mg+fpvUg6V476c/UVBGv X8a58xc5Q3kt/6kTOHkiBadOpuBEynGk8JOi9VCdPI2TZy9gzrItKFGtg+HH cx0qz2mqbtYfr/nxtDOpWOVWKPba55i7dDMSj5zQ91CxON7Yh7qBzwQkhg4a MQ7lazKGvtaEM7Tgy82MQzWgwoOn/OcTuv6kulPSpvVbDUbyiVScPnPWNVP1 MuU0XP6c9jvMcPu7qTWiVhz1tWZUfr/4Oy80mMwMlKFWPA0WQ818dzOGqvc5 zQt4Y6d8n7dcabBjeauc+t1gqL91T074Z8fNQI6TWahmM1H5dcFOqqPS9Sif V5em+fCpF9NwLjUDp1OzceBYGqLizmFb7GlE7T+FvYkXkHD8MhJPXMSRlAtI OnoGSUdScOQozfBLwdFjJ3D81HmMnxWhzRvhs5r6u80Y8cZQvv+YadAGzXvj YOJJHDyUxBm6JzYGO6N3GQxduXIlZ+jIHyeiYu0mfBZ9wVe/4ews9ArtQKIe Tlf8LvhZuJJWN1W8wleYOn8zTpy+yD8bxL5Tyv/S78LlwaW7MdQXb8lOh6q5 UG/a06kmDQY/A9Wi3vykYOhPOz4GqkPtOOqvx+SvDnVyrHLrZnFPMFkqeGrF UFlzOGGjWV410PknVty006lm+tQsZyrnSEX9J/HzzMVriElMww9z9uGbIRvx Wc+1+KjnOjTosw7Nh25B95+jMW7pYSzZnILt+88hPvE8DiWdQlLyMSQmHUXy 8fMYOmaeHsuHGzVNYu+Hy4/XGEp+ksxQirXJ55m3ZAP7nscZPw+wOD6Wz/+L 2rWTMTSSMXSTrkPn4ocxk/DOB01R+KX6nJ8FXhE1oFrtZ1F9ZgnpW2Ion2lS oQXea9gdMXG074pmEWi9sWLXKeUySJ+LnDExVPv9u/991byoN59efV2b1Tz5 UndP1638pmAx1J+caE4wNNT5UDtvPpB6p5yI5WVm+tIbGmjtk8xRs3mkdnz1 xku1hspK62o1iJ7P8Ye1ciwvx/hm9U2UByV2nL+YgeiDF9C83wK82XIhKrXf gCpdovBm152o3CUSVTptQdWO61Gtw0rU67IUrQauwuAJmzFr5T6s3ZGIXfFn EH8sHR3DZ7BYvotbb2fpWnp/vM5QubeziOAni7HJS/+oaV/EJ6TwPOj+ffs4 Q/fsEQx1xfKz58zDqLHj8cHnTGe++Bn3kEiLavF7K+3o+U/6/nyuM/G6wjcY PnoOEpJOIPmIloegXK/G0IucoTy/oTNU/O5Uhop8qDdNavd6lV/rMhOdekoq P33lqbf3tVXuL1COhoKfMvvseOrP91T/T/78TvyN6X3J55jNZQh1fG+1e1ll qNVzzOaZeJsjZcVKJ7X/vvb6e8b2WYwLmTyep1ie/HiK4alu6eipq+j+wzpU aDYX1TttQjXiZrdovNl9N94O24Nq3aNRtVsUqoftRPXOjKft1+GtbyNQvf0y fBIWgRZD16PnuB2o2mQUitXoxfnJ/SS9L4nrUNGbpPvxRchL4n6Slgct8mp9 TJu3judB5T2ou3fvNvZJ81ieMXTe/IX4adwkNP6mMwo9/4nuwzfn+5K1eaOt dX5+yz0rnjdgLH2ldjusWreL5wlo7hXlc0+fPcNrteT5LKIGjNeKmviDVn9v q5kkdjUnqhZV73MSv/uTL7V7XweSE3XC0lBo0GDE8urx9v8ItRb1JccTTIaa 8VS9beUveZsBZfVcub/U21H9CSexv9N8rRVLNW2a5eYrET8vX07jnkpkzFHU bTcbVb79BVU77UDlzkx/dt3FOVq122681TXa45BOrdJpGyp/uxavN1+CFxtM wJO1BqF47QF4qlY/w0tS43h5vkjRt9qhcOU2KPxaE7zbsDOLsY9xvtH+U+In 7T8lhvLdKNu2YONGpkNXR2DhosWYMHEqvu3YB0Vf/ITXy1M/EjG0qKE/vzX0 Z/G3O/GaqSYdfkB0zCHOaI2hxzlDz0u7+uSeXNnDs8vjOGWonSaVGWrHQW96 NBgxveCDvxylr3HC0FBr0/9Vhjr5nPR21NeV3evQ2+vUqcckX5rN17Or37ea e+Kk3t9b/b+vtQNybG+WF+WeUrpWy0QxLNV4rt8WjzqtZzCGrsFbHbfhrc6R Gkc767E84yW/7LgdbxFjO2zj/KzYbj0qtl6F8k3n4dlPx/J98sRQiuGNelDG T37eDvOYc2fsP371C4yZuIDF2MdwID4B8fsPcIZSbX3snhhE79R0KNU2rVmz BkuWLMHUqdPRd8BIlKmo7TgWvUi8fom+t64/qYaKagVKvNkMP05ejt17dYYm 6Tr0zFk+F1vMWSVv3lXflCHF8565afnzzuy14NSrV/npz7ynYHI0lBo0lPnQ UMTy8s+s5kpDHcsHwlGrObahjO+9MdCKu2Z5MKvnW+lZ+XFVi6qXsjb1laGa Dr2KK+lpBkOptnPrzgR81H4K3my5GFU7bEJVxkvOUXZZqdN2foifxM7KHbei UrtNnJ+vt47Aa98wDdpoOkrV+5Fxc6Cbl0QMLf52Tz0PqntJ0u5OPuOOca/S ++0RGR3P++J5LpTF8aRB6cTs3oM90bv5vJHNmzdj3bp1WL58OWbOnInvfhyH mp+0RP5nP+Aznnh9PulQmuWsz8bnDH2zDao36IzVm9j32hvP96sIhp7RGSrm ZV9J0/btaTUMVz3yy1Z61Co3qrLUSof6Mls0FNwMNH6XNazKn5zKiQaLod5+ 9pzip6/a04yjZj1NTuOjQHx7X5jrK5etGKpyVL4t8rK+eP1WDKXDvaS0S7hw 8QKf3Ry9Lwndhs5FhYZjULXtClTpsJnrTNKcdDg/GTv5ab9FY2ibNXi95Qq8 +tVcvFB/EkrX/YFxczBnaGmpt7NY9R4GQ3kcL825oxnLhV9piF5DpuLg4RRe y7SPe0n7OEdjGUPJU6JeeTo7duxg8fxGREREYP78+fh5/GR0DGO695X3+Bzl whU1L4n6R/k8E8Zs7nFV+gYjxs5inI7lNfuHGEOPJh9jDD3BewXOnnfNrSaP jfdtpbvmW9kx1IqjVq8JJ3G9k7n1OcVQp0yVGSrrtLvhKwVDh5rlHPz1loL1 NwoGT32ZP5oTHA1U2zrJD5jlX818Kic5UVHPpPnxNDvkPK+RjDuYjPnLt6Je 85F4teE4VGy1FFXareOs5DlPxk7iauX2m/h9lb/dyGL4NSjffAlebjIbz372 M2doSX1OE3nxMkO5n6TXMxXT65k4Ryu0wHNVv8bKddGIj09C3L79OkNjNR2q 85RmNhFDIyMjsXXrVkOLzpg5G6PH/IxGzTqg8Evvo+CrDVDkja9RvHIrFK/S lveBFn/9a7TrMZbvD4mO3sM5fZjp3SPJyXyvCn2GcF9JYijv2bp6xWCoylGz mF71mfzhKD2m+kq++kvBOP7W7ziJ40MdywfqKanPu1s1ok546pSr9DyrWQ2h 8uxDxVNf+Wr2PG8MtdptkpGp1Y2LmXnECWIG7RdNZHFtZGQMxkxajBqNBuKV z39AhW8W8Fj99bZreNxepd0Gxs71/FRqvZZp0FV4pelivNR4Fsp9Og6lPxjB Zy6re+fIixc1ocRNsT+eOEp74Bq36Y/dew8zXmo50H17NS9pH+epFtPzvCif O7ILO6IisXnrFqxduxZLly7FjBkz8f0PY9CsZWeUf+tTlCpfD0+X/xRlKjdE 1bot0DN8FFZEbMC2rZE8LxAff5DvS03mDD3KGJrC9/aJWnvhLdGRZ16pDDXz mcxyo75y1GxOiT8M9Yev/uhPJyxVb+dUHG9221ct6u34m/cIhh51qk/tnvO/ xlF/mOskp2rnNwmOujFU3+lBvDh37gxnCfks6zduxw8/L8S7TQaiXL0heKnJ FLzSbD7Kt1jO4/YKrVaiQotVeL35Sp4HpTj+pYbTUO6Tn9wYSl489SWVdNsf r/nxGkO/1fo7X/0CoyfORwzjJ+354NyM3avr0Th+RI0TaVE6vO8zcgfPjf7y yy9YtmQpZs+ei3HjJqL/wBHo2C0c33YJR1j/7/HT5DlYtjwCG9Zv4LNHyZ8i z18w9NixIzhxIoVrcXkPlZj3J2ZZqzlRKy1qladxylGz+hQn7wMrnvrKUfX9 7S9P71aNaKA61O45Zuy8W5rU7m/tb5wvXn/B8J7M8gPy694sN5vTLDWrbbXi qNmcUqFDiRPEDdodmpx8BHti9mH12s0YO2khPms1GM+/2xPPfTqaac0ZePnL 2Xi56Ty89vUCzs6Xv5zD73+h/gSU+Xg0nq471I2hpThDwyQ/vquxP77Em+14 H+artdtg1bodfKZITMxeXYfux/59cUZONH5/HD8iT0p9S9T7SR7Tlk2ax0T5 0UWLl2DmrDmYOm0mi/HnYN6iJVi+YhXnLPn5lAcgLUsMPXQ4AUlJSXzvNPlK 9P8X+/xc3lIaP9pcUfM5JE68JW85c5Whqpfqa+19IEfmZaA61I6loeSnHUud ak+z72enP+92XO9Uj/qbKw2EqYHy2CqOD5SpvjBU7gVVfSVXfdNZHGd6jPQZ 1WKuXrMek2cvQ5uw0Sj/fk+Uqd0PL3w2iteAPv/FFOO82GAinvtsHJ758AeU fH+IBUO7u825K165PYozHUqzlT5rOQCR0ft5jE51oMQ4EcNT3pIO8fNAXLzh N1GONFbUjUZG8bnMpElpvv3q1auxYsUKnitds4bpzw3rsXXrZu5FUT6VmHzg YDwOJwkdSr7SSd7zqe5Epf75K7xe1MVQuWbUjKFyT4ZThlq9znytbVIZGghT 5fd5KPKiOcFQM476+33t/DFfGWqn+0PBU1/4Ksc+wWRpMBjqRGf6epzG9IKh 17IyeP83Z8FVOSd6mecCKZ6l2PbAgTjeW7l63Qa+c2PgiIn4oHEYStfogNLv 9sezn/3Izjh+iJ/lPhmDZz76DiXrDub7kPkM+5r99Dl3rvkioi6UGFqSappe bYx+I2Zix859vP6T6pcoVje8pDimQQ8e4DkG0o50SRzdH3eAPa7lSYVnT9yP itqB7du2cm26acNG7j2R9iS9Sryl7xl/MA6JicTPJBw7wjTo8ROap8T+7/Q5 wmdJ63Omee8n71tKN2bce2OorEXNctt2/DTTpL7qiWAxNBj8FHwwqwsKFUuD yVD1Z7SK4wPR6aHiZyCaVI3txe1ANKWZPhDfz+77ys/xh6G+1E2ZcdTDo8++ 5mJoutYvL+J5YgZpsFOnTiD5aDLiDsRzjq7fsAGLlyzD+Mmz0br7dyj/gdbz 88x74Xi23giU++h7lPv4RzxTbyRnKJ+3XFvvldd3H6uzQotX7YhiFVqjTKWm vLczKioWu6J2YjdjoWDovv0sjo+P4wylWk75HDhwkD8mYnvhOe3ZE81YGc1Z TIfYKvQtPY/+TwcTDnJ+Ugx/gsXwJ1NOaTNQqb5JYeilS6lG7ydpUTUv6qRn yReGWsX0TrWo2fvGH6aqGtQfnqq1P1Y1lqHUo8GobbLiaKA5jr8iQ9V4XlwX 38tpnH83cgLye8mOu1a+vpUWtaoZNfrmiaNXrhreErGDOEJzOCjOJeZQ3pHq MSmvOHPOQgz5YQLqf9MLL1RvhVLvdOFzlsvWHcbOCJR+X9ehdcKNeaEla/Yw dGiRqp20Q9585Tao+Ukn3ru+I1LTka5Yfh/XmwY3Dx3EoUOHjCPuP8RYGh+/ n2tU+llFrB8Xpx2Dr8RkpmnpaxITE3E0+QhSjmk1TXTEPGmax0+z+kU+VN4z bebPe6tvUmsrnLDTiqV0AtGkgejSQLWomQYNJK52okGDyVD5PvUzQWbhX5Wp vsTz6me22We3t558pwz1xccKVl7VTq+a1Y6a9TJpedFsztFrekwvtChxg3QY 9e1Q7fnhpESu96Kjd2LzZqprX8V9m8nT5qF7v1F459NuKPVWW8bSbihbp7/b 3Hpj5rJeF8prQ6t1ZUeL6Wn2fNuuw7FhE/Vw7uSakTSo0JbERcHKw4cP80P8 pLpOytny+xLo8Xg3ztL1hAS6rn0tfR/xvejruI9EDD2eYsTwQoNeOHfeYKhc 32TFULX/01eGOuGpPwy1e//4yk4RiwcrH2qmP3NSj/rKUKv7ghXH54Qmtfo8 9TXXbpYzVeN++XVqNcdUzbkGW7OavXfs8gHq+9TWY8q6zo/Yq2fMwLvi7tFT TM9zo4wziYw5cQf2M8Zp/epr167ntUKz5i7GqJ+moVXHgXi9TmuUfLMNStcM M+aMaLNGevHa0JL6/g/R60mxfNmqzTFu8gJs3LSNzwUlhsbG7mH83IuD8Qf4 STikcY+0Y1JSMrtM5gykHs3kpMPsOrH1EOcpPZacKB7TricmJLHvwZ5zKJE/ h3+t4SOlSBr0LN8Nxfmp1tmnaXP+6bNGnmdttvPFX4aa/b3N/HlfYvlgvPcC 1VS+eEnB1qVW9fbB+N7BqhF1ythQxvn+MNSfnJLKX3qO/Po242gw8692HLVi qOCoW64u+4ZbvajRP38lw+AF339MuzoZV8irPnr8GNejpOXIv9HmIG/QaokW LcL0mfMwYPgEfNK0F8pVa4mib7ZFyepdOE9L1RJz67XaJsqLlqjWCcXe+BoN WvbD/MUR3EsnNguGUmxOfZiJCYc5BwX3qO4qOfkov36E307EkSPJ/LZ4Dt1P GpM/zlnKvoazVft6yoGKWiY+a0TXoLTrhDOU6dBUfX6TW529xFC7vk9vffP+ xPGBxu9/NYaaMTVUcX0wZo44ZWgwOSr7ccHUnlYcvRtHMNRKswaiN50+x86r N+tnUmN68ugNhuqzmDWGpnKGEk8oviWtRtwhLSg4yusyt2zR6ttXLMecBYvw 86RZvKa9zuffouxbTbVeS6Y3S7zd1fCUuJdUsRnefL85vh87DYsWL2cMXYvI 7Tu4B0QxPHnvCQmJ/N/jXDyise/IsaMGA8UhPckf1/ObdJt6N+nQdfE8eo6m PU/geMoJjzwo37cn9jvrOtQqlqdLuc7eSY29E4aa6VF/X5uBMjOUGjSnPPn/ CwwNdZzvTTOGip1WPDWLwfxlqLevFXUBTr16NTealZ2p1zm5ZttrHNX2evKd 8sRRxhNiDHlMxCHSe3yuZ+xeYyby+g3reJ6Uei7nzV+EseNnoHOv71G7fmeU Y/H6E69/xWeD0t64khW/QvVP2iF86FhMnz0Py1eu4PWbVOO5NybW6B+iuP3I kWMG+44dP8qP0I+CkYKZKUwrp7DH6Tr9rGJPnniuuCR+ppw4xevpRU294Keo C3V58pckT961A9VqpqjVHG5/ez39YahTHeKEtU7e1/5qULO8YjC1p6+PeeOl 2W0nGjsUMX4oWOqLTrV6TMRM/jLZqg4lEM/K7D0mf52Teikrn0nuXzJmiko9 9KKPnliieUwaR4lDpA/JnyHNKOYouerbf8HyZRGYt3A5JkyZw1nZpkt/NGnR HV+3CUO3PsPw49jJmDFzLq+Xon53qo8nHgsfifKWImcp+Ccz0ezwvaL6ERqT jtX9rhj+jMFPuaZJ1aGi39NXX94bQ+W/sVwvp8bwTvs9g/n+CZaGkr15Mx1n xqlQxvP/lxiak0y1Y2gwtKyZz6T6Vlb1AIF4UoEy1CMvKsX05KmIeieZoxQb E+PIA6fZHbGxGktJk27dvIXXtot+oZWrInhN1KLFy7Bw0VIsXLiI51CXLVvG +zMpH0A1TVTPRP1DfKYn5TSlnKXgHulG+TpxUOhJvrdZvy3fLx/BTZmfoh5U 8FPE8WYMleN5q/lNVgz1pa7Jqlc+lDF8TjHUqb8UrJg+FAxVtXNOM/Ru6lIr dqqXgXLVSY+zmefqT57UjqVOau/N+j9ljoo+UNmrF3qUWCc0KfGP8qSU06Ra eeoNIn26ffsObGNn0+bt2LBxC/f0iZ2kW0XvJdUzCX6SBqX4XehPwUuZkzID rY7Vc+n/QNxU859yDC/4acdQEc9b1do76fX0xlBvr6FQ8jMYDLVip6pJQ6k/ zXj6/wCeo+1j "], {{0, 307}, {337, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{95.7960937499995, Automatic}, ImageSizeRaw->{337, 307}, PlotRange->{{0, 337}, {0, 307}}]]]], "Text", CellChangeTimes->{3.5594374484280977`*^9}, TextAlignment->Right], Cell[CellGroupData[{ Cell["Social Media Data", "Subsection", CellChangeTimes->{{3.559458498797193*^9, 3.559458504521927*^9}}], Cell["\[SmallCircle] More empirical networks", "Subsubsection", CellChangeTimes->{{3.559461334382139*^9, 3.5594613474188213`*^9}}], Cell[TextData[{ "\[SmallCircle] Social Media Data \[LongDash] Facebook, Twitter, Google+, \ LinkedIn [", ButtonBox["ref", BaseStyle->"Link", ButtonData->"paclet:ref/SocialMediaData"], "]" }], "Subsubsection", CellChangeTimes->{{3.559461356987793*^9, 3.559461385432064*^9}, { 3.5594682654314747`*^9, 3.559468279873909*^9}}] }, Closed]], Cell["", "Subsection"], Cell[CellGroupData[{ Cell["\<\ Centrality and Prestige Measures\ \>", "Subsection", CellChangeTimes->{{3.5594584367609177`*^9, 3.559458445886153*^9}}], Cell["\<\ \[SmallCircle] DegreeCentrality . ClosenessCentrality . BetweennessCentrality \ . EigenvectorCentrality . KatzCentrality . PageRankCentrality . \ HITSCentrality . StatusCentrality . RadialityCentrality\ \>", "Subsubsection", CellChangeTimes->{{3.5594719431438704`*^9, 3.559471955184537*^9}, { 3.559472003979916*^9, 3.559472049591279*^9}, {3.559472135197266*^9, 3.559472141507413*^9}}], Cell["\[SmallCircle] Roles in Networks", "Subsubsection", CellChangeTimes->{{3.5594584562775517`*^9, 3.5594584600692387`*^9}, { 3.559472476460853*^9, 3.559472478340673*^9}}] }, Closed]], Cell["", "Subsection"], Cell[CellGroupData[{ Cell["\<\ Cohesive Groups and Community Detection\ \>", "Subsection", CellChangeTimes->{{3.5594584492298517`*^9, 3.559458475060238*^9}}], Cell["\<\ \[SmallCircle] FindClique . FindKClique . FindKClan . FindKClub . FindKPlex . \ LambdaComponents . LuccioSamiComponents\ \>", "Subsubsection", CellChangeTimes->{{3.559472488358755*^9, 3.559472490827848*^9}, { 3.5594725493282013`*^9, 3.559472598269346*^9}}], Cell[TextData[{ "\[SmallCircle] FindGraphCommunities [", ButtonBox["ref", BaseStyle->"Link", ButtonData->"paclet:ref/FindGraphCommunities"], "]" }], "Subsubsection", CellChangeTimes->{{3.5594726286902*^9, 3.559472645146059*^9}, { 3.5594726964916697`*^9, 3.559472696495717*^9}}] }, Closed]], Cell["", "Subsection"], Cell[CellGroupData[{ Cell["\<\ Assortativity Mixing and Clustering\ \>", "Subsection", CellChangeTimes->{{3.559458522483842*^9, 3.559458530672448*^9}}], Cell["\[SmallCircle] GraphAssortativity", "Subsubsection", CellChangeTimes->{{3.559472795555567*^9, 3.5594727967445097`*^9}, { 3.559472839533866*^9, 3.5594728443580847`*^9}, {3.55947292837457*^9, 3.559472930624735*^9}, {3.5594731717231903`*^9, 3.559473172569181*^9}}], Cell[TextData[{ "\[SmallCircle] GlobalClusteringCoefficient [", ButtonBox["ref", BaseStyle->"Link", ButtonData->"paclet:ref/GlobalClusteringCoefficient"], "] . MeanClusteringCoefficient . LocalClusteringCoefficient" }], "Subsubsection", CellChangeTimes->{{3.5594728487174263`*^9, 3.559472925209017*^9}, { 3.5594731242154922`*^9, 3.559473126076295*^9}, {3.559473165329481*^9, 3.559473165333723*^9}}] }, Closed]], Cell["", "Subsection"], Cell[CellGroupData[{ Cell["Customer Story", "Subsection", CellChangeTimes->{{3.5594569217491007`*^9, 3.5594569348196383`*^9}, { 3.559457164427824*^9, 3.559457183124198*^9}, {3.5594572195784903`*^9, 3.559457222537744*^9}, {3.559457805384791*^9, 3.55945783838745*^9}, 3.5594578848915033`*^9, {3.559458176169077*^9, 3.5594581784702883`*^9}, { 3.5594582420504923`*^9, 3.559458292023835*^9}, {3.559458354598262*^9, 3.559458365748517*^9}, {3.5594731889946012`*^9, 3.559473199247738*^9}, { 3.5594742325016127`*^9, 3.559474255385289*^9}}], Cell[TextData[{ "\[SmallCircle] Wolfram|Alpha Facebook Report [", Cell[BoxData[ ButtonBox[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzVmHlAj1nbx+fl5fWat0eTUkn7SoulkuppIyUmkd2QwTx2so11xhgia5uK SoVKaS/9KkV7ja2IftpUSLYkKlpU3/e6z/0TZmj+6fnj+eP7+93Lua/7c13n Oudc51Ze5uy4ot8333yzZRD9OC7dbrV589Kds/6bTibu3PqvZf3pYIxI3MVW X0O0xy34j9QH9u6WAnS1/hvU9se/xy6JY/7gR/c7Om/LJ+X1jdrz0fY6Ay8q ouldfWTzM+UzZp5/Ph3TtdY+Ulsuut7lIi9gB7wmjsWjwrPo7sjvO/sfRMwc O+N/y13L7Ru150KY6oG4+dOQsmA6zi2ZguZnKcyv7nd99A5Obz/hb+H8yeld rTmMjT37tTbE+EwYgagfpuKl5360BXvgvLUJLh9dh86WrL+33daL7T+r5VN+ 7rnsXpSD+rJIlKZ54NWDeHQ2Z4re9Xm7dy9SkLT1B5T/ugEI92GqO7ILvoYj 2bOM89Nn6LyL1PoyDQ+uB+J+zkmynfE3LCIRcw9/M9l9S/F5myn6/5PoHULB cRxWlkSE9Tik7FmK8gxvND++iC7R/a6WTOR5/4ycn+YBoV5AmEjnT+Dq6oU4 NVmfYnCBjzM9864+FU+KQ3E1cBdiF9nCW3kY/GeY4t3zZOL7AkOPRIzE/JGf zun93S0ZXxb5W5JwBIckBqFYQwXlI9Uh0FZClP0EZB1di8dFZ1GZ5YO42ZPx 1v8QcXuSDx/VHnQU5831kbhtIe5Tu8suKxA1xxwRukq4KC2BnOFDkSojjlBz HTTWxNH7emFhymTMjD92HrqbuPMrXxfZu3HuF+wR64cgSTE0G44BjPTxZrQO bqsrIdFQEwFGmijZvpJyhmIe4kHcHvw/J/Kn7vB2eGuOQLC8JATSYrgmJ4Vi eRmUKMgie7gUyhVHIMZ4FBoqoyi+Gb3zcCJmjp3xvxG1b7r85bZk78bZ3dhH /Pv/0Q8p8tLoNhoHTODVOX4M6vQ0IJw3Be3BR4iX43f/qPOeqHXZjMvK8oxZ SMwlIl2Vk0bhCBnUqygjhot/dTTFtzduESMx9/C/Fl1vSv+y3l5BceQ+uPxj AA4Q/+EhAyAcqcLzm3DSZ3o1Xg/3nZ3QzfH3yBNvA1yRZ2GAO/KyxC7HxLHf Jl9yKfYcO6dYSz285vibe2FhusyYGX/MXHQ30vmbtK+L7FUIjsH1u0E4SPyc D4GUR6/0dXn2fxoCZobs/zFxPj24lfLohGj8eqGExu9NeXmUKijgHtMI5gPH XqU0Ak1qKniuooh4GwM0P4zlGXvj4UTMHDvPT+1fp35dTWmoyTqBw1JicB3S n8WfU4SCFG7rqeOhvg6aTakfJhoDk0xQ4zgZTX4HgQs+eOH2C66N00OZihqE Kiq4Rfw5cjKIoXGbS7nTpKZOUsUTZQUkzrVE69NE4rvUOw8nYu7hf8X5k/JX vUlltrrouDzpCA5TzDnuI0MG4RApUVMRDbYmqLYyhNDcABVWRqi3NUejnSWq NyxBC807xfPtyUc95OmOQqKWGmIpznHycoiQlUaRogKaGb86aqgfIhyM8bQo EO/rkyhml/j3f4mLEzEz/ug56G5IBV4lA400975OYep4lohnRUG4EbQDSRtn I8RcF+40fx4eMpD4v4WXtDSS7W1xdckcXFs6H38sXYCspQuR6DQPsQtnI32Z E27/ug0xcxwR7jgdYTPsEWE/FZFTpiDKxhaRNtaoNjclfg3mQwX5Ej3NEmkb FiP912UoDt+LlyVnyZeLPBMxM0aROGaOnfG/pPsNArQ/iUXddX8UnNqC6OV2 OKuvhhg5SeTQ/FCiqoQCFXl4SXzL+IO1NLF+ghEk+/eH2v8NZtIQ+xaaQ8Qg N2ggHPTH4uyG9RCn+0qDBzMpDPofyNO94QMHQFlCAiUO0/BWUxuNquq4PdkE b+KC0Jkehfrzp3Dr4E6kbVqCLNfVuJ92HM3VEeiifgFxcuKYef7Z6K5PRueL RGQcXgnfkSMQN0IaedxcoaqMKg01VGuStKiPtTWQTj64S4ojREcPa43Gw3u2 LUo990AYcAw3T7uhKDwAUUf2YpaRIQI3bcISUxMUerghZ88u3Nr1M4rXrUb2 7BmwoPy542iPVh1dVI7TRa2vK5AVB2TG8v9ZCXifFo0n53yR5rwcwbTe1d8O pNgT/8skxsyx8/z8tXLBYYTrqqBUVYW41XGf2DlVEXvVKHVU62qgcvRIxKgp 4ryBPtYbGyNp2yrgZgpq0iKxa8USCNMEyL8YjVkmxvDe6IyfF8xFqKsLIvb/ jsdh52g9CEbj/j34nubLu3Nn4cXYMSjfuRZdHHdmDK8MOs7gfIkHcpNRdHA3 4jdRrGujAconThwz44+ahe4X1C/1Ceh6kYDrpzbjovJwVH5gF/FXU+xr9Ebi gcFoCGm9Ekw0x3pTUyTu3QJUFyLqtCckxMSwZcmP8D1yBJoUX2UaI6vmzYW1 pSUcLCxwcN0atKYK0OjnA3stDRQtnIPKZQvwTnCej3mGiD9TxJ8Vj6aEEIRR Hz/O96YYJwIv4hkrx8yxM/7n3PU4prZHkRBsmIlcyh8ubxi/KPY1Y7XxwGgs ai1NUDbbHhstzJB49Hca9w/xoFKIVStXYsuWLUiOjYWNoQG2OC3GjlWrEBYS AocZMxATFgpUluNVYiwc9HSQuXYFXkf4s1xBZhwf98xPfKBrWRtXIuPAcnQ9 i+UZn/OcHDPjjyT+Z/Q8d5+1icWLm364YKGDEiUFlvdV2pT7Olp4QOvVAxMD VFubo2rRXGyeZIWAPdvw5F4h6iorUFVSgoflZUiLjcHsSRNx+sB+rF/ihEcV FSgvLsbDsjLUFt3AnYgwTNHWRupWZ9T5HkFLPO3ROP4P+c/1Ax1X+x5G6Cwr NN4JZFw9jCSOmWNvj5yJ7qfUJ0/pmafR/P/zWNwK2oZIJWmUc2OXcqeU4l+o p4VrBnq4YT4BN2h+3Dh7JuSlJGE4SgvjiWe8rg4m6OpCS0kJ31O+nD3kChlx cRjq6MCQ7hlQGwNqq0v31Si3rqxdhcp59qh1moX7v6zHszPuaE3hc+l1TCDC pluhIn4/4+HZonsYOWaOnfHTvIknUZ+p/cF5xK+ZhnDpIchWkkOOkjxuqKuh dMxoFE6yoNgcx/3EaOQFBSA/KBB5gad7lOvvh1vnzuFhfDyyvb2Rc+IEU7aH O7KPHkG2yz7k7dmNJzu3omyeA1462KB9igXqJhmjfM4U3N28DFEzrVHgthqd dZF/YePEMTP+C8RfR/xcu7oLvJ5EoqXsDMIXWuEC1Qy3ab28p6iICg0N3Bk9 GsU7nPE+i+as/MtovZyChovU77lZQF42KYeu51IMqaZNpTUnmdYbAbW9SGOM 8qqTxsC9/ftQsW0LGpzX4Cnl4S1ib7azACabszqqkeqRMFVpCCN2U6yjPnL1 KJIxc+yM/zH1yeMIUjjdC8f7h2FI/80JZ6heKKZxzNVbpUrKEKqr4xrFqyWF bOZfQqMgDi5OS3DSeQPeptGafSUN9fFxuHOa+sHTAwVenrhOca86cwbNxP4+ LhYdURcg+OUXrDQ0wvV5s1C/ZAGqplmj8J/66LQ2BSyphjIbj4ejtXDOdCQe ph+meF7g2XoUwZh5/hnorqXY11Le1Yax+3dDd8JXfijbY/D1LvFT/P/QH03r Ce1rCy5RvFNQ4Hkc+orKMFTXwPKpU+Hs6Ag7g/EYQzWB4SgdmOsbwECLcp7O f5xsAxeaW33Wr8dq+5kw09DGXsPxeLRgFp7a26CI6vBSI6pnLY34WtbEEOWj 1BBmNw4NN31ZXBkf03nGzLHz/OTfI/7eq8KTCLDSRbqsONtncPylxH+d6t/C n9egK59yooDqpWwBIndsw6Eli7HHaQFkJWTwzTcDMN9hBhJDAnEzPRl3cy4j OyEK7vv2wMbCEv36DYTmMBn8NtUOgh+d4GVFdd6cmXhK8a+1nIAMPTXUGOjw 9biJIavNr9L+LmmjAzqqzvKMInHMPL8Duh+Rb49C0f0wBBkuSxA89FvcVeD3 dkW0x8iUlUKYjCSi7axwY/cmPAvzQ1taHOpjz6MxIZLyRoAsz2MYq6oDe1t7 pEaGoepmPurLi/H83i0UJMfDae582OsbIXPLRjS6/I7G7VtQt9wJtbSOlFDN nTFmFELpXUFS4risROunjjreGYxBB+2RErQUcefsVp6dGBkrMXPsjP8h5c6j EDxIcYGX9ghcor30FVkJRA0bjMChg+AjMRinJMQQIDkUgfIjEG6oj3Sn+RC6 7sWr6BB0XqH6KV2AP9yPY5GVDWSHUU6NNcYPc+bjh9nzYUrHzg6OEHq6ocXj KBqoFnqwbgUK586EwNwYYaM0cVpuOPzJPveeE7RPOvHdAJyj8XdZYTiukD9+ Zpp4WUB70UdUgzw8x5gZf8R04EEYOioCEfmTNX4T+y94iPeDu3h/+u/P7PhQ 3fyBP1h2OEJVVRE5ZhwSJ09EhtMPVCfvQI23OzqTY/E6NhyRu3Zi6URbzDAy xabpM3DF9QCaqZ9ehQSh/NeduEHrbtqsmYgzN0ME7Q3OKakgkNYD/6Hi7D2+ Ehx/f7gRx6Eh3+Ag7Tncxsij/MJOxo6aM+gmZo6dU3dNKDrvB6I21QV5h35E 2CxjuCtJUp08AMfIhhf5cJLqZv+hQxAgPQxBivII1xmJRDNjZH1vh5uLFuDG hrV4HnQSSKO18FIC2i5G4W38BXQk0dyWloBOQTRqDu7Ds23OaNzwE6oWOqLA 2gzxo7URTH3qR7HxoXe4iw/AUdrjHaF+P6Enj8hF5ig6tQ4v84+jsyKAaq1g 0hnG3MNfTTlVHUR+BdNxMNqEp/A47QDuBDjj0lZHBJprw33YEHhSHp2TlkQM 8adoaiBTfxzyLc1wY/o0ZM+fg/z1q9EUTnZSaD1JietRd3I0nnkeQd2qn9C4 dim6Vi5GF625HXOn4s1UC5SbjkGyKu0tFIYiepElCg4tRfn5bXiZdxQdZX7E GiziJttVQeyfY+b57dHNje0qqjHun+ZVRaoOZO266Ly50Avp22fDh8Z1kowU kofLIZVqgHStkcyHPDMTpNpMRNy0qbjxszM646hOS6I5LYnWlOQLeOpzDI+X LsbLuY54uXgWOp0ciX0aOmZYo2OaBTqnmKHJwhAJFtpoKDhGceQZGUPV6Y9c PXyBjJljbw8n/vtnqC6kvqn0F/0HfH5Odm56roQfxf8ixT9JRhoCGgepCkpI U9fEFcrheMNxCDOZgMiJVhDu3Q7EU58mhqEhyBMltJ9soTx7RuPl+UwbdM6x Q4fDJHRMNUeHrSk6JhvjHe2hE0xpjOYe5pk/4/grE8fMsbeHf4/uSvK1gq5X +H1ZVQEo8llNY4Dn/9SHFHlFpKmoIorqPH/aU56m+i3M1Ai1Hr+jLdIft5bO Q72FKd7RWK0zMsATG1O8nz7xI7u1MVMLrVkxxhpoyD1EMe6FhcmfMXPs7eeJ n+Ye/vqpL+u+H+74raX8GYwEaXEkSkuIfJAiySBFTg4RtM550Rzoo6AIH1qr o2zNcXXFAtTQPvjtuHFoGUv7BqpBn1gZ4b2dGcXchHG3T5qAjokT0GQ6DvGT dPDm2tHeWZj8GDPHzvNTf5XT9fKTX1alH667LWPzcjzxJxD/pz4IqC9C6Pi4 hDjtjSXhITUMbjLDkEN7/maqI5pILSO12X6uYrwOWqnOfM/FXcTOqdF4LBLs DfC20J1n/BoL0ynG3MNfTnlV5vt1VZxE4YkVNI8OQhzxcz7EUV3N1abcWu0v NQQew8VxWHwQjoqL8fpOjH3faVHXQpOaFl6pqiNJSQYh5qMQpSWPHC0FPDYa jTaL8ei0MkaD8TjETuP43YivFxaROOaP/JRvpVSXlXp/WWTvjt8a9v0nVPJ/ 4S8xEF6SxG2oAsEaW9w9tRrCgHVsvnZl3+b471tXR8j2fJ/ivrmlrp+KRsrv e0HrEfeTJU7pyCJSUQq3qVaoGauDuOlGeMfxl/XCwuTDmHv4aY7FPbp+78SX Ve6DO8ToQvXESSNVCJynopQYGnMOokvoxe53l3mjyHM5XCUHsW+MB/4xgH0X b1FTRaXiCISZj0RD9gHWllPnXU/UJe1C3sGFSPiXNYJp7gmdOR6tN2n+LP0K R4+8GTPjD5uG7lLi5zi+JnrmqWA3hKfX4k2uK89cJrLV08YL7bfcELdsIn6n GoT7zp4pO5TyRhmR8lK4c3L15+05cZykLvLldZ4rXqT9RscevbOIxDFz7Iz/ Ho0Xoeffq5Tn/Op9uvcifS+8x6tgD/lwRVYS+XLSSFxJ69Rtt7+x/ze2/ySO mee3o2Ma00Lyu6QPRLaLfVZgr+RAql0H0pqmgefpv/Hv7Qv77B0ejJlj5/lp TJe495k6io7i4lpbuMiL4V7gGlFs+s4+J465h19I/Hfp+l23vpHQHY1Z+2i8 rEHn7eP0vj6y2yN3xszzc/lP65mQ5pAS774TZ++eT9/b7bHNj99Wr7FoD6Vx EGr3Hyae/f8BVT58Qw== "], {{0, 48}, {48, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{27.91015625, Automatic}, ImageSizeRaw->{48, 48}, PlotRange->{{0, 48}, {0, 48}}], BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.wolframalpha.com"], None}, ButtonNote->"http://www.wolframalpha.com"]], "Input"], "][", ButtonBox["blog", BaseStyle->"Hyperlink", ButtonData->{ URL["http://blog.stephenwolfram.com/2012/08/wolframalpha-personal-\ analytics-for-facebook/"], None}, ButtonNote-> "http://blog.stephenwolfram.com/2012/08/wolframalpha-personal-analytics-\ for-facebook/"], "]" }], "Subsubsection", CellChangeTimes->{{3.559473193017693*^9, 3.559473197008263*^9}}] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ PanelBox[ GraphicsBox[{ {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{0.8660254037844386, 0.5000000000000001}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{0.8660254037844388, -0.4999999999999998}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{1.2246467991473532`*^-16, -1.}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{-0.8660254037844384, -0.5000000000000004}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{-0.866025403784439, 0.4999999999999993}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{-2.4492935982947064`*^-16, 1.}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{1.7320508075688772`, 1.0000000000000002`}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{1.7320508075688776`, -0.9999999999999996}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$8"], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{2.4492935982947064`*^-16, -2.}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$9"], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{-1.7320508075688767`, -1.0000000000000009`}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$10"], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{-1.732050807568878, 0.9999999999999986}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$11"], TagBox[ {Hue[0.6, 0.3, 1], EdgeForm[Hue[0.6, 0.8, 0.7]], DiskBox[{-4.898587196589413*^-16, 2.}, 0.19999999999999996`]}, "DynamicName", BoxID -> "VertexID$12"]}, {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Hue[0.6, 0.8, 0.5], LineBox[{{0.8660254037844388, 0.22280399890499147`}, { 0.8660254037844388, -0.22280399890499103`}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{0.6259666250087023, 0.6385980005475042}, { 0.24005877877573603`, 0.8614019994524955}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{1.1060841825601753`, 0.6385980005475043}, { 1.4919920287931407`, 0.861401999452496}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{0.6259666250087024, -0.6385980005475038}, { 0.2400587787757364, -0.8614019994524957}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{1.1060841825601753`, -0.6385980005475038}, { 1.4919920287931407`, -0.8614019994524953}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{-0.24005877877573642`, -0.8614019994524957}, \ {-0.6259666250087018, -0.6385980005475045}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{1.2309975309987943`*^-16, -1.2771960010950085`}, { 3.209894567501832*^-16, -1.7228039989049915`}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{-0.8660254037844386, -0.22280399890499147`}, \ {-0.8660254037844388, 0.22280399890499103`}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{-1.1060841825601748`, -0.6385980005475046}, \ {-1.4919920287931403`, -0.8614019994524962}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{-0.6259666250087025, 0.6385980005475039}, {-0.24005877877573725`, 0.8614019994524953}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{-1.106084182560176, 0.6385980005475035}, {-1.4919920287931414`, 0.8614019994524944}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{-6.661338147750939*^-16, 1.2771960010950083`}, {-6.661338147750939*^-16, 1.7228039989049915`}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{1.7320508075688772`, 0.7228039989049917}, { 1.7320508075688772`, -0.722803998904991}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{1.4919920287931407`, 1.1385980005475045`}, { 0.24005877877573598`, 1.8614019994524957`}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{1.4919920287931407`, -1.1385980005475038`}, { 0.24005877877573684`, -1.8614019994524957`}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{-0.24005877877573603`, -1.8614019994524957`}, \ {-1.4919920287931403`, -1.1385980005475047`}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{-1.732050807568877, -0.7228039989049919}, \ {-1.7320508075688779`, 0.7228039989049897}}]}, {Hue[0.6, 0.8, 0.5], LineBox[{{-1.4919920287931416`, 1.1385980005475027`}, {-0.2400587787757372, 1.8614019994524955`}}]}}}, Background->Hue[0.6, 0.2, 0.85], FrameTicks->None, ImageSize->{60, 60}], FrameMargins->2]], CellChangeTimes->{ 3.495536298166102*^9, {3.495536372507453*^9, 3.495536397132792*^9}, { 3.495536456949012*^9, 3.495536471512628*^9}, {3.4955365039006*^9, 3.495536535522883*^9}, {3.4955365668582077`*^9, 3.495536620180993*^9}, { 3.495536650793551*^9, 3.4955367004896383`*^9}, {3.495536757373735*^9, 3.4955368393063*^9}, {3.495536891477138*^9, 3.4955370819468718`*^9}, { 3.4955389657952023`*^9, 3.4955389737377462`*^9}, 3.4955404523966618`*^9, 3.495542819755183*^9, 3.495542862968042*^9, {3.495544531046461*^9, 3.495544557766526*^9}, 3.495545070335896*^9, 3.495545247723987*^9, 3.49554541321455*^9, 3.4955456045549917`*^9, 3.495546839580573*^9, 3.495548342705319*^9, 3.495550256453249*^9, {3.495550327515601*^9, 3.4955504470908403`*^9}, 3.495550520832299*^9, 3.495551011050816*^9, 3.495551152101191*^9, 3.4955528875275183`*^9, {3.495553044085544*^9, 3.4955530962715893`*^9}, {3.495553242579844*^9, 3.495553270470943*^9}, { 3.495553370599283*^9, 3.495553431796111*^9}, 3.495553462278323*^9, 3.495557057374198*^9, 3.4955575549912167`*^9, 3.4955576021471453`*^9, { 3.4955584949365*^9, 3.4955585393383017`*^9}, 3.4955589524692497`*^9, 3.495559728242298*^9, {3.495563439185178*^9, 3.495563492945766*^9}, 3.495563861947653*^9, {3.495564443321987*^9, 3.4955644871656218`*^9}, { 3.495564601421616*^9, 3.495564631988151*^9}, {3.495565409969252*^9, 3.495565428042362*^9}, 3.495804371151104*^9, 3.5275180679895277`*^9, 3.527518149316702*^9, {3.5275185062607117`*^9, 3.527518511844315*^9}, 3.5275200730732594`*^9, {3.527599192985615*^9, 3.527599199088366*^9}, 3.527846432842441*^9}], " ", "Network Flows" }], "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.527527214495729*^9, 3.5275272216368933`*^9}, {3.52779015531417*^9, 3.527790161738079*^9}, {3.527790420650752*^9, 3.527790427516396*^9}, { 3.527860994763686*^9, 3.527860995069491*^9}, 3.559474281469409*^9}], Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsnQmQVeWZ9+cbl9KyYqViJU4yGiMgKsgioAKyySayKYqCgKyKiAsqgisu uKCgsjZLA0030Pu+3u7b2+2VhqYRFbM5WTSTZCZfUknNVzNVqZqq9zu/573P 6XNv33v7dtMNJuFUvd13Ofec97zLsz//5/rla+5f+c//9E//tPYy58/9y168 6/nnl738wMXOm4kvv/DY8oucF1lOe+v//NM/8aG5cFw4/kGPgrxc87svmkxr oMy0HDt2vrtz4bhwfCOO//qv/zKtra2moqLCBAIBcyi5ymRl15um5hMmYU+T ST7cLN/3VisrazHZOcek8Vo/T0tvlj7o++rqanPM2bfhv9+1u9FUVVX1ah+9 rbfH41w377jybLRA3YkO5/F5ZdVxmafe6IfOtXcNRGu5eQGzcGlVl/rCuSnJ h4QH/M9vTpvEffvO99a7cFw4vhHHX//6V+MrLTE7duwwuemHzZpnU8w/96kw r673masHVJjHV5Y7clPpWbenn/SZl9f5Qj5rriw1Q0eVm7RDZXKf118pk9d8 Nn5yhanzlZmErWVy7sH9+0xNWW6H69JXvgv/nGtPnV7u/r6n2k3Dy01hRs9e 82waY7T2WZ+0ze/6TPYRO4Yp+9rbhCkVMk7fu7nCjJ1UYcbcVSHjy7P0vbXY 3DmxzFx5gx1zGq85f+Q4+9moCfb3/9zHOX9ohVwzWn+YQ9YN51/St0LmPfyc stxSs39XWcgzMOd1vlK5J8/C/On3fLZsabmpLLLvDx/McZ6l1Hx/oO0v1wu/ xztv2nFhXY2daPuz4aUK86tTnxrzf78wBdnp5re//e353n4XjgvHN+JADty9 e7fZv2+P2b5tr1m1+qi5vF+Z+WnLafPdm/zm//36jOybs2n7traYLW83h3yW srvF3H9/nbz+3eefmn8Z4DdXOff7rO4T+Yz7j59UI68PHdwvMpz+lvOHja52 9rbfbPs4KeI92e9T76k190yvNX/6+efd6ndr5SfS9J63janukfHoqfbX39qx 3fHBMfPCmkYZr3tmBGRctU29JyBt3MRaoYWM8/5tx2V81r6QagqO1nd4pj/+ 7HOZB33+moI2s+7ZRhnv795UaWbNtvdoLG2T83996rR7bsKWY9Kfj99tNuOn VJtBt1fJ+/zDre45z6xulPd6P9YGz8HzcO7A26rlM/rBZ2+/1mwWPlwnvynL bDGz5mSbRQtqzbZNx+R5mRtdM8zRa+ua5DqsMe7Hdbge310/uNLhheVm8bJi UxeoNafa2oQf/PGPf+ywN9CTLxwXjr/3Y3/iPrNr106za+dO+b/x7f1m4rQs 8/Rqv+wZ9uDZ0ir2tMpg2tivXtrz/YF+c80tle5+5r7cn9+F84DbxlaZK/r5 HbpXY/o5six7PNJ9x9xVY4bcAR2qlvvp59xXeU14n6Ad0FLopdJReOGjy+rN 4DuqTFPpqZAxoX/QGWiYl/Z6G/xqxkz7mrGg8Rq6Bp2K1JfeatwPmqq89Z4Z VW5/9Fmhkzw/48BnGQdO2HnY1WK+dYPf9L+1ymQfapXvOO8yZy5GT7Dncm3G UPlAH+daLz7fKDyK72fNtveAn1j9Qlv7+9UrG8xHzm/pB/1lbKHrfFeZ22oG jyw0R/fXyWcqKzCn3DNc1ghvrBXmq7m8znzW5OgfFQWiF6QeThZ70a9+9StT Xl5rLurjMxs3HhUdOengAdPU2CjfXTguHH9vx4+/+MIkJx0we/fsNgkJCWbh kiPuXnxtXeNZ0xz2JjQiGp32NuS8Jx9vCJEP2edeHoDMeZHTt6ayNvls41sp QsO4x/Illqaq/AgNgUaoDE97/NF6V16GBmu/yjJb5XPoSDhN5hzo4B1jq82l ff1yLx0jrglto68q53pbWuIJM2JMjUnaeVze0xcar5GjoZn0hWutWFov9+dz vudZlPZxDq/px9nwZcZK+aGOq/aHxnzxnn68+kKTI2s3m+efbpTfVee3mWbf KTP57lrznRv98tyMVXLCcXO3o3NB5718nfvUFbeZkeNqzNLFdXJ9eADX4HvG n3HX86H1zMGuzcdk7lY91mCWPlJnnnmiQcaGcfjhLVXm8SeSTaOv0dUTuS7X 2v2h5T3dHZtTjRXGV5htTjX4zAcbre7BWOBDqCnLc/TlBFNT5Tf//d//LboD /y8cF46/pePggf0SH+H64hzZJjM91fzkRI356+8+FbkIuWfvngRz1Y0+83nD 6bOiN9AyaAd0K97fsK+hffp7aN8TT6abX59uMp/Unha7NLQAXsFn0DGl+dBh Pld67+UntKKjreZ7A/wmbb/tT3X+Sekfex0aE83OA23je6VNqqt01qBNKqPG cz79gYbRH5WpdeygtbyGDzAmaqPqauOaPA/PkH7kkPnpiWr3O7XPMSYqyzOG qhdgq1N94Tv9/eZyhxd+92a/2Hsucb4fNb7aXHED+mNNiB5Bu2NsjdiQsEtd 0tde5/ohVWbxorqQNQbf4P4qE4y4s9pcO9ih+yvqhPcvcc5/+eVkU57dILxl 1wdW70BeuXl4dQhPOdvG+uMZ4E28h18WZGc4esFBk5l2WPSDn/70p+bPf/5z yD7Dz/aFI1t1R2+Ar3z66aemrKTYHEpKMpX+CvP111/3EAW4cPyjH3scOQYa T9u3d7e0A4l7xQ506GCi+AR2J+wyCbt2iaz1bWef7+ymXAVdhpZBb7ryO/Y9 NE7pAu/7Dy8WunFRH7/0qdCh5dDDUeMrxTYcTpP5TST7itqJvZ/VFp4U2hur T9DwkvRWsVeUZcRPY7hfuA2sJ5ravZXOwvugfao7QOfD7VHoLjToKzI89PTd t4+atoCl99B55qorvIVx37+txYybWCO2OWw86EnQe64Z6dnV5h9qB6ow1zjy Pb6KcLvQ9wdWmjETahweHJD5Zx38aEixuWdmtblxWJXwJeVVnN/V9dZZY+7h /+r7+H+/bhNZidf/+dNjpsaXL/oBfgX4QUvLMZNyKElsTPI/UOu0gMhbxF+0 njgRcW/+53/+p6mprjIH9yfKHmRPJjr788wxvynOzxQ7Ffe44KO4cJzV4aXR X56wdgCn8fpI8kGzJyHB4Qt7hEesW58ke2rPR7Htq7HoH/uyqz5U6Ar7GBu+ 0hBk/ZbKRnO1QyPunh5wz20obTVjJ+UIXWOfxqOzdFd+psErvml+YfVhMNaq O6gv1NvoM+PD+KpNnNidb91QIb+JZavjN1ybezCv+IXHTKgVXusdC96rLwWe clXQt3Bkr/VB03iv/VQ/8GlHv3tnQ7NZ/6z1GfxwUJXL42ijx9eaDeubzT3O 3G92+N23+5eb+Qvz5Z7IC2rb2uD0bcjIavPVJz3Ld9XWFO17eIGvINv4i3PF joROrXvsi5ZK4RnEK/3qdJ3wBmJT8b0lOnuNlpGW6vCLg44Mtjeoh+82deX5 YbyozbTUlAhfKS4sNF9++eX5piYXjr/FI8Y6//MvW036kSSzdetO8+GHux25 rNhMn1kl+r7uRfab6trsfWRx6I9XDoeW4Au85hZ/RJuJ2puVNkWjPW3Vp4S2 8/07b6c4964WGXDPx6Fy/E9OVIsu89xT9SExIj1NA5R3QAvUNuClkUqDVV78 W2gjxxeZ5D2VcY8BNJ45R8eCH8KroemD76g2Y++qlfFH1+CzyXcHxF5EPBK6 G/wAe9HSxfVC7994qcksXljv0lbmmd9C+7ku91Ke/varTaIDqH3qKocH3Ti8 yIy4s8qMnlAtMQJtNadFDnhwbp3oJBpH1FNjpfFX3f39Z00VpignTWSt3Y6s VV6QKXo5fCEn/bDQfuT/zNRD5t/PNMW81tefNxh/Sa6rG1zwS1w44j5irKvG ykKzYmWKmXV/utm4cb/5wcASc/PwKrN8SX0IHcD3Bz9A71fbCq+VRqrvsq7o VAc6yb5Ue4TaKDQOkH3Pb++7L2AGDPeb6wZVdrALXOnQkkh9P1lfJjIU9Bca Ao2KphPY+MKu0Qb1a2s/+gypcr/jWjyDxj7qfePxgZ/PBi2fNis/xB/QnXam 8bTECqkvnedWPUPP4T3jgy+g362V5oEHgj6FG61tx0vv0RV4z3pgXelcsaaU 9/Lb5L1l5uFF+e4auX5wlfxnjeBn0Hiinohr04aOo3bDnx8/LfoN9qto9/jF qVrxuUDbs9JSzLGaYqH5//sfZ0xzVbEpyUtvH6Mv4/eZta9LqxskOXryBd3g whHXEWUtIUsnHdhnZt5b6uzLUvEHoAd872a/GXx7x/jQ8PdKe5GFiRmJdA/2 8tb3mjv8Fvr65Kp68SNC//91YKW5uK8/aCP2m6tvrjTXDio2P29tikpX0b13 B2Uq9ii8BFk0kp8X2qexkV3bb2fc/Q/Pwu4NDUPm3OvQmvD7RPI9nKvWGd2D zkLPDh9KPmseoDkK8MF4dLDUfSfk3vgjsOtdLjG+Nu6IefH6ELg256pvZ/rM gJkwuVbGNjmhydxye4HEGDHXOv7ZSfiJ2vMkWAMqb/C6O7pBY0mbxDcx5+gZ XAveBe9TuQAZQe8z5q5qM3hkiUP7rc9dbUPasB0lHUiM697wBuxL2JKwK/31 d59FPE91A/zUF3SDv/2DfJXwWIMeOaLQz+07EsyS5YdN36HF5sMtSeaNN/eZ Bx9Ol7X95svWbuulv5FoDHt33kN1Iud5aazQeIc3sEc0BpJ9stE5Z8P6Jnev Ijfu/rDF9B9WZS51zl3wcL3IgWufbjCj7soXe8I4hx5w7XB6yzNgD0pJOmh+ /xN777aaT8zqx+tln771cpPQjZeebzLfH+A/63h8jVcZOrLazJkTcOmM2rz1 HJ4VPuDNTTgXTfsTyW/Bs0NX6VN4XFC8jeuqTQ95W/3RGqsZq3G+5g5AK5Hd +91aZd57o9kkbLF5XOiLxNKqzVBzCa096qTZ9Gazsy7RE0rMz45/ImtL16T3 fGQT+Lba8njNWvTGK2k8rjbmj2dj/lhrrEXsUOMn10pfx06okms1lJwS3kWs MbFQ8+fXie6bdrDSvPP2IZOXanXWn5yoEjuQt6WmJImOEHuM2+S8zKOHjK8g w43lQFYjVjXa7/hO/Qb4mPE1Xzj+to6f/uTHEneWuG+vy8t/85u/mNy8H5vp 9/rMnn2t3b94lHUzeXqhueWOQvPBB3vNC0FfsI3B9Ls5vshpyOnQPfacxtJr PL6XF7CPbR6QlY84x0uP2EPwgA/eaha7P3sNmR+ZcNli69ul/XBQpch5+IR3 bg6Y7EMnROYjnjD8GdCvj9eWCHZE2uEks+qxejfmnmdA/n/I4VH9h1V2O37w q1PWXw0dCeeDPKPGpHLfydMCZsf7x9z8VH7Xk3aJePjUd4OxnJpTQPy8V67u Lg/Qa6vsDs3mmTVuJ97xpR+sAfjym680udcrTW8VPWHACJu/dt+9AbNsSZ2s v7XPNAq/YB30u7XI1BSdCLElsRb5LtZ94X9evuDlAcwVuh3xrns/Pib5KDwP sgrrEz1EfT7ck5glYpfWP9fkyBvlZvacfPMnR3avLcsV+yRjjB1IG/5e/kfr G789fOig6AktNcWiA6QkHQjqAPH7utgPzG1ORqpJPXpYYlWJWb1wfLMP6H+N r0DmED4AH89MT3PWWIkZOrrUvLi2wsy8r9TcMrLU/O53XdcTWEd/+MkpN0+W vH7Wdr9by8wD89LMI8sOB2l/udhj+L5dLjkje6al4pS7j9gz7Fn2Tbj9N9xu w7nYTrD1QDO4HudAk5DTR46rdu3J0E1oCvgEQj/XHXVzxJAN5wb18WjxOc1V Rc4eSjIlGe24A+xb6HRW0gnhS12N7eF56fu7r8dnR2I86Dsx7Nc5NAl/KDls PRm/Hm8/0IEuDdrXkL8VB+LQ/pSztgWFjxG876o4MEaYZ82tg7YvDfJ+5gga zlohP4X5hofxnv5f7Vx7lsMT4PF9HL31wM6AjUs485mbI3y2GCdnmk67co/X /8/9i9NaRa7wnn9l/wqzZfMBU5qfboqy0xz5bY/Y+sG4Snbkl4aKAokNIu4C 2h7JnvPVZw3CN9Bn653zExJ2idxfkHW0S7Q/UuO+xCPhN4CmXIgv/WYeX5z5 3KX/NOYdmo09EFritSeUZTeYjz461GXcqwWLj1j6HozxgTYtcugx1755uN/N ex0+ukZoperUnTVk//63Vop/MNo57O8Xn2s0lzt6c1vVKeED7HVoIvsMXsI5 xB3iZ8PWwt6uymt16KdPMA00LxXbLDpCLJvOyboys9/ZT1X5Ta6siixOrApt +6aOvolYz+fNr4238bvc5JMiVw4fXd3BpnYuGn2AhtJ/fJj0Qe1vl/fzOTTb 6grQ4RmzAiEysfpVVRdUzAZeQ2OxfXjjT9GTxCfrzKvKASo70Jhr7/WZD80F /9eBFv/j2sGVro2dBu/S/l4n3/llDV0hPvpyyWWEP+z56JjoIFxruLN2WGNn O3b0XfO44Z3oJvPnB2SPKN3GXvPGGwfMgX0HJN8m6WCiOSqxP7vMXuc9cf7k 3fxbm/UPYxvS36ptaNO7mSL7F+Wkiw2I7+HNxA2xhtEduB5xRX/qhu9Ym+oG 2IlysjIv8IJv0HGqrTWE/oc39q+X3omdFIzE1q7Zhd5+Z4+pKS01Pzvevj9E jh9r7Rez77VyKrSRPYvu+9jy+k7XFvo0ejP7L9Z52CLA8HlsWX0IrktF9kk3 3+nltY2m8OhJafgisBFdcYPPrHy0xrz6QqMbf56WeLzTfh2rLha5ypdv4y+Q v6CJ+BaefdLGNSo2A/aEaD5NbD/d8SNrGzqq6/zjbBv0WmNmFgQxD8LPwSec fbjKpdHwfeZFaTTPzHuN5de8ZY0FAyOImP1QrKEqN5YLfevSvu24S4yjlwcw 5mqnq8prMw8456xZ3Z7bzRogLm3SlBrh4dB9/DvQYnjq5f3K5TVxCM891SA8 Dr6FfHD1zf4eGXP4AHgfL69tEqyQdv5Ubm4cXij0GXmdOH9odl7mEeMvzhFa m7Brp8jz9eWOHtDsF93+T8FcHOybG17NNEn7jjg8pkKwKbz59K++VGheefmI CfjyRAfG50tcEfeDf3Ta769OdfBFoGdgV+Le5IT6K8p7iaJdOLpyhMv/kZrm rPMaGkZO/sMPl3eZB7BWn1mT7OjQfpf2wV+uCMY3ePE1Wfv/MqDSnKrtfB+x jy929j3+sVh7if9H9raInYn3PAs05sbhVWbIyBqz6lGL86ByH6/JG5p5X47Z uKFW6AB7Mfza7PVo+52YJ/wDPDsy2YmqJleOU1wcrrs66LcWDJuMVjfflqa0 lFh06ExX7frwyFg5Rj3ZGFeNteW92lwixcN01x8Qb2OcyBkmtozx7CxnmnPo N/81zkbtQtD0RxY2iI7YZ2iV5JE9/2yRszaK3bhivQ7yEvG73Dc8jy1W05hW 9gXzpX4tXYvXB/UQxSuhrV2bZRr8BRKTpjI8bfeOLPPqa4lmn0OzczOO2Lx8 5zW8or4s4N6D9Uf/VD9TffgXJ0+asROt7qg5flyXmKK589PNOxuPyHuNgfjd j5uE7tMXaDz8KNwXAW+Cl6BzHKsuEtuQVxe4EFt67g/if8ArjGcvkRe/0qGR yDjox3Pu93WZByCTgA8H7UNmZ21Dn7Dh4H/zyoq87opvb+kjDab/rdViS420 t9QHoHYtxXFjD3zo0Czifw7uaAmh5ax9eNTDi7LM+udq5bm/H8QTwP/4rwPb Y/M6i/VhfyJDfemMWSSfIXQTfZ+9yfeDgnRLY8zBKsIXjY+iO/Sc52SPd4Um dbUxptwjPCaV/tNn6BnPyZxHwgvqjYbsjw9X/Ub0IxoPJT4ATLl1axrcnGa1 IYFVytzjL+ZcPps7t8pcPaDUHV+vbsk8Em/EnGmcMGMfyRbHmmM/aA4zfeT3 4TxLMaku6+czY++qFn8xslmk56kqqBe/yORpNc51Q3ExdBzC8xeUF8D/VB9n 3LDTXeXwwYlTa1155MGHU139g9z+LZv3mrc2JhlfQWYIxm6khr1q584d4rMm X23h4gyzeKnFSP3lL3/ZS9TuwhHpABsKX008ewn/LLkv7Aux1XTDFsQci23E WSf5WUdC8tE1XrCre1zlTBo+Aews4IixdonpSdrZInvvseUN5plVzv5aUOfi 3bDOlR9Z3K+Oaxd6BQ/YuKEqxN/Afhl8e1Xc2A/QuoyjyRFlcsWp1v2oMlq0 a6ldvKtjBZ/S3CfGK96cZmgRcSdgVwsu3qp6l+bpf+hXZz4LpTHQQ+abPOFV K609jHHpjbglxTrV99yLZ/fiW9D2BrG377uvTuxH8Hgw4Phs/jxroySGiLg0 bDL8HhsQ9qAlS4tkLBlXb/wVn/Gclbkn3bzmq4MyBP4mjV1j7jvDY9V1zvh9 9GGiK/PzDNFkpVHjaiTPUnnJidpSodfZ6YdNfuZRsc9E8g8zT958NO6peh3P jRziXX9gCr31CjnW4XjcHRvr+j9/8qnoE/CK4sxq4VF7dti8ZeKHLhzn5jjV dlLsg179sbOm9lRed4cH7N+fKPMMLtDOYG76to/3m1vvzHf2XLmZMav2rPc8 6509q/JKX0dvZ/1i71E7MXZdzSOGV8wM+iKjyfLYP4n5DP+cPR4vjufR5CRn D5bIHoiGEadYReyxcDyI8KY6VHfHSbHxYukE9Ifx4RnBcKa+grXz+0VnUbt6 d3zNgoX2aLbZ8LLlAfAFzYVWGt0TfIFnCOdLmiPgrSvDvEAvySXm/sRman9s HGqVrCvk+n5DKx05o9I8/0yDGT/Zb/oPKxYbo/qxvX1mXOCN3s+47+x7AxJL FM8zaIyXxoRCx3XfhuOdh48xtNyLHwLdVfwg7DPgBiGP41vGjqM8gb2gegn6 LzFlXizEruQgwqPee6POLHmkWnw4XluWYtCiG4hekZgodKWysvJCvYRePP73 f/9XcKNi5XpEa8wbch+1A7vKA9A7ctKPmNONPokRwIZZVZxtslOqRJ4iR9i7 d85m72vD9gLOb8LWCpOWRE1DX9CWo+uwXOJ+rJ8qciOeDh4QSWZCfounr0ed PUa89cJgHFQs2qwYScij0WqQaXzM2YwNfYd+6D2gU8SePv6ozWPS2ETV/aCJ uqe99u/uNuhOpTP/4TlMzBNxyPfO8ZsBIyrMo8sdve51+zktcWf7a19uhakq sq/bAhUdrtWVlne0wqQk2mstWlgh8in9oA25o8Jc7KwVxmDMXU6/bgNDtqOc GwmrnLEKly+0XkQs+QEaDu/FD815MjaHk2RNeuM158wB8yRynJraP2PxemI3 /+1Urejn2CtZ79zj8KGjZtfHecIDNwYxv+kz74mvoE4e9rP/+c3n7r1sPYd6 qaU5+z4bY4XdeN6CTLPmuVSz/sUks39vkvnl6XrZ/2ITAjt41y6RkzQXjYa8 2FBf10tU8B/7wA9AfBZ0ON79WpTaKnU4yFFh/qnd2lUe4CsrkXjTSNf/zWdt QouTdtk6LGdDYzZtdPbi7SUSe3iJs2+p/yo1Zp3XoyeUC+4D8hD4/8T9HEkM uBim0Ro+LPYF+7A7fSrMShVfWDznfv2JjXGcNDXg0l/kZK0hYP3EFic/li2K 3+InL0mP7leBj0xzZF9kbugbNuwfDvJLLIr3PK2Jo/Ks+hPPhgcQI0Lz+g3D 276Eo+aZZ7LMQ/PyzYgxxdL63Vrivv7RYGr7lslrYo5H3VUsftJY14ynLV2a K9chboZrcv+0lBSzYFGee2/adYNLJB4f+searS9pE1qpWKjqd4okJyguUaSx EVxV53mIQ0VPzXJ0dmgk+8cru1k/j5XVtTZOeFN9LZ45gbfAD1jz5IeBLXfV jSVm66Z226H6/bG9XhyM9WZ/UQN22OgKM25ynlm+PM+89lqq4NGBBYnN+Tdn 7LP++Hil6DLQ/507d4o9gP8Zhw9JHCt+w8NJ+8WP/eMf/7iXqOA/9oH/nTzg eHM/WL/wfvR//exUQ7mpqwt06b6pqbVm+J0lHXDbJDbyyDHJRfvR4HL5Tmnb 5w3HzYQpxaInsN6Q36++uUzqzt8xrtjcNq5EPkee5xzWIu9vuaNcfHgl6dZm gY8AHZ61+9Sq9vx84ha7YtOHZlUUZHWJ1pFjwbr+vz+z9p1AeYEpzc+Ier7W rtH3yOr0G/nyin4Vbo0bxSXQelj6THymcrzWo4J+8x/apHoIv8f+gb8P/qJ0 ivsrtoYXC1X9hDIWwVzXs+EBveETpu/q8zjb/ikOldeWgq2R/JCc5FZTmFZr dm5PMm0OreQ79YlrHQWLX1orcUTR7sHcRsMQQtcD43TUhDKTcfRQzL4if3Pv SDyF64fnlQm9/+0XIXnK4GKDp+qthZx9qMVcO6jM2T+lEiMNdgVrRut4su+Q 16Hhti7IHldOQsZsqiwUGk9DDoIPaB0R8ScHY1uTHD3bm3vAb+sqCi/gD/XC Af0H3+znrS1uvmYsWwZrRH1Rum54/d47+aamplrsSvEer75e6dDmkg71DC8K qe3a/vrioL1myMhy88FbAXNZ3wozb16VeWy5xsdB9ytMzqEmU1PYYt56LSBx pmonD38ujcXEtrtoQZ1LL3V/QOM6ix/El4W+HA07K9pvWOfYW9EFoH3o9Pjm Ip1vc9X8Lj621z8cSadXHBrdy4xruL2JsWCstV4i4zpxSq3oG02lkWkl6wP6 0Vtxpb0ZF2Tz6qqErnlzzjrzLxB/tdnhm+Mm1YbU+gxfR4zh9q0HzMzZPleW 0XVLrhi5BZxbmdcmMUXMT/i18EnBf7H1dMCg+q3Ny8k4eMJMmlYgPtxoMpv3 utTd3BlcA4o3TTwzcdZgDmlfie/WGnY6PtTMHBfEYNG4PXjK8NFV0sd752aI X4C9U5AWcGT2A7KmTzeWS9wzOWnhfSN2tLo0V+g9PoxjVYVia8L+ZNdzm1yD hk+gra4shBd48YeaGhsu5JWd5bFjZ5OZcW+JxDsz/xoHrzWcwudPbTLQDrBq ydfSulEzZtU4urDPjJ+aZda/XBbX/UtLS8zdM4rNbz4LpU/UVpxzX0DybZT2 //AWvzm4M9QeFC7XQefCcRc0/jHWPud5lEbq3mXPag35WL/Nzzoqvt2u0iR0 a2h+W72VGdkDyEbReAl7DjqgNobewHiALsXjV44Xk7OrrbdjQ5HVN4flnHkx uCM3v/i+kXU1X8PrO9ZWkU1saI3ZsCHFvP9epmkubx/HhpI2WVfUvdfPmD/2 GfsH+sq4E2MErqDmUWssvuZIqg5WX3zcZKelmg/ey5FrKZ4VfRvv8Cq1xSA3 aC4z+ofGbbGPtzo6PDZB7T82P/hTPOPI+TNm+UXWv22sz7TVtIoNv8ah7SL7 B/OIsft46Tf6Lz4f/sO/WOvkGlMjZPrs4g5+k68+bxQ7HLGD/I5zyTngO/QC 8tzgBdRDw5594Yj/YLy+OHNG8Dh3ba1w6996x5+1iO1E9wv5SMTsU6+buMpL pQZrIIRGIie+82aZOXw4P65+FBcVunXwXNrorHHkcHJq8IWS6wW/6WxdQsPZ U+E1U1QmjpdOaLwiz0oORCydCDspa7OnaBT8pLIkJ+J35DMrz1Pdq6dpJPQo HnuJxqv39P3PRX5AV5rEeQ1pz1PRcUc+ilQbc+kjNgZ/+J0+86MhpTJO+Mxo xH6ik46dWBOSk8G6hfYptiprWHKzNjQLPQcTapgjd2Ov1Nxw+tHv1mJz9/Qq ofW6FtQet3JFvZvrpc/BtWPFHmi9t3jGhRz8QXf4zYG9SZIPsW93qtjq8U+Q i8zrv/zypOTFI+8Tb6iyDfQfvkDOMHI+eWJ1vjJ5jmh+avVJUFOE2uLKB7Th S8ZGdOGIfYD/xjhlpKe5NeKIB4sVCwr9Ux5gYxysfoDNIJocylwV5OeZlpYf d2oXop48e565J84AWzyYh48uq5NYZnTolD3H48JYJ4Yv3G+p+6W7OVDwj2g5 N8gh0Cx01Z6iOax1rlmcmx7yuVcG7E2ap/buzvhAeO5GT/Xrm8YDoK3Q9M6e j/UBfjRy/G0OrV+y2G/GTS4UnxM0/PrBflMdlLEZN/YQ8ciXhukgGgMLjtWD D1p+AP65YPwF6wOQn3xx0D5K3i5zwXnqR9B5Ca9bpnGhGisUbovi3Eh4XJHy DcBY51rYXbG/gu+r9n9ovtqooC3YOvOzUsW2A+409Bsegd8cG7ReU3M1o9nm 6D863P0PZpsDDv0Kj1+Bz/y96AJ/+ctf4joPHG4w2rwt3E/iPScvN0f4JXI3 8SzYpLuyH5gD1hUygMYERmrw+JdeOWAm3J0tteViHawZ1gt7jPlNdPbcrNnU 7bLyzXVBrK94+rdmdaPg+fQkDYDuRpONiMegPkBP051INqF4cw5knpw9Rs0d b0xdV9obb+4VPztYTps27TZbtiR0OOfOSdmm/7ACM+ehNPP4E8nmyhtKu30/ b8OG/Pmx6GvrXLctUivY3+kaVB89vJP/a56sNM89lyXY4tBVcAbVlwyt1fpG kfwBYFFre+jBuiC+qhcPIvx/hZkxMyC4iuSwXR/EuIOHwGeefLy9Zg1YSlf2 rzQL5td14OPwBsUs8bZwfEja5Gm1Ds8LmH7Dis3Dj6SbDId3g/cD/decYK03 QC4Ne/zg/r1i08FHTFy18gvO1dwU8vKjxTfThzn3Vzr6VbHEU/w2rL5lU1WR xJr/rR7Q/cyMDDN/UbrzjIVm6Og8adH2CvUVZ9+fZcZOKjGLlxaagux0M39h kVn9dJr5wcBiM/D2Atm7H23JNBOnFZv0o8nie4euMDf7gmPf1Yb8khj0IXZ2 Ljgg0LLPPj0d9blTDx/q8Lu3Xm4WnzB687BRFmc5Hh3Vm7vYUw35JxI2v9a8 725caKyGfEPuAPtEdWjFyIz1O3xt6Nf8j5S/Fk9T7AHGHXu05g9HOk/jR5Bl FUvA7v0z3aqJAz0kpnP/zp4f0+42+nRp3+i4zxqHBf3yrhF0GXQaPYfvV69s cJ7P1iPSvDPWqzfmJmX3CcmZwneNPozvGF9Ee2yEraHB/pi/KC2kH1pfWfPr OA+/APSeGFE9hxgm4oOx8xYcbZfvo8WlYiNiv+v8IovgP2SuMlNKJH4Hmozc gayvv2N/aF0a1rDgRJflyt5Z90KamTY7yxze73PHUP0ZndkYZ88pkzz98M+R b/EL/K0d2Eq2flxiXnz5kNm6OdtcM7DCrFhm8UmiyR7sL2JujyanCOYweere NcprjaVkTGnEKjzxRHbw+9g8gPWoNJdr4a9SDE1iRr7Vz98pPRKc6eNVwq/S 01KjPv+ehFTZGxrDxrNNnWZre/3LzZVm8cI6Fyu4s/gN1lFv+EkVLwWbLljE xCUgz3THDxxvgw8gT1UW50g8Ns+u+F3Q3q8+szKQ4nP9KRhrCjY8OPHd4QGs N60to7Yg5v/6TnQx/EFefA7Wicq5Xc3pJfaePLDernnJOovXR8RajDRW3jjm 8O+9PEAbOgF0ee4DdSLjk+vFZ96YG41Jwxd3tcMD7pleKz4xMEnHTbR14uAR c+fWSpxE36E+c3hfXQjurrsHnbGH3tu4t+oOvv7XX2wWH5PGj/UdGh3XlM9Z f7oOrrihwsx7OFfs/+CIIntA8/X8nwRxUPQ965L4B/ED//YLke/6D/MbX1Zo 3IUXjyJaq8hpNENHFXX4nH35t+YTIO/5tdcOS6wvuhy+J/ALOluT7MsrbyiX 2DDy1L10T+Uv9jB7F/s4/P3b/cucdeMT2g59IR881vWZb/JDxzprBDmEubc+ V78z/hUh4675KdiWfv1pnSnMShP5H3sf9v5YNSg3b95v0g7UufHT+M1Uv8Xu Sb34eGz50eKde6qxbsGGGT2+xuRn5Yh9M9q5Z4PpHN7gA/Ab9A3sdysfzzJD RhY7ul6JxFKgSzOX/D986IDwd81h7uq9oEOR/C7h2Gexxgh6qHEsgiMU5AOK t9bZNYgBIbeXvsCLequ2AWvqiijxQJqnophuXh7QUn7Krc8Wy0cViQdwPTBe Feta65lG6gPnUn+AfpADqPI5/gV0M83znTqjVOx2l/UrN+uerTa/aI1Mwxl7 dA+wLcJxK6Afzz7ZIP6GK4I6isp43IN9D40Gy6LPkMqQPIBL+lbIfO/dnRDi V/TqAPoeOZ2x4/mJtx10W7XwN++6UNyuWHrkq+v9ZvGSyHETxAj9rcSKfvLJ J+IrkZzTYGyx14/fWYNnz1uQbS5z5i3jQKs7ftBuxtDWx22SWoXkdMycU2Cu G1zm4s5v275L6p4q/suAEdUyxyoHaN1DbOzwZfjJCOe6o+8qMROnZYk+5y/O tnnk+xMdHS9PbLnqF0pISBB8j858wqmHQ3OTn3Xud3nfCnffQUfioe3QnusG Vbk+td6gGzT2BjWOMw9FtoXpGu7Je7YGymRM8bXTyNV85YVGlwaFx4hjJ+2u LShSi6cWYrTGfmc8yDMCXxbaDs2ItsfhAWpfg16wL3qKDzA3ioeMbgzeXbQ6 1FrTEdqr/teL+3Sk19BwrWGpdYBZi/VlVcIDtL7Q1HtqosoGnKP1a7w2Ty9W KHR6/zbrn24o+aRDv19ZRx2iMnNpX5/JOBRw503tTTTwjrx95rv2+jj2M+po 0F+LReoXnoEMyLPfPKJK9JB1jIlDdxbOrxM/OPMFFrX2JVJ9+oRde4VH8CyM P/OK3QufRaTx5/tItU7BDhh9V5lZvy4yD6CG/Tcdb/r0aUdfOXBA5GRiX/MO n5C4967iYxKHPGRkocSAscfsmLa4GPiMH9gy3+5fboaPyZc4e3QGtRMhOwwZ 2V5/9ZPaU858BNwcEbBhw3XlPdsqzMonjoj8ie0POg9tgu5jh0hKSjIHDx50 9LGDcY9HeAwI2LfgHYy4s3N9yNvYK0NGVrv6RG9hIdPWPFNmBjtjf8e4Quc+ ofRXY857+p7hdJ59FC1v4Wz8AdGaYh1057f0k3FR3D5wODXfONx25+UBOq+K 8d2dHF/9HbyHfcIzaF33ePcc50PfI423xpwhS6l/ZKHEtlUILglxO1cG68Rp vL7yD5XnFVtba8ZDl8Hd4RwwWJRfkltweYxYDNqjK8jd8pnk3Q0uThH7QeUF jWkFt5RxIVcsmg1efT78Bv3cxjD5hQ8RN805gsP9VplgZujvkAexX+r77NRM c+OwcndP8t9irAbE1xLNZki/NReR8eV50D2Wr8juEBuqjXiXpsbGXqTg3T+Q h48cThG/bNKBfeYPP2sRvF1quy55pE5iYlin8fg+JV9wRIUZcFuxaztjPQ8b 1W634TNwFlIO5Jv8o40d9g80Qm3J+P+IPea65A6S88eaZ38qT+G79CPJZvfu XYLlZOl+gvCCAw5PizeWKfzY9r7NkWGuWQsWq7Fa1lqkXMlorStxM2fbGJcN 6+uEj7ZWh67FWHn+Pdm8NlT+k4Ok2A69wQOgJd3Bpva2nx0/LX5O3e+sScbL m5MQzgNoO95vFt8mvENp54b1zW7NNc3XUkwINwbGoa34Lr057d1t0exk2th/ 3r2LbPPxh0c76KXhfjvdW9SZZIwZC/qMbXj9sw1u3chL+vpded3rT/bWQlOf 70Pzfa6tZsOLtSH95J5PrWo0/zrAb6bcXSN+CWpedObDVxzsw3uPi4+C+qpe fehUoN2XjF1S88LARPxoc5rU4oukn2u+RbTcBbUnTr2nyuzZWWi2bd1rjjvX JNaIfDFv3ATnY5+g3vk37YD+H0455GLln2m2NJZxJA5Y65awhuKRTRg36E/K nlqXT2pcN7FlSgvBRcs5XBmx9orXXgdeLXI/awabEH0YMKLMPLGqWHzP5ICw BxcusTUdlAeA+3zkyBHz+9//vttjg7zE2md/8Z9+so43rG+Uek/w/s5sZOyT s6VP8TbmjTU5ZoJf5C31fQqeriMnYS89F/1QPCBbp9DSBy+NYp566l6vvtAk utnZ6lbRaiAoro3EfyUdiRhr5bUR0w+em+fX+mSKkcQYYGMAU2fre9aOyOd8 b+XICpEtrgraQqC5zB/rh+tH063grbHy5zT2R+t/wgOG31kcNcaF62nuCXYV 6D59CN//upc57+N3LD1EbqwtPOnyPsWFUt7H8waKWs3UGSWODuKT2FZsu1pb E9v/0JE1QZtQpchcakOORH+4Pt/RR8Ur1LjSoaNLzJZ3fe654Xagk4Eq0Yf4 PXyMOYgk56r/MtL43zam0vS9tVhyC37aWm3efW+vefW1FPPexhKHfgYkzx6c FT2fnIOu4NWci6OutlZ84ugA2ICo1Qnv8+e0yvysfbrr8YzXDi4zuz8ukzHV feTFVUvYWm3unFjgzmG4XSeSvMX+mPdQtRuDNmGqrT2n9h587oWFhSYQCPQY dt9za8o62DkYG41jUDuC2gfD16hiqJzruujEY1x1U7lgKu/5uEX6Cm06V/0Q mjM9IPn+0OdwX19P8QCeJxx7o7vtI4deY1OIdC0+Y37vm1vQYV121R+hMcI0 1j5zw3h59US1EbGeVP6ATqldVempYuJr3hb71Z97MuI8cw3i2Pj98qXkiBVF tHFofgD8SfkaMaBZSa3iM162uN61GcGvptxtZT3k9WsGWqwKahrHMxbZSbbu KHJ4JP4Ff8dPAy9FT1O8GMaQMWLsvn1jpUnY0iJ5myOCvq7921vM9xxdAkzG V9e35/njq/L6BtBJvfFC4diH3qbYGeGfg9G9bJm1/3+05aAjkxabWbNrzbiJ teaaQRYHMGHnYYlN4hzi5MmH+qYc1OYF6468H7Azdu/ICYmtp6Yddcm7up/u GFduli8vEJlgXTBmgLXFtd96udFcO6jYFGVUufTCixfOXsg6kiF6ml4PvPhL +pYLJuyTTx+S/CDkfWg+7bPPPjP//u//bsrKysx//Md/9Nj4bHyjLMQnwJ5g /YfTengBz4fM68Xb19jinqB3XWk5ablmxfJi2bv4WsBa6QmbQ7wN2gJNQD/D /heuy/cUD1AZvSeuBcbI2Ltqo9rspD7p8BJzrDKUB2x5+9zpeTTFW6BpDI82 6CWxYYq5Gk5XBauH+BpHR7xIsOLa7SW8/t7NFWbxIxXyjPC6re/b734wsEL4 y2X9KszNIyz9H+3omqPGEytuX4s/17kGdmBiQuKpf1CSUyI2g5aK6DH32AF2 vH/MxS2ijjW+XotZUSv5+/huGYu7pwdc/wfrDhn/F6fa+VFRTnoIXYH+/5sn PogWzW7LdZE3lG+eqj0lGE3XBvGOtn18wMxfUBCStw1NgF4kJuS4uQngyZ06 darHaBQHsY0tx45JzmtX8x6L8zMl7gV+6MtPNysfT+sgk8dT2zq8XXVTqcTI kofO+HhrfiCfzrqvfR74TH1ijDO8+NpB5aY0N889J2mXlRe2bdtl6uvrRc5X feqvf/1rj45nyBH2XPRt0tTamLRP8bSIISK++WxqZ3W3gXFSW5Yrr09UnhZe TMwENoievhfyrMpl3s+vvtnGa0TaTz3FA7gne6wnrlWd3yb2gFhr/bHHcoRG ej8Lxzw4n82bq6f4ud4aZ2mJx2UfffDBHtN/eKnZ+GaGW39g0SO5ps+QUjN+ alFIvYHpswrMgoW5Up9A20svZjp0vtSRLUqlHgK1Cj7YlC72R67LPahb0FnN g13bU4UHHNodfQ5V7kKOwd6EfehfHBmfHGXis7EBQZuJG4WGgCt3pvET0VEe ejgU7zzcvgCOCvUeFG8W3Wfp4vqo8+nFKaWNC+LZqn8D+k9/wvUr+IzG4vY0 ZkRBfq7UWAcbn9imSLw2mo9aW1pKuhk/xc4X/DtcdoiG0xF7X1aaJ5/KknpJ 3+pPzH673ZzxCh8j9bHr59+7udzkpOa4a/maW3zmo48zz8q2360j7NmoUQwW aWdjgP4E7+sN3LJ4mpcHaNM64JHqRp1N0/oc7D/ifVv8p8QHEitOpyf9AQNH VIm/SH0hkWqbx9OiYRF4G3tk9Sp/yLNFsmWerxap9gr7WXNzmXvyn64bXCR1 KrQ2J/sOmZZ1q7Ypbdg1kGX02sT6PbKw3U7EeCOXKy5dH0cuRk7aG6fOuWql te3Wl8Y+/7UXGs2w0dXO/etEL1AZG95APJLm7qB7YvNCzylKD43fi2Rj3rXz gNRqWrCwNojfHR2L96XnG+X66B6MxbyHAlLjQ3JGB1h599ueGCu9Dn4IfK29 kStcVek3aQ5/UXwLeNp772YIn4Zfb/soTez8772XbA7uSzcb30ozL6w7ambN yXH4dopZ9ih10ovN+Mk1knMVCYtYMf06iwliTFoqTgmGDrKI5tOwLlgv0PhX 1tbLfB/eczzkt6xFb02hp58ql9hGYtCg/8nJhb0r70c7wp5R83I6W9fEwZDr fr5oQSQe4J1PeEFntXm72ph75DNk6bXPxKaJPcUDmAtsTk+tspjS0GPWKuuY dcdzduUZtZ5KtO9Z09SCZH8rf9e1fb7m2tvoOzQsWh0wxuLLE5+YcY7Mt25t maxn5IFHl9WH4Ptg34Cvas16cr8eWWBtS8uXNJi1T7fXfpC8nPHVZtQ49dXZ nH3skB+82ezmb/JbdEZiUfW+fL51U8CZK5/5pLY9ZzhSXhr4b5scHkVd5Cv6 dfweXhCOU9TgC12Htb484y8KxXH4rJGcZp8pSjsu4/PRu83ufPJecSJ0vUl9 7xtsDTSe0+esOexv1Eb7/efB+J9gPTblx/gUyVXKSE3pcdw4bOA3jSgQG90P B1W5OYRPBm1m6Cp3SyyvX+LxyX8ePaHSzf9bviQgORep+05YHORgfTfF9uAZ dWy1xkS0Bv73rHsDZuzEWsEAGXh7sfnwPX/IeA4f7TfXDirt8FswC7FV6lif 8LfJulixPMtkZKT36Jh16fD0kXmdfW9dXHHo51s2jMUD3DF3aKbGfmv+j63D 1F7fyysTxqKl6kdMDMbRdda/nuAB9A1aEo1ma3yON+a9s5wu+h6LBxxJTjIH D+wzO3ckSW77gcQDZvHSLPPg/KyY9Z1pyGFbP0rq9LyuNjAPNI7apWtB+4nS WS+PsONRbtY8ZfOdwYQI5xnMJ3rBGy/anLlHFlqM0KGjLD4Qdj7WxxsvNZux k6oFO5T4A8Z44yvNku8F7yC+HrlA/diKSc3+4N7jPbYUjT+M5o+xmNPtdW8S t1mZlDVAbQSujV/AW9NpxdJQOYz4/Eh1kB6an+3QS4uZjS2H35KjwHOg94TL v/SR/AHsTRvWNXkwk9pzK/S/xgFfPaDcvPteZo+TKOLef3CLxbZ+fb2NEUCf Y1zQm743oL1vk++uFl859Wih9XwHVjhxG/C1S4MxviPHVbvxvayftppPZFw1 B5vnUswWjX9mXtesbnD0iWpTltFqBoyolJjNQbeHxmwsWlRqHnq4IOIcU+tT +ejzz9j49n63Fgm26Hk7PHMOf51yd3yyc6y6q98UHqC0QudQ8eFZr1qfTz9T PZ9n4twzje10hTXyvCMXov/94JYq03dolasrqU6pcdZKX3vSFtSVBt9Ab7hu cPu+0FgTng1cV+IUj/vb3LhGr23J1mcul/z5nZsD5vHHaqTW83WDbR7r2mdq peaz1n6mptDSxTWy58h53LihttM60F1tYN9gBwBvHb8j2De837cn0YydnGv6 DC0WO/1La6vkOf70ZZtD50rNL06eFIx1bBdgtDHXXtwr1vzcuXVCK6DP0AvO YR0wx9B95hn5/H1H3kzYYn12xH9TC4faFs891Xnu3pnGVrHbfBLoPH8ePkVD HiVOHBska09p03VBXzjn8p46sN7fgxNJbdXw6x7Ye0RoIHVHuK7YlPpaOokM vH/bcVcWqnLkVcbIyj01rnyNLYrcZL0mdAL/wcixNTJe4Cfl4Rvs4QP7SFa2 6j7t+X60CVKHLeDqhvSLuRnl6C3Y5xUPnLWva5w14J0zpX19PDFRKl/xW3QN csj0/pJzeKM/mEdV4cxPrfu7P//iM8Hw/fMvQ+Us7onMrDlXKx8rEjnl2kFF pqzsPOfUefrJ+sDvFE98JePTG/m4Pc0DIjX899hzNbfAaxvmmch3tjEilu5p vIaOC3QTuUjxZh6cGxAcMXRlaIjkYZ4nHkCj3o93Dln78EKebc6cgItXoPo0 NIWx6OfIKM8+l+ZiD9PwS7Jume+aYB6uxnAqz2Q8zkVMLrF9voJMc7KuTHKR 6CdYWfgJi7JyzdJlWc68wA/KzP0PFkqfLN6KtW/ST/qreECa40BtSOb+w3ea Ra7UuI0rb/C79gR45/z5dSEyJPQHmRM6qXSDvR7JRzZ0lE9oJHWAD+6KjvkL 7UXmeGJlvWv3wWaluGPIwcwZ+o/1DfhCsF4Yj72emgDaiBclpom8NMUhVCwi rU3KMyEzK30FP40YJeKe33+rWWgt+6Lv0EqhgcTDkOdMjtEH7x11rl/Wo/7M r7/+2tRUV0m+wbIVqW6sbr9bq01RaqspTrN2K/gXOK9gIHmfmVxqcGLDbf/h eRg8e7j/UGNfWC+61tv1IL8pCuK9gtt9eb8yc9u4XLN23UHBekf+GHBbvsR2 vvjyfrNlyy7Rq1c/le7w0nIzcnyBrIV336gVHIk33swwPt95xNz2PDd7hjlW OSmWPsAeOh/xQNrOhgew79XXRjwRNkbkGHDdmWPyMHUdRBsD/OaDHT2aaz22 vM5Mn1Er9AOZghzNxG5ig/d2S9p5XHBuI8V6YvelNpaXBxC3SDymN8aBPdUd n3R3Wlf9Ob/74rhZuDhbeAGx1k+sjGyvZO3CE1X/gybyetxEi81747BK4es8 O3VVsZfw3tphOuIW4U/AtoS9CNoBHwB7IOHDYy5WxMZX6szou6w8e3Bvqtm8 KdM89VSOWb48z6QcTDN7d2VITOtNI0rNnROLzeR7Cj32/3KR+Z97Lke+e/rp XPmM3C2wK73N1gQJrYdKjOi4SZVurip6oTeeWfVY6CEyxJCRVaKL0PfpMwPy zNjAkIdSHX6EDDRpao3kjz31TLLcc3dC0lmTI+qv1NbUmOTkQyY/K8151jyJ f71nJj4WWyMC3w7Y3dSXBlMT/eSVtY0iq9M/tbXBt4jb4zXPypwo/q/XHuqt 66M+DmooPveUxRzQtc64KC8Avxjf+0db0s3zji4Ij2b9aCwyOgK6BXSF92qD ukh8Le36Of/JB8jObj57Wt7dI2xvMOe6rhk/bKmR9hA0pCdjb7razoYHuPTi 809dewjPQu0c5Jp4csVZM6wdL43SXFXi1PZEkMW+KY19wHolv837rFYGKAvh ATTNA+4qplZPNJXbFeff26AH4DYQE+zFkBtzV7XkAUC32mo7yuTQf/a26i6s A+YdufeqoJ17yEhr38d+gl1hcxDD7b57A/KZd96pF88eB1/aq1s98ECd+I0V g1W/U5/uTSN85vGV5Wbtsz6HB1WY118pM2W5pVJbkEZN2NvGlJvEnWXyPD8a Um7unVNuvnOTjQ1Clpx0T7Z7Po3cAHBsvTyA12AIQyNVbqNPhxKszvLWy01m 8rRACDatt76N5JU5chE2H3wfV91U6WJnoHMhp7ed7LoNCHxRsJvJJQBjCIxj ahyQF7VnR1ZQXnb45a4GiU0adLuN9/v+QCuraYww+w5dCV7FMyxaaONfmSNo LhhonKt54M8/3SjPhz1AfTb4iDWmENkgms/m1bWNMn/Y5H40uCToc2iPNaW+ G99pzjvv4VGsK/Qw7IesH12v9z2Ye35igbxHjP2nGJyR5H0+6z+sc1y5znyt 3W09wQPCG7JgvHj7iv8RjqnKXpc6Vs/1XI3j3mjo+Mi7ihmmchA84ExzRx0B OuCVsc5109os3sa+Zu/izws//61Xm81DD2c7+69jLDvXwieCXQF5UvETeLZ1 zzaKDcgbGwfGMnFZWsch0jgo3rtXLoqFxT91erHIt0Vpze7voT19HLlRcYdt rJBfaB78Z86cOof++82QO6olb0DpiPe6xGZ684Jpe3dmm8WLy+R54WUfv9vs 6jJg/XLty4PyLfceGMSUHnFnjejL8LMH59r+QO+8sUkJuzPj8meS6/TFF1+Y 4sJCwRNCbwBnGn5VW5YnPqjq0hzBIx1+Z765aXipyUmxewtcjhGjLZbm5Km1 oqOBOQvfVv8d/+HhPAs8G36xUfCYK83Xn3wq88s6V5rGe56RHDzFUWU9dWbT vM0ZE2wltUWtZvq9WYJPg/9B/P3vHxOeP/D2SnNV0JaMT+mZJ+pNuN6obdyU LIf/NZwDQh/96CzPkfyHPkOIQw79/IN3rF4zekKFyTgU/fePLvfLufK+ufO8 ynhbZmqKyUlP6bHrfdbsd3NH42lX9q8wRxIrnLVoc031c2KFeeb+wwrPq57U WdMYYMWvJ+YN7EJkm7LsyPaTzxtOSy6MYuLA66DFPKfXpxJOq2lgMPTGc0ST MdjvWzeXmqeeTosYuzD57hrxCWmdAi/2HfZuYiHZo8jy2MgfXWrrfvE9MYHI dp83hupFWusVmvJAcIyiyRR8PvPeEqGl8OLhwdh/+qT04SKJT6kU2o1Ornnp 0MCLPXRk18ftshg+c3Jh9f2hvaVm8MgS8XUQ08I1kJkvC8ZIbt4Yqudj/4G/ Yffwji1+cO41YHi7zkU8S2cHtP/T06dNSnKSqasoEJ/1H79s3xf49t99K9sM HV0Y5EEVZt36ZHkOaA/52dhOfjCw3SdMDi6vFy2wew9MNfB/6nx2/5HjqH1k nw4b7Tez7/WbGbPKzbdvxAbTjv93/wN+M3++pVGdrbXS9FYZN+JFjlUVmUVL 0szdM6wtLiv1qEP7S0L4I3XeHniwwFzj9H30hHLxq3/rhlAegD61Y2uGi7dN zXl/Rfk51Q06y3OkkVcJjoy+p9bUd270mYOJR8yA2+w6furpnIi/5XdPrM6W uUYfjed+8bTMHrqOtt0JCYJ7Fe/5YCq8/26as8bKJY80/PtlK464Nvfe0oXC G3tX5WVkmlgyO+fhC1EaBSaOjZ2ztmfsK/XF7XYUpW/YWBUjVOm7twYXTXmD t1FHIzzmrieemetFkt3UVpmbfkRsJvqcyIHEPCLPTrsnINhA2Pmh68SH0n9y drAXvPd6s1nkPDMyKHT420H+h7wOLdUYS40/1ue2fndbr17P5/NINfaID8dO YDEjK4LxqdUheVjUKSbuijj4S0N8k+11jdUvTK6u4vYQHzV8TIFzX7sWwNFe EKxrOGNWQOZQ41jBoJgwxfIfsCLD5QX6hD5yZbBfPxpcLLUQo2HDYde32A5J pqmq2K1zRaN/9z9YbK4bXOI+yzW32FhVnrPfUJ/oSMR6zV+YF5Lr/cwzWebO SUWSwz13XvQ8bXK4p0wvcl9fcUO5xGFyLfLLdnycZuYvyJOxYy+DLTVyfJE5 XR8dE2XWvXUiK/E64Ms3q57IMrPvK3ftcNQc7DPEJ/z50RU+8/I6n6ksKnWe o9w8tuqwuX9unqxFm29NjKFf8j/73eoz27cdEbr/9VdfmcTEfSYnu+djbKMe cewz5D98QGofDMfYBjuNPRHpt+p/wW6D/aa36WB3mxfLO56GreGaoI4eqcYO td69cQRPrmroUGszHENN/8eqnasYOoqVSiPP9YfO/EAvFMcYehQrXxqaiA9b Y1j2bz9mxkyoNRteP+LMbUBkRo3DgH7Pmt0ztYF4Ns3LP9u4Muyt0fKeubat Y9Hm6GqFpqXiuFsrCtmX3zE2qsNwPmPHbxg3qQeScFzmVmvEe/kIfmJ4wP7t Fh8Vuo8Mz281thSbi9bT0LplXhkQGdWb1wEfUNpP/5YsqnNohOU//Yba+jHW t1jusSlbPnDjiFKRR6kjle3QPeJl9Tv4OjR10rRi8+C8QvPm61lS92yIox/g g757ZrFZ90KOWfhIvunv0KO0JKvTUlcaGbvPEKt/DBnltxhMfXzmaPJBwQUS +b6uzuUF5IcRy4NdH2wHpf3ESUybXSy6g9JBrvn0M0fFJvPlCVt/izqO5OSt erRefOyMC2PyygvWln94r5VdErcdd3h3dVRMQG/dTRq2TmIevfqo2nJ1v82b XyZj1VIemQ+wJ24M2r8ffbTITLy7zK05obnoVv6vlDlfHcyfWrwoYFY/aes7 qA1u8ZIieX3d4CrJaQN36K13Ks3R1FaTnlYgtrJzlTNAjndne42cZ/QYXmt9 Iy89YG7wFfFdOD672tj/3njApClWJsP/EynGRmNDeXZoM7lI6NnQ0hkzayWe EJsmY6fYoBbP3O/Grimuu+YZebE0FeNbG+suXB7WunZcV/cK/1mz3Ic59O4h Pl/xWEaIT/jI3haRm9FZaYrx3BNjrviikb7Dju6NsVRsa29eSjQsbD2f54cG 3Tkp2yxfYnGbC460Cp2OpiMpD2Zc0AdoV90YGgcE76QPyHITHbqvfFf5yd6P j4lcpLYdxRhXnQjMz8wkG3vx+KMW/w6bMm2Eh6cxn48sqpO5hT977T/EIVl+ EB6jVB72Hiy80PfXDqowH7xdZlL2lYX4nydPK3No1RHz0MP5YsdA/39mTbbU R5s4tTAY82Kvv+CRDMndA0samz45wqx5sILC61K99kqZuW2stfWMHFdlStIt vrfge719yBnPSrGbzwnmXvLcXhmTuSBew+uz4HPF8QqfQ8EOjxC/QFyt2v41 XktjvrkH/6fcU2Leer1jrWSp6+7wIegc83yFw1P73WrxWp98vN7VCZkP9jnX w4994zDLt4kZ5TNyTR6Yly5xtBIXMLzYjLorx/zAGe9J03Iklm3+oiPCy88V D6gpy+90ryotB/dcsUbC40ehYcRSqV+dfQEf1zn6e+MBrJdv9SNeLjJWgzc/ 4FSNlTNZu+SWwgPwZRJfynpkbNEx1X8IHWE8+Y3iK3fWn1j43brW9bWXJ4Tv HeTF8LggbeTmgD3aXoswtr0pnqbxGuFjyHNzD+UDyrvY9x9stLXYkQfp02Mr 6l3dR/HjsOlTm5VnvWagtVdCR1iX0GStV+mtfROebw2Pt7b4cqO5SfghFYME fhQrVx7/K3Z0zlm7pt6MGFsszUursbEwphqnr3YydDt0CWRg4nnwd+JzTNx2 LISeX9G/sgPND+UD9pnw7zIum4I4X1xv7gN1ZtT4cNyKcnnmwcG6l4wxsj+/ tXTOjsXlHpsUcbgPL8o0n9bXm4cXFotuQd5C/+HF7jnr1wQ6rDmedfWTqeLr wI/LnEFfqd1GDobSF9YZY8780zdsd8wzdilimrq65rDr439ZtqRe9GfmlfXA PJHziw3q0UfzTXP5SbkXNo6LgnFY8GGbq239pPBz1h2+NPYgeozm+bE3OC81 8bh54819ss4nTSt0zikyb7+9X2hEYmKSeefdg2bV6kxT6fdLTsSf/vQnqQN8 ro4aX+c8gMYY8TzQPK31uuBhq7uyXwbfUe3oUG0uD2efga+jv/8m8wCeZ8jI ItHJvHWhtDZUuNzLWibPmDW4Y1NkPeq5tQfdOlXXB/Gl4o056k5T3SDSd7bm kd+dR9ZqtBoCygP4Dc/uzQPw1miDZrEnNQdZ7e/d8X2wh7CJY4P3jpHG2nj1 AY3fQ4/qO6RS8oDwU0+eViu0Q33SfQZbGgW//Z/ffC40Cfurxnerb9tb+0b7 TR+Y8/C+wHfIJUXGpx/YSL049No0N10b44bt+8nVRRIHSo4YuMzXD7b55lwL nVBp9vWD22sMo3NYnlQr97okSFPRDYiJR84C7xr6dGjXcVOedTKIZVwRpNX2 P7QLHgjWHPocddKg72rf1//wS2we1DK8w6HDXAsayZ4GdxweSA4l/BXbwKz7 fNKni4L849K+0fUR8ChdOpxxUvo0/E6rH+BDF1nbGQvsar6sk27tY7W1sE7Q u996uVnyMKgXBS/CFkfsDfPolUl4DQ+Otu+0X1fdbO3cWrtz37aAmTw911w9 oET8ueDls3+o/UZOQm5Kq/AJ5a3QQPIkeL/lnRqz+vFq2UfzH7ayfp+hRY58 UWKWP5ph9u9PMoFAk8RI/fznPzeHkpJcjOuUlGSTn59niooKxS98ro5wvS1W Qw9g3bBvwBVi/NmfrHn4+EMR6lN/U3iAyhOsQ/adxWa3NWDYW9RFwh/krQul taE4z7uWtf6Tvg/H2IPeU2cDWuWtK9SbjfUbi8dAB7Bhs8axS0E7sW2yvzRH igatUqxixaZT3yQ5ddMdmqo191TvYP7BUcC/iizAueDukLuJvKm+0s5yChX7 yOvDYB8z/gd3tNi6L0vqBBOG/Q490v7xfNjTtf6RfjZkpFfO9ZuspBMu/n5X x5jnJWdM64EccPqkGGDqU/DWJ9bG+vjow0TzeUs7FoHWhaAf6ttZsbRO8g/I 4WN+0BGeeqJBbAn4r7/jrDloMr5NMC6IFR0U5B3YEC7q2+6DBh+T3/W/tVpk WSvH+iW2iXGAdzCG+EaO+09JH4mX+ZH4af2CEQqmxG1j2/OG2e/emNRrBlW5 djLWDnSSPiOrX9LH5jCg7147pB3rbtHCxiC/KXd1lEO7LU9FZyPmRtfxvHl1 7j1nzapz1ldA1pWOL3Qb3YhzVq+0OCAD8OVMrnHnm//QJu888hv97iWHjzIX +MPBZOL7gqxUwd6rK250xsPn6CfF5sobys2aJ+uE3t8xrtK89FKK+FRefqFK +N73bi4z0+8tNbPuLzErVhaZyTNKzeqnss3OXflm+/YC84tf/MKUl5WaL86c CaG/1Lc/duyY+FHwCTc4ulR+bo7xlZWcs1ps8fgDdP2H426xp9U21xnOfVd5 APdR+Rt5a8gdlpascvh/0q744gxZS+yxBx6w8Q7rn2sSGUjr/pLbc90gW0+j q7Yg2ovPNsj8YwODZmpcoOQzOXw9LSVNYsbC8zijNWI68jKOxH1+V9rq1Tav 9MobfFJ7SmvVLV6SI30kT3XxknyzctURc+hASoffb/8oU2Sf2XMKJa/1ofmF Dj2xNmNsmejLGhOEDQQ5jVq5299vkb2p2EysEc6JZrdiHUETGUeN20S+R+6l 3t9FQR4MzQELCDqg2HpaYxF6zGs9z+Z9Kd2pEJqIHQQaqrY29b2oP0b9MKor 0Cd4JrInvApah4w9KGgzgT8SW4R87PUP6HNK7vi+PW7NPj7Hr8t1VIagL+S8 jZ5QK2OHzUH5Gb5h7sEzWb9xu/35ulsqzLtvZ4j8Dh8mrlPzF3mPPE0NNjCT yH/gGpOmBkSX+u7N4f4Eiwukzz0jmCM8fHS18foeyM+Fv3rzndpzqNv7dk2w vgpjz9xhYyLPt93HUi4+Z/qKjYF4Va6buPWY7NVho9rv23dotYx/fckpyaOQ cbnNxjWQtwsfgUeC6dtWbeV/sP8YrxXOPanZ/p2g7PbBW83CZ8FiYuyff6re 4R9V5tnnsk2es96Js1IZbuKUalfPEf/7sGLnmraGxKKlFSY1LeDQ+K+kdtrx 421m2aOFzp4oNs+sSTb3PZhpFizOkFw4Gnlx37Qj72h07BJvQ6fC1uX9jL2j urDiyHSHB3hrmytGj8rp/xyUX6Cz7FNw3aEHncWUfOHIE9AIdEdimlXPhz5r rgg0AD8XezAWDwAvgf0IZkz4d/gFt2065uqRyrfQr7z5m/G0fXt2m6bKwi7/ ritt/y7rCyReue/Q8rh/N3V6ufgNaeMn25pcoyZUOPuo3CTtSxecA6/fk0ad RHQPXistFCwl5z3zq7b5SPoL48i62L6pWeQ4K5tam8b4SQE3h8rbwDMn9wtd hL0L70C29tKqXc69ia/HngM2vvo24Etqx1IcaG89M/q53OEzU6bVytpTXB3W E/Z8fWbokeqR3rzTDS/5zKS7C4QOX3VTO/27vF8oDb446OdFnlBbpNpXuZfK YqxJxvAJ53mRQz7eku6ub28cE7xRx5jfIU+NGGNr2auOyz7hd8PvrJT6hzyb 4uzmHDoh+bf89u7ptaJDokOgK6Ln0dfxwZjSBfMDgi2E/Yq4Oe9zgZc5aESV +35YMKcajG/GYezkalNTcNLFVFBcO+iB2qmg5cw//IP+8R31NxXPdd2aUN8M 43+xi9FgcwHfeLE5mLNVHqTrFYIjzPhs3gheWpn5zecngrggKiuF+t4vFqzP YjN1ZpbDNwocPlpq5i0oMLeNK5Tf4B/B9kNc7vPrq8yZM1+dbzIf8/Blxx/v x9oIt2vo3u6s1lQ4D+B3qlNrzKTaYNVPr7JZuMzI75DfiXEG2xd/qtbz5Drw d+b8+Sh1ojmHfY/OemDHcenDgBHF5p6Z7fKP11aM/UttP5pP5PUfLl7UM9j6 xFsTy9gT14rVGE/6T7/jxXzifOyhjDW0VW0pzNOCBT6pz6Vx8F4eAM3TOFXm E7qqYwj+LzT7sn7tsrde46EHLf8ndgTfCzI49nj6zPwjkyQE7f80fHPe2PnV Kxvc3DTuQ57+ZX1tHMfjj9m8TehHvGOmODM8C7wLvwC06ei+2Dopv5v7YKXQ hpuHW1sOa/bdDc1ic9/zkbVLIPMq/UPe0NoGYo8b67VnlZuOPt/IGEaRPrso yGdecOglY0j8KnwIHSP3cIPEBtMX6Hx7vYL2fCb81OgGzNm4ie34SXbs/RLT yXwwTsSTWd4b6huAlkN34Zcz7s12+3n5DdbXvGxJQPJ88V8QkwjvoT/I/sj1 yFxgNxM7i86CLL/q0Xb8fld2c9Yo97rZoQeshSuD2NG6TvCNYG+ij/DEi4Jj Sy42GPH45aXeQIdxDR1jm1NTIbL//Q9lmffe95uW4z8/Z7acsz3ixXtUfJxo 36v/Lppf0ssDmHvF6IoW8wLthddHs9tqbBk2iLkPBGQ/qlzDvtfanrH6i21X bcP4A8qzQzFENWbEiw8NzXzxeRtDorlA0XhNb/EArQuo/mqwErqC20lMBOua fTpmQud6IHo1PJUYbfYSc+PaKJz/m9/1ib1I+Uskn7DKpIxbdRB/lPfQfuYZ mqCx9OT4w2e4j3e/eePvVJaGTim9pI/Qe2wNzwdrwKidGfv25X0d/eeufLNl c7LUmbpzYkFc9QuooYDcN2V6rsRxk3sMDuSyFZlm48bI9W23bN5v1q5pt4P3 u7XCzTFDVkb+IBYU+zfPM/j2dpsHzwa9ZX1/+M4xyZtC1rUxwn7hj/BDnu2S oK/mR4PLxNavdjbGFZ8AuhN4p4wx96Q2/bDRVsblPvBp7iN20y+a5HltHZ06 c/OwKtHBsSMxh9j2iXdkPG1/yyVmdUQQN1VrN6lNUOU5nS/mhH5hz8GGprkG 2IJ4buYd7Ar1eaN3Y0+DDu/8oNmsd/rx4APgtdYIhik0BJ6qcik8ld+ybuhH vaMXav1e+sJaZb1cHLQtgCHx8XvNsm5UvqevVwTjwVT/iNQu6QNWaI6ZNSfT vP12qqn01/Z47ZxzdbB+4q0Vy9jGqrWmsfD89/pV22pOuzyANcFcxPJf6nx1 hX4q/lu8MSmKM6Lvu+IPYI1Dx2jIEJo72Ns8gHGh39ACxSDDXopcF4s/hzfi U71y4sEd0XVBsCLVdxl13AOlLg9g3pk71kpnucr6e62NonYR7ABgNCiWhbWH Wx828fpFqVZ3YZ/2GVLtxtTfd2+d+aFDL6n1qXi/6BWqU5LXQ82PU4FGt/5B PPULOJ+YsQ0v1naojwCetfd5FJ9aYswezBRc4blzbc4ZMj/9V7w1+g3dhk5v f79ZbBysJ90b5GZ4/RiKQan1vLOTrM0CmgVOwZuvNMk5iq8/ZGSlxOLjH8CW yrXIT6EP7XZ8v9QFX/+sQ5/HVpoBtxdLX5G9kbPBz2T+kTOwg3E+vtMdQZw8 rqf2qki1lRh/+DK2IPDFoNsjx1YJ7b5moM+hF8Wy76DZXhrLvcXe09fqH1xH az3oOVlJrS6/gy/RTtWelvGhf4wn/mHtC7ZCle00twK5gnU0dVrAZCY1S77C rHt9Qv+9Njv+v/7mUdPS0iJ2/1/+8uvzj/XWQ4fmTiJLUac61n5VzPVI3yHP W/5Y4b5XHiCxZHNKzd6d+TKvndUlVNzunqCr0a4fntcVLw8I932zv5DvZjp6 Y2/zAI0j9PJPzQ/rCo43fkG1hSIDadyqxry7NRRHV4v+3VlMq5cH0NiX6E/I gkrPsevTV80HUF8PNAGdH/quuSSqJ+pep7YidETHQHPm8KcSn4Z/Er0Pmx0y s+qiSvuxN6HL8btVq5MdGljeJb1JxyMcbzmcl7GuFdufe7+6vtzcOKLEHN3X Xg9MY56ovQKdYZ1rPuyuzcfkP9fQGnjouE+uahR6RD6K1vyCJnKuYuiPmlAs 57M28SlD27S+Bd/j02WdMK7YUJl/eBLfW0yLgElOCJiVqzLE/vL2q01iK7k4 KCeArUEuAXY59GfGm8/hPzoG4TXqqLvD+gKjAt3ncafv6D7hMvWEKVUdbFq6 PnmOTW81i66teid06iKx459w90C4HMt8KD4JvEDrvsATtC7OPwsGU5X4ivFB f3eAxZztP6xY7IbQMq0TRzwa18rMOn6+SXaPH0pztm86JmsxlhzNuMJzo9lZ wPeDZ0eqSwdmBmOITzfa/tM8oFhYWz3RIuX2dKXmS3gNioDz3Dzbmcazw1bu rj9A41B0DBVPQuMSvefq3lWfOzK12lwUy0dpHvo3NNRbP0NteF7cOGLe8Ql7 sbjV7sNvodXMu9r7oSNas6QdI424xcqIeHPYfMHyUfx3l/c49yJm1Pbf1lzf v61F6CUyscYWQccuC+JgTpxSYxYvzTDXDa4Q/h3P+NJn7hMtD091n/DaMROm lJodHxa653h1NY2XVdqpeNaM/8xZloZjH0NGhT9it263u9tYe3gnNb9UTvVl tte2Y8x5TR1IYrrVx91WdcrcP8fy0CuD8UX4xxkrdBfyuiTvxenbKy80CqY0 MbjYcdAlsAuiB/A5sUXU0dFnIl8BOyN2K3QR5gPMqXC+Cf8rz24R/ys2s/yj 9RY3b7TGdNrnIYfLu2e99CkanarIbhMZg+vBfxR7A/sPOjOxyvjAiQ/NS2k1 7zhz++3+7TqR9z/4btyH2jSXiH2q2PziF7873yS7x4/UI8kupofWO4u1H8BN wqYW/rniTbHfBt0WKjvyGhyS9JTYWM/stXA5tzeaxqN4PwvHXI/V2K/sW+yy 44IyKXkqWnNM83vPFQ9gneKvh7ZqPCPjqLLra+sahT4xv/hPNM8TTORho6si 1r2K1tSX78WNW7WqSPxhxEIMvL3AjJ6YY558+pDZsiXB2sad/7wfNyXbkavK 5JwVK1Ok7hJ1ll56JVHq7826P0NwlsLbyAk5ZvL0LDN0dF6I/Mi1sCffOLxQ 4lm4BueMn5ol5z/+RLIj1ybL/cnVv3tWhvj96CexG4NuKxMf0Jet0W2hWp/4 1Rc61oxUHdqLOROynl/3S66Q1tz1yg3eOnzqS8PusmJZIIhZanknPG3hgjqJ OyUOArqrdAr6q1hz372pPMRPj/xKnOnuD21cBfeAFoOBjZ4AfVy62PpQtM62 +gO0n3kpJ0SGJpbI5n/5Lf3OOhmMm6lwdQHt0yWSk1AlNBg6gczA84fXHJp8 j82fQv9O2lUnsRmaJzdqXG1Qt6lx+SVrFRkz1tqEtl8RrHlHP3jmXzv3vTjY x4v6tPt34U+aS3eJi7nR7m8n50vnBqy04WN8so7+Vvy8XTmwbWWmHZG4ZcXg ikWDyZMDV9Cbx4Psgl+d11KjIYgZAX0YeHuV2BGJSd+5NXKdZf1dZ/fuiaZx 4+GfdzU/ABoLpjqyD7YV73NQfxQaGwnLpKd5AM8jeQnTbQxDuI8duX/hw+0y O/ZbLx2tzGu3kXYX2xQ7EPYgeCP7z+vz1Zh7jXVUPwZxhdilbU1Wv+Ri0j/V XzS+XvOnqOmiugtyMXH47F1oo66ZOkfm5J4XB2kR11a+rHh64L8z/y8+V29m 3GvzN+Ej0caW++ELhXfiY9Q6U/B+bPnMtY5fuI4APWeMf9wcGv96qvYTiWHH poI9gznjHuQ/eXOnvA35leceNtKOF/6Tja81CZ/ALtJnaJlZ8ki73EwfyRfQ GvSav0vNZIulZ+eaOcDWgQyHjjHh7nyXl3AO4zhzViCkDhY0kVgC9d9YPbFc ci6O7j1urhlkcwLKs6y9nvUQnr/L7x5/rFL23dqn7bWoE3ZVMNYCOV2x+6wf xC+8MZodmTGExjOe5Nhd7NL2Cskt4lnoB9cjlwA8QGtTJEbU5xnrctELvDo9 dHH7x2kmKens66R9Uw9w/jRfGGxZcj6j7XfGB9se86S1UyP5I5kTu6dbJUb/ 1tE+88CDJe5a0LXB3vnqE5srea7qE2stkO7yAJ4BOQJft9rovd9rDiv7Jl57 Q1d5gNrvJ06tER4L7dP4y1i0nHmBdlg7uz8kDhY6GQ1LKB4ewFxqHI7mBWu+ lvaZvFQwB4h3hI5jd4YvEEeIro9sxnNAv63/tx0bD3rHWiM3i/2NbRl6hK7O /dRmhTyN/xG6UePJ2aBxHWRU8gb4zZQZxaIbfHW64zzxLPB35hOah1/iMqk7 EpB+vv2azUnSnCrWlaVbtdKv64dUdaDlKnfyLBODurM3LpSm/Bg5Hp8oc/zA /QHB0IFeg3FDjCx8iXiEUeMrzAMP5TvrwPorGHf2KbFQyFXIbXrtq4IxzsqT WS/UpMFOMugOv7lzYqEbjwGeOD5Y5ATeQxfRPaSumDMG0EbGkr3Ee3Im1RaA Tqp8JHxcc49YHYLvinLSzbyFqTJX6148IFjaL71yIFibMkH0RHS4GfdliG73 LUfX47tXX0sUffLSvj6pw4IOaO/tM7fckW8mTss0r21INENG5Tv6Zbobr4Vu SEx/v1sLJJdfZX+pCTymRuZz6Ghb90v7i51k586dJiMj43yT6l47Tpz43BzY XeraEWPhQirmouLIsf47syVwbnpynuRds4dULoNWsM6Zu+lhNT57qyleTvjn XeEB6Lr4yHgOb809bewJ6Br2A+4Fz+S5T0WodxUvD4DXqI1d9zPXBHcOmUlx 0FTOjnUfjaWIROuhCV3lxcoDYvEdxYv2+g3V/+ytQeMTjM0TolcybtQEx7bI 78g/vjuo7wgGjmCZWr8dNm+9n+aXYbtWjENvfzS+SscRXu79HpkEnqQ+SOzy nA+ttDGMTW7td9avxpuo7A2dhtcpLX95HXaNApN3+JhrQ8OmDs9DZoZn2Fj8 cqHbXFNtGraugdVtoOvoAasft9g4GvM4dqLfjW1XnFhwlcFI5Xlk7Jz+4BMG Yw39Y8O6Rhdnj9ihPR9bO+H3B5YKDRh8h9U3GAtdM6wN5DnsQ4qvyngwvlpf TWOWNV+U95d5dOJdH5Wa6waVOONh/dPcn99rPKzGtqbsPi412Xm9/llwOSuE P4gf4waf6G+z7ss3uz6scum4yu+Mq+oA8GJihZWmkQ+l8/6jIUXyuwfmZZhJ 0/zm9RebJG4V/CXFwaorrRXeAQ/4e7QD6fHB5nIzeZrN08EPgozfGQ/gNbK7 F+8ynNZSZxkcXdbyLbf7zPwFJbJfvPWbWQfsMV07vc0DWFORakZS/5c6wJ39 1itrs5ej9RmarPiBthZqldgmu8oDtHaLxrLGY6+JFb+iTbGQIn3nrXOg9DRa k/zZ5XniF/bW+VWsoYuDdXbjrRujth+ug28R2kdeEPlMyOVXBW07ylcYm99/ /lmH2s7eeYhmPwBLbuT4MsHx1fVAzi+yLXGIGpsDniV8H9ry/YGVbjw59xwt NhHiHavlub04SuwBHQ+tFTBkZFmw5kNA1oT2BRsK3+9438bisidYa+QBkKdL XNUJ/ykZT34PbYZ3cu6IMWUiD/N7bPfK53gWrqH+IfBWec9vNZZSfQH8nzfP L7GzSiOx+5AbjZ0K3YM+L33E4k0w1sTXcx7j7x1X/Odef+702VbXIrdiyKgS 86cvT7v7ifm+6sZKwfwDx0F1lkuE1pcG4wp8gt+2e2uZ5H8m7qg2+/ceNlu2 7DNbN+e4+t+EqUUm4UPLL6HlEyYHpDYONrtLpaaDrSMzdWameWF9kvznGd/e mGKOpiQJb+Nc1uuEKQFTltUgOQMvvZJk/vCHP5xvMt2rx6m2NqkHoWuHvRst 14vvVK5ijxC3EE5vWPOchwzDPkau3LSx0JTlh2JF2H1ef85qlcNzVA/pQBPj iAvSvPvu3Bu+4a3ZHamBK/b06kAIrj+0SPXqeBvruLMcOa0tEOk79qb6+PHT hedOext7OJwH8KyKOUqjbiN0pLs+B40n1fesN80xUb3Fa9tjnhWjSPAIJtYI LQ3XB2h/+MmnIgv+aGiZef4ZLw6zzRVCx/jhIJujii1m/kN1Ln9TXRb7iPVR V0j8DPmlxMNKjVlPTbefHT9lBtxWanwFOa4upnMBf5kQ9DFI/YGgrYXvWXOM s9Q8G99ud9JaDq+9dlhiYuFPmpvFd/QBfxy6uvLIezz6Ntdl7IipJX5z4hS/ 1JN+6Xlr00HfIrYXnYjfK1agdw9cFPQ1qA0QmsBYY6fj+3kL8oK2/2qTdSgy LxasuZFWXnjpeYsjftz/ibl3brrzW5/JTrHrlOdWmwO5ecxNe4xzucPPS+X/ uEl+iUvlOcH49M7p++/vkXgE9Ajye793c6mZOLXKHEo6aDZtOmLumVls5txf ITh1U2Zkme3b8sxf/vKX802ie/1Ax0k6eMDFs0K+iGYP0PWoe42xRW9QmoW8 FwkPPhJeEOeoPSVSHZZz2TrjAbHqlcTTWI/3hNm7vFjF7F1iVfZutTXpvxvE iGRsumqfxxfRWS1jcLfQ92OdA21SmTzWeZFsQWr7UdpILArv4cE0XSfQlEi0 ObypX1vlBcaINfpVEF9YbTNcD/rId9iO+I2NB2+3x2PXh4dgAwFzgNiocHu9 xGQOrxQZ/F+CddSVJ+CnwH6EnVznEJkbXQD7H5gH2AojrZdHFlWZF19Mldfs o22brLyUSEzrjdbGxbyofQUajw3qWze0x+mTK6E8FYz7hUuOOs9j+Rc6DPFD it/K9eibu86ducQHk3HwhNmwvsnVE6Db4ZgIzJvmX0XyM+352OouSxcHJEcX fReawDVfWV9mDib4JDc7nvX70vPWNuddaz9rtXwQeUbnm8+LctPNOxszHb5V 6zyr3zwwt8ZUFOXJd0eTk8yaZ486fKDcbHqzTp6V9TZxar6jN+wyKSkpEt8z 5R6foyNUCXY162XHjt2C2//Tn/7U4ROpshfxk/6jHPCA3bsTQmp+Mo/R7Ams XeXHjDGxB9huLfZw5JwibO1JBxPNT6JgVUMTuuOP7KnWGQ+IFE/a1cYahl5p /tOlnrgK1vj27YmuLagmv03ss+FzwD7kOrFs9spbO8vRjeTLiEZ/6V/4uZqL sHlTpugBihOgeHDRbD/8Dh6hsgZ0ht9onXuNDeKeyMTEtPM7jevgPHBuZs+u E7oM3YNuk8PEOgIHiLniumrrYEw+dK4HbcTfsHyJjZe5LIgLYGvF+EQOBwuE /qveFz6O0EPmTZ9VfTWql2h+I/3ntdbthabv2txkBo8sNEuXp5lxk3PkOo+t qBMbtMZWXtLXxklBk8FuxueBXRv8DNYD/mD8ya4+NrfYTJ5WLDFKln9VCE/h ntiQ8oI5IvSD63DdASOsL0+fjbHd8n6aI6flGY2nBx9j33aL7cE8YYdTvA6b q94gNvikncfFZoQdi2tNnmbt89hywJaNtq7AABae9JrFuT64w/IUsCy8PkbG d8HD1earz5pM0oFEs3tHpvBl7EX4TTTvhGcB75MY1yMOL7gkiOPD3GYezvJg eSQ4eokd4/UvJcu933q10vhKSyT3F3/z9h25f9f2/0jHr375S5N6JMX88csT 7nrRuOJIe5jvqJmm6//ioAzyZYw4GOzt1J8Dm9XLb7Sdja2lN3kAfVJZsyfu BS1gzYbL6uH+AOYAXkwMKvlN6qOMp36X5mnFOofcUHh3Z/3ludmr7HvoqmL2 a4zMbWNLhAeob7crObjeMVEdU/PUoKfYErERK2b8hvXNZsIUW/sEWwX0h5jQ 4c74kDcFH1I+4R0j9Vl68xfhadwLPjL4Dovr1lDyidAMjZvRXDbNidsbtHN5 65t5/dz8xyav/hJiZRhjxcL1ytl9hobanoiTYmzBuyMekr0H/u1FwRpm2N29 eRlqm1n/fLlgVzaUnBKdhximocG6CdA3YoHGBGtvVeW1uvEAe7YGzAMPFhp/ Ya5ZsjTXvPLqIfPQvFKxyWBHmnN/ldDxwSOLzNx5+U5/PjVJuyukVj18YcAI yw8G3u6XNYpeRY4NeRvwtCce95ufn4i8n3kG+NXiRVbHwNaGD2TN6kbxWXtl H8XdJofHn18jGEdgPzPHyAeKUUcsGbiGNjbVxnkOuL1Exr04u9AcdnSAhF27 JNaI+KejBwvMk08ni47K+M+YXWZmzcn+u7f9xzrAPMpMT3X5APEm2KMj0nNn fV7Up10uAN83XvrdVlcmcThffx6ajxYP3TofPMDrA+mpxviF15eJ5BOGdkHb 8Esi33aFvmr8XWfnfNWFZ1Mbv/ezopw0c6ymOObvFB9c7UFeWqh2c2+NZK2z zH/659I9Z02+9kKjW5NWrz8mmLM0eWptRN+72qa4JvRCbZB8Dg+YPK1KbMPQ o/XPNrn30/hWpb3EToO3pHYunoU4HmgtfgGtT+T1l/B88A+ulbzruCtHe3Ni BcdhSJX4I4kTgg5eEvxO83m1ro/yJ8XEmzIjV+zi3w9i9at9R/MVkf213h/P oDqtLz9dfKvUN5c82tGVLt/7+N1j0pffffGJqSk8ZlYsC2JAD7P+3SGjikRP uHqAT/IrAiV2L1c6NBof+8bX6qLmm1LHBx/7yhV1rs4ExhM6H/7BNavrpY6L xukhN55udPhzqR1b6qWF18IjH5nxITepvoS6l6Xm9deTHPpVY5L2lDv6wz6T m5Ntdu/eLbagR5alyDPTV/z6XHfclFKJRaKe4z/yQY2D1KOHTUtNqcgKyDCs G9aSF3eAvcmaG3S7lTfQLcE0j7feOLw9JemAqSjKdv0QtLOtT9sbPCBWDfKz aeG+zFixoRp735XrIyOy/4lD5DW0iH25N4jhzDnYFTq7ruI9K+3WOjkqI/e7 1SexKS7W8ZjwGrWhjdxW5Qc0aCg5Y/g/sNXTkHtZX+Q/9/HE2Qu28OJ6qT1I rVLoql4LeQQ8A2xCucknhaawZidODQiGgdoroXOsU+bU+gL8gldArrHSVn32 zngo34td3ndK4i/pi3dOuQ8yK/ER1qZvafn8ee25ehcF63ZB++Fl+GhvHmFl WWIxZ84MiF7A9ZT/ar729NlF5tk1uTIfxOtQm/3/t3fmQVZV1/6vehkqKeul UrESk7wYEjWgIoMKMkTAIGgEVIwiCiiDIJMToigqooioKE7QTQ/Q8zzR8+2+ Pd0eGRoQEY1GjRrNWL/88qpS7/fXq9q/81nnrtPnnr739sDQqGdV7eq+0zn7 7LPPmtd3yV6y7rH7eeVZVhwmfC13LWowuxOSzFOP2bZl4d7Imk9iDpo3prm0 mx5rd17Xl3SYz4/b2B3TZ9rXcf3scukzNOHqetHVuc6tT3eIXaS5oexDYuvE jFkb5lOaedjBDycGXV9ebXIz00xqcpIpyc+S3kr8Fln9zOMdwnPcdWzau03X ZsGiSnPHwjyzbEWO+HyOtgfk+c7KTJde7W+8mi7xgPSkWrNtW7LkQoEN+4MR teb551Okt5dPxpQUF5l3D9p6quaiTbLuXVHaQUsHs7ESuA+Mc8K4U/hSyW9A J+qv3hwKlIks6G8/szMtA042FjyQcTr6B3DfNDeQeyL68C12ngfPDfkP+HnB ByWf3s3bVBfmGYPXqi9Msas1N3bXqxVSA676svfeXzA2EltEc0pj5ZvCT8FG 0xxMt7/khtm23EAW2LWlbU5eMbj21IniF/re8AbpFUNuIDxDc1bcc+D6rw/3 BsYOANfBnb+l+Jz91Wu8Q3uhczz6FaHn47NnHbc+bdfpvfFih5OLx/yIM/dc d+96YcXslt5I46udHE79PrJTcRGoCdfvw2PRvVet6JE9E6faPq+WiiMyV72/ ugb8Ft8Mc9N8o2jXiS7zzbBNQx4/18m+uWJSj+xeFl5/8lOnzeixf8n1XB/u Iy0+znePOT4CMFnJNUBHxAb+z3B/gRXLep5HYjfufDuwLH54ca3o+vRxpz4M /At8SRoPwKekr9MTm80ddzRJDGHMxIDZ9HSq+eKLL4aa/Z4VhD1AnPiTt9vk Hp9DbWa4FgNbsCvYYt7Z3yD3iOeL+7x86eB4JTYfcuBwW+z40VDIAPZkrJjI 6RjsffXDnYkBbzvP0rWpRaUmi3gp8vuX4f4omhOEHUBuhtYGuvk1r/vqExrP jtI+juorR0f8/ghbV9d15zuKgfncpi6pHWbP8ezzl9oBaod/elmj6Kv4FThe rGtWzInU1228AHTqUVdZ+vmFdlwb3q+YUCebt8yxOSY+DvLmeY+1OC9c6zd2 UkD8WmrjCA7Ebej9PbjF2Dfa70Fj3K2BeuFl8C9sDPz/Pxlp13TR72/EFU0i SzkXue+FuRliXzy1saqXXNVekd8L+4vwaRF/njcvJHmu/ZGBrP+EqbXhfo5B 8d9Rv6j5VIIJOLIn/kGuEnqA12/n5QO23dBs2WhBwYfNTbafD35LDQDHcsum bZaMnT2nxbzyYoXw+d2JiSbJ0q1Sk5MlFlBeVmrS09Ol5otnnp54xBTA9Vix Ktvk5+cONes9a4jYAGuUm5Vm2XzHzJy5ZeHa6p5eRtRX0zOTHrRSk+fq56AD Ha0/fhRiSfuKcsXuixYvPh0DPVb3t1sGoMeinxB/PJN5Sugr6CNn6nxy3R7f B3F+7HitjbL7ufb04lP8Mze+hORbXlzn5BAq3yTG94Nwzk6gqHcdoWIdwdvY I6z7GovX0xNQfd2Kr8kg11P55LfDvnF8B8gG/OfwE46p+M3Rzsd8tU+du5Zu 4tQGS8+sFX0HvgMvHIj+r7469jvXQc9Fcu7JXeF/5BnrQz8X5op/jlqp80fV hvNR65x+7/qMnfMrO04Nr8PPo/mRXPdPRtaalSuLpE+M22ZQDMxzLqozCTua TGl+oSnMyZCcybm3lQrWAucB88u9LqxXT5ymB28audCf6//FGHoHV5uPug9L 7xfu6y1zW8LHDEp/AmQvPboWLezpA6CY4AzihIW5mfK/1r9xL/Gx2bgbtp9B /WnszWtntjj9NFh7sFm4x/CQ5toyea6JV3H9e1JTTXZWpnnvvffEJ8Rn21/M FPvvpZeSBJviL3/56uGCDpawA5AD3YcOiT2QkLBLauYWLWyQesXG8m6z/B67 3xyYUirfn9nY6eiL2gtyILrU7w81Ro0Xn47BPmUvCQ4YdqIr94U6mTMdn+6P DPgkzOfc7/G8DEZfVZyXaL/lmPAAdFRes06x5CF2QEleqZ1fGI63shd4LtHX 6PtE/rn2DNP8Ie01pPFV7SepmKfwYvYQ9j7HhB9Rl04PK/xX8Fb8P2AnUMMK D8BHIphj4d6+nE/lCPEG/CH43ZNf7YqI9ZNnLnmJk+zew/3F+8M+Ij6h+Vrw LP7HrkK/5PycR/OIyMnHt49fQ/uojZ5QL3wIfv/wAyG5L8Q0VL6CD4EurTYZ x3njzUTpZ4uvw87/CUiMdumyIpFlYyfVOe/rs7lqRaPkmdJnT7GE3PoZzwO2 EbwanAn8KuQZ4b+KtwZvbrdr2q69ocqMmVQrtojaNWLDhLFEifNwjWCE27HE RgfPtCSn0mx4tMDUlxwSvxnrqD5Hd12Nbb8dMAfqjkbYiYq7jb+CPaFzO94V lGebmEBJfrb8j78fO4CBv+iCsZWynqFQaKjZ7llD8H/spZKSEnlNnuy69emi 93Nv165sdfI8NBdBezSo71H7ww8mn4YcUmzC1rpyyfc9XTx3x/NdorOwh8AO Qcdy80P2KLxrINjKp1sGqP/b/R5zVl1IdWZibn3VJRemHeqVu6H6Ksdy83x3 j4JoMiCeL0iHxiPgmbpvyOfDXnB/T/1MpdY14OPgPqALEjuk5wc9DxpKD8tn iodJTd13L7T3HvIAPwa8fuumLpEhzB39ZO7NIfGZcDzFr2D9FAOTvtTEEfq1 T8N1t+ji8fyFyDx3bTq1YPBXZKbGj8l5wS9Bjg31q1wb16ExAHQt7TGP7zQ1 ebeTT3HbvKDg/1TnHzJ3LbJk7zpbdz/RecT8vivS/tI6M66Z++Ged3rCgYhY HvIYewW7IVqvQa0155jUCOnz7641o36Z3ssrlraFPwuaWXNaxN+kOti4X9sY 29RskAOtfWk2P9bh5LEyT84x/upGsQFtTLygyEnktcZ68BthM7jnebSjTni/ xgCoATh+/Lj4iUZcWSm5oh9++OEQc92zkzRPljVbtiLbul915prry8IxgXrH z9NQdtgssZ7rvNRD8lyj4/TVk6w/o768yGSl7+3Vr+9UDHQM6jnJO2EvLl6W 1YsPKS7qmcpV6ksGKBZXLH7j7gH2izENgnGAr9ydp8J3FF+BZ408cP1M7YJY fhSVDd78VGTA1mfKI3J9ND9ScOnfsbFtNLeI95nHX08cl1618MRLx/fED8kb IjaBnMAWwQ/Cby4c0+D4rLln+IbU16y9aLRPgtaraY9pcou+EbY14FVgCGjN B9+dc6PNv1avaHP6ofbF/936fV/f1RxI9UfFuocr7w1IvE1tF3h/fbHdo0i/ 0x4sN/MXVAiPpB7HnbcQLXdYa/n4Dr76+9dEt7F5Jq6Y1FPDqfi6qmNw7+Cx 2i+B461/oE30fHx+PPfDL4/W315xp4MSo9A6R+ymY21tpqG6RGIWOlfsJO1n f+ONIcHsJl+K3C7kAHYGa5+TbMdtWFsbX7An3kBdyXmXhn0Tm+pMZ2Olg/32 P//zP+bdd981ty/INTffWmD27kkdYk775aBgfZ0J7rOxzW37MtgbL93aG2DD sBfAJX5168ljQX92vF1qA8kPPpX8Vm1H9pD0Ph5AH7GhkgEDraGT3PdfBZ1e GQzl44ohz3Osx+Q576snJfozx8QXo3Ww+LznzK2JyPVhbxBbIL7Ld+GzHFtr HPid9i3b/ep+B1NVcV3BJiNvVeurdP7o+8rr4APojsgBrpE4KOeGl7n7EHBu 9EZkInzsfPJDX9zv1FpvsOwE7IkLxlRJrSvnQTfg/OSOu3OidHDtg8E3gQdS 4xvtM2RlTcFB8bkuXWznE2GHHgwelTU43lkv+ZLgG2akFoZ9K0Gzcb2NT4G9 g49nxZI2pzec2uWKtRMPt0rlGjyf62VNFUefz7g3TfuOCK4ouUSSF2jJ8W9I LN/2/33nwp4+LeddWhvB/zWPKze13SxbXmBm3Vhmdu3cI/ueXAiOjw6PTKHm jP1E3zeNi4P3rbKTHgyKm8q9Zt7E3bX35YgrNKYRFMyi1vpy8fcnJuwyR48e NYmJpWL7v/baTrEJfOqbPvnkExOoKJZ1/3m4Do9affcecveLJ+7/43CMiz16 MrFV4sWlBTmmZl9BRC3ByQyt0VLfz9kuAzR/cCA5SvFq7vR+cM/QuS8I4/j2 dUx4LPmXPJOag06dqdsXxLEVc1NlCvxCexwovoJ7T6iurLq11vCqPWH3jmkQ fqM8jR6IGh/UOhW+Z/dO64zoRcPx6cHFd5FZ9Faj7w75sPgWxl3dYH46slow KLA3yGln7mCYMW/kI3Oh5vYKyzah/wH1CQO9x/ixvb4KHYqzynVg19CnZsdL xYKVjO8kw9of7x6I9FM1lx8J4yTXmZ9f1hMv1V673oHcixfrYO0V94I4DrWf 3u8Q3z0nvI5gUjDf0Vc1mFUrezBHdU7fdHpz9fToovZ4/p215ieX1kuvZ/qD 0fdFsVPIDaOX8ZK7WsO4rEH5nLmjX3JsrpHPrr6mybFNkf3kDnEe8Dh4pp/d km7m3lYlcZNHN6SZPXv2mPfe+1z63j30cLpJTkoaatb6pSFiBNQQ/+lEp+Tm YY+hS3p7v2v/EDcfIscGHLOT5ZEdlg18qmoJVOdR3+fZLgPcfLuv61L7jJ7a 1KVG+x5+G2+truJi9wfj2e2b0HiAYmp8J6zvqbyCl2r+e6zjISO8ckEH9gT+ cXpe87n6NvCpkycCbyD+wf+xjo9MYF7EH8Bh5bViwGk8KzIn3/7LenC+BeGe xeizxKQVN1T9TZpTQ6wj3rrFwrLm+r8dtmeuv7Hcmk9Aal2DlZXig+XYi5cW iEzg2rVHG/kY1HjwOVjt+O+9949js/bLlrSLrI/nv1JsdX2tMfWEV/aLL17f t3to22s3dUbQPPdcihkzscaZx2KLf38rHKuhl/j1s5pMZd4Bx6+rfieVC/QP qS85LNdPzFf1AWT+2InNgu2DXmn3zgxKjIh7hkzWHIQeLC673qylssOynepM bla69JUBf/q1VzPM8y+9Z+YvLDK7du0yn3/++VCz1i8V4UcrKS40544IWPZ0 rdm0oV2wAt39O3juNX6kuR/odNgEu7afPO8mHgavPFnfEPvFHefCRuzBlBrc wK4kvjTY3yftTjyp89NvCf1GeyqR7wBWYl9zpv8v8RDq5NGXvj+8xsyem9/r u5pPx6BvLz2CtafT+Kmlchz39TMfvsdn5F+czDUxN+/7XOdvbyoULOAH16XJ uWIdB0yARzbsEZ7Db3mPa6bHMddx4eVVZsSVVYJhv+jOkNS1EQtVm5e9q31T 3PEh9X2p7HJjB8WS49oPwv0+r8lzArumML3NrFqTLfmirVUHzOOWHY2ve/gV 9ZKvrz3o3bhF7rwt5Az8kueOeAvY/8gMMEeQGX3hjSBLj4R9c/csbRMePO7q Zie2w/vY9nYMuM7RI1SOoqufL/lZrWb1vW0OvojmjcGfFbfCvZbM112Th9+Q uXA9v73B1i2QL2BEkfujviD3eivWLcfQ+jy+gxwYNrpS+of94OJ6UxfoFH7m 0+DoxInPTHHJYbn/2k83Wv4PdgJ7j74x3Edqkc67pNE8/djJ5d2fCt+QN9fx VNgB6l8aDGYa42TrA3ie+psjqrE0/tfYiH7GMxQtLlyUlyk+aeVZa1e1O7g0 Xh1ffbQnk1OlsYFo9oPyWu4huh/7y8tXnf0SjsPy122/cFxi4vRImHNTo2BF wL/uWmgfG18D+5t5cI39yRflmP3JKab25Lrf2pgb9Gr4piuOih8HXWfLllRz 5a9tOwe8arWTou0vdy1v1u6DYt8wZ7sP2sDqDolZgCnK//ijiCH/h/TyafTU EPTw/4vGNDg9dhbc0SZxAuZr97pscvJ+WcNYuYLYeeRC6Wt37IJ9hH+Ma9Ia Qfdv+a7i0GJHaFyIWjdsyKt/Ux8xXzCt//AH3wYYLJEnVFy0z9Kb6kVfisfP wWxhf8+29I8ND9kY4eeGe28MljfoOBnf0HmWjkeNur4+Vb4gfCwD7SWv40zX iGlsWGtj9X31k/Ge+966ZQC1PfT30l6zOlT/4tgnU1+t/X7c/hjnvnvwOziP 9iKIuk/C3+cY3wnnHcKryUfiNXW15TltZnfC3ohe06pv6zm091Zfc9caiXj5 ZEvubrd0cpuv2/q/jZuHLt1U0Sh5MokJe0R2UWt2axibhXwm/OTsFWxX/jKY ++/mFYvv5PLJlfKa9+nd9dqONOd71GDS7yHeAH+I4+Rl5ok/Z+T4gFm6xL4X F4+rNJN+UyJ+fuyzaddVia+Hzx56sER+//xzhdZnYHBWmEceKTY5eytk30Qb 7jVRzHPkOf+j8xOr4r4ReyFWAm+Hz3vzlNmrK+6x80+5h+QQER93+zt/dpld l3H9rGaJD2dnZw81K/3SErm0mel7rft0zOSmHOqzdyHPIDyF/c7zgU6zINwT 5GTrcBVnIlZfAu/QOlL0MK1h4v1TJQO0/lT7pCrmTH/qJM60DOA5g89RV+Xl 14pxoJiXXEfy7hTBX1R+suXZTKlLgsfsfDPN3Hxribn0qip5X7+jY9u2DHPn oiJz95Iic9/9eeahdbmS94tNx/nAUSC/WPvyujFVWUuVB/Bg9Ew3v9fe1tFk DnsP/WPMxEbBq9S8KHDq8G8ov//iRIfZ+ESG8EzmC4YYPbWYt/s6wBV75eX0 XtfnHRs3ZotP7cUXMnp9xrHJ/+T/1621GzvJjjOz3uiqq9Zmy+er1+aambPK pGZAf3vb/CIz6+YSqdn86GiL7JcTXZ1m02MtkovPX2qer5nZaP7Q3WkSXw2Z lSua5XuM963nBHyXeOO1FwNSZ7xzR0B6EbDuvyVG8auASd1VG/Hdhsoac+31 tgwgvlJZUGPdi3pTW2p/Tk4fzyf6g3dse77ArH90b4TPjj7xk6cXh/sj2/3B 8CNqL4Bbbs+TfB5+hw/S/dvbF+SIbMJHyO+W3JPp+P3UF4lPEdkFnhB5oj4N jrADUpKTnPotzR+OVkfi5inIcuJxYIsr/hN6z7GWk8OGgI+AL+vFII02B8Wn d/PsUykDGJoDA/9UrLb+/G4osCKotSL/MN61aL0t/feyU0IOP2EcDXVIrOeX o4Lm9RcjP2PUFrcLDj18acumFuFRS+5ulgFW85vbW2Wt8COQFw4us+J6RpNZ 5PP8RxhnU+PXM+lFG8YYYs2pdXLLA/RGetGTM44PG/+OF0MOHNvNm/fIPJkz dVRrVzWbT49FXs8rz+PbaLDsoBbhsXyXNfBeNwP/EjzYewzWgLXg/UvH1Znn tmTJdZCD88iGdIuXB+TYD65tlhxreJ+eY8p067pfD0XYvtwbrlGvmb9cG30X 2O/k0QxE16Kml/xO/DqjJ/b44pgjslmfm0Bht+OH472Zv7Xru+gpxmvqe8AY iIaBRX01cXzuo+LoLV5k53+91WJjOrnvD/5mzsPvyDHRmn63XwxfEdgh1Cap TjBtRqUpysmR+8t3uuq6pSbtCUve88z7MeHBExgSuVkZDs4l9zBefrliCnPv sC8zEg9KzjZ7/NI4+RwDGWCQIgui1ZSpf0P1xwPNVYKfDkYJMuTLkBd0OgY8 Ip7sdg90Kr6PXYBcg09zz6+9rtk85Kk7Urxptz/FO+5YWCQ5LX3VJDDUJ699 5cEks23KkOTqbA/3S79rQatjvyj2Gxhskiv+6ybJYVC7wssXb5ufbx5bZ/t6 3HED78CeoH5B84L4ixz0+sWQn/o5+458U8Xcxl+OXHrh+WIzbkq15Lugw65Z m2nm3x5y1vaFzXYM9aabW82zT3bKsRYtiPRH8V3l/+Trkft04Vg7P4YYN/xQ 7xkY3fTrQq6zTtxPdwyJ9aIugljuTy+zff6KF8h8sNfg8Q6+3byQU+sxKVwj 8MqLZaauvNBUluT32s+KYf7NC+2+C8h8fkM+LviFnIv7Rpwmmu7EHIgJc03e +8dnWvetPXtYG2yR2tJyM3pCwIyfWu3kMjACgdqhZqVfagJPyN17TOtMo9Ux eWtV2Tc8s+B8ce9PFTbnx5Z9nGHZnh9af/U99EXyO869xPYnwvv3pCTJPiXn GnyitvryAZ1HMUpOJT8eChkQr2bVO1ROwj/gAReMtesrDtQdkdwT7eHOMx6v p5DWO4+bUm4+Otz39epeUZ7g5s+qz/Osu2UJr/kdPEprlKhjgg9j92jM0z34 3jvtnU6OfH/XkHOBZ6n+Tu/n8CrqW+GZxCt5j3XavKlIcsHwoeM7X7CoyDyz uUjWFh7O9TIn6uTgvby/KFz7BU9XvF6eOfJKqd2D7337op5e6/SKo/+Y9raZ PadVcOs07s89cq+b1GlZ30Om6zGGjbLrDoj9cR+ooeBc1C+Lf/f5gElK3GtW rdwn9aOPPlxh6iuKotrknMvL24kZcp7rftvi+O65P+4+FMxpyd2tTh9bd100 +0nzSd3Pp8qI8uJ8M2NWpXl4fQ/vb2lpMWlpafK/nx90ckTPHewB9Qux7jxj fdXPYPeDL84e4h6fSjwG8IbystIEb0j3CTxp9479DtZxVWm+PV9rn1J3M1Bc IvZnNCzMkxlnUgZoH/t4fYm9g+dFa4vhSZoDxbHgsYpn49WH3UMxOXlGkb3a KyrWYH74CpRvaM9y/TwWLjXz4lz4BvA38h3VrRcvahOe5v4+xx9xZbU51t7g 1LcNdE21zzC5LV4dFf607v4O6VkD3hb9IsExU786/PbX19r7EnmheQXwa3Lm wZqmZpdr2pdp925w826+T8xDzwsu6MiwzySaPFOMDPfacQxyouwaL3hys/hd lA+78V+QHdqbgJhQU3W1+GLf63xL8oDIxVEdQOvxvb4C7cNJ7tDPLmsM149Z ttUtrU5/Er7HXpk+05bl4ILSF0FliWKC6BzZL2BLsD6KTXj97FrJW4ZPsYex C6gNAEs6ISHBpKb6WBEnS++eOGGq9hU6fJR4PjGueM8L+aL4Znk+sYn7y7cG Up+PP5I8CLAI3Xkkb7XXSUxqsPwT/qL5JadyECvED3wqjxktjxAejZ7pxYXr axBX07xu5QOKAeGte4p2XGQOepx+Fk8G8B3qCuHF1D3p8d25l5pPzncTXzng YCFpXa/6yN35pazHsxs7RWap/FMspOXLK01LoMyRM4PNV4D/qS+CORXsPeT0 F7swjHnvztekBuDicTUmMSHJZCWHZO7apwFfGT52chzjnZP9qPdasZkUH8Jb s8D1ae6W+xjIGOIyzFlzdLgHyEvq9PR76FjgMdO/IH1vmknc0RWxXvyW5//u u2xbBT898b/pM5olnwwsoO8Nt7HrplzTJHXHWt+MzELf194d7mNG60HKe6zz 3Jvt/cHv8DFzTq6P6/x+uBezzr+zwa4hxh+MLGD8/e9/H2o2+qWnA/u7RM4q 9r/itMfbt9gC3+5nvErjXAPlveSfTf7NPpPwSo9eB98BcyXe7+Av8Wp9vDHF UzFWrs43U6Y3So90rT0azHHQj1h7nv8Vy9ojekCpH2agOAc8W+RjuGO1ipWs /dpVV9c6Hb1vnP+HYXwh972OJwPwBYAZgH+Y32gfAvz59yyx+wZyfejM8Ckw eDQ2imxy7z3ukxu3E3mivhE3nh17Bd0AOUJPysHeR87N4NicC7+J4qQ9fH+7 WbWi3cHs5v3pM4Nm+b2Zprup1cEDYQ58h7gB/PGexbH7M2lPNP4fO6lR5Jvy cNYJLG3ir2r7ReuN5sUK4njgD/EexwfTHZ9VcX6W+K/wnWJD8332AXydGmT1 31BfN3las+Ono1cltcacnx7lxFOm/KZFnn/ymdAFFy6web7OjeOOntBsrr+h RT7nHByX+8151q3tlJgCuef4etlzNtZqUPCANz7SKPXEI8c1mGeeCkhOFMc9 2m73FyY/dF9Zqeno6DAtzc1DzUK/EoRfKG3vHnOwpb5PfDOJ1VnPL37kZYvb Tagytv/A7hnUKHGzwfT1O9TQZYaNqjbvhLFWiAFz/73+H+UH7H+eH/YUz4v6 eNmfipVKbmmsfPTBDvIQkXHYxoqRAw+BH/TXV6Z5uAyeA54x+BnH0t6GA6lf 0Fxa9H1qir18Q/Hyn3uy09GrWTt6fCu/4XzRYg5uGaC+G45n992td2wMxQXj 78p7QpLLetHlkT2L8fkoJmW0vaY8UnPYdK3UnwFm3NOPhaQfLn4Zxa7hc2RL rLq5vmSBYvSrbYFfS/sAIOfGTgpKvfL2F7NkXnkpBx0dXeVlS/kR+W6s/DKO rVjuYDRTQwueNcfgPNRx8JwR642G/60Y2KwH/7P+xLhVZhfm2T197bzReot3 N4lf9cE17U7u2xsvdEVgxTMfcPeQYbzmfXgC8kh7xrEv2KPai5L8EL6HP0rz 6iZNaxGeDjYgzwW1zlyT2hZ8buMU2zob9iCfPbTWjpX8bl6BWXNfhtSRax+B z95uk76tXV1dkuNYVFQo8QGfTg1hU6XtSRWMRu2dF21orYBiivxH+Llz8yfN RWBvD1bn5jlkP627r83S8bLEZwnvL7L0mfddNQV6Lvazu7aV98GtxW+lufKK gw7eMc+U+ibdtfQDGdorkTpVcgDdnyH/lJf2lWOquTOKaQBP1ZwPrklra/o7 R+0lrbIuVu6U4gGhq+3Y2mU9qyGJX8bi/W4Z0BGwdXd+z19qQMGRIX8l1pzo C8D3n3+6U+K8ii+PD5zaP7fuofEHtQti1ZJtfrwrjEHXg7UJ/2L91K8MTxV/ 9e9CfV4bv4M33XarzXfnz2+V+Bfzpr8M9xR+/cNLAmb1mhy5ZrCGNLfFezy+ 35fs5rfYd/BY+KB7H9PXkbrnaL9z1+OCLX3JFY2CWUF+BT3duU/sGa19Q06h x4MLrGuvz8WDa5rNh90HnHo85A/7AkxXMIXtPmf2ADsPu4h5YuehEzJ35M+N N7cKNij3SrHG4Bl3LWyL6PGGb+nc8LN5080hp/8Na37TzS3Wfqiz7Iwqp2cM uar0DQgEAsKvkpKSxBdEbzGfTg0hV8EUWrSkyGx5Krb9ynPK/VUfIPuQvkua 18d+Q/bH6lsSTZdRHuH2A3gx7EJ15dJbNSdjr+CwK593Y4jGOj6fw6ewR6bO CJnp1zU7MTethVe9UnMu4/GJ9uq3LPnS4tRWUGcVKybMnuccis8crZ/Yyfin NL+C62Huej3u48WSAdxHxQ8AS5JnGH7Zl8yCtyy4M9JOgN+i80bj06wBfWDg KXqvNL7s/o72Hr7R4gnwKj0299nbO8vNB+FBYA7Fmi/XA67Zpg02DydeqvgH 7u9p7yv4seCSW2s6ZkKTmT3bznvhGsh3t3GRe3Qg+gKD06N+wCPNtm5bV3TY 0qf2x42Fae6+1vZFs8OZB/NSnB3e0x724HfjN5k4pcmys7RPS60JBSqsexmy bb0o+QPk3e9vsHj/Q4Xm2S0pZuK0MuG51GLRz4yaL15TszVjVpG5cGyV+cml NbJX6P+mubLklXLP1I/HX+QFPWWYK5hxYPUNG9Xg3G+NKeszTy8i1pC5cm84 Z2eg05Tkltix4LQ04U8ff/yxKSwsFJmQkpJiKsrL5X2fTi1lZrWaH11cH3Pf 8hxG60fCAF9XMcixJ9m3is+oPQaPttj+bK1fUt6r/Us0j90d91I+t+1ZS0dN SnTqbDhef/Nj0A2xXfrqjaD4NfjBmQfz5j2ecfgH85w8ze5nos9jX3lBak9r /qU7PsuI1+8x1lB+pRjNOs9o/DuaDFA/DXmDTzzS6ayz4gVx/Rwz2vGixQNs 7Ofefcw5HvGjH10ajMgN5f1oe4z3wSV2v0dshDxEXUvuu+JLL1vSKrLlqU0p cv3RcI7YU+rHYIDnjE1CHFVlJffcG2uHZ4F5gN8D3kcNlvQtWmLzS9uurDMX XVElOTbUKlM/R2+tYaOr5S85l9+x/l5g8dAfXlwjda6CM2jptb+eXu7Ua2s9 MfXam57O7lWjPHN2mbnzrkI51o8uqXIwdL4pfaHqzMXj7DrveXcUmdvvLJA8 BWq6o9VC05crJWm3xFCwqcEFRe7R+wBssG+E8VjBlVoSxlNdu8qyhaZUW8cv MTffQj5Qg/NsYzs+87jt/0OuYn8Pv7xJcAW+GcZ31b53yDFsFXyd9NHx3qv3 Dxy05FGlWXB3ttSzuuuJ4f1gSJPb7tPpo6Ii+1m5flbvPLl+8VpLRoywbFKe H/iB6kbkJmOzfzecA42uQMxoe7gvuZsHe3066uOHZ5xn6SL1pS3Oc9sfXy/H gwdgV6sfvD/4cPxO/AG3tzo+EsU7c/d0H2huqPbyg69dODYoNVAD+a3mmPc3 xuKVAfBQ1oP1XHNvm9wb729YH8V+YO3ddpFXBqjfnnvnlskcg/xIck3Ij9F4 s/ICNwa4HsedU6LXi7wldqg9o9U3xiBmAo853+LJ3Ft3/lK8IViIF9mYPnNv bonqr8FuJJ7JelF7+4dDR6U+5eWXk6XX1W23NZmk10JSo8yYN6/R3HFHk9QR U3u9YZ1dU6z8esZvg2b9IxlyTfSK/OXoYEQdclF6q9Rm839bbWQdc9qukPDN GTegj9fK/9fMaJD8owlX2/FZvs/5yFGLVv/8ybFW6WVZkp8r10e93n8Ot3G1 tXYBW/C7gtXdEJGXdPdCu06C+Mvsm0rMo4+UmO0vFMpYt67ELFtWZs75ld2r 6tZbQyIjyLMiHwC/wGeu+4y8efqxzl6+gn99fNx83H3MsrXaRRa9uqMHUwK/ T15e3lCzx68FrX8MHbhuUL3O9dlGh/S+r7kf+hr+pfa22gJu7Ho3/3fP5VAj PoVa5/v9ed7d/JrBvh5IbZs3t52hORjMbTD1AZx/2eI2kYf0xvJ+xvpo3xDt jQnuvmJzDeRcKgP4ncZOVAZGuzbv0B6P0WQA/BE/BH4groP7QjwJOyV91yGx C929w93HVbxInZv2iHR/R/3simUe7d5cdLnt/xgo3h12ndoGYG+4P2O9ObfO h2M/tdHua1iY0eD4ktQfz9w4DrFj4pxq6yk+6oZ1nWbBnc1SX9dTQ2XJ/8nN Tq/pOTfZuQT8Fv1Z47ZqP3Kth1uaxb547CE73k+uEvXXfK62aqzrPdRSIzHs +fPt+Al+mq2bOqXPy9Tptqyf8Vu7D/yB4FGJMeD/GjPR7hdwXriX9H1rAxHY Q10NNdY9qBOMz2Gjax0caunx8+umqDqGxin09ZFQk/Rj/tnIanPHojyJt3NO xUKnn7xPZ4aeeLpDnqf1DzQLpgrj8+NH+v1sSU+NcD05e4r7zLPAX/TeeMeB n/wwvJ/xJ4ILGU3XJR6gtWL9Ge5Y1GAGzzc6o3fuqv+eTI0Y/IH4KPqw6vis AcdFbrFumwSTrF50Ns4Jv3DbMepXjXWN5AUpdqbmNcI/lL/1hR2oa6h5VrmZ aSY7Y6/59K23BBfTzs8Jik8Xfxu+E83JAa+e3/Bb9QfocGPGRVtfZEQsXGn3 IP9x3boiOUasvFyVNypHiPn+JJxDQ96NW9fQumn3GpML/73hdSYlMcfRc9y4 16wfe57fkuuktWxuf+XoCUGTmmT339WeNKoLcZzvhvtEa64BdVXMz4v/v3R5 jnniEdsG5nvYKJxj66auiFxa7/Wjk6Or376gyKxZuc+yY1rEDuK8yC32Fj6g O+bbPTpuu9WWFa+/0CV+MOaguUhqNz3zmI2Dwb2/b1Wb5ABddlWduemWMulH gw1I3Jjri5cz3VhdYnbsSBR/T1FRkfnzn/8sgxgwOaA+nVkqKHzbjJ9W6wxk Ar082A8TptWYt9sOCv9g7yofYQ/yOTgn6ELqA9J86R+Ee8sqBkq8HBfF7QQf PmpO3GdHRRfVXKFYx0H2aJ7gSfU9+PO7Th9f7/vIK3JDByMDVAfX3P9ouP1u W8gdV9Bevayt9nnkf3esEr6MLwaftDdvXuMJPPfaJzzeXDVPS2M2r77QZM65 qNbcsyLXzF+Qb7ZsyZa6APiROx6tNhd7xSsDGNqDnTwUt79Aaxf647OjPmDS b6p62Udu24E5cB7kLbxf7Rrtowpvxf+t9RDec5CTcPuCPDN2Ur3UgWgOv9pQ blsTXwe1BawXPnGVry9trTM/vKTWsYm8fsxoNXtuHHCNoZCDAAYdNRjIHc7B 8fS43hy9iy5vkJiK9on67kX1Zs2aCpO2N036dFJ7p3PXnmvw/PRdB+WeqY3m Xl/q/6ROeGSj1E5zrWAe2fKyU/Lv0I0OBLtM4d5u89q2Lif3QrF5iQ2m7eoS vk+fo6qqKvO///u/Q83+fIpBxN+5P1XV75vzR1ULjyGPTWsAtZ8e/N/9DKp8 QBfQfDTNZ+4Pn2TPw3e8foB3u/ZLfPgjF75QNBng9S+f6sG8iOENRgZo3/RY n6uMiaejx/NrcS8etnj/ipWZwlsY7u9yXJ5d8vYV56avOWvuxxpXPcA9S0Nm 984Kk5Swxzy6vtTceFPQ3D6/0fzzw2OmIq9Ncj1uujl6foryLW+/XC8mXryc TmTAkiWlvdZSYw6qf2o+Crnq7u9R+wtfxNcd7Rz7inIlhvv8sxUSS1Z+78Yn 0rxe/lfZgA8Enw68mvNiv2akFDl4QcTEot1vt9zTvhba34HvUO81cardW+X6 2Xb+M/Fttw9K7xXnIAbuXgd89fQQLMhJF+xFxeNYvaJNZBe/x0/JM03+Jn0f K3PtOk/wHDQnSO0T/oevcx7FBZ1pyYfrZjVJvBwca2QVc+f7XM854b0DTvfW 55N83n+WEfejqTEoubfvv/++Odx9yHRa9hj///GPfzTvvvuB1OSsXbNPajfA 7XllW8Csf7BV9vy3LoysDf9u+H5Lf4uU6H1y++I7U6a3iCxQ/ZdciJUr4tc0 s+ewbQfbH6y/g7oVxWEdyOhL/+5vbyvv0Lxvji/xaxdmXDSZAraZ4ooNBNND BzKB/oPESdeuqTWJCenSk+DW24skhgpu6QVjqs3WTbYdoL0HGFqXrj4T/gff AOwqasfUlqRGiXxRzsX7257uiQs/tr7e3Dq/TObP5+yP+1bb53ppi50TrPGb aLEUwTm4y14veLVb37DrEneJ7xHejq1DbrviZEfDJ9L6DL4PD2b+XGdpfpGT 18x8qIvw5gS7Ywz6PfTyYeHaaN7jGIHyQuHP+FqIC2sej+4XrTmhxpeaMPCO wCVCrm7aYPdoZk7UtnBs1hu7kbxnfs8acL4N6zpEZhBzIE6LnYc9Ek1WEgOm XoPfcrwdlgz87Fi35C4daA70+v6rO3abV15JGGp251MUog99Q0PQ5OZkC/8o yM+Tv7yuq6szJSUlIic++eQT09nZYVpDLebAgQNm5FU1xt337Rvh2NC3wvlh 5AuxhzSnjGeuv7gK4JSSY/z5O0dF/wfzVPP73TxNa4IUk4ScaXqxnk5bYLAy wB0TjcbHY/GseEN9R7HqA+ANbn+uNyY8kL4J3qG5RL+UeuBG8QeQd8jabNiQ ayZPLxf/AJgF9BOFl029ts5s3pxuctOLLVukVuoU4HnEKWfe0GCmzag3q1fV mLm3lcneunFujfAtdHZ4GnVb968NWLw2YEZdZefdtlQcduILB4NHJT+d/TjN 0lOj8Wu3r9CuZevpJZYrfcGSHIxd5Cj1bCpf4XWz57SIX0SxpnVN+S7ylfdH XNlkFt5VZBYt7MGEhjfzmfteueuhdY/o86T7/LPj7eaZZ7KEZ6NPY38Thwdf d/GikMlOOih2AfV6mj9s22xB6/ytTn4b86wqIkaRah5c2xKhj3Auzq09RzWG zf/E/skfop9asKRnf2oekfr9VO4Wpx8wZQXZpjAnw+6HVpRn6qtKzK6db5qm pqahZnc+xSH8P+j+/cVoXbq80iUDbH39uU22znQ03F8CPYS6cPaK4kuxX7Bj ++IxPDeFafsF80rjAIqjBe/SegTO4eZj6vs+lRinp0IGxKshZc0Ggg0K/41W l0z+DrGTaOdmTYg7RsvjGszgmVefNvrvw/d3OLn54BFOnVFt/nisTXIUqfcD B/Kci2pMemqOSUnMNQssHsme2fRUkcgK5l2cnym+j7y0ejN+SkD0cfx//H3k 0Qwz+Te10hNx2sxqkfsa38BHzV7Y+VKXYLc9uKbD8VfrnmBeI67s7WdUXfyz Y4fNU5vSzKwbI3VYepnS/4b/H3mgXbBtvT45zWWCFyOPli9rNbfdkW9Ks7pk HpwfXo3PxM7zrzdlmd2O/NB9vXK5nbvLe1q/z7FvnZ9n6URB8+iD7YL3cc2M UDgX337+0NvB25Y5Pmhfu/cZ0PwA1vPxjdnWddTLnIkvkAvEvZMcofqjouMz Z3oQ8GwPG9Mo9gGyT+Wn9vPk/qu/l/o1YgLgQJPfmZ6eZj766CPz7rvvyv9+ jddXi7ALZsyuMjm5LebKqytlr4Chq3tO/ade3R+cgQvGNPSZm8Keon/fQ+sy e8WCkSfxbAqOLT37Npx6jOfByIB4GJeKGwZ2T1/H4brgV/A/b/9erwzgs6V3 t/b4UB7ukPqtb8Xpu9LfoXmW0WqeuVZyBL04g//4/duSD7h7R6eD8wAPI6/k xedqzN6dXY6tBE9S7AEdH4UxEdAJFiwqtfZQvaN/KJaJGwuHgczDXoAvVuZ0 y7p9etTOx9JaO76D7bpkabG5595MsUe890flpt4r5a3uum0GttCUa5vMuKsb zeq1GbI25LvBL5kbv6XmnHx87ZcguRUj7L/4eNDnwVPQnAp+Qx+f4Vc02Dm5 4fpL8nAUz4EcPPaX2sPw7icfsXNzuFfo6vjInFjJX94W+6o0JyBrQU8A4hh6 zcgP/S1yDZxp9p72lkl944D8Tu0Yvc+Hm1vNwsWVkuPj01ePml2YfcH6OpHt GtsBf6iqskL4C7UfffEQ3Tt91fiQl1SUs2/APApfEvzuyslN4kN9ZWtXzDjB QPGDBiMDNF4d7bP+1gCoPxreH+tavDKANdgSrrEinw8fwWhLV6NnV7S6zXiD NcL+ioYt6h3MDz+g6s86H8UcIXaNf4GYK7IC/RferzhB8fSD//5jt7lnebEZ M6nSkgMV1nzqJQ8K3u/WzW3d38491vc4Nt/VPDbOiQ2DTo1dMnZylRl5VaPD 0xnwTrVzddAHTWWx+jnBwuQ4Pwhj7VA7fKsHD9q959x6PN/n98ssmfpzS3dh 7cB7074P2FHE4W6x5sK6YWdJr5qFrZIHhH7Od2+Z2yrybJw1L2oyta6B5wz5 NPmaJgfjb9W92gumTvKQqZHW+XFdzeWHw7kgzWaUJZd0j7LO3xveYF7f1mWe faJDfG7v739L5ldSVODr+l8hIk6Aru9+rdTd3S1+5+amxojf7LKeMfb+hgft nhp98RXtTUMvPu9nklexNzVu72GvXFFMLHQi+D/P5pLF2m8j6ORQsI8VF1Jj eKrXng4Z4K1bc/NKdL3+HIPnuK86aa8vyI3vo/IWXm7rds0DqrGCd7j74fY1 WGvugeb70M8KXH5k3mPrOkQ2cZ/gZ2CNKJZzX8dlDuSd/PjSHh7qzZPlXlMH QD6iYqLq7731I3xGXSzYCPfcmyExU3dtckbCwQifPcfGryM4sSeOy57hHHyX WNTSu0PmulmW7JlSKb9TGa/59hyPuencF97ZJrEz5AAyGtsAuaS+VM5JP6Vg VYnIjnTr94L7bD1faTsPCI4deA2ql79iySaePXxK3G8GcyX/085hDcmckbvY T9Sg1RX3YDvwF1kNhsd/hvG0eV609wH2AnPkL+fGZsM/Ry6Ar/9/tehPn31m UlKSY+J1oPtHu+eh1k9kj4Iv1d8YMHiF/xXOQdD3iIVF823H4jdeXB73oJfY WGu/ErObfWOL2LbEF8kT19iE4i+jl5KTciplgDf/Q4fqxv05htcP0R8ZoL9z 9/HS3HLFs++PDaT1rwOJtcMv8F3QM4D7MiPcg3BTuBZ282OdIleYy7zbWs25 w20eSL0qdVez5zSHY5Qt5urftJhrZtq4fVp/RH0BseIXn6uV86lfSmvRdK7c Y/oZuNcDPVdz1vgdvYepP0av8eb9wv/UltA8UD229sR1477Ci4P7AubcEQFZ W60B+2Y4f47aCHuPtUpcYHgYbx+bDTmw9Sm7bxjnwjYgR2r7c41OvRnHf2ht h8Sn2Vf4j8BgVlzY2TeGnD7EGlt4OYzRwrxZP64ZOUY+1bXX1dn4RxOD0hdG 85w4F88j+5P7gZxW3CnsO3KAtY/B6ztSJeffp68HYesVFhTEzfG9f12zueOO YL+x+9mXxMDYt+xx+Mdf3+uSnKB4tWHwD7XHNWe7ed8ROS/HZP8yeAbIH6HP HvlLw8LYa8SwfjLStq3d/G572M739jjhuIORAfHw7vpTt6tDa3hi8WmvDNBY o1s2us/HX2//qmiDa49W89XXgI+RR05sRnwR05odHzYDvocfg7yin4208yrJ N8ROQTcGLwOsGfIh8ZHg298Wthm59/huZswqlZgy+uzmZ7IEkw18to0bbSy2 6+aUmfkLiiJw1LZsyRR+/PL2DPGL52RkCi7cC9v29roG7WXjljPuz5mz1g8r /8SGvW9tecSacRzwkvkOefdggX47nFut++ylZ+3aX7VbeJ9jIMfIj8b/c/7o RstusWt0mUtH9VFZW8mRXdUmNdHwffR0vg+2I/cZ3xLXQfwDW8TG47L3fmlO nWCF2jhHIbPtmU4Ha5d7iL1BnJ1n4poZdt3diCsazNGOOnke6PPxwQcfnEEu 5NNQU2VFhSkpKozwD7np9+9/Ic8k8bd49j37kWcCjHLVR1WnZ9+qLfCnd3qe JfXfYDuQ0/DkI51OTSI6EfYu/Jb9rrYw+5n9yzPoxcshhwmMMu/cFG9Hea5i Gu94JSWqDFCdLxYPjeVnioWpGW3EwxyFxxxr64yQAe7eBMrzvfgC7tyUWOcd DN61+7zfC2OVnWvpwOe4eg3CA4nXRFs3rfVlbfBbgZVz3+oOS29ucPrkvv5K gfghTnR1ipzJTgmZTY+1CB7bkrubRac/0NBhXtoSisBT471RVwUF+w18FHzZ xJ7WP7pX9pz7GjTmGeseuuWy9uJN3V1ocvZUO30itb+Pd30uubJ3vTj3QXM0 tecF+vn1c0rMTTc3WjLS7hsJf9f4ttbwc55vheMM51xk1xm4sfbo+4Kd9TNr v2+1nhF8csvC1yRYdXtSJIbNsfEVea+Zuem92/hEhuD8l5aWRviMffp6ELYA dQL4i6IRfqIfXVItPYfc9Z9Si3LiuDy/6KPDRoM1ZO+5pooWB5eqtrTGXDq+ VvbyTEvPo5dxXuoheS7wGfHskKumfluN62o+QzSexOfgs7h7uuqI1bOE+fIM qF7G39/NK+olA3hO1ccSjZfhg4qGpcXoT9+RaDLAy7N5fc3MRvPGa3ti/h4e Ec1fpv6OaGsXCxcw1uD72itY/RD/NbLBaE+fnviq7Q/X+hHFilU/vLvXpDt3 luvEf4Lf6LWXC8Wn3VJxxLEftT+P5i5Gmx94beQvuO8XuJ/zF+ZFyACuQ/dF LDnpxUPleqkNON7R4vQGi2a7MTf4NTo2+9a7dzS+Rb8E1mze/ErpDak9B4jx u7ElWCP+17WlF03CDnstOTZ2NmtI3uhC67fUUZA/pPhBrD3xtyWLg2bLE3Yu 8fgpzQ7Ou/L+626wj5+Rke739/UpJuEnWn2//Yw319TY+cJvFpmfjgyITfvD i6vNYxtTxZYoLyu1bPIKk5JSI7FmHRnpaeb5zQ0OP8BnjB9S+0VF4z9uzPpY Q2WJO7bJMxwLg9HLA8GGP9J8MOJZhg/wPJdm9DzH8AuNF/I5Nnq04w9Ex1Ze 8dyTXeJH8f7uhjlN5smnMmP+Pp4/X/1CDOx+fDL4z7SXe189R7lP2GQjXTkk xGSptf1OOHcTvnPL3BbxhWu8UXN0GNxblQFaawDeJXkrfFadf1i+R+4kdWXn j64V3Ad8E6w/54anYSugB6+6t905ntZK3T7fzp2Zem1LxB7YvqXd3Do/X/rx eu8teovi3eln6rckJuHGPkIXWLw0TzA1qK/iOti7Xnmk9bWsN/qB1rq4z82x lPeiLy24O19iwdgCK5e3O74bfotO9B1rLcA+//GlDZK/qdjb9AHDvxatpw/3 nf1NvOaGOdVm+vXlpjLvoMgMYtPPP9Ng8jNLHVznhIQEyQH083986ovYI5nZ Xaaj44iDC/jpp1/0+/fl+0pNmqWXtFq6D3VG/dE/+xtfVRu/r3go/A++8S1X rjv1CuR345d2P9efhmty1S7XZ1r7QcELosUEfunCBehrcD78J/BVYtte/0Jf MiDWuilGA8cDZ83tq1G9HV+O5kEqX1WsY6kntV4TR4HvI1O5XngLsUN6jEgd 96gGJyceP0W8OAhrAsbxsHDNGdiyzAVeBkb99i1dkstzzkU9+ZX0QCGGQP8v chrxFepctScQsVnmxf+Kf4WcZgy/oso8/kSauWJygyOXOB48XO8d90BiQwkH xa+OH5PrZZCTCf8dNrrK+T7xKfyTmns20dKtwX1gbafNsHv5otOzD5gb51O8 Pvf95bznXlwb1sWbxT6hLgA/G2uBrYkcmGrdC2LJ8P+jzXZOP9hA185scTCk 1KbRXrFad4BPdNjoOrN5U4HMd+19mdJjjJqMpN27TajFkpv//vdp5Bo++RRJ 1CxThxCoqRbfY6CiWHohRcsXVWzT/vI+iVfODJmDwdh8SGuJqMOkjof/591Z YBYuCDn5e6pfoqeiz/HsEHeGV2lcQvVHb38EL1Z/f0ZO8gHxqdCnxfsZPvF4 viA3P2FuzEf5IbyAa9CYgdaValxEYzfMWfmq2mR/cNUaKP69O8cLnoM+P9PS WTm35j/yPXd/0VmzW8K+j548z/WWDovOT98yvsu8NQaLzp6VGhCbCFvBXS+r GKHIZa+vxut7gx8GCo+YW35XF8677PFREa9Gvsy92caB4J7Do9kb5Ea6exvz 9xxLF590zT7Hfp0UjoPfeJPdb53/x1/dLHxfMSdY3++Gf89+cdt37Gv2iPQZ wJaaWGl+dGmDU0OG3MW3xet3O47JvuPaFS/KbbuA50mOFLFg1hs8UHfvas6F vBo7eZ95akOz6P3L782Uv2/7mP4+DTEpZhE1CSnJyeJfOt5ZNyjcBh3EvXh2 4N3evHcvf1Z9GRlQmtnpPDOqX6ovG990VuIh4aGan6R6sht3TGPMg8E20vp8 rz6PnIqXT8v8Vcfk+uLFsN2v4WXxaif4jOucNae5Fx6y5rRqDtdf3zkua8Y5 1G+j+f3EK8lB1N/Cz4lbEg9mfVWuqJ8eGbB0SZ1544UuhwfPndtzfvXHuXm+ 2jHeayDvAF63fn1exD3h2sF7Q99u9dRyazxY8Aot3om+/fsD7WbV6gInrwYM TnIR4PtgMESz+bgv6PHDPP4m3WOcg3v1k5G2HcBaw/sby7rN9Jl2vz7yn8+z 5MnypT09GNgj6Pj4vVQe2n01myLsIK2x4P6AG4qcmnNzmawH/tp//etfQ/34 ++RTL8K3BL5pZka6yc3KMN2hWgfrq78DPgLWzOw5IUeXw7fMswAvi8afB4sV AU/gmBOmVpoH16WJjU0eiruHan/H5OklgmvgfX/81FKz9dnSXud3+/oH289e cTaj1YhxfHgYOqgbc0BzjvSc2kdFP9/zxiHxf0TDydDeU94cXQY42eSLTpxW J3n47TV2X0pkBryamKb+Bj5Jf2OpjztxXI4XTfaBRUGOu7tvJr/RXqQvPtPV y47T+gqJ0VrXxmtyjKjr9fJ46oexKbzn1XPo9UaTT3y2/oE2s+W5FPP58WMi A/iubcc1yDVz/d+4wLZBte8E+xmfEzF0/DwqC6PtAe4L/cS+c6HdI/KnIyvM nj2pPs6zT18KQk/p7j5kCvPzTGZ6Wr9jCG7dkuf8w0PHpNYzfVfsPJ1oMoD6 BXC13T33oo3UXWCe1Vr6ep25a2FvHOL+jlg5Kl4/h/YM0B6NgzkXPB+MJ3jT g2vbRZfVujrFLYX3RcOPUH+Mvu+dH7xo1PimXvXP+Lk1T94rczR3GNwD4qIJ O7MkZqk5v/RYRI67e2HBB5kzvZxTXu99b09YfBsZSo8y77ncdg3rKX77cFyC eZKfybk/DdfScp/dcWUG9oJgVt/dKrlCxNqjnYP5EicmxuC2QbGhhl9u7xvp IfZUVzhPwq6Xpl6A+5uRcEjmd4E16AeGzHPLGmQHn3tjUIpBiF9q5FUVshbJ yUl+P3efvpREzYI7hhCsLo0aQ+CZYM97+Va0Xrh9yQByq7FH3HlNsUbZvk4z bEydGTmh2hxqGBhWtJvvRvtMa3+L0rod3j9YvZ8Bn6HOl1wTtWPI0wXHWX0I 6Lbx8CM0Hsv/D6xui8h9gZ/NmxeKkAt8F30W/ErvsZT/cz43zsaOVxLNJeMa I/za8FL6HmneLnHkaLlf3LuU5N0mJyOt12dZuw9IjPx26/rJreG84CfzHjjV du1WUHoc8H3WPjO5tpcMcPdLGH5Fo+RH6WfgJ6ptwbyxp/Btee2V9roqk5mW Z158tkt8P8iV3/0uZKZf1yw5C/o9rjX19QNOXhWv3XbUBwePiW9NfUPLl7Y5 GITEmFKS7N7uft6nT18Fwo798MMPI2II2Or/73P72YqWQ668JZafPpYMIMd1 IHTo4HFL5wqY9zoHrp97eS58jmdY8ZLIDzkZ3g/v0T6SfdUwcx7tkRntc8WZ OBB8S/RxfNPKq+Hn8Hp+Dx/VuIke03ss+KjbZtD7Bw9PfN2Okeo8WI/xU5rM peMaLJ66X/T2aPUbwapiM3pihZMfJP3kLR0cvii5O9acwF8l1pKddMCRRfha qL1yz4e5HGuP9AUxD46rvYTx29CXjXuo+QbR1lh7Gyg+A+uiOOrIkV3b9zt6 vdYEaB6r23/mrqXXmjU9B7IGv8/qFXZNxD8+OCD8P9+yp33y6atIxBCobUvb u0fkwdNP1EpM0euzoU/JJVfUmUWL6kxeem3EZ8m7E01nQ0XEe821pQOWAVBV dafU6C++O+jUNA8kRszzDX4CPgj4Yyy8pIEcD37h7UsQSw7pdzTeEGvu8NT5 t4fMfatsPzZzdcfHyZ25YEwkL/T2ned/8mL27uyxGbR27OOjLbYc2NEVoesj y+5a2OZgKax/IBLvAn6ampJk6soLbVkezpeE5yrOj8Z8wblw4+eLvWLJCK9P DpuT3in8j/6PPabf4TfYVPBuxQDU/B3knlvv5zPWZdqMJqnrzUlpN2vW5gjP /67gUNt4fKqzgBOkMWu3j5NjvtVCjugh01p51JEDrBs1K+CiMs/7VoekDxwy wK/79enrQBJT7jpkKioORPXZ3LMqZJ58uk2+436/paUl6vcHi5lIHcXGp6od DPwbb2oxTzzSGRdjA16Jzg8voV4oWhzRPeBBPPfkjYOXBx/gtzz78HHN+fT2 Voyl1yuOvFu/ZO7kaCq/Y44qIzIFT9buYaz+b+2zLjjTlwbNTTdHxm+8MgDd mXpjN89Vf96/P31bakm6Gmp64YIyiBXbvZAjzwG/pnek1gZz7e7rd+NAMBfy WwPh18wdPxC1tHxPr5X8osy0PY6M0nujfbaQA8gFe94nnPOq747PNQeWGrOb wnmf515s7w/Wy11XqLUuvI+tAj7TmpVtIrM0pk6/zsg8oDprvW2cpmGjGh28 63NHVJudO9/sdx8pn3zy6dQQPquWljZTUpBryizdDl8O+R3gpmkdlnvAS+AB ml8azZcAb9B+a+j18N3SDFu/1XoG+IwbA78/Ngjn4rgqo7SWSnme2hHwJf3/ e8ODETXc1ABQxwtv5jvF6d29+it4+8zH6sessuKDw80mJWm3yU7qlpwh93eQ O/jgqTMDn0hza9872Cy6L33qGdNnBqWHmb6+YXa9yUzueU0v46cft+PGXBf+ GPR65ITeB/yC4NLxHWrV4OP22oTMOb+qN/NuD5qfjbSPrcd1jzWryE3rOW9m Sr3UIq9dE7D0hDrrd01mw0OR9YaKC0idxj1L28zSxa3hmrlWB0uV+635n7db 60/MnLXQvOipMyrML8ZUSJ9Yn3zyaWiIOhzkAPEG9EowEbD70ePcmAruuiqv /0fzP+DBWvPVX1/QqRgar3XbIOSojApjBzFn5gRWxM9H2XaDt8+xXptbLoz/ dZP4LbznQ7ZwziOttSYtNVlqim+fH1nLwFogb8C/QB5V53eLHBgz0eL5mZmm KC9T/uJr4n8dPxgRMGnJ2c7rdQ8XmWnXFZmuusNOrpXOUeUAfWvufyBb3kOG rwr3x6F2GB5OLuvPRtVGnMc7khNyzK43cuX/13fkmRFXVsv/OZlpZvPT+RI3 RkdYsczON2J9iRHovsBOoIcMugR8n2teenebOdLYE2dHviIrOwIdst/o/bjb son8WLBPPg0tEcMmx4h4xb/+2O3wmf7q6FqPdSb5vsZRVf4w1GeD3aF+IPxN 9HGYZfElclmQb/Bj1WVVdsDLwBTS/EjeR2eN1ocaHoi+vXxFpZl0Ta3YFzfe 3CMr3NiXOk/WE5vi+adtvwzrRs0BPNsrX9yvZ90YNE88kRuBx+31WRGDvvLq 8h7/2JgGOVdWeoZ1/DonZ1WvizVhDjo0jwqZKD6gEbafRnCFtnWaBx+y5FVa tVm9st5M+Y1tm2A7fOMCGzPJXffF71hv6ua0ftvtS/vpyGqzcHGuNd99gp39 yisJfj2ATz6dJfTJH/8osWt8C/D0eP1e4CN87sVFOFMDPq89hsFmZb7IIvqU gBeEzrp0SUhwZNH/8VuThwhmAbk36OgcQ/MhuU7yZVQ+xMPXpk/oTy8LmoV3 F5jEHR2CoaY13YrlrD5+eDFxXdaL2gL6R1BHC+/n3NQ+uI/tzQ/bl19hXt1e HGGfePG8714UEkyp9F1d4ndfuTpH8pKJP99+Z7Gs0Y4X6qWnO7JRa6YbSrsd 7D2G3kf8O5p3xfvz5jXJek6YWmWGjaox254vEBvhgQeKzMsvJ0g/r29fWGue 27rb3Hxbkbn0qiqz5dlM8U9tejrbXDyuxjy5schU5tdb9kqG9AHI3ROSPgqv v77TjwX45NNZRMSZ8Q0pn43WKw28C/qvn2mfT7Shfh3hl+E+ofgbyMt8aG27 xeOOyOfgypGrg9+mJKNbZAP9xeB7xKx7Yr22fk2cE1+G6smsgV4v+fU7d9SY gpx0c8/ikMgY+LLq4d7BXOD7fH7rrSGRR3Yvx0jcH9WjC/b02FTkFM+ZW2p2 vdwStleOmHm3tZiXtgbN1s21pqWy25prk7no8krBvXh2S7rYdNqbDFuAOi+O Tc/5soIcU1teIDHklOQkGeVFuRFr6u1FrWuz9839Dn6R1gJIf/rhNhYTa5X6 ZrupL2kTTPEnH202nx7rlDrF2+bVid4/ekKlXOPwy5HFAZEh//znP4d62/vk k08uKijIN5+83eb4SPBjoxeCkXn+aBsnwIthcDYMxbJH1/32RTZfgp+pbo5f B3yyMRMaxb8dwact2wH7YMr0FsnFQV6gw6uezBoQ38X/cfU1LWbhXRVm+vW1 5pZbWgVbGRsjUHjYOnej1B0oDvOul+1eE6WZ3U4cmzXFxsCPAlYOOf96Dfj4 vdid4MnteiPTvPRcg7lsQoU1h4C5YGzAXDen2IydXGbJkIC574F0ybGUmpR9 +yRnKW1PsknYtdOsezjNOkaVfL53716TnZVpsjIzTHFRoXyf98HBqiorMNl7 Ssx1sysjauiYk9YVM/fHH7b7Vqjspf7ruU2dztzZKw+s6RDZSL236hPLV5Rb srdW6pY1V+jZLanmnXfeGeot75NPPrmIumfqnd38lf636IBglOkzjS9Dsb+0 pghdELxKL9bZmRjwa3TSxrIjgtlDrqJiwz0SztPnO6rjwquoF6MGl/4uo8Y3 2rmNU+y6J/o+oO/Cy7k28HtGXG73NLf7atk1UvA6egqg6+Pb4fiK2wyuKq81 zu6eLzLml2OaBHuBvKVgabd5ZmNnhAzg3OsfCJnv/arGkmm15oWX9ln3JtEU FxeZQCBg9u0rMznZ2dbrYkt2F8h9KystFRz02toaU1VVZb744ou4GAzEZKlh 4bfIk+vnVDm9VLVG3O3v+/2hJqlRofaR18R9p8/oqSNHTnBt190Qcni91uKN ntAkPWwuGFtrzh9VY4qzawWDyyeffDp7iBgduqGbX8XD8US/VUwxeCy9RIgJ 8vzDI92+5tM5NLcevgX/xgdDfBTfkPZU4DNyZtBz7dyZBhljLN5EzQC9a8Fp wFek/Ovci4OOn8buRWaPC8fWOrp6rDnBC7l++vbC64vTI3GKli+1saKRIz12 SZ3TQ4EcTXD5nt2SLfdk586dMvChZ1n6/KmMpyILEhNteyIQrmHz4pi01JZK 7XBKSor0dclM22saKhpE7kfD72DNWWvpjVl+xFpr2+/G2r24Lc9cM7PevPpa 0Sm7Bp988unUEDXIbgw8NwZPvIH/mjooYgpH2+tMdVHQbHq80dKPg2bZ0oZB 4RX1Z2B3KA9V/AWwWVcsa3NqBfC748NGJ8X38+ZLB+V3b77YJTg/6pf/3ogG id3+wpIf5Ekpj4eX0Zud78y/s0h0ZfzzYMfif1fd2T00T/Ue69p/OrJeMISY mzumy//PPtkpx8bO6pE39eY/h9cLJiF8mVxK+D99tTIyMuS904GxTP3h9u17 zB8OdYsMWH5Po/norRaTnLzbpKYkm7pArfPdrq4uU2rZJG91RO+nh36Qm3LI XDquSXxzF461bYfq/C7peVCc1WiGX1ERs0+4Tz75NDTEM4lPGb6mWD596fKd jdXCl0R+hPsuMAK11Wbnrjxz/U1V5rIJVebKXzfGzDfq70C/hjeDG42ej28d /E7FckCXxy5At1+4wOa7Wu9GLy58Nfj/yf/Hj8W12b3Rlf/SH71W/COKD85a gPf8xuvp0gudayX+CnYs16x4gRqPVZmYaPFs8HAUb3v5igrR+7GrmCt/8RXR l/GKSY0iE8ChveOOZpObfMha18qw/m/bAf/4xz/M7sRE+f90EHJl8zPJ1pzs /tr0u0T3L8jPj9rP8b//+78F87kwJz1C9mET/myk3c/s9nkhiRtoDXRFbqeZ MK3MtNWGxCZ4//33T8u1+OSTT4Ono0cOmwWLysz4q4N9xn/hk/DDvnwTzc1N Zu19RWb5ssHjWKtdgu4ufeMv7OnPyPv41OGx8JtvhPufoc+ik+KTh6/Bc8lj t/Hvg+b7I+zaAQb4E9+0vpOamiox09ysdImXIhOD9XWiJ7/99ttRrw9eVlJc KPKAegv60JF7g/4M/6dnNa/3JlWYnTsCTtxZcZuQW/ylL88bb+wxF19ZZ57a lOr4geDBBw7st3TyZHPkyJHTcdud62hqbDB7Ld5eXFRkPv7447jfRw4wR8U2 1Lxhcq6Qcewf8na5T4JF/UxA+gjzXeL3OVk+ZpxPPp2N1N39mUlLKzbdrbVR fR06mmv3CX52X4SMgIeNnVwlPgbin/H6ccI74JGKL8RrdPYdW/cLP/nxJcGo +KGaM4oO6v1s2eI2M3V6i/QwJ4eH49r9G+slZwV7gP6Ml03YJ36XkuIi4YkD 6WnOdZJnS/0dvntisnv27DEfWMfhWB3t7YIb1NVQ7vSQIaf/xP6g/K2vLLb5 fth24C+x4OzsbJOTk3NW9lfHP8V60RNB8UG4LsXJIC9XYwvlhQXmcmsP8D57 4JFH9vm4cT75dJaS6J77u0S3xc+Pzu+WB+h+fDaQWp8TJ/5sli6vNNu21AuP QFeHH1DPS+4IPhvFANIeVdqLHL+y9onndaxeAsgKxfuP5qdWXGj1zdPrFsz+ tavrzY8uqZHjb9+ef8rW0W0jIS/h7Qm7dkn+ZlZaqtm9O9GJ+YIFrfwfvw/+ pORk+3PiAocPHz5l8zqVVFNTI3MO1ZWZf4Z9aPB97LCR45rMsnBewVsddebx J/ZYtpxd73bHHUFz34OBoZ6+Tz751Aeh14r/u7jA/P39/eLvzs3OsGTE/kEd D7/Jewdbwj1nG01m4kGpp4VHe2MGgudwt12zpXVLn8WJUfSFYcE5FHcNWUCu /tIljdLfEb57un3U6L3o9DvDfh6J+4b/Cu+3ZAI+FujTTz+VGm74v9YBnK2k 8yd+8e9Pjzp4rb+7pVXkt/oVyRmgxpmc2//3+TuWXK+zrvOLoZ6+Tz751A9C FuTm2PmK/fEBxSLyEbEtYvW1dQ/t666vtS4hHo9XjOOI2IX1Wn1LWt+A/Nn8 eIe5blaNycvNMX/7299O4WrFp7pAwCTtTjCVlZWmurpa5MIHH3zQ63vE10tL SkxmZuZZnUdD3S82IXtj8+Y9EfeAWMuJjrcczOyEl/cLnhGfPbep0dw6v9zH D/LJp68ZkWc+akL8uHO0PpzayyRefj45QN8K9/bdtMHuGclvtJ/B9JnNkgPb Haq17JlME2zoOGt5EPLybJ1bNFK/lsaJpSePdS+oHaMvw+RrmqXPJPF7PnvF 0gPOu7TGdHa0D/XUffLJpzNIv3//CzNnblncmHOsnsvEE6Nh/DMUv/Pq3zRJ LhCxhrGTGiW+TQ5nc2CfSduTKrFWalV97LJTS9QuYwtoH1XF4bN7Ah00F41t kPpqbANkADoA9wnsucH2R/LJJ5++nAQPbq0rjykDvP1d3DECfPqx4sKKfzZr TotZd1/IFGUXm/z8fOH7+FSOHjni8/7TROQSJCTsMm+1HHXqINw9p3mP+r3l S3pqEUeOrzMrVmaYzIyMoZ6+Tz75dAYJPkw9bDRbQHvEx+Lz1HlFiyUgM+A7 /D5UV2W2bk11cnHePXFiqC/5K0/EjCpLix18bnCW3HWG3E9sOzc+Xf7eFjN5 eon4B33yyaevF7W2tJhAebHjP3bHdr19H70yQvuYabxAewjz+h8fHDB7U1Mk vzI9Lc18/vnnQ32pX3mi1pj8Meqqtcf9hCnNgo2n/J9YPJ+5ZTv3a9ioalNS UjfUl+CTTz4NAVF/W5iXJXVSyhfIGXLrirEG/mYbu26/4EeAI3G8o9M8vjFD +P/7v//9UF/e14bIW3r22RTJswJb+66FrdLbR3DwLrKxPWLhT216vN7cdGvp lyr+7ZNPPp06AqOCeK3yBHwJ/cUd3fxYZ7gPYpPwmV+MqbRkQGpc7GSfTj39 5S9/MT8dWWVmzy2QXjHevjrkAo28qjGqf49aAfKD6uu7hvoyfPLJpyEgYom5 OVnmo6MhJ/8zFs/H54MPaOR4W8dUjFB6Hz70cKbZ9PQeU1fn+xXONHEP33gj 20y7rsjMX5Bjpkyvkz46ir9936p2sdWoD492Xx9/FPlR5NsCPvn0NSV4CFic 8+4sMSuXt0pM0dvjnpgvNgJygF6R2t9e/Mp/edukJO/2Y4tDSBkZ6Wbjk6mC P3rBWLsGgNj9FZOa5N7h33vhmej+IL77/V/VmGNvD77+0CeffPry04LFQTNy XL3wdvg9/dvB9CHGiH3gxpMgBqy5h2CvJe3e7fuAhpBCoRYzc3aR9D/7+Ihd z41Pj/uo8d8fXNxgfj6qQWo8vDL+osurzdLlpUN9GT755NMQUqC2xhxtDzj8 gxwhetpTM+ztdY9eqXHGzPS9gmPp09DSyy+nWPeqOsLvT98G5ffE8R9c0y61 AmAEcg+1F+WEKUFz/qgqv37DJ5++xoQen5uV0ctXEK0HjeaDUmMAFmdtbW3f J/DptBI+vcnTy6VvmMZ7sd8+Dcf48QlR/8f/xH6Q4dQO33JLyHz+TpfIj9TU hqG+DJ988mmIiBxDasfcuaKxhtYRtAT2CU4NvV58Gnqqre0yb75WYALlRebu xeXmkQfre8ntiNyuxzvN2Il2P9D6kjZz4eVVfmzYJ5++xvT2sWPSk6svGUBM mLoj+n0hAxoagkM9dZ+M3TchI93uVT9+aqnZu7MnDqy907ANFAP2niUh6e+D jXDlr5skz8vHD/LJp683kSP0p3fa48oA/EP4lOnLlZycZLKysoZ62j6Fqays TPoJvPHGLnP97Hrz3DNVve7dkrvazX+F+w9rPQj+IWTArkQfS9Qnn77ORI8C cCT6IwOIByQl7RZbQHuw+DS0RE8B7Y8zekKFaa+Jjv+n9R1uHHFep+7x68V8 8unrTvSsxye0amWNeaejJydIe8LUFnRLPIDYgWDDJSSYQ4cODfW0fQoT94/7 snJ1hlm0qK5fdd/IBWTAp5/9fain75NPPg0xkWOCXzgxqVVwCC4YW2uGX277 DiZObTI/v6xB6oPpD1+RXyP40IGAnxt0ttEbO+vMNTPr+yUDXt+2X+qKufc+ +eSTT0rkjNYH3zYzZpWbi8fVmDlza8y0GfXmF2NsPJrbbg2JHZB8Fvfd/bpS W/sJ89CDsXtFuMfsOc2CN+STTz75FIvAqT969KjkgjLuXFRiho2qN6+9tlts AZ/OLiJPiNhATuZewZaOJwMuuTJoRk6oGuop++STT18i+vzz/2N27KjzsaLP YgoEAqawsNCy1XaaJEtO//PDQ734P70/senm3ZE/1NP1ySeffPLpNFAoFJL8 rcy0PRF1gNIjdEqjmT232DQ3NQ31NH3yySeffDpNdOjgQcF4dfcRpff8E4/X mLy8XHPC7/vpk08++fSVJnJGsQf+b9gn9IfuAyY7I9PsTkz0c4J88sknn77C BI9HBuzatVN6fsL3+T8pMUFwQnzyySeffPpq08cff2wKCgrM3r17JWeIvF4w hnzyySeffPp6EPZAcXGxSdi1yxQVFQ31dHzyySeffBokUQPwpz/9Kebnf/3r X6XHD30e8P1UVVWaXRbvL7RsgXfeeecMztQnn3zyyadTTTk5OSY1NTXivbzc XGvkCK/fk5osPh/+T05Kkhq/v/3tb0M0W5988sknn043HTlyxNTX15u0tDT5 /9///vdQT8knn3zyySeffPLJJ5988sknn3zyySeffPLJJ5988sknn3zyySef vpb0/wFLnFB6 "], {{0, 170}, {385, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{174.12499999999997`, Automatic}, ImageSizeRaw->{385, 170}, PlotRange->{{0, 385}, {0, 170}}]], "Input"]], "Text", CellChangeTimes->{ 3.559475219311449*^9, {3.559475266122919*^9, 3.5594752661229753`*^9}}, TextAlignment->Right], Cell[CellGroupData[{ Cell["Maximum Flows", "Subsection", CellChangeTimes->{{3.559473316541333*^9, 3.5594733318874598`*^9}}], Cell[TextData[{ "\[SmallCircle] FindMaximumFlow [", ButtonBox["ref", BaseStyle->"Link", ButtonData->"paclet:ref/FindMaximumFlow"], "]" }], "Subsubsection", CellChangeTimes->{{3.5594733381917*^9, 3.559473371344496*^9}}], Cell["\[SmallCircle] OptimumFlowData", "Subsubsection", CellChangeTimes->{{3.559473351502318*^9, 3.559473386324614*^9}}] }, Closed]], Cell["", "Subsection"], Cell[CellGroupData[{ Cell["Minimum Cost Flows", "Subsection", CellChangeTimes->{{3.5594733951911287`*^9, 3.5594733998195057`*^9}}], Cell[TextData[{ "\[SmallCircle] FindMinimumCostFlow [", ButtonBox["ref", BaseStyle->"Link", ButtonData->"paclet:ref/FindMinimumCostFlow"], "]" }], "Subsubsection", CellChangeTimes->{{3.5594734065232677`*^9, 3.55947343233856*^9}}], Cell["\[SmallCircle] OptimumFlowData", "Subsubsection", CellChangeTimes->{{3.559473351502318*^9, 3.559473386324614*^9}}] }, Closed]], Cell["", "Subsection"], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellChangeTimes->{{3.559473485593562*^9, 3.559473488018219*^9}}], Cell["\[SmallCircle] Transportation Problems", "Subsubsection", CellChangeTimes->{{3.559473491029467*^9, 3.5594734987574873`*^9}}], Cell["\[SmallCircle] Assignment Problems", "Subsubsection", CellChangeTimes->{{3.5594735017413177`*^9, 3.5594735063651037`*^9}}], Cell["\[SmallCircle] Optimization Problems", "Subsubsection", CellChangeTimes->{{3.559473558516259*^9, 3.5594735710329247`*^9}}] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ PanelBox[ GraphicsBox[{ {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], TagBox[ {RGBColor[0.85, 0.5, 0.5], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{0.9510565162951535, 0.30901699437494745`}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[ {RGBColor[0.85, 0.5, 0.5], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{0.5877852522924732, -0.8090169943749473}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[ {RGBColor[0.85, 0.5, 0.5], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[{-0.587785252292473, -0.8090169943749475}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[ {Hue[0.55, 0.7, 0.6], EdgeForm[Hue[0.55, 0.7, 0.6]], DiskBox[{-0.9510565162951536, 0.30901699437494723`}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[ {Hue[0.55, 0.7, 0.6], EdgeForm[Hue[0.55, 0.7, 0.6]], DiskBox[{-2.4492935982947064`*^-16, 1.}, 0.11755705045849461`]}, "DynamicName", BoxID -> "VertexID$5"]}, {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Hue[1, 1, 0.7], Opacity[1], AbsoluteDashing[{2, 2}], CapForm["Butt"], LineBox[{{0.9019894303059001, 0.15800403160865897`}, { 0.6368523382817267, -0.6580040316086591}}]}, {Hue[1, 1, 0.7], Opacity[1], AbsoluteDashing[{2, 2}], CapForm["Butt"], LineBox[{{0.822597217446374, 0.21568585064355866`}, {-0.4593259534436935, -0.7156858506435593}}]}, \ {Hue[0.55, 0.7, 0.4], LineBox[{{0.7922720905761016, 0.3090169943749471}, {-0.7922720905761014, 0.3090169943749469}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{0.822597217446374, 0.4023481381063355}, { 0.12845929884877938`, 0.9066688562686113}}]}, {Hue[1, 1, 0.7], Opacity[1], AbsoluteDashing[{2, 2}], CapForm["Butt"], LineBox[{{ 0.4290008265734213, -0.8090169943749473}, {-0.4290008265734211, \ -0.8090169943749476}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{ 0.45932595344369365`, -0.7156858506435589}, {-0.8225972174463738, 0.21568585064355847`}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{0.5387181663032196, -0.6580040316086591}, { 0.049067085989253384`, 0.8489870372337115}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{-0.6368523382817266, -0.6580040316086595}, \ {-0.9019894303058998, 0.15800403160865858`}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{-0.5387181663032194, -0.6580040316086595}, \ {-0.04906708598925377, 0.8489870372337115}}]}, {Hue[0.55, 0.7, 0.4], LineBox[{{-0.8225972174463738, 0.4023481381063354}, {-0.12845929884877977`, 0.9066688562686113}}]}}}, Background->Hue[0.15, 0.2, 0.85], FrameTicks->None, ImagePadding->3, ImageSize->{60, 60}], FrameMargins->2]], CellChangeTimes->{ 3.4955400393789873`*^9, {3.4955400886890182`*^9, 3.495540143395626*^9}, { 3.495540357473371*^9, 3.4955403708695097`*^9}, 3.495540421737155*^9, 3.495542446947692*^9, {3.49554257918784*^9, 3.49554264768053*^9}, 3.495542686454247*^9, {3.495544543583839*^9, 3.495544564736018*^9}, { 3.495544908515801*^9, 3.495544972211882*^9}, 3.4955450618703203`*^9, 3.495545413548705*^9, 3.4955456048713818`*^9, 3.4955468398163013`*^9, 3.495548342961187*^9, 3.495550256673864*^9, 3.495550327820999*^9, 3.495550521068549*^9, 3.495551011324471*^9, 3.495551152313281*^9, 3.495553000876917*^9, {3.495553047007546*^9, 3.495553098077756*^9}, 3.495553548792179*^9, {3.4955570419580727`*^9, 3.495557060014695*^9}, 3.495557529661482*^9, {3.495558041157292*^9, 3.495558071288486*^9}, 3.49555810389389*^9, 3.4955589567182198`*^9, {3.495559255008573*^9, 3.495559279655389*^9}, {3.4955594220526457`*^9, 3.495559430344759*^9}, 3.495559614628994*^9, {3.495560859809958*^9, 3.495560864826028*^9}, { 3.4955631428289623`*^9, 3.49556318518209*^9}, 3.495563719187069*^9, 3.49556384778574*^9, 3.4955653686053143`*^9, 3.495804370870487*^9, 3.5275180677795143`*^9, 3.5275181379190817`*^9, {3.527518505787027*^9, 3.527518511425797*^9}, 3.527520071542618*^9, {3.527599192238847*^9, 3.527599198603698*^9}, 3.5279366082677183`*^9}], " ", "Conclusion" }], "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.527527214495729*^9, 3.5275272216368933`*^9}, {3.52779015531417*^9, 3.527790161738079*^9}, {3.527790420650752*^9, 3.527790427516396*^9}, { 3.527860994763686*^9, 3.527860995069491*^9}, 3.559474306109398*^9, 3.5594749318433247`*^9}], Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsvQdYVee2NayC9F5EOohSBBGxgYgI9t57TDSWaDSWaGLsvffeNfbeG/aO ioIUEZGmoCKooIB09vjHXJD/nud/7vf95+bEkJx73ud52XuvvVhr7TXmHHPM ty3Hb8d2H16lUqVKE7T4p/vgSYE//jh4cg91fgiaPHHYt2p8M6u8ysb/lP8q IZqa7rc0NOwr+jr+UyqmPNDVHX5fV7d+RV/Hf0rFlEcGBnse6Ov7VfR1/Kf8 +YW+rxFubBx/R1MzoKKv5T/lzy8P9fVdw01MSh8aGLSp6Gv5T/nzC3HvG2Zi goeGht0r+lr+U/78QtxXhZmaCv5fV/S1/Kf8+YW4hzwyNhb8v6/oa/lP+XPL fQ2NaqEGBlmPDA1BHfhzRV/Pf8qfW+I1NQc9MDICNQAeWltvrujr+Xcr2d8M VHvu4WFd0dfx35XEKlUqJ+jqhjyg9guj/z9ydXkY5uVZuaKv69+t5P80oUWM jU3Hir6O/29J1tBo8kxfX/WoWjVEkAPCPOt8fFzPq3pFX9e/W8HKpRrvunQ6 FmVm1r6ir+UfS6q29t4ofX1E2Nggiv4fVr8+Ir3rBVb0df07FtXCec2Sarvl Rlta+lb0tUh5XrWqxxt9/QKJ+7E1aiBK3wBhjRvhiW/jWRV9bf+uJX/M6ONP TUyyYhzsPSv6WpJ0dPa9ou/fY96X5OKMKD09PPZpjKctg25X9LWFVa9uWdHX 8CUKVi13zujQvviJjk5KjKWla0VdR5y2dsOX+vrFL4j5XQsLvHZ1RZSuHiKb NEFcm5afo/18K6wf+Ja9/YhiE5O6FXX+L11Ui+avSXKuhSe6egnRJiY1KuIa 4vX0rr8g78fr6uKegz3SnZ0RSVuI8m+K+Dat8LSZ/4iKuK4rDg7LP1tZLauI c/9ZBXNnWeeNHZ35lPc7Rk/vaaq+fu0/8/xPtbW/SSD2SaxPif/D2m54z/gf yc9PAvyRQPyfBzW//Gdek5QLDg5r3ltbv4OFheGffe4/u2DRgplveZ+j1asi Xl//w1s9vYF/xnkfa2lZM99Ljxf8GfvDqfkjGjbAB2trSPt/TGBzJLZqgcSW QQWx/v4uf8Y1XbSzUTtvb7/lJa+B2Pf+M85Z0QXzZluWLJz7KY6/OUZLC4n0 w7e6uhtfaWvrf8nzUuOdiiX2z4T7if8l5v2xvj54b1ENt01MEdG0CZJbt0BS yyA8bx4w70tei5RLFmaa521tDsUI9tWrX/zS5/srFaxbdezD4G8QXbUqYol/ go4O3mhpRb/U1PwibQShxsY/RQnHs8axhhoZ4Wj16khizpdO379gZIxbnnXw krwk+Ce3afn6eTP/L8bFd+3tjC9YVT/30MoKpZaWBfT9Ol/qXH/FgiULu2Pd asTxnj9VUwdzAsRraiKV9pBUteq2eHX1P0yDXzE07BJha1sSQszFBqSeMjHB MWr/lEYN8YrbT7GetrHBC/J/Srs2iG/ig4QmvmP/qGv4x/LI1aXlVTub6JuW 1VFADoK5+b+15vvvCnWgPjate/X55wl4yNxLsH/MGkf8E9XUEFelyvvYKlWm xVSpYvKvnOeimVngDSOj7HhXF9yiv98h9leY8++lz5+g771pUB8JjAVHaA/7 uS2K9vDYvbbSH5Dq2/jVi86djP+o3/youoXxozoea2462KuuVLfAR3NzYl8t ldz/L/3Gv2vB6uW7sGk9klsEIbRSZSQQ/4cSD4j/sypV8LRyZTypVOllVOXK v0RUrvw/bpe/ZGDQ6aqBwacbxPKFhzvCnZxwmXnHZfr6cdYztrbIqO8teQgO EvuT3CbfXRYuMjNDKvVAaod2K//V3/nUxkYt0tV1UJh77fg7jo64YmONNzw+ BP9aNRf8q8f/uxYsXdQXm9ejePYM3Oe9eCy4E/97fH1K/GOIfxR3i2ANr1Qp /VHlyuseVq7sd79y5f/r9IVgHR2tS3p6M64ZGJSwgv6PF+7uiPOqiyvE+jr9 /Zq8mprgiZ0tQvj5MveTfS9LmyBrCjFKaeaHVy0DS161a9P69/y+OGsrtVgH +67Rrq4h4bVr414NR1x3tEe8iTFA7oGdXTE8PSq8LbSiChbMsVFtWJuD9auR 1r0brnBTtLo6Ion/Fb6G0wbo/3jMGsZ6j5/v6+niXqVK0XdpC7eqVOl/Q02t 3rWqVe0vampan9fRcbuoqzvksq7u46vEVzC+Rm15h/gnk/9TfBrjFrngOv37 Brff4Os9fned76XKvldZnwhf2NsjVfAPao5XzZu9TWvg7fHP/q746hYmcfZ2 3z51cX4QzVgS4eqKUGJ/x7kmIo0MoaJtgXYHV9dbX/L+/h2Kas3K+9iwBqr5 c/DQ3g4XxeeJ/QNifZBcEMzXh+U2cJv1lpkp7jNO3JL3/O46972uoZF7SVPz 02U93aI75PErzCmvEVsFV8GY214Q/1fM9cJ436/z+5v87raBPqKpwW5ol9mD 7H9bUwsJ5KJ4OzukNvfHq8AApb4OaJb6pmGDoP/T73hhZmqcXL1663gH+w1x Ls6psbXdEOPmiqhatRDmVAMP3F1xn9gXUXOiZk2AcQDu7v/rx5upli1eqdq0 Dli5DJkD+iGY+J/R0MBjYnuHdTPx3cF6ge+vEfOLxDOM/nOd769ym1L5/SXa isTtx44OCvZSxb9vamsjlBr7BfF44V0PCfW8cIPHv8nvQhmDY62tiL+2Yg+y /wPaRhJ1QaytDV4HEXfaALHHm+YBeOnTqDjR0+N0kkft6UnubiOTnWqMSXJy XJroUutcolONVwnE+Tkxf+7iDNoAntR0QgTrY+Y4t8n5OeQVkA9AO0dtt0K4 uzpX9P2v6KJaPG9A6cZ1KF2zHJg1HZEO9jhGGzhEPBnrcY11HfFdzs/7iPUZ 4v7IuRZuaWshmO8vc9tlxouL3OcK8YvhfQ8hrtfIEbf5+SqxPWNliWSP2njO /3vN/O4Csb5FnGPo408Zh+X97XKbecSYkUzffGhRDW/p92kBTVn98bKpH2KJ b2K9ukisTzvy8kRC3TpI8HRHgocbEnnORHJ8As8fX6smwmk/YcT+CfcXznqn owu4uQHOzmX+X9vtIdxc/9ePNVItnONVvGFNafH6VVDNm4Ws7l0VXHcRT6kh fH+ONrCK7w8R69P8fKMatSKxFFs4z22XiP8lNXVyuJ7ic5E1auAafVxw3q6n j73MtV7UcUcUeSO7axfsIb/vJebx0u9Hbgimjewj7mfFfvg5iRxygN+H1vHA h8BmSPVvgkjGj1hLSySRQxLreiKJx0t2d0M88X/B4yeIZqhZQ8E92NgId2nH sdz3Gq/1JY8FBweA3KO8kiPg5vK/Luf/7wrmzDQrXr86o4gcUDhhHErHjEIk Y/JxfrWRmO8mtsL7R4jzSdqB4C+vcb6NcZk+fpTv95IbjkkM0Cf+9MGnvL8h 1PJHiecq2sAu+uYLTw/c4rbcrp0RTNtZQkxiie9D5v3rif1WyQdoM/H0/Wji vI02sZF5QHQ9Tzxt6I1w2kyCtA95eyGZ/5dc2xXxtIGX5PJE/m80j32a59/H /7vv5IjnxDqY2MfwGpU8r1EDgPwBnhu0Jbg696joe/9XKPhlglrBwrnRBZvW ouCXn1DwVT9kD+yPOxLzia1gfZa7SRV/P8l6VPIB3kfR1if4fgPxX0Ds1hCH cBnLQ/+NZr3O7b/SBjZT/70kV5/jPi8Y02Ob+mIZcUogjreJ2yr+3xnuJ7pR 4nYI/XcNP2+VccH8vzDiKe3GL3jMN+TzFGKfQN9PoJ5/zf2eSo7J/93FY0a6 1sLzuh44wf99oKGJUn5fWqcOVLxWFXMKuBB7F+cC2kHNir73f5WS+/PEB2kj huH96JH42LABiif/jCfUTJIPXvrN51lPlb8K5seJZULLIFzk6ynus4L2spAY iNa+R62VwuNIbnCV27YRzyQe7wzt4Tpx+NSxLdYbGima4CKx3yg5Ivc7TP+V sQmn+X69jAcnt0fXLeMI6Tc6RY4/Slu6Ts0YR/zTuX8c8Y1mTnrXUB8x1PjR tV2wT/JIXlcBfV/ad1XMOwt5DCXuS/x3dU6CSy3tir7vf5VSuHxJxJuBA/B6 8DfEyQOfvvkK774binPk/ssS4wVv1mPlr4L/FuEDavrH9EXhg6Pcdx7xDZE2 Fr6mNW2Ce8TrluSQoul4XPH/HeTkwq4dcIR5oIz7Ok6fPcYqsWQXMRI+P8TP d4njs/peCGEsijU2xl3ivITn2MmcMYrnfG1uhhQeO0qX/k/sY40NEUudeZL5 4yVq0xzun0n7K6nvjULG/M+MJcz3y/B3cb5W0fe8IgtO7tRRHdnR77fP+cuX Jn6Y+osy9iZz+hR8+HEscmdMRQh98aDgXM4BR8qr2MAm1tkaVRHbvBn2ElfZ Z7vkgpLfE6dEcvtT4iv5wU1iKzrvHHFdQN/OaNEcjxmfnxOXE/zfG/x+K1+P ME4nMh94QB0XS54XjXmHvpxMu9hLLLfol/n4CzsbpX06TEsTCeamiDM1Rjiv 5bHoh2pmKKANveP1fCRPqHwa4R3tJI/5RLnuE//fXZH3v6ILTh+qjANb12Hb ylRsW2WUu3jhq4/Ufy+7d0aUvx+y5sxA1pRJSO7TE/u5u9TD5f6/T3Qh7+0B GUYgfu9CjFydsbpcH9y3sMAt4nmFmCX4+eKg4M/7L/4bTOyn0TZue7jjM/PA eNqKtDNeIG7TRD+Kjqc2i+b3kcTqCvkjWsaHkz926mgjiueJdLRHDI8huehT YppkY4nH/F8ZU/CSdvGRWkFFnfiRdlPSqCGymHMk87ryaBOFTk7Io32VONX4 l/sU/h0KNi57gSXTS3OWLShJX74UHxbNp8/VRCTj+nvyQfq4H3CW2n0Hd91Z bgcHy31/Hete1oVV1RHZxAcr6H+b+fkasRZMd9NGYuh7O40McYTvI6kJxC4O 8v1h0eOdOiCBudplft7B/9lDPo+kdohi/Igibxzj/hJTnvH/b5PjI2rVwH1i f4vHFls8xziSKrbA86bwfZqbM9JoP0W0nSLaXin5poDxKYHHSOL/fOK2D7Sl TGtrqFxd51T0vf8rFBz7VRfLZ+Zh9kTkzp+OtOWL8er74dRkuohq1xbvqQPv eNVV8F9LnNbwdXc57mIPv7JuEw4gZpeJ3Y9ySKU9oIryP8ep12/UdMI0vo+x tFDyO2krCJb+Jfr+I1MTnOVxz0t7o40VnpKvwxnvd3H7Fh7nkCY1pqEBnjGX D2E9IFwhekTah3ncWCMDvOM53jWujyTqgjxyRiFtp1BXD8XU/wXUDfnkDvA1 i3zwhvZRSptg/vfFxxb9ESW9U4cv3j5VsGDm8dKZE4CZP6Jw9s9Im/wTogP8 sb9yJTwlf54ntrvKsabTYLnQhuR8rHtYJQ7sJJ7h1Fmz6cebiJvkjWIns6jD Yup64kd+vkltJvgL3mfL2xHvUA+c5nvRmQ+JeQx9fhNj+hx+3sztx8n5ScIb tInV/N9z/J+b9PUU6oI4bntLHZg34is8t6qOLG7Pb9wQ+fT7Qvp5EXm/hNwB xpA0yTX5vtRNyf0E/3Vf+r7+EeWDfxONj61bBGV36vhNdtcuf3hbdd78ueNe T5tS9HpQP2A2bWDaOJRMHo20oV9Rn9tgvWAruV051r+yLmOV7auk+5B1R/l3 14jHKfrwVvF74XhW4YNrjNkr6IOnzUxxhfah5JHlNhDLbafJFSekz0na7KgR xsvx+d0cbg/h92HcNoufxQYjRfPzeKnkggzmBsU/M1/t1gZvaC851Iu55P48 fQNF/xXT10E7SJJ2ZsYdFXlCwV7yf1eXs3/0vfxSJcvPRzOzbauvsnp2C8/u 0+tBTq8eU3J6dGuY07Wzxu85XsmcGbpFc2a0z1k470LG4gVIW7IQCd98g8wh /YHp41jH0w7GAPMm4UnvzrjTwBuniK3YwNZyvl9fnv8tYZ3E+ltcCGY+Lrjv K28jEo2wjvrhBH3xMHn8BGP1jHJ7uUB+SbK2xEVyhHCJ9P0dpX1M4fulrNvp r0nkBOl3ms/PEdXKsE8ktmmBTVH803e02fFIpy54w9j+kfzzkef5TJ4ppn3k Sz8yOSNMXQ2lov0ZL1T/hf8r5gG6fzRWX7K8bx1k8b57l91ZfXrhU78+oC08 y+3fd2vptMnjsXBuXyya78/qyeqChfOcVPPn1FItnOeumjfHp3TRvO5F06f+ /GnSxP15K5YkZq9egQ9LFyF94Ty8XjAHydOn4vXAvgD9CVPHEvtf+P57xgRy wrIZyJn9Cx63bI5t9LOF5TFgTXkcWFHOCVvL+eFQOfdvK9cIy3j/z1EbyHif o8S/D7dNriR9h5WRZG+LfcRYtp2nHYjfzxX74vsoyfvL+x1vEPu4Wk6IZK6R 1r0DVFN+AH4ZicKR3yBKQxuvazjgvbsbXtIOshzscF/y0UoyXoE5IO0ul/mA YP8P+AN1Pf9y86H/mZLerXP7dz26PcukHXzs1xtZfXshd+hglEydBCxZUIoV SwuxfEm+atniAtWKpcWl1PXFK5aheNkSvOnSCVHt2yJ17Chq/Xl4L3pv3my8 mD8HCWNGoeD7b4Afh5dxwIo5ZTYgn+f+zM+zUTDpB9xr7I319NPZvL+L/8EO NpbnBSfIt5KbSWz4gVVygmP0S4n/B/h//cttRnLCGMaYY9QXA/j5MuP+ItGZ tJcb5O6r/CxjTu6LDvH0wKuBvfF5/i+KTaom0Pen/oD0IH884fnSqANeOTri JTXmHXKQ2N8N2uEb6thwGXNsalqe+7tKvx+KaQc5drb3SywstCoaz99T3nbr bPi2W5e173p2R2b/Pkjp1hXJbVsjo1cPFEwYD/o9sGoZ63KoWEtZS9asQsHI 4YinRrpFTRYa0AxP+vZG6uzpSJjyM+62bInUHp2I9zBgzLfkVmK+YaliCyXf DYBqMn1uyQxg+Wyopo5DRMdW2M3cexHvs3D6onJNcICa7Qx9bi3fj2KdKm0H 0j/jUlPJ80aWx44L3O8G8brl7YXxogfJDcIjVxizF/OYm6pqILqBF1716YrC VXOBzcsVffJxWD8UTxyBoh+/U/LH5xZmxN8NieSY2xbmSmwRjfmQx3tGbtkj Y1R4/mJXV7yXMUXMHUJpMyncr6Rq1WBYWNhWNJ6/t1x2dZnw1K8J3jEepA36 Bk/atsFDDw88a+qH90MG4fOkicibMRWfp01B9tTJyPh2MDK7d0Ek8b8ufS8+ jXGe8fQYddav6lVx1Z3+Qf2H0YOBUV8T75nAttUomjURCX518LZ3O2AKNcJi sYNZwPwpyPrua9wO8MUmYil8MEbiO+Ptb20EU8v9/YGtNXbxvs8v541dzOlX M7+73bgR1jKubOe2I8T8Cjn+TNsg5M6ZDGxdAWxfDaxfTL+fiJTOQcgaRY6a MR4f2gfiiZ6+ogte068jHO1wgMcT3SF9VtHMG6RdWbSKtEFF0wbieH5pjxRe KeQ+pbwGlbHRK5iafodaNf9WeuC3cszK6ocr1taIa+ZPLIbh3fixeNwiCJdp 51cMjXCHPqK0yVtZ4RFxTyNnpNMGZFswNdHDrl1wkn6xVXyOOjlLdKBw/ija T9+OjBvEec9mfJ47GdcttXHd1gDP2zdDrsIRjDkjaSc/jaBOmMVtQ3CFvHA0 wA8nmd9L+6DE8+nltiB+L/qhm+SPPNdwnvOStAW3a4mYDi2RM38qsIm8tYOY byL3bFmp+H3pjAmIb1YfKX06AIumQTW0D97UdcNdNXU8ok54ybwu2MhAaZ/a wWPeNTfFGeb8gv0V2tYb5hDJPN95fneV23JZi6gtimkvpdSJqKa0DT+Dl9cM NKxfR+Xk+LcaF3LSxmbsCRlrwxj7PCgQuVMmIWv2DESRD4KZ/56nH1ykPdzl fXrdtTNSOnVEaueOuGpthaOy7lrvnrjeMgireK/uN2lAniXXjxuGz7zf8XUd USKYHNyO3IVTcd5SB4cNKmO/mSbCA7yBAV2Bvp0ULgBxUrTCXMZpcsan8d/h xaC+iCK2oW0CEd6lLcJ7dkYI8830X8bgo/zPtjUoom8rMWfZbPr8KoVzilfM RcZI5vb+dRHuaIaYgPrA6vlQjR2C0q4tkWBvg3OVKuNpzZqIIrdIu+IyGbtG zr9BmzjD3/KKvzuf8SSSevC3fss04X3WAmpDFWMEpF/Q1hbFzA+z6Q8ptrbF 740Mw+HosBb16/VDg/oeaNjA4PfgwhxEJ09Lq2aejk4r1j65Wlp18tTUvoht nXN0XHyav/esjKOjHUT4+iCNXJA5ZyZi2rfDBd6Hq7TzV1064mWHtkhu1waJ bVrjBHnyV3LiWd/GuNKtC24186PuGwWMpw4YOwzRdkZ4Uq8mVOKLx3bjw4wf cchUA3vMtfGurT9UPRkTurZW9lXigvzvNOrHOZPKNMRSxpARX5fZxK4NwMZl Zb69dhF9ewWKFk5HZqsmgGjP6T8iY/gARAY2wF1iftNMAyHmWghzdwRoe/m0 JxVtsqQDOaOaOWTNuDhq+RPUijMl36A/RzIepEq8Z30rY8rKxyzJ+AVpm/qV dhHDV8E/l1pTxgbFUa9I+8Mt3j8Z45or4wSlr5AxEl51S+BdL5V2cB+NGh6E T+OVaOL7C5r6DYV/0/7w9+/N992Lajp1/ly16hDiPD9fT28/axht7x1rcq6u 7vqPmpr+2RoaX7TP+byt7THB+Rzj4jn+9nP8HbfJ+ckjvkPG5EmIJR8ktmyB hBaBSGrTEi9oA+dq1cQW3hPh5jXUyafbtgImjS6LAcQyOaAebhlVRkQDF5Ru XwOcOYgX44cjUfyxWxsUEDtV5xZAL3LzqgUomfkTQls3QVzvDvg8YQTzEurH AHIKczUF+xXzyrTcJmpS6su0ts1QKPbz3Vf8bi5jU2scr8p8wMYAt+yM8cDe nPneWLz9qgtSfdx5ztb4zPhzz9gQUQaGiKD/nqbfh1BbptD2M8vjvIxJPVOO u7QZ7yLms7ltHuvq8jbKUGrQJ+S/+zLvgP8vOcNzvoL8AcZHZbyA5IySN1BX wdNT7IGvdVBK+yiidsozN0MO7zl9G59pP3k8v/Q15+nrp/D99Bxtbbsvifk/ lotNm5qcNzGJu8DfIzWYVfpvjsmcKw93pPXri5fkguig5rjH3/SI8eAU47SM xdlEjpR4+YvkTcOoASaNUvB/26UFczc92hJ1tIc9CoQHZtGviUFBS1/kNvFC vn995LcPKOOA/VvxrE8nJcdfbKKJ4Bq8lwENofq6J7l9NVLGDceFOk44X68W Lloa4kNQY6B3R2DYgLL8YukcxNG2ThpXxZ3q+sge2BP5Y4biTDUNZIjN9WiD bJ73NuN5KK87lvc6lbaeamSEG/yd4uO/tUVIf6WMXZD+J2lTXsXX43yN5P+8 Zo4p+cFlaZOuVDaWXeY3hPG4ybSrD7Srz+TLEnKpivqqxNIS+byXmTzHK+6T yJpErF9TY33k8fJ5Lbm8DtZrn3V1+5AHdP4s3P+xnDA397tgaFgk2Afzus5K 26uFBaIYD1Lp/ymtWynxP5G53/1mTXGMHCG4L+J9WC1jePg+unu7srYf8sCn AdSKtoZ4Srxe+ddDQccglA7th1Lm4Pk+nij0rIkwRwscc3cgNu3waTH5/tcN uNC4DsarV8LjmlZAYGOU9mzP+D4H2Yzx6zQrYb1WJYRZGwPf9AI6t0TRoN5l 3LCAGpA6MKKGBV4Kb9AGLzEWnLHSQbbEiV7t8MbXS2ljDmee8Zj3/amRIQ6R v8dx2+ZyrSn5h/QXCPdLX2SwjD1jrMukDpYcUMYkHFfaISvjuox1p1084O+X 9otDrGckVyCf3Cwfqyz9jtf5P3eMTRBpY4MU+n4mz/+J9/i99FPo6IS+09L6 P85P+DMLte9CwV7GW1wlP0lu8KpDe7wg9i/I/4nNA/CCHBDHXOBR/z64SzvY QztYXK7XQwP9FP2Hfp2h6tUepT3a8n0X4tsWRW38ke9XD6rlzMm3rEYGNcA0 4ryIvozubXDW2w15uzcpucECI+YTdWuhlPygIsaY9iNweAfuMW5Im28ej1PA 4xYwBkSSE96MpgZctwRYOQ+5ohm+7YNLdibYZaSGs46myOe5BP/4BnVwjf6+ mnhs1yZWzF+nEsNt5dc/sxx30fsPiV06v0+pXh3Xif+58rbBfeX9TpIf3GC9 yyox5IiMR+L/HOexj3Hf0/TpW/T7Z0418N7NDfmMC5/5OZ2Yx3O/CF3d/FAd nVm3tbX/Mm1JJ0xM9C4YGcXfd3amxmtFzm+LROaECc2bIUHW2GnaBKGeHlhT tSwe7nSvjWDud6a+N1bwd1/ydAPWzKcG+E7RdypiXtLCB0Xk8eKm3iht4IaM +m4o2bcVOLEPR5rWxxDe08+dgnjcWljry7zgwjG879URRfVr43MjD6S1bIKP X9PXt6/FJ+qEUGvqbnLCg4buyOGx77vZY5eVET7RRtKDfFAo9keueD+wOx7W tsUJU3UUtGlK/KldG9XFEV7nDOJzntjK2ENpe5L+pp9ZRfs/kDlKxDOU3LCT Prz0t3EDxH0D38uYVZm3cJX1Zjn+t6V/iv93VXIGcuYb5gPZddzxiTrwvZ0d ZL2ySH4fIjpRxizq6YXf09ZuVNF4/3flqq1t/2f08Vf9+uA1fTz9q/7IHDYE H0cMw7shg3CvVQuc82mE4/XqYqeTEzbTvg819cW5ju0R2qtrWS5HjSZcDuZq YExXEcNXHjVwopoe7yf1tost4/02JS9Y5mKPCy52Cpd/Je2v475T2oqKqN0T ajvgTAN3PGtUB89HDwGO70NpF+q4IF9sMNGilmiOm652WKOrhsf8XEiNh/XM EZbMIheQZ5bOQj7zAoWHerbFMy83bCMOZ+nPO5jDSZvSLGlnlDZlPV1Ei+6X sYL0/7HcvpL1kvQnc9sS7jOTdiN5gMx1usjtoiUeElOJJW/p35nMKVJlHgPj /i3GCuFSGbskc5+UmMCYSux33tHR+V154Z9RGMeqntXSirxBu40MaIa4Th3w JDAAUU18EEc+eDNkMF6P/h6JI7/Ds+FDEfUtbYJ2com64PHIocDUccCE7xVN jvNHgL2bFU7PH/4VXhLjK+R14dpFFgb4LDayZxMOelOfdwjERBM9zKF9FJA3 QJ8/YKKDNbVskeHnjbX2FlCtWkj7mohb9d2xpHIl5o+tcNSxOi4bUXszFqQw H4iivZWumK/kFFgwTcktVQunoWjid4iq546zzNmkvU/yltPE9DFxeaCvhxu0 B8nzZc7KahlbxCptfjJGYSH9fg3fHxDOJ56R1HjPGRdiqAPDZOx4VQ3IWtT7 qZ0O8HjHWEU/yTyWi+VzU2/o6ZVSE4yvaHz/mXJaW/v7s+InwoUO9nhK3OP7 9ERY44a4TG17SHhQ+mroD1P5+ycwpk1nvRNAnbVgMjB5LDBxJPKnT4Dq+F7g 8inkrVmEFwO6o3TMEOW7h34NsNvVHpkbV6CQ+bxw+nnyQKydOTKdyQ9rl+Bu K3/8aKiF3DYBSv9uem1HpW/hzZY12KivicLW/rhsaYQcxoJP1PuL9NSU/qVD tIdM4R3m/bk/fIsU+n9u/86I8nTFXuIqY41O87dtIubf8/2sSmXj0yUflD6A k5Xo33IcyQGY6z+Qccj05zT6hMwleM57ECLajvZwT+Y7y3hiGWdCnA9K7sT9 g8uxvyLzk/X0sq/q6XWraFz/2XJcXd36rLZ29jnRs+VjeE8x7znJ+H+/WxeE d2qPm3U9cZA2v4LfL+Vvl3b5hy2aAYuml3EA/TSZPhlMrs/bthoIuYI31Omb HCywnz6dSo1WNOIbZI+idtvHWECckg3VkWpDzWWgjogOLYCd67HOxhyxvvWw y4B8709dv2Q2cO4w3s6dityARnhPW8nq2AKbtGV8lx7SeU5M+oEcMAdvBnRF TD0XZEue2K8jouu44Cp9/wSvdS7xn0jcJtIG9rEG8/0FYhlcPjc5nBg+J+Zx zN9C6OvS3rmWPC66RxmvTOxF29/j/4Xx9z/h8Z7xft0o9/3zYgOsF/X1318y MPjbPZ+KecwN8X+ZeyFV5nHJOK5fWOcxZ9rnVRf3GBcu29nggp0t9vL+PO7Y uiwXn069PucXxHdugV+rUDObaCNOcvx7V1EafBy7mzXCIGnfN6cuauKNgtZN kRHog1fUbym0lwvcvz6/vz56OIpGDUFMwzpIrl2DWtIXe2s6IH/bGiD4GIqZ A5a09MPH/t2gEs7ZuByJs35W8oRIe3MkOFujcPhAahDiTz36kPy/j/55kdov hDlYBG06gq/R1czxhNseGejjKn9rHHO0T9S0aR61mYc64Qpj+2n+xqPSF03f 3ynjD3kcGYcWUr72ibQVP5Pcnq/3uf0csT+nr//hjJ6eT0Vj+XvKaQ2NjTKf +5SaOk6KBmJdS/vewHzvMHPD87xvl60Ye60tcd7aCnt5j5J+GFrWFj93CvXX fDwmXvtNtXGQsX4r8/YIyeUkHlw8iVj7anipr440+uwL5nspxhq0m5+o35Yh 66fRuNStIybWsEPSfMbvrm0AaoDbNWyUHO1Zc1+opk1AieR9U3/E66EDsJUa cYapHjU989CqlZDFHDG5f1dcqees6AT064QDdZxB0Y2fyFkyJkXmmkqe94Cv V9SqlI0xlDEmgp+NNe7XcFDmH76j3s1hrlvYojlKWrdEKWtBUCA+c1uWT2Ok e3vhNXOhVy7OeMP78FbGo5qY5J4yMGhe0Tj+3nKyatXpJ3mPTsl8XOZCV4n1 DUd73OE9uUWfv8LPkj9vo26ewv360z4+/DRKyf3A3Asdg/CZuV6elzNKyMEq 1hJqdamlou/GDcdH6vgXZjq4p1kJe6nh0329FDyxYDqienfBm5GDkb12GfXj FKiaNkBa2yBqC+YGU35EKfkCjPk4uQ8ltLtwxoF9WpXxhPb0sV0A7vP88w2r 4gB5AN2p//t0II94Kn3K64n1Ohk/yOsW25YYJrpAxgwp85JF60kfNLdNqVKm /6TfcT/tQjS98twJ5vIRogHJFTKmOMG5FmL5Gk6ekHnjV2xt+1Y0hv9KOaOt NfM2bVmZR0mulxrRwBuPqQHDfRvjIes1fj5C/9gqc7qb+pS1/VFzYUA3Rc+D OIC5n8q/PvN5N6TXsMSzavoK3nfaBaLk/FGlHWBHC3/UEY1R0xbFjOlXB/ZF 1vdD0EOtMhbZ2wDEunRwP8R3aIVdzjXx1s0BpZ1bIc2/IR4M7o/Sk/uBXZug 6tEe+bStVzyXtE0uIeesszJCqeSFxP9Z88Zowu3fSG4n6xNQ50nbX1/iPU7G jcuYcqncfkVsQWIf7f8WY3oEc8Y4WXeQeL8gzsmurkiq7YYk5r+PGUdkfZpL 5brvnLb24orG718tJ9TVr0qMu0YbCKnnhbt16uAyOfEk86dD9HnJdbZTByxi zBzB/CdxcB/6poz/JPcf2gkc3Q1Q8yuf6bOFY4czbxyC0H5dscevPiZTv0/S 08L90dQFtIObxHtmdTOguQ96SVtsmxZ4N2IwnqhVgsrKGAXfD0Jyh5bKmlIv /BvhRgNPJZ/vLGNEatJGyPdFkneKLUj+993XyA9sjGT6f3EjT6V94QM5YYSM FWOVeUcTyn18A7ngMDWgrC0izxOJZYyPk7UK+Fvv0O9jLasr6wCdsbXBIWK9 S8abc79jMveYv/2ShiYuyVxE4k8bCKN2/l1jbP8q5WiVKnWPqqsXSbuXzNs5 Km2atrY4SC44Rd1/gj64j9p4fbkmPEJNVjb2U/h/BErI7dlTx1OjHVf8G3u3 4OOsSQhv6IEn9OVMarKcSWPwYtRQXOvRCZE/8v/OHkbuzg1Ap5YIadIAp10c kWWqCzTwwHarathoZozkr2hjY4ZhmzrjtEsNRHu6MLdi7s/jXmaOMN5YHxu9 XBE+qA9yF1E3SBvA/KkoGTUIJZID9O6APbp6Sjv/YS1NXGbef5P2e4Wv54jn AWrYLYx1a7lN5ibK2iQ3yAHSJ3iOVbatpl5YRty3y7pDxFyq6AXJ867o66su 6Oj87Z9DckRd/fBhxkZZt0PGQMm4bMmrZVzmj9w+lzFwB31kI31mHW0jj/m8 ovmZd0kfX0ZLXzykDotv7YfPW1Yr+RrOHMIn4nuO/i3je1Ywr99f1xVhPTrg 40/8vzmTUUSbUA0bSF3flxqhOcL8GmF6sya4SC0Y6uWOl+aGuNW5PT7RzzPI AcXMCUDcQxnXj9FW7ttbIKqmNR551MATaouk9s3xvJUfIsgNkf7eeN26CY6Z GyvjBQXLq6bGuCE6xsYKp4TbqNsOi38ztm+kPWwmzkfK5x5Ju+BNmZfOz0dl bRpZe0jwL19/Rtp46PuXKhq7f7UcVlfvKO07B4j7fnKj1LXSRsLfv5Sva8rH a4oOl7b70O4dgMXTy8b3zfwJBYN6IZF5fIyFPkJ0KuF2dUN8mDJeadfH6YNK TMjs3g4F7akPurRCKWPyM+J4g5og386c26nx1i0Ftq7FxgA/rGgRgLCfmNuN +Q6lvt5YZWGBR0FNgTYBUFEDoJU/Xjaog5MN62ILbWI991lf3x2369REhJ0Z QvWqIIb28DaA+rGRO2652Cu2LPPSZOypzBfaTR/fqKON1YxnO2QMEGP6HVlL lHEvgnngs3p1eY1uiHB0wCNqgAfkiTvkegV/GTPAKmsYBevo/K0130ENDesD auqp+4m16GGZOyPzdKTPbXN53+gKmVchbSesB3wbMM+bUzZeZxZzt+kTkSv9 NYy72d3bIK9fNxQL77ZrDkg/v/TxLpyuaHwVtcBF6nWZEyDt8K/J8+nUc19L 3u9kSw3xK5JGfouQxt54amWOz9R+qUO+wmEzQ8bkyniup45PXdog8dsByKEt 5bo54kSVsrnF13QqI0y3EiKp/WL9vLDHk7bgZoc05iCJtIEJmhpYSo23ir/l R9YZ/L27WIXrpJ13ITW/rF21V8b+ybqSjHWydpmsURZF24iW9aH4+oSfoxkX H9Mm7xgaZp/X1rapaAx/bzlgYqK1T139xj7eh/3kuEPSji1jZMiJwbVq4hLt /7yHO47QLzZTAwfTNxXspa1vDPP+wb2VPhbRWYruJ+eCflfoWA2ZloZIZE4e U9sJxVfOAFLvXcPzWZMVG8tnTPjQuTV+dauFW+1aICOQOcPk8ShYPAeh/D6Y uvBmz67Y7e+LDQ7UehYGWE2sJ5gZILVFE/Stbo6zHVuU5Z3E+LmpDhJsTHHT sxYm0gbG6KvhGHVgRt1aSPPxIN9bKHYi4z1k/oHMLd9EvE/JvBFygaxJd4O6 TuYdh/A+PKLeizA3Q5SlJZ4Q72c1auC5zCMl/hHW1giVcQGGhmn0/7/lMyB2 V6lS5YCW1sHj1D5nyH/Bsp4j7fsicT/P33mcn5fz9//EeyH6eTZ1cfYvo5nr DQdkfI7ke/I6pB+gtMmMh4o6sGhgD2QTl3Q/byR71MRjcnwisVadO1pmA3s2 Mwa0Ab7qjuwOQSii/6fbVsMDniNnNvXAyUN44uGMOSZGCBn6NSZZWSDEyQYZ Lg7IrVcbR6gxXnnXxi7qQIlFMbSLWFtTfGjsqRyzkJgHMwdcYlgVc6rp4Wlt B7z0csYzbxfsZsw/ylh/jL/lKPngCG3gqIz9khhP3G8wx5H2vUe8J3eI8THW vcR/N319L/XBTeY/wv/XyutVPb18ar8KeS7Ov1J2Va1ahdy3U/hvt6zdRv7b Xs71wvu/xXsZ4yF9MKsN9FAg4273biJH7wD2bSnr45OxG7s3l/W9ypi9Ob+U 5X/b1irfqXZthGrnOhQumQ0VuV3pH2bsBnN2jByEUsaDtz064mlzf0RaWuDz cuZwPwxHcetmSk6Its3xuoY10LgurrdvCX/qz+eN6qKYGJdS60XZmCGGOMdT byyzNsMWn7p4I2MDaZeJdZ1xjt9dpQ0k1LbHK69aWGlhjG8Zw4/Qrs/K+EXm AKdoB1doD1tp5zPV1LGY9+OgtA1KG5isM0Oc1/C71TI+Svrxdf5r/dFr0ter q9upovH8n5RdGhqau9TV9+2Ufs7yKnMq1sg8asb/9eX4Sz+4zMtapK+Ld9Mn lI3xkFgu43JF0x3dBRzfA5xi7n3qAMD7C+btMNZk1UKJXTUU+nqhhD6pcMTw r6BaTdtYsxilm1Yib8qPyFs2F3mi+/bvgIo5Q8GQAcinhnvtUB1vG3shR/qI rYxRTI5409IfN6Sv1kwfn+rXBrzd8M6dnGzKPIz4/2KggWn0+xl69GkvF2R8 3R1FX/dAoo8nwpwsEV3LCpF8lflH0h64TeYeyjgPWUvE1AQP69dDSMMGOFer FnbRNnZQ352UdQqZ58tapQeJ9SH6v4zl+A3/62VrUG+saEz/2bJTXd30VzW1 8zuIuVTp05JxfHMY++bzdV35ug0ry/XZakN9ZInfb1hc1re/mH7uXatsvPbF 42U2cGx32XvR+uRa1HGi7zZScnqIVm9UB/ChHQztj+LD3P/xHRTs3Ki06ch6 kU+rmyK/GfeXWL5xBSL7dkdHae8Z3A+jGtVXtAJqMf47WeOtlSlCLE0QYm2K JBc7pLvaI7maPp7Q5h6a6SLaXA+x5roINWIMp++H1TDHs/puSPSvr/QJPqvj gKPUD/OoAyX2/yprj8halbT9M/T1C4yDl7zqIjQoEE9atUCYTyOEODriDrG/ IXZCThDeV/CX9aqJ/1VDwzcXjIyMKhrb/79C7D12qKlFCu7bWGUc9yrivpRV fF/addYQf8FedNIGc1Nky5yLjfTP1QvK5ng2rUt/1AUczYAd5Pizh8rrYaXN RcZ0Sp++ogdFC1oaAQ3clXGaWfTZgl2MF2G3kUMeeK5bFYWCu+QJ1PGg7i88 cxifVi9R5oVlTR6HAdaWyKRP58sxOrVCQjUDdNbXRi9DbUQYayPBsXqZjckY Avr/ItrAXNrDJp53s40xztoa4y516E3W23amuONQDXcYO5aT81fyN8taxVv5 +xfJ2pQytlfGdAon8vNG6rsjdTxwr0Ug4rp0QnKbVoihbdy3spJxHcz/ytp/ rtIGLpmajqlofP9vhb+z93Y1tXfby7HfrFaW66wXDczPMpdH8qKV5W17Ox1s UShjqWROp1SZq9HQGXAwpr63A2paKGPrFb9fu1jpZ0VLX2XcFxqQm52IC3Uf mjVQxnSIbkthLlB07Rxw5wrjQX/qgKZ46VsPieTkT3WcUbpvG462CVTGcp1l zI+aMQkPdNSQwbj+yMutbHwJdUBmdSP8oq+JKO1KiG9cB8Xd2uKTjDelj5dU 18c2Yw1MYExYZqaNm6y3zXRwnfUK39+yMkS0iw1OVzfGUuZ7m2XNSdaVxHsp +f4YX2U9wVOsMg5iKz+vlbYfQ0OEOjiQQ+rhuV8TPPP1QVRdTzxgLnCLmuSq scnLC7a2fzkOIOba29TUVkm/5291Szn+m8pjvvRzLeTr8vL2vpON6kG1eRmw blHZXMoZ45lf1SDvk9dbNiZPNy/DXvK9hdPK7GPrauDySWAnOcFAHdCppIzT A+N8Tj1XvOZxU2kDpcEnlLkfBcwNzteyU9pxpQ0gqok3Mk8cVNbzKJ03Be8H 9kLWuJGAmR7Gkq9DqfXfMh6cadYYue5OiiaIIi/E8By7+LmQ2n8T40wmryuP +edNI/I08b5rroObjAdST1fTQbCjOZ662eGRszU26mopsU/WkpN2wR0yNojc LmO6D/N1D307WNr4ytcmvybtPbJelcQA+v9t5gT37Oxw38Eed6tXxxUH+0UV jfc/FvJ7APF+9BvuWwV7wV3a9mSdFhnDU7msPWQDXzeqV0WIjOXYubpsXuWe jdTxq+jT5PPurZXx3Urt26WM433qlLUBXT9bpgevnVHyABUxVHVvB9WmFfhM LfeR+VkhtXix+OjS2Sie/Qu2U8OdYB6H1k2pr9WQTX15ffxIpQ/oWd+uKJj4 gxIXjtH3W0o7EfENJjc8DmiM8XbVFU3xRrcyIngt/c318caNOTn14Cjqzgjq iIK2TRHDnPC2qRZuE/vgarrYaqmH7TYGuF/LElGutrhsZ44lVdSxkZgK9vtY ZZ1pWUv6LPE/RMwPC+7lY/mu/WMV3S99fzJXpkwD4IqRUcElb+8KH99L3zZi XUmsS7aW87to+vXl+Z2MZZW27EtGRmXPcWF95lIL+ZPGAAe3lI3R3be5zLel fUfy/EG9WHsr4+kR2JB8QB8001TmWeOC9PfsBW4Fo3TMUJR0a6OM2y7xrYsS mYvXyhclTevj83Tum/AEMZPHK2uCIagxzrnVwCEZ03n9HG5QC4RbmSntenlj hysYH7ezUPpt3zKP2BzgizhuW+zigGXM+4qo/d7TRlYw5k+lFpB5QzudrDCK vBDi6YT3QY3wtJY17jIWBFvoYau1AbZb6+OkvTEi6f+PXZjf21RTbEDmM+0m /pt5X7aznmKVebAX5D6Vj+e7Uo69rDkgbWTSHnCcecJV3scr8hwi0QHVqkUE e3lVyNxw2rH5hipVfqCGf76mHG/yvzJH4Qqv87G9vbIWdrpvY3wIDMC7wOZ4 1cQPb/v0QLHMsTtBHb9rHbUaNd+gnmXzdMcOKZvb2Z0ay5sxwIF6zo7V0RQw 1yobb12u/0oZA0p+Gav4OFr4KPFYxuBkUAOEUnMVMk8ovX8dF6jZSjxr4RFj v1zjsw5BytwQSE7X0IOaoSEKenSgJmQu4WqHLHL9e9rP+lYB+NVEF4ldW2NM lUp4wpyvVLQGNd0Gxom71BEyVmwGfT3YUB0PyP8PrY0R71kTL2ta4T41wCna wB4b6d+uhnDmg2EejjhY24X5YGVF84n/K2tJE+dTfD0v7fvSx/ObDZD3xd/P GRvjEO/pAdrAadrC1fJnUQkfBFtbb/kzcWcMc6eWXcZYnr6NXHZcxqgxj5Hn Gnzwrof8pk1QzHymgPlMTssWyCT2b318kNaiOT6RZ1UH6et7N5bpe2nfm0U/ XUO9v4d5/sFtZXNvZT0PsYORA4GB5IPO1GkN3crm3jPvK/11PYql7/c7fs98 W2J/TscgxDEXvKBGjPke0Q+QtWIe3lsZ4QW133V7SyUnyP1pdFkOQC0n+Bd7 u6KYNgAZD+wkz1s0wsdAH1xsG6T0ExQx9qy1r4ZH1JNvvh9MW/NVbOAaNX5R I3fc83bBNWrAR+byvCBNPObxcof1x3teVxRt4GZ1PZy1M8R9atRHThYIC2iA Yw0bKuuUCgccpL/ImB/hyLP/aAPSzy9zJQVnVplTJNjLOrTnaAuC/0Wp3Od8 jRpf9Fkxi6tU0VmuptZ9k6bm5cM8521bGyTWdkN2g/pvVX6+j9HcPwRBgQ9K ApuHFgQ0C/3s1yQy26dxYpafX+qH5s2Lcr4fgtIdjO2HtwK/0ue3rSyL9YL3 /i1lc25XzSvr45OxvTIveylz/+VzlPlWMjdP+UzfLz2wDSUTR9EmmL+3oK31 76K0tYURg5Dq9DVqwRyZp3X/GkqIcz7ztQz6szJGiLW4S2tkkw8eOtshnnn9 G3JFydzJ1IC9kUptKDaQJWPEaCubdKoghHE+kueRPoI4xqbttJvSIPIN/+8T /byYmiKSud4j8v5jC32co78frWGM19QxhdQL8YwJ9000cdNKn9qNuUVNc4R2 a4/jDepju4xplvYAYn+c+d1xGQdJDpUxsRfkWXQyzpu+v59+f7bc74P5+RS1 4AXagNjFRWqBYCOjonOOjm3/aNwP6OoaHDAw6HjdxmZtvIf7sU+NGmyAv99I BDRrhWZN3eDna6xq6vvfrhlQOP1nw5Kls7eUbl6mwh5ivnMN/Zd193rx49JS 4lpAPZc3/UcUzJiA0rk/Q7VwMjXd9LK6eFqZJlg4tUz3rZqP0sM7UTJiYFkO PnyA0heomjEROd/2QTL5/5ZRVYRJe1D4HZSMGQ6VcL20DbTyU+L7Z8kFDu7E emMdrDHURIy+OpKlvWjPFuLfE8NNGa89auIT9eNHGxOk28h6DUbI798djzWo CwZ0xwpywR7mdCWdWqJI4oyXM9J9PBBuqIEnlga46WSK0zbkc0t+blIbxUP7 4l1AIzy21MddMy3ctzMmF5jjVG1n7GVuf7WJD+InjkfC2B/w7OuBCG/VErfd XCXHV+ZIylz5E8T8CG3gJGsw7UBwF/zFFoQDRBueMzLKPFOz5h+qB6Mc7A1L Gje0Id7/9NoAqpN7DXDs1zk4sDkLu9eVYu+Gj3z/SHVkxybVqb29VBeOVMPB rXr5P/1gnxngP+1VQLPwp/5Nix80a4rQwGaIaNsaMd06In5AL7waOhAfRn2L IhnztXZhWbyQuR0yDkTaiKVfUOZ/TRunrOHwnlz99qdRUG1bh5LW/kCnFgpf F9BnI6jTsuZPxYvl87CeMeIBdVwoc4V4csTrpeSXwX2x2tESP9HPU5gv5tFm 0sknL8nruW2bIZGc/4Z5xtH6rljFYx31sKc9tUeRsw0+k+vjyAHPrAzwsKYZ +VEf9+z1cdtGi7mfKTLa+CGvexskeDrgQXVtPLAzwC17E2zS1cdNVxckdeqA dzOnIWvhPOQsXYTcJQvxccY0pAwZrMyNvk3M5Tk0p8kJ8mza8+X8f6VcB5xn PUsbIFe8OeXoWGHPClbdOqmuOrX7a9X+zWuJdy/VyX3/1Dzz/MAA7XcB/uPj fBq/CKnvjTvUEbe86uIi7fu8vh4uurngfrtWiPuqN/P04WXrAM6aUDYWSMYF /ThCqdnf9kXejnUo7tURkPG/1IIZzM9D6MPXmaPj6hncpd+eoy8/Zz52UFcN H6khrg/qg6yeHXCLfirzxrLIGY9Hfqtg/oo2kFbbEWnUCqnMFa4GNcRpYzXm elURR03/mfGksJEHMryckECtmlzDDM8tdRFvpYvn1rqItdJGtJk6njuZIc3P E6k+tRHhaIyHtvxd1oY4QZ18jjrqfj0vpE2ZhE8L5yJ7/mzkTP4ZJbOmo3Te bBT+8D3ede+G2IYNcNvaWhn3L2ODZO6HkgvKOjryzFK+UiO8PG5jU+9LY/2l ysfA5sOeNPH98JD6IpS+cb9xQ9ylprzh7YXDjJEyrnKDrg6iWvjj8w9DyrUi uf77b5A18XsUydxsX0+UMi6nODDfJIeHmGghLrARcDuY99wET6rp4bqTNfZR 12PRDBymPoxgPpdFO5B2qc/d2uISY8UWavsMNzuk8PUd88s31JWp5IIkI3Wk WFNXktNfUtt/Ym6Zz+O/pX+/drFEKvOVVEcTpBDnF6zJfJ9gb4hn1jrUA+ZI qmOHaMaJB1aaCG3ojpejR+NRo4a4VdMJz3r1QPai+Xg3ZjTS6QPF3bow5tHm pzE2cnvpnJnI/H4EYlu3wk1HR5yRNRRk/qfMAzIss4FTxsbpx62smlc0lr+3 FLYIrP3M1+ddtF8TRJL/Hvs0Rjht/7hGVWVOpcyvvEQdvEVNA8H1PVHyw7eK DeQN/4rann7//SCoVi/E2w7NEUVNdp+aMGPyWHzcuhb31Sspefo+K3mWL/Hf vh57qQfPif5nbnCI27K6tsP9gb2UtV4vu9rgNfP3t8zd3nVvi4zmjfDKxghp 3J7uWQPv6ztTL9ZGYacAqLrIfI26yGtaB3l+tfGpoQve1XPiPrWQUa8G3tSx xUvnakigTcQ5mVA36uNBNXU8oW1lrl6F9B/H4pnEP+bK6cT/Nfn/4y8/oUTW SFy+BKVrqZk3rCmr69egdOlCvB81EpHNA3CZvHBaW0fhhTPyPBpj45xjFhZd KhrL31s+BjUfF0f84+j7T/18ERPQFCE21sr6aY+calBPW+Fc9Wo4b22JX82M EdqiadmaoJJPUs8rYwMWTEOiuyPuEdPSM4fwqm9nPJG2+RrVsZv5+n1ZF+LA DmyzNcFOc13Gku/xhJz+lv4fxliyXVvGBekitbYd44gD7aI13jN/yyLXF/jX ZY7rg3eBDRHH+P+orgtuujH/dLTBfjsrbLa1wgkvD4S0CsLNurUR3rwJYoKa Iq5ZIzxvUJv+b4ZYFwtEUSfcN6dN9umIrF93Invdanykj6cNG4L0Yd/izXfD kM9tJds2o3TrRpRu2QiV1M3MlzdTS8vrRsa8+XPw5ttBeEgeOUffOEpOOKqr W3LUxGTpoerV/3ZjhkpatTR+FeifkUzck5o3Qzz1YSzjQUwtJzx2cVaew3LR sjrWa2kq8wV3a+kgoU83ZQ0+ZS0PqdR7nwZ2RyRzdGkzjiaPR7va4Tbxj2GV vtrS/duJsT7W6FfC+296KfOF0vt0RtR3XyGY214wRqdSs6cT/9yOAShp6YN0 v7q47+2ODXq62MxcfY+ZKc7QVg+Sr2UMw/LKVZQ5PaOY2x3t1RNnvLywhdd5 3MMDN5sFIKxjJ6Xv/149Tzxp6o0wJ2Pcpq09pUbM2b4NOcQ0f8sGFKxenv15 5rTo/FnTgkvXr9qjWrV8vWrVshVYs2IZ1q5Yi3Wrt2DD2oPkgqvYuPYxNq17 jbUri/KmT0ZS75644eam9CUxh4s9YG7+txo3IiWrZfNjr2WdiKBAJNetg0Tn msoY2acNvPGojjsOMQ5Iv+opE+ZUdrZKH8PTntR+shbvlLHKOhFZX/fE6zFD 8WZwb7x2skCh9BP7yjpZNfFC1vaaPE5p+0lxtFDW+8phzpBBO0gZNQgJepXw mhoijZyQW68WNYAnrtX3QNdKlbHG2xsrq6hji7TlmjIn69MTj376EYd4HTL2 fwe3S5//Quby14Z8i7N1PJSxDpuo3w9bWyGWvhrXrw8iGMfDhOeoWe+5VcOz vp2QM29meMnShUNUSxbYqxbO/b8+z/y3QpuojLWrDIm/K2sbrFo2GvPnHHk3 amTaw4BmyrjzPQaG+3cbGf9txo/mtW75yzven7SG9cnBrnhBLSjrBCV37ogE xsm4FgEI93BDuIM9ThoZlq2tQ1/Ml5xAckPmiGnk8vRZPyNRxopIG7Gfl9KX VORmj7cyn0jyROYISvVvgFzmkO+HfYVM5vypzNffutmisLEb7a8WelepjNWu bhimXhWzeZ6TtMedxHgK7W5PUz/c7NcbFzq2x0Ha4xKZwy39PGrq2EGOCB/5 Ha7I80pkDpi9HVIXzMFbxu+3c2fi1djRSB03FoVrVyc8q2OxJMJGs8MfdQ8x b5YZdWPnvMk/b37eo9urYDfXN78aGY3doq2t+Ued40uVgnZt+n8g70sfQkaH dnhPTktnfSPrhHaQdYOaMyY4I8azDn410MeGquq4bGWJs85OZfMEfx6NNGKc Qp/KlTm65FqlvZj5Wim5P1fahrxdofJyRjH5oIjv86n7M38YinfMH9Ko7Uub 1EG4mwPmEOPeknu418bi6hbKGnLHq5ljL/WW9COvpi1EjxiKNbVqIrRHN2W8 /1IdbWyVsVzkqBPUZDHUc9fIX5eJfwZz/Azmeu+XLEDmyqXM+RckUuP/U77+ ewsWzNHEzKkBbwd/veyWd71Zp62snG/Y2vxl15MtatemY3b7tsgh5jl9eyOb fPlxQD+879MLaV074SW1TqJ3PcQxRtwkP0j7+B3mUAc1tZAua7dNHo0U4v++ Wb2y8UHi++RwVQNiX88FRS2bKOP6ZDx3Mf27wN0BhcznP/04Au+4b2EDV9x0 dcBM8rw8T0LGqqx0tMdu6g+Z13GQMV3WdJWcdK6xEV5OGIcNsk4BryuiXRvs rVwJG5mT7TUlV0g/Dm0lRtY1Y+x60b8fPjKMZy1egI/LFqFo5rTBf+a9xbgf 9JKCAm2u13Sq8mee939SSjq271hIPi1gzaP/pzg6IJkaML1VC7xnDEijLnzJ 988Dm+GJvx8ee3rggRsxY55wmfqwcMoYvO3cgr5OH/f3RjZ14Ct3Ozx1Msc9 ar7is0fwMqgRMl2tUUoOKKjjpKzjlT12GHKo8dKaeGG0hha+lzXAZbyijOW3 qIYL1G4yV+Uw+eZeUAAu8nzL5ZkxzNOvtWqp2Mk92mooeekOv3vaMhDPW7dA ODWMjOl+wuuNre+ND7/8jJyVy5C7dGFO6ZSf/zZx+c8qpZ069i7u1AHFxLqg bSs8p79FUlenMv/7SM30nnaRwnubxDjwnLYgz4QKZzyQdcVlbJGSE0o/0Vfd UDpuGJJq2yKWeVeUnSEi3e2BG8G0GTvcs9FFkoslPteticIgH5SOHoSnzPd3 2ttiCTlF5iPs1tbCXo2q2M9YHspzHZVnTstaXeTyiO5dlbn8jzp3QhJtQNqQ 7pLns8b+gIgajngV4I+0Nq2Qwd/yhvYaw23yDMlUbvu8dAnylyyMUU3+Wa2i 7/dfrag6dxxBG0Bpty7IDwxAAvF/zTib26g+0snzz+lPae1akwOCmCP647m3 F57w+2BzM8yXZ/1YVSt7ZsCEEUo+8IH5eiLxf2Kpi7jWfsCFE3jiYIioGqZ4 am+MFPJCfjNvpV1fmb/H/HIrq8xJ2CFruri7KWv4RxF/mYcdrF4WF64wRoXy O+GezBnTcMHWFtnko3xed3qf3njF/C+b8SC7XVvk8vfkd+uK99SLL7088f7r r1C0bMnNir7Xf8Wi6txpkapLZ6BnN+QyB0hj7M3xbYQCcudDfT3cYn1D/39N bkihjyVSm8lz28OYH96lbVykJsgSjT9uqLJmSMFX1PS1LBBlqI6X1AfFB3bi qZUmntEmkhzN8NrDHrnN6mKXmZHy7Kj1sgY94/nS8jH8h+p5yRwcPKbvhsq4 XJnLQJ23hRyRNGQQ7hsZ4dOkn/CJuBe2lHFhrVFI7ZLVvh3y27ZBIWN/Uc8e ymtx/74o6NUdmbLOy7gxwRV9r/+KBV07H1PxXqJvL+S1aYmPPo1QwlwggTE4 hNo6kvi8Ji+kdWiDN0188ILYxzXxRTTfP2rcANc93fG0Hfl/wnBl/qBqzBBk 1HNEmHYlZMyYiM+rFuC5lTbia5jhJTVAXoAXLtWwVrS9tOOsI8aXyDMyR0nW Z14i67qTY8KsrZXnB98VXqCm2yLPdSCOSS0CFU7HuDEoog5QYldX8teAvsjn +w/CWeSIp4wZH6j/VEsXo2T+HJRM/eV6Rd/rv1pBjy4arM/E91XffIVPvL8l 5Ex5llqymwveM+ZLbvCePvZWKjXZS+lLb9oEMb7UAY28cceL+ot4lcpzWaSP YOJIfGpeH/eqVkL2tnXI/nkk4i21kcjY/75xbcQ1clPm6ywknrLW9Hpyf4hH beVZYTJ+fRa3XyGvxzo6IoFcE1m5Cu4zxw+nDojQ0kLm0G+RTI4omTAepfT5 UuoB0NezyAWfJk1ENrkkRUtbWRf+DfkAa1ehdMVSaccPV02f8pfNwyqiEPta 6NG1EF8PQB7z6Tziij498ZlaK7tLR2R3ao8sxv535P4Mxv806sEXyhrCvohp 0ggRjevjQf26uOnkhA8DupeNG6AOyG/njwcGlVB0/AA+9mmPRGrBVO+a+BDY AGt1dZQ5iDJGWdZv2CBrtxFP0XbrZNy+tDXSJpJ4LS/kOZ/EXdZkfE4beMH/ yaBdZHTtjGxyO/oy7nRlHKANRDIuxFObFs+arjz/87WsC9+gPlTLF0O1jHXJ wpeYMfVv+YyfL1WI/dfo3wcl3wzEZ+b36Neb8bsvPnXugE/E/mPHdoyrbZDZ plViZovmJ7Ka+i3K8PMdk97Ud3RGk0Zzkho3OPu4vlf2TeKX2L0j/X+wEgOK WjVRxmLiyG5k+9VBkrstPrZohPOO1orm21M+V0103hlZs8+nsbI286+y3rbM 0WROH0lOSJPjyvru3Cbr7cu6+2+5n/BTVq+ewNcDge7dkM2YFCvPe9TRRcYA cv7okSihHWU42KN4tjyrSsE/D1MmOVT0Pf8rFfTudUw1ZDDyu5BD+/VFIXVy JrHPKsM/Jqdd67mfWwX65AUF/B/HJuX6Nqr1PKDZg1Dm6FBiwCDkMa+PkfHC Kxcjs44jUn09kNikrjIPbXP5s19lDd6rfP+EfpvQrKnyzK478px4Zc4+X4l7 KvFPoR/HE/9UWced2z6wZtMOcgKaoXgQz0e9L893LjE0RKapKVJ4vNzJk4AO 7VGio4Pi76hLyP9YuhCYPqXln3l//8qFes8E337zoYTcrxrYH0WDv8EH6qgP XToGf+jcseOnju3+6bbr0lYttJ4FNnuRK3OCR36NnHq1kNi3o/IcubfetfC6 VSOcMzVS2nNkLSJZg0fWaA/l+2fE6AXjyiXG/khZx1nWbCe+YfwcyxzzpbFx TrKmZswbbe2QDG3thx+1teM/a2p+LmSuWMSYBWoSlTzDS57xaGaGEtpCjrMz SpYsVJ7TgiaMaXNnKRyAOTMnfMl7+ncqGDJoOIYzXlNPFZMDPnTtdOND5w6/ e82rwsDmljlf9yrGkD746FkDaUP6KnMF0pp7I7KemzI/RNZlkXV5lbX2WaNZ E4hzKjG8K+uzEftYWYOXvh6rpZX9RENj+jMNDfvEqlX/3zb791Wran3S0KiR r6bWtdjKaq3Kxua5ij4v2CvPcSuvqh7UI9QCqFWTceIrYLGsITbn2B9z9/7e BUMGG2H40JcYMQyqYUNef+zS6dvMDm3/ZW2M8UPPon9nZDZwReagXshv5YuU oEYIqeWE09TxZ8ufsxDGGkXcE1lTaA9v6KeRerrKM/qS5VntWlrhserqnv/M Ocn72ipj43bE/ygsLPJhaQm+AnZ2im1jGG2cuhDMF2gDKZj8c4U8l+evVOj3 8zCScXHkdxElgwY6/WHHnTJqWml36kX/esjh66dWPnjm3wAPXVyU5yzJOtuP WcMkxou/s2bwc0bNmohn/H5Fv3+ppXXluZqa8e86v4mJB6ystsDaOq/8mY6M QSMBiRPSxjVjmgqzZvj/Ub/371joE074foSK+F/Hd0PN/9BjTxvVoqhTEPP/ BkoO+KpZfTz0aYBob2/cIf6hxF3WaJZ11i/Tz2V97Q98n2ljrTy/K01T826i mpr+v3wdZmaeqF79qGIDjRsB3w0rw59xjjaw7I/4rX/XQuzPYOSIc7SDP5wH MXG4UUE7f1Vus3rIa+2LeL+GyrMmnvo1xmP6usT4cNZoeY4WdV8K/f0D33+i dsswNEh+ra5u9Ydej6lpJ8aCp2jdEhj0NdCnN3OUkc/w/7R3Lj1NRFEcN2Ar j4E+aCkFF240YYFBLFVB6AvoA0pb+qIPMAg7E6kLXZmw0a9g3LnSjd+BtdGI uiAmQowaMUgp0JlOaaftHM8dAitXajvFmV9yM5lu5jT/e+49594zc5fvVLUG oF7B+d6F+j+BRKIq/78cdp9lHWaOsQxA1jkMn11j8NFmEfQnOfxb1HuT6I9+ T+J+jOXhAH+jKaqYVipvVsMm7ANqnBOeCv4/lzxqkaDk8kBI3VVi37fD0mLV 1kC5gEPJ2EylLM7/Oy4rfPF6hLZht8AGOVcDNd8iV4qCXWwM5m05bLRC8bBa Nh0Dly6GIBHbE/SPRyS3FwD3lqu+9g2hiWbaZqqQ+C89OcZ993lhK+ATzhv+ ijqTczq30ee3MHfPYWOx5VtaXjENDTUZj8E/PQrx2IGQD8Yinlo8U0pA2NO6 b70KezZTueC0pLb907AdCsCPGbyi1rvYBzLo97RGA3mM9w9VKo5VKK7V1MZg wAZzCRaSsTWY8ddtXdZphI+629Nk7nffWK/Yhxoz01PFdDgIO5h/ZbQaoMk5 yRjn5zHeO9RqoUBRonxnD+bnJiAZB5wPkmI8/3+Fj7p0P1H/gnc4Re4Z5/gb UkeawTGAxPgs+nye6K7XQ7GjI1NSKHrEshWi2DHnk2uQiP91vilzRDni7k87 Bou8b1jYLypaRx7sz0Zgn9QW6XRwiOO+oD3m5SWKWhHbXliYn8W54BaOA3Jd wD+AC7km6cmh1ZN7s6k3Gw0XsqS24MjngTMYoNTZma4olToxbT0GFhf6YOl2 3ZzdfJopBW39Jf/oyRmJ3OW+RmbG/45G/QuGTuCwD5SMRqio1Y/EtFOmdrBT 7mdE/2JXF5TQ98sGAw1NTXIdvkRgPe4UE/ADh35fxj5Q0Wqfi22TTO3IWUfs rM8LZTLuo/5AUXaxbZKpHfnBgfN5t4su9/QAr9O9B6VSknsvUiV/3dzKOie+ VVB/UKsfi22PTG1hnOPncs7xT3x3N4BKdWq/lSPzZ2QtlgbGYV/njcYytLdf ENsemdrD2KwfeL1+k6co+f1bCUKPjrwGjfql2HbIiANjNq3ybW33xbZDRhxo 8+ALvrlZzvslCj1wZaWiUMhrvhIl29vrqZw5U/ffQpOpDjldh/ze9W/4BR4p 85k= "], {{0, 128}, {128, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{86.91562500000038, Automatic}, ImageSizeRaw->{128, 128}, PlotRange->{{0, 128}, {0, 128}}]], "Input"]], "Text", CellChangeTimes->{{3.559475349170154*^9, 3.559475362957238*^9}, { 3.5594756069635773`*^9, 3.559475606963697*^9}}, TextAlignment->Right], Cell[CellGroupData[{ Cell[TextData[{ "What\[CloseCurlyQuote]s new in ", StyleBox["Mathematica", FontSlant->"Italic"], " 9?" }], "Subsection", CellChangeTimes->{{3.559459937860168*^9, 3.559459944801106*^9}}], Cell["\[SmallCircle] Enhanced Functionality", "Subsubsection", CellChangeTimes->{{3.55945995701042*^9, 3.5594599677759933`*^9}, { 3.5594600132366667`*^9, 3.5594600135089903`*^9}}], Cell["\[SmallCircle] Social Network Analysis", "Subsubsection", CellChangeTimes->{{3.559459976414979*^9, 3.559460018780898*^9}}], Cell["\[SmallCircle] Network Flows", "Subsubsection", CellChangeTimes->{{3.559460021828281*^9, 3.5594600270361223`*^9}}] }, Closed]], Cell["", "Subsection"], Cell[CellGroupData[{ Cell["Future", "Subsection", CellChangeTimes->{{3.559458744067667*^9, 3.5594587509633713`*^9}}], Cell["\<\ \[SmallCircle] More, better and faster features\ \>", "Subsubsection", CellChangeTimes->{{3.5594600678845673`*^9, 3.559460076313113*^9}}], Cell["\[SmallCircle] Graph Editor", "Subsubsection", CellChangeTimes->{{3.559459429482196*^9, 3.559459433880828*^9}}], Cell["\<\ \[SmallCircle] Enhanced Graph Visualization for Large Graphs \ \>", "Subsubsection", CellChangeTimes->{{3.559459439720324*^9, 3.5594594810697327`*^9}}] }, Closed]], Cell["", "Subsection"], Cell[CellGroupData[{ Cell["\<\ Conference Talks on Graphs & Networks\ \>", "Subsection", CellChangeTimes->{{3.5594587607141247`*^9, 3.5594587708180532`*^9}}], Cell["\<\ \[SmallCircle] Social Network Analysis \[LongDash] Wednesday @ 11:30am\ \>", "Subsubsection", CellChangeTimes->{{3.5594587783858223`*^9, 3.559458842181182*^9}, { 3.55945988553092*^9, 3.559459885749034*^9}}], Cell["\<\ \[SmallCircle] Graph Visualization \[LongDash] Thursday @ 1:30pm \ \>", "Subsubsection", CellChangeTimes->{{3.559458803471839*^9, 3.559458884395071*^9}, { 3.559459888844906*^9, 3.559459889468502*^9}}], Cell["\<\ \[SmallCircle] Hands\[Dash]On Workshop: Graphs and Networks \[LongDash] \ Thursday @ 12:30pm\ \>", "Subsubsection", CellChangeTimes->{{3.5594588962030697`*^9, 3.5594588975296097`*^9}, { 3.559458974856525*^9, 3.559459019706101*^9}, {3.559459409820119*^9, 3.559459413473797*^9}, {3.559459891772849*^9, 3.559459892292753*^9}}], Cell[TextData[{ "\[SmallCircle] Using ", StyleBox["Mathematica", FontSlant->"Italic"], " for Graph Analysis in Genomics Research of Biological Regulatory Network \ \[LongDash] Friday @ 9:30am" }], "Subsubsection", CellChangeTimes->{{3.559459028761614*^9, 3.5594591028534*^9}, { 3.5594591989041023`*^9, 3.5594591995357323`*^9}, {3.55945989496474*^9, 3.559459896444417*^9}}], Cell["\<\ \[SmallCircle] Attacking NP\[Dash]Hard Graph Problems \[LongDash] Friday @ \ 1:00pm\ \>", "Subsubsection", CellChangeTimes->{{3.559459276829158*^9, 3.559459320384033*^9}, { 3.559459898555963*^9, 3.559459900124031*^9}}], Cell["\<\ \[SmallCircle] Network Flows, Planning and Scheduling \[LongDash] Friday @ \ 12:30pm\ \>", "Subsubsection", CellChangeTimes->{{3.5594591153416157`*^9, 3.5594591870883713`*^9}, { 3.55945990176429*^9, 3.559459901924004*^9}}] }, Closed]] }, Open ]] }, Open ]] }, AutoGeneratedPackage->None, ScreenStyleEnvironment->"SlideShow", WindowSize->{1280, 1144}, WindowMargins->{{295, Automatic}, {-56, Automatic}}, WindowTitle->"Graphs and Networks 2.0", PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowSelection->True, CellContext->Notebook, Magnification:>FEPrivate`If[ FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited], FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 14, \ 2012)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Condensed"], MenuSortingValue -> None], Cell[ StyleData[All, "SlideShow"], DockedCells -> { FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"], Cell[ BoxData[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzt3U9oXGe65/HAgEBSIVllV1UQjkEkyGAnYNyy2w43ThzjONyOO3YTbDqI 65tO0rG5gY7s0Ol0B4duQRbugAlO2pmFMY17Ydkh2Wnh3cVcr41hGBjMLGYx i6rFLGYxi4FhHp9H53mf854/daokOXL0/dxqR64657zv+5z36EL9/J4z85vf /eo3/+mpp556W/73r6NPPfXo5w4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAACwubWdNTlI4QErPvoRaU9aA/KjGGLHsm74o5VVyW9W XcaKLesfZIgW64xiuJ7U7OQQRys8lfkj5Hu73kNrZz2GHddEu7a12rHvvuva 7fUzULsbsP8AAAAAAAAAgDV39OjR559/XtMH//7BRP79vXv3yi47ZmbsW2LZ fX5+/pNPPjl79qzssm3btmgvbaLiK2U52tFy2g05QuGnsm++RX9Y62o0Ovmo OnPRkRYe2TvdbN4Y/HWx2dy6dascfOgd29mobue2be9NTfktrzab8o68H9Vn f/aA+aP5w150W8qOcijdUv70DVUcJH+c0+440WY6iqvZHhaOorD+hcWpQ7aX 41zKFlCOdmTr1joHlE+lOOdzJ0veiXouf17NblBxfNn3Ro26VfTquV27jpx6 61f/dk5e8sPufXNlZYx2FHOvHv7FO2d035+9fGh6+/bqfaUt2UWaqF//3Qd+ Lrvkr1B9f+6Vl6Xdvi/ZzC7k4XbURh/tWLmvDNAqUPjbRnev2boczVqPSlen ejpSf5DC8ygb/NPxN/Qk/vOZf5F2bb7l9+pbAf8a6EQDAAAAAAAAADaUdrt9 9+7da9euRSGFvv/w4UNN3/z7i4uL8r5sL+/Lp/pXcf/+ff3h1q1bzz//vA+S 5M1PPvmkIgc5evTow3JyQNlXjlC2gfRBepKPzLRv8/Pz2rT/6Pbt2/KR9FM+ KovGtALNylBG3j/fbD4Y/HWj2dyyZUtz2B19t3du23Zpaqpil4vN5jNTUzoK cWTrVv/pxMRERRFuuC1lR+mwVlI+8gc5n/SqrFDRcQo3llFcrBy4jNFGUVb/ fHH60mTwXmXB99dI8Wr2POrwveTURPPTOuZPq25p9e87qCOn3vrTP/5+5T/+ PXot/nBbPqoYjlxKv/q3c3+9s5zf952/XHx2drYwJZS/yl6yjewo29Q5BY9K 8Z//JrtYaBW9X/+l00mOMNyOel7qbC/Vk2FqVBoNcO7VwwM1Lcexs6Clk9fu fXOFk6GsdP4g0QbSn8JqyAkqHELNCthLDq6zkYgQAAAAAAAAAJ447Xb7q6++ un//vqYq9r30wYMHNXo7fvy4foVu2y8vL9+6dUuzLflZtvn4448709MTifn5 +fuJ6e3bNSOQY2o+WBHcaD54+PDhiZwtKc0Ho0+f27VLWteIMAry5AeNLJeW lqKmLR+8fPlyWaolA9EKSCsVoczQ+eD1yclGoyGtD7ejdWl/s3mnMhzU1/fJ Ejw9xVE+qN0oHKAub7QtXxwbs3LJR1ET+5Nsrs5xPmw0olBS+vZ9jVHISC2q K6x/VJy+ogyu4nW62SxMQ/ZXZouFPX9masrv8mFS//wklJpEm1WcKW/HzMy5 Ly9ZGCQ///KD9+UlP1jqt/DtN4Up3u59c4s/3LYs7Mznn8mOpy8sfHrjugVD /3zmX/Kl8CGXHLxOSmsh1wsHD0S/ZPR96cBHV7/W10LFK21OjqA7Sm8H2lHn s3a+bEd5x0dsO/fsiYK8uVderj5C9Dp08oTFmlY66flApTtx7oP89vLzr39/ wXorbekEkLPpT64NQfe1CtSsnsyKin8SAAAAAAAAAADYyNrttgZh+/bts+hB 3jx79qwuCVxcXPRRzo6ZGQ0ENQrU1XlRkCeH8tGb0F00Usx/mSzv+HxwS1YS yzRt/WAjiZaibTQifG7XLh8MnTx5UnND+fPZ2VkfrMgPt27d0vgv+si6pAGi tlgRyvy4+WAUIVW//pjUTU5HlA+Ojo7WzwdtMuTzwe+npsqWIubzQR2Cblkz HNSXLbiz1alRPlgxnPy5q16xGL2OjY83s8ljzXAw6rk4n32/NToaHTm/zFC2 8UUrI1eoLRv85Qfvb23LfqMN57X5tzUl1IV+Pt/ZvW/OPnrpxJvRjnJky8g0 lorieAu55CWt9A2PbLmf5YMWVOn70v/RRKOS/kLw+eDuAz8faEefD1bvKGWx EnWmp/08tHxwZGSkb9PWuj5Z0pdORl2/dLKx/gMGfyLeXfyzHurcl5fkrFln ZEv589DJEzaEA68fsyFYBWQa1K8e+SAAAAAAAAAAPInaydMDHz58ePbsWfuq XFy7dm15efny5cvyp//+WUM3DfKWlpbu3r1r4aB+Py9/ys+yo628k3csUqyZ D+qaGk/esXxQQ0N9U1u03W0Vkq6LlO7JzzY6H0DcunVLbx96/vz5/LfcunxS N6jOm2Qv2Vc2kI6NOh82Gj60Gkn4DewLdh8hvTg2lt8y0kgX30Whmzbkj3Bs fNxyty8mJnQg65cPPihfCleRD+ZDuu8mJ6XnhaPQ15XJSX9byKHzwagO95KO tUZHtd3ZsTEpWnU0GXWsov7yOjU+rtWTnvddQphfPGinryKO8QvHLODbkrNz z57FH25/euN6Z3racskdMzMaG8n7mirmg3h558znn+nxXzh4wGeaUT4oh5ID NisXcvp80CfLUT6Y70aeXg4+H2wU/UOCsh2jfLCwaL56WigphZ+HP3v5UM0j qGa63jnKB+UlTWypnMO+RA2XGsufb/zmX6MJYHVoJit8Hx356aflLOsqSGso 5INJutq3es1hn/UJAAAAAAAAAPjRabyljyDc4pbSaKKnKwRthV07faKfZoKy 1+XLl6NVJHpAXX7YmZ7Wr5Hr54NbSu6tJ+/Y/UWjb86j3bUnus5RutFoNKST 0tUtbvWi5oNLS0vy0f37931K0nH3XD1//nzffFCPpqmol88H84HF1uRxflE+ WOebef1afn923y8mJjSWst3lh9boqLyv4WAjDaHWLx98UHKX0Yp8cOe2bVE4 2MrmpzoKqaHfbDa506nOyeHywXb2kYj3kmNGp0l+ODU+7tt9b2rK5tjpGvWX o2nIKMfRj0KSVbSEsHBRpF88WD2u53btsuV71hNt0VIwjbNlzreefnqL+ycB v3jnjO6rK870avVJvaX/C8kqwk9vXPehnuWDv/vbFb0Z6UdXvy67nG1W9M0H bdK2KukQogNquers2HHpmD9NeVq9QydPaAZqv9OifLDiCPmm86WLaltRunw+ qNnluS8v2SWfnwCyvUwAOdH+5sktlw8OWj0AAAAAAAAAwBOn1WppHGbRm8Vt z87O6h1E7Sv65eXlpaUlzQct9asO7B5DPqgf6S1SNbuxZFO2P378eHQD1Vaa D+7du9cPUNvVBZXSYc0HG/0e+mbZhIluIGmhVRQZaJYa5YN1ApH8ujmNkLQV jXWUrhiyNZ562HXNB2Ww+WijVZIPyvtRyjabJqTRKJ7JrtSznO5RUDJUPhjl kpbfbUlXwloc5qNJG50c3z+48M7UlIaDhfXX02pTV6sXLSGUDtgkHHrxoGZ8 f72z7OPgaBdtXbNpHalOJ70r6ZmLn1n9W7mlYfJX2eXA68csSdzibkqsIddH f7viY8qKbrfq5YOFvzQKlR2w5r7a5+rrXas3vX17tNAvygfrzEB/zHzp3jz7 2zqli0o09+phOzV1JkDTPbM1ygcHqh4AAAAAAAAA4InTarX8Iwj1Tp4aFzYa Db3LqIYm/uGD8k5Z6hflfRVb5rfPr1ux9M3fX9QHbdJ56a2mlvZ9+O3bt/XO qNoB2cBGoUfTfHB0dPTmzZu6utAWUv3hD3/QxY/6WMO++WBe/UVtUcrmA7i+ TfjETVcI5vfVCFKfeWfFXNd8MFpkV3gcnw9ezBZqZGTEr2myUTST24ralldc TjdcPhgVoZUGaj4U0+pFCaZFddGIKuqvKaG/GaO+73t+Z2qqMDOtv3hQjnnu y0uW8VXniW2n47KhuVcP9w3IHp2LdOMt7o6+KyHX1a/lJP7yg/f73mX0ScwH O2lIajdZtTqvQT7oSld9l9HCEtlxPr1xvXA2Ro3qVewvUvJBAAAAAAAAANg8 2tlHEDabzeXl5WvXrumis8XFRVtaGD0lcM3zQV2ceCtrfn5ec0DNB5cS9unD hLzTmZ62XEmHIztqP+VNvY+oDx81H2w0Grq60JYQ7piZ0TBRPtJ8ML9isU5J 1zsfzCduZU1ESdA65YP3sj/Pjo35VKgsHyxM2SxyinoSldSOMEQ+2M7eHfS7 ZK/Cystfo/u42lLQ6MSV5Uo+iInWVBYuIZQj33ErE2suHtSGotty1p+0tmxN 7zlZPQOlJwvffqMN2cY+5NLVi33vMvqE5oNaAcsHpaE1zAd96SruMlqWD+rT J/XmooXXUZ0KkA8CAAAAAAAAwGbQTh9BqCvs7Ml9moudPHnSlhb6O3yuRz4o Hfg4Rz7SuyBq6/4j6bO8s3fvXrt5o35RbwsA7V6RBw8elHeOHz9uN6XUfNAe pCg/a5Lob0y6wfPBfD5VJ0lZp3zwWPY5fdFdRuvngxUp2+mikg6dD9bcSxeL RaXWqTLcifNHLlxCONziwY7LjF6bf3ugWE3MvfKyf3Zeda7kwyn/AD4LufR6 3LlnT/VdRp/cfHD3vjndeGu7tbb5YFS6sruMluWDQwfEHfJBAAAAAAAAANh8 WskjCO/evTsxMaGB4LOzsxqCNJOnB+rSQsvUqp8qOHQ+KNtb0uf5fDBJkFa2 0SxP/vRP2pKxyEB0/aPd1FH+1DftaH4sehztrWwmH+n7P1Y+2MzeYTV/t9Wy HWvemDSfD9q9OiPyZs18cGRkxN//80H2LqM188Fj4+NleVDU7ceWD3aSxWL5 UsvGq8wHOyVLCIdbPKhH++udZct36sdqspnPB/uuO6uTD+qVe+LcBxV3GX1C 88F2eh9XvY3n2t5fNCpd2V1GC0s0dN2iCpAPAgAAAAAAAMAm0UofQfjs7Ozi 4qIGhT5K07jNP3xQPqrIB/2qw4HyQQsft6Z0uV/LPX/QttE4z3qr8ZkuFZRR HE4cTckQ/KJCnw9uSR5QKBvovUatG3695OPJB7+bnJSNbzSbZS97ht0a5oPX Kxu9V9JKPh9sjY6W3WW0Zj5YMYoNng/qYxMtVrN7ilaHvPklhP51Z2qq/uLB jst3Bk3H8tlW/Xww//A7C7mkA9Pbty/+cLvsLqPrnQ9q3drlCqvnI7882ewX 75zRLV868aZ/ZmVUQ7vtat/WC0snf1bcZfQx5IMDVQ8AAAAAAAAA8CRqp48g nJ+f1xuNWihmwdzhw4dtkZ3mdxaxRfmFHK3mnUhte7/esOx7aX9MWxVoSwjt K/2vvvrqYTl7xmK0FlIPvry8LMPXr+jtzceZD/Z9lcVzq8kH67+q80GpW9ld RgvvI/qk5IOFpY7yQR+rycFvFFVPXz7k7RQtIbTXqfHx+osHO6tY/5XPtqqr VzMf3JawI+fvMlozH7TrvSJvjQ545uJnb579rfSn4qX/8MDva9WT/ki3869f vHPmT//4u24mTfhnVvoaSrerW5ctfdNlpau4y+i65oN9q3fk1Fs15yQAAAAA AAAAYCNrp48gXFpa0uf0+fUjuiLv5s2bunzP1hVqEqd3IvULjlrJHT5tWV+z /E6k1rrPB8vioXxa106eDadtaUPSjfv371++fHk0WXg14chflxN6BJ8Pyl47 ZmZkR3+3UjnyBswHbb3SRssHNSuRvhXeZTS6T+lmzgejJzO2S5YQ3pma0jWJ 9VOejZYP6m8P6cavf3+h8C6jffPBOi/7NTXojvnEreaO8jp9YcEmvP0ushr2 fUmhfLcrSld2l9F1zQf7vha+/aZ+bA0AAAAAAAAA2MhaySMIdZFdu93262Lk B83Obt68aTmIbK9LDpeXl6e3b2+6R+bpcSxk9Hcita++I8Plg53k3o+6hFAX BurP0nThcwxlGws0fT4oR9PjSCf9eqUNmA/acTZgPqgR7c5t2/J3GZWPNk8+ 2MreTDWfD0ZPuJMfmkkg6DcbdPFgZ0Pmg7px2V1G1yQfLDzgmYufSd/09ebZ 3xa+ol81Vr3f/e3KR/K6+vVC+pKf9SMZhRxwx8yMhYN2dnwN33j/3eqmZbzR vmWlK7vL6HqvH6wewqGTJ8gHAQAAAAAAAOCnoZU+gnB5eTl6Bpn8oA/vO3/+ vF/eopna/cTi4uInibt37+rj//wTDOWdpaWljxOf5Mg2Q+eDtoRQ+jC9fbv0 U9ct2rf3llrKzxpoat+WEn6ZpD7zy25w+qPkgy+OjY0kRktYh9cwHxxJFbZ4 3a0H7JsPSpHl0/eyUZeumPtp54OagVo+eDG5j6g+2FFePvvLt6WX0unc4sFB I56NmQ/q6ArvMto3H5Tj27RslCjMB6UC+RXEkbL1g9pi1IpGhIs/3NZP9TL0 u/sa2hEqmm72Wz9opSu8y+i65oO798317T/5IAAAAAAAAAD8NLSTRxAuLS2d PXs2SsTkh5MnT8pHe/fujb7Gl5+f27Xr8uXLGgvqvT0PHz7svwMXulhP3cqR LQ8ePCg/7Nu3r+xrZ3lnfn5eN25mH3co2x89elSOfPz48cL+2xFky8XFRX26 4mLCf1GvGaI9layixTrFHDoftKVJhXxv1zAfLFxuKeTNQfNBXQ0XLaA7Nj7u j1OWD743NbUB80Fpom8++KLLBy1rljFqtiXjrW5Lfi4bXfXZ9DZmPmgFyd9l tE4+qEFV2eUQBW0+H7SniBbSf7fQKnr+YGGL0kP99J+Ov+H/jURZDfu23qp8 /mBUuvxdRtc3H6xXPcJBAAAAAAAAAPgJ0K+Xm82mfh/uwwVN1uyrcn9bPI0I LUsqXCBj2/i1J/kv+bVp/ea8sHvSrm0TfTNvfTCF4YjvrbUbLQKKRl3YYp1i 1oyf8jGffjPvVz5GLArxq9JOjY+vJh/0yxK96LmBdfLBlUVPubuMfu96W5YP fpjElGX5YGFJH0M++Ex2OeRsST444W7Jq6Wzq8m3daWorbL0c6BUWjb+0z/+ fuU//n3u1cOrzAerc8lB88FOyV1GH527fvmgv99v9RXhd9QD2q+gMtGgrALa GTu+/h5Y+PYbXUJYGL3la2iToW/rfUu3JXeXUSvdOuWDg1YPAAAAAAAAAPDk amfX0EUf+bV1+V0sCrHQreXunmdxSeFSFP26u/D4hd3Lb6Pd25oqO44f4Cpb 7FvJofPBmslOK/uQO03W6iQC+Xyw+taaA+WDrfS+iPm7jD7I9tbywavu/T9O TJTlGmubD25tt/z9PO9VFqGwXM3sEwOjfNZSQp0/l3LZ6DrlgxYPDZ0PSmUG ygdt1lWHXO2iu4xKD+vkg/VzrlbJgsSa+2rf8p3XT63zhU/fy+eD9c9dndJF dxmVmhTmg+/85aI+QHD1+eCg/ygCAAAAAAAAAPDkqlgb0vcjv5wnn9/5DfLL f2ouS6nTveqDDLoKZrjFMo8nH/Sp03eTk4W5RmHf1jsf1B2bubuMFuaDvlB3 pqYqCuVXIGqSuJr1g/uzXfIPEIy29Me/5/JBP7ovypPNVm6lZ37Ltc0HT19Y qBkWGxm4ZkMvHDxQJx/8651l2filE2/WzAc7RXcZlW10Ud7Gzwe185q+Lf5w u/X00/kzuE75oLUe3WVUS1d/CWf9CpAPAgAAAAAAAAAwhMeQD8oGp7MJlz0C L4ot9jeb+90z2h5PPtguustoPh9sZZ+79yB5UmF+FNFyP5+yDZcPdpJEzPft yuRkYaa2M7eZ3T3yvdx9RwuTnfxm+VO8Vvmgpm+f3rg+aDz06NGcyc0/X5t/ u+8MfG7XrnyQVCecamXvMir7Pin5oG7w7OysbiMdi2bpuuaDndxdRmWzwnzw yKm3qkdRpwLkgwAAAAAAAAAADGGV+WCz35O/1DNTU9Ez/vYnd3nV2GIlL9i6 9V76kT5S7fHkg53Ku4z6fFC28cvr7mUjQj8Kv03LPSSusNR+90LRbT91DaA9 6k632blt2/fZbfQBkZpLyqf+I9lydmwsOndRrBl1z9dq9fmgHOTA68fqLwPU HtqJtsVx1dGS7PLu4p91DaA+qs9K3TfkaufuMiobPyn5YNstIZSx6xJCH4iv az7Yzt5lVCqjpYvyQYtuXzrxZn6a5Y/pPyUfBAAAAAAAAABgNYbOB7+YmPiw 0ZB9K16n08c7Rkvn9HVpako2OJIEczeymZpFhI8nH+yU32XU8sFHmUtubeCD ZBfpf34UD9LFg5ayRfngnampvgU8nxRQRAGr7n4+qd7ppJLRp3oerQJyhIu1 6/8gXTxYdgPJNckHpWO2xCwKsKIt313885FTb9mzNYUtjjvz+Weak+bjIXln 7pWXLaLyY6kTcnVydxnVtYRRILUx88FO5RLC9c4HO7m7jGrpohJJfyzB1NuQ tkqexCpnX+aAf7gq+SAAAAAAAAAAAKsxdD5Y53UjXSSo6dulogV6ha8/Juvj ZMfHlg9qiLY/1xOfD2rqIX2rOYovJiZGRkb8Y+/O19vRvzT/EvuT5LTOLt9N TrZGRy2+0Qo0k2WDNRvVWLMweVmTfFDP1+59c/pwwE9vXH92draZW4u6Y2ZG QzR5yQZ2d1A5U5pSaUTYmZ72SynVkVNv2cF1LJZM1Qy5Otm7jBYGUmubD1bz +/bNByuWEObzwb4rWNvu3qT1S2d3GfUprZVIa6vnSP6UOjSTNDyaALoCVF5y QvUsd0rywZrVAwAAAAAAAAAA7fXMB6+nT8prJeSwdcI1v+buseWDnTRSiSI8 nw920tSj8E6k+WBxZGTEh3TtofJBPYKUQiPCO/2avp6Eg9GtQdtJpibvfNGv /vdcONgsWtPXXqN8UKu9c88eTYjk9c5fLh54/djPXj6kr1///oJ9dOjkCR/w adyp4ZcuT5ONbccjp96yVPHTG9e3tltWw0HzwXb2LqOPAql9c2ubD742//YL Bw9Y58tec6+8nF891zehK1xC6PPB3Qd+Xqf153btsjk8UOnsLqPyeuP9d32J bAOLXxe+/UbOXeEEOH1hYSL5NwNRPlizenLWChcnAgAAAAAAAACwOeXzwbKv /YfLB+3hfRZRvTg2dmVysnD7LyYmZsfGfDi1mnzQApGa+WAnjf/8OrsPG41o 6ZmOQvpZlrXJ6HQU+VhqiHzQ355UuvFMclfSwoWE301Onhoft1AyWvrn63+9 qP73svWvut9jNh+szokq6IienZ1dSJ5PV/j66OrXz+3aFY3IxnLg9WN+cV/0 +uUH71s46KtRP+TqpDnm6QsLfdcP+nlSZ+wWYtZ8+flcJx/0SwjltWNmxq5E n3jWeUm5dO2eGLR0dpfRfISqG3Smp898/llZ03J+Xzh4oJFehlE+WPMlpbax 1zk7AAAAAAAAAAD8tLXb7Z3JMr0Xx8bkNeuW3UVbalqnm9V8RUezWEfebI2O ygYfNhryOjU+Lj/rqjcNHezL/GeSR/vZAS1tLBzI/uRperplK43V8j2vPsij NU3btvkh5NMlDbYehSNuFPLyo9A4w8LBfKlrvnxv5U/pibTbSNqSumm7x8bH NdezaM+3G41O6z+bHNzXf2RkJF//wjnjT0rFhKnDRrRzz57TFxY+uvq1veSv Lxw8UNYlP5ZDJ0+c+fwz2/Hcl5dem39bk0GtRj4qPXLqrYVvv9FVaWWTwXdy evt2OayGlb688tGvf39BDqUrHOvXwXb0Q16oeH37jQ1Es0V5xy+pq+i5tiI9 tMx39765AZpO99WQetDSyY5aupdOvJkvkU2AHTMzctZ8l+Sczr162K6mqOyP KuA2rh6C9LbsogAAAAAAAAAAYBPyaZd+CR+lWn5LTWR0yzryR9PmNBGw4+j3 /357fytF21iVfcmv3dOBKHtame959UHywywMy3QU1lx+FNZ6fi+/S50CRr31 w6zZbv50169/oeiklE2YmqKCN5zqQfmx2EBsx4rJHM2HvqGezyJtPthHvhT1 62A7RkMu44NO32h15wt7bvOwZtPWul8FPETpJkqS62hKR+3awKN0WN4ZtP/k gwAAAAAAAAAAGEu7VN90SZ+FV0fZ0aLjNJvNsu3r9616Y/9R39sM1my0/ijW toCaENlx6rRbv+d68Jq716xn/f74eFfzrOq4s+NSQr+v7lh9InT4Nftv21uV op5H79ccctTtalaKQSdzvuf2Zs2mLWZVg5ZOR1pRIl/GOhMgirnr9L/vRAIA AAAAAAAAYBOyL//rb1nHQIfqu2X9gazyIJ1VFGTQ7Ycu4KDtrvkRhm634mgt Z9CTHu1Yv3r1m8hvP3QB8+Ot5psYqNHCjQdqvXDf1ZeubLM6E2A11QMAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKu0FwAAAAAAAAAAAMCmcRwAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAADx2/wUAAAAAAAAAAADApvFfAQAAAAAAAAAAAGwa/w0AAAAA AAAAAADApvHfAQAAAAAAAAAAAGwa/wMAAAAAAAAAAADApvE/AQAAAAAAAAAA AGwavV6325P/e6SXSP4b/v7oP92VP/S/yebpZ+knulH6f72wU2/lsCuH7NrO tsPK31YaSBuJ9nV9tBbtp244SM96sNLV9OC9MCDbI90k0zHX+soxQs97boN0 k25aEevhyptpi91wvJ4dc2XEvlnby8prTVlprSV3oK71I3SzG85StH2352qT diQdSuhYqGA3FNBmg3U8LcpK8z0/BDuRvfhYPfeBFbNnzdt/er4Nq174M9Q7 PfduivZC7dKJECanVbnrRpbOIl+OcELSHf0ZCX/YxApvhnqFieMuLXfVZDoU Trad1FDEbnp9hl5mLkG78uzvtrGb0t3Qa39+wsfxJZr5BeCnf9phuxgzF3KY Lt1sA+FMuV8dbm64C8AuL2s/nQx2zt1e+aGF6WCfWzHSee1mlZ369HIIZ9ed E1e2MG/So/tpZU3YWQhHzbwVZkaYMtak3zLU0lUhHUJ2kFZZm5/WaqiVTT+b va6m0YUeCmuT1c6573A4J242hTGGazJcfe4y8vMpdCPMt3A8d/343V11s7vb PEjLFSayfeh2DNO1Gy44ezt7gfsDukngBpfW11UoO1GtEVfxzKD9VRT6nvY8 TIPMWe1lf+ravt3sgGx696Kxuesgcx35Trh5YW/ZmXdn019wXXds11DadbeV u47dNWZzPMyDcJbCvq6mmV8YmWKEizh/qWYuxvhysB76wttlHPbwo/e/OsJx w7xbqb772e2W6ar70zrr5lh6lqzmdo6ti9Z4N3Qrc4WEM+0OkDk3XWsq7G8T wW1lTYdj2jXXdU2GmWMXTC9sGtXIShhOZVq9cC1mz4Wfs+5K7/ki+E/DZPVF zn7myuZmSTokNzHS3rj6+usjzJvwQbfru2unLfQmned2TVlNbZalRUwL6y6q tNd2/nzx/QXbDXu5C9Q3aucilKMXupt2I1xYdtLTKe3npdvQz9Xw6yS6nl0D aVf8TAw9dtO8l/KTKXMR2DwOBcxOlNBzX7xeGEg32iYz0/2lE00Vt4Hvo2/d rmRXWn8+wwzI1iW3izu6r4n/1E2xsFlmsHYiXK/CYbMt+pL6muSLFs6hv5ys sfwZcc12XVt2qGgXX1WbvzZGfwSbnPHuXSc6P644vdzu3agPNuqVUtgPmcpE c8APO1N1u6yyMzBzBt2sCNPbLl8/EneWsifUTXU/W7IynXQ/xGffF9xdCP74 fmL03MSIehidkcwF66vtO+9OcXyJ+b18r3qZ39vpR+63np6FtI2VPcJwe67p 7C98a3blBHXD/2MJ150vibXXC73ypzT8LvBDtV/NaV/ChFyZRDYSP7Z0CoVO Z+Zb5uq1SR/qbnPfXzDpDAxFz9a8F9oPs3OlKit9T0dg14GVzVU1DNNORi9z iYSehTMY6uBOauaisZ+jeeROYzfU0bpjVbLuWnlcbdNz1A3thIH7k5UpU/jZ RmGdDg2Ec2FdDdeETbKe71s37O6nra9MOIVhqrkz3Muc0zCpuq7zYbZmy+bm UZi1rgp+Trl51/MFSlvs2jjCnEknRXpGQg+i0fptwzhC0cPsDIW0SdMr+Z/v lZ1Dd+7C3zM/ui6kfQgHctVMP89OLZuH7kLpZT8J89nKbafCih4at5/TWtq5 yfU8FNJdkKGb6bTx10/4W5jF3dBUuFAyU6bnTqF1JDNh7S/hZPiz28s0YjXo ht5kRtwLXQuDcB3phQ267mBp8fJdCHPVamA1sivHXWM9P/Uy0yG9rkKlwjVm pzecrqibYT7aibFaujnjpq9NUF+T0CebPJne2SWRHtlOgRtzdPatdnZSwrHt 6nCfu3lqkyUddNfv54vQC1eTTS33Yc+3YhdB+HXSsyvQdTucrMx14KprV2xu ovhzblXpWufjXwjpmQsF74XW3IjTs5ueVPupG0YYpoCfU+HEuXnsrj07/d2w b3aDcNr9BRnqEGZFdC7C5HEH9XMn1MLezRzEeh8unjDeTA39qcrOfzcT/fwL 5ylt3nYJm4RLyPrYDQ2EOqbTxpro+b/YCNyc6rle+evAxmAnywrY/V8AAAAA AAAAAAAANo3/DQAAAAAAAAAAAGDT+D8AAAAAAAAAAAAANo3/CwAAAAAAAAAA AGDT+H8AAAAAAAAAAAAANo3/D2zci8M= "], {{0, 90}, {2400, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> False], BaseStyle -> "ImageGraphics", ImageSize -> Magnification[1], ImageSizeRaw -> {2400, 90}, PlotRange -> {{0, 2400}, {0, 90}}]], "", CellMargins -> 0, CellChangeTimes -> {{3.516548605022827*^9, 3.516548633085456*^9}, { 3.516616961864057*^9, 3.516616982571135*^9}, 3.518187891728025*^9, {3.518199033657151*^9, 3.5181990340305967`*^9}}]}, CellMargins -> 0, CellBracketOptions -> { "Color" -> RGBColor[0.739193, 0.750317, 0.747173]}], Cell[ BoxData[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzt3U9oXGe65/HAgEBSIVllV1UQjkEkyGAnYNyy2w43ThzjONyOO3YTbDqI 65tO0rG5gY7s0Ol0B4duQRbugAlO2pmFMY17Ydkh2Wnh3cVcr41hGBjMLGYx i6rFLGYxi4FhHp9H53mf854/daokOXL0/dxqR64657zv+5z36EL9/J4z85vf /eo3/+mpp556W/73r6NPPfXo5w4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAACwubWdNTlI4QErPvoRaU9aA/KjGGLHsm74o5VVyW9W XcaKLesfZIgW64xiuJ7U7OQQRys8lfkj5Hu73kNrZz2GHddEu7a12rHvvuva 7fUzULsbsP8AAAAAAAAAgDV39OjR559/XtMH//7BRP79vXv3yi47ZmbsW2LZ fX5+/pNPPjl79qzssm3btmgvbaLiK2U52tFy2g05QuGnsm++RX9Y62o0Ovmo OnPRkRYe2TvdbN4Y/HWx2dy6dascfOgd29mobue2be9NTfktrzab8o68H9Vn f/aA+aP5w150W8qOcijdUv70DVUcJH+c0+440WY6iqvZHhaOorD+hcWpQ7aX 41zKFlCOdmTr1joHlE+lOOdzJ0veiXouf17NblBxfNn3Ro26VfTquV27jpx6 61f/dk5e8sPufXNlZYx2FHOvHv7FO2d035+9fGh6+/bqfaUt2UWaqF//3Qd+ Lrvkr1B9f+6Vl6Xdvi/ZzC7k4XbURh/tWLmvDNAqUPjbRnev2boczVqPSlen ejpSf5DC8ygb/NPxN/Qk/vOZf5F2bb7l9+pbAf8a6EQDAAAAAAAAADaUdrt9 9+7da9euRSGFvv/w4UNN3/z7i4uL8r5sL+/Lp/pXcf/+ff3h1q1bzz//vA+S 5M1PPvmkIgc5evTow3JyQNlXjlC2gfRBepKPzLRv8/Pz2rT/6Pbt2/KR9FM+ KovGtALNylBG3j/fbD4Y/HWj2dyyZUtz2B19t3du23Zpaqpil4vN5jNTUzoK cWTrVv/pxMRERRFuuC1lR+mwVlI+8gc5n/SqrFDRcQo3llFcrBy4jNFGUVb/ fHH60mTwXmXB99dI8Wr2POrwveTURPPTOuZPq25p9e87qCOn3vrTP/5+5T/+ PXot/nBbPqoYjlxKv/q3c3+9s5zf952/XHx2drYwJZS/yl6yjewo29Q5BY9K 8Z//JrtYaBW9X/+l00mOMNyOel7qbC/Vk2FqVBoNcO7VwwM1Lcexs6Clk9fu fXOFk6GsdP4g0QbSn8JqyAkqHELNCthLDq6zkYgQAAAAAAAAAJ447Xb7q6++ un//vqYq9r30wYMHNXo7fvy4foVu2y8vL9+6dUuzLflZtvn4448709MTifn5 +fuJ6e3bNSOQY2o+WBHcaD54+PDhiZwtKc0Ho0+f27VLWteIMAry5AeNLJeW lqKmLR+8fPlyWaolA9EKSCsVoczQ+eD1yclGoyGtD7ejdWl/s3mnMhzU1/fJ Ejw9xVE+qN0oHKAub7QtXxwbs3LJR1ET+5Nsrs5xPmw0olBS+vZ9jVHISC2q K6x/VJy+ogyu4nW62SxMQ/ZXZouFPX9masrv8mFS//wklJpEm1WcKW/HzMy5 Ly9ZGCQ///KD9+UlP1jqt/DtN4Up3u59c4s/3LYs7Mznn8mOpy8sfHrjugVD /3zmX/Kl8CGXHLxOSmsh1wsHD0S/ZPR96cBHV7/W10LFK21OjqA7Sm8H2lHn s3a+bEd5x0dsO/fsiYK8uVderj5C9Dp08oTFmlY66flApTtx7oP89vLzr39/ wXorbekEkLPpT64NQfe1CtSsnsyKin8SAAAAAAAAAADYyNrttgZh+/bts+hB 3jx79qwuCVxcXPRRzo6ZGQ0ENQrU1XlRkCeH8tGb0F00Usx/mSzv+HxwS1YS yzRt/WAjiZaibTQifG7XLh8MnTx5UnND+fPZ2VkfrMgPt27d0vgv+si6pAGi tlgRyvy4+WAUIVW//pjUTU5HlA+Ojo7WzwdtMuTzwe+npsqWIubzQR2Cblkz HNSXLbiz1alRPlgxnPy5q16xGL2OjY83s8ljzXAw6rk4n32/NToaHTm/zFC2 8UUrI1eoLRv85Qfvb23LfqMN57X5tzUl1IV+Pt/ZvW/OPnrpxJvRjnJky8g0 lorieAu55CWt9A2PbLmf5YMWVOn70v/RRKOS/kLw+eDuAz8faEefD1bvKGWx EnWmp/08tHxwZGSkb9PWuj5Z0pdORl2/dLKx/gMGfyLeXfyzHurcl5fkrFln ZEv589DJEzaEA68fsyFYBWQa1K8e+SAAAAAAAAAAPInaydMDHz58ePbsWfuq XFy7dm15efny5cvyp//+WUM3DfKWlpbu3r1r4aB+Py9/ys+yo628k3csUqyZ D+qaGk/esXxQQ0N9U1u03W0Vkq6LlO7JzzY6H0DcunVLbx96/vz5/LfcunxS N6jOm2Qv2Vc2kI6NOh82Gj60Gkn4DewLdh8hvTg2lt8y0kgX30Whmzbkj3Bs fNxyty8mJnQg65cPPihfCleRD+ZDuu8mJ6XnhaPQ15XJSX9byKHzwagO95KO tUZHtd3ZsTEpWnU0GXWsov7yOjU+rtWTnvddQphfPGinryKO8QvHLODbkrNz z57FH25/euN6Z3racskdMzMaG8n7mirmg3h558znn+nxXzh4wGeaUT4oh5ID NisXcvp80CfLUT6Y70aeXg4+H2wU/UOCsh2jfLCwaL56WigphZ+HP3v5UM0j qGa63jnKB+UlTWypnMO+RA2XGsufb/zmX6MJYHVoJit8Hx356aflLOsqSGso 5INJutq3es1hn/UJAAAAAAAAAPjRabyljyDc4pbSaKKnKwRthV07faKfZoKy 1+XLl6NVJHpAXX7YmZ7Wr5Hr54NbSu6tJ+/Y/UWjb86j3bUnus5RutFoNKST 0tUtbvWi5oNLS0vy0f37931K0nH3XD1//nzffFCPpqmol88H84HF1uRxflE+ WOebef1afn923y8mJjSWst3lh9boqLyv4WAjDaHWLx98UHKX0Yp8cOe2bVE4 2MrmpzoKqaHfbDa506nOyeHywXb2kYj3kmNGp0l+ODU+7tt9b2rK5tjpGvWX o2nIKMfRj0KSVbSEsHBRpF88WD2u53btsuV71hNt0VIwjbNlzreefnqL+ycB v3jnjO6rK870avVJvaX/C8kqwk9vXPehnuWDv/vbFb0Z6UdXvy67nG1W9M0H bdK2KukQogNquers2HHpmD9NeVq9QydPaAZqv9OifLDiCPmm86WLaltRunw+ qNnluS8v2SWfnwCyvUwAOdH+5sktlw8OWj0AAAAAAAAAwBOn1WppHGbRm8Vt z87O6h1E7Sv65eXlpaUlzQct9asO7B5DPqgf6S1SNbuxZFO2P378eHQD1Vaa D+7du9cPUNvVBZXSYc0HG/0e+mbZhIluIGmhVRQZaJYa5YN1ApH8ujmNkLQV jXWUrhiyNZ562HXNB2Ww+WijVZIPyvtRyjabJqTRKJ7JrtSznO5RUDJUPhjl kpbfbUlXwloc5qNJG50c3z+48M7UlIaDhfXX02pTV6sXLSGUDtgkHHrxoGZ8 f72z7OPgaBdtXbNpHalOJ70r6ZmLn1n9W7mlYfJX2eXA68csSdzibkqsIddH f7viY8qKbrfq5YOFvzQKlR2w5r7a5+rrXas3vX17tNAvygfrzEB/zHzp3jz7 2zqli0o09+phOzV1JkDTPbM1ygcHqh4AAAAAAAAA4InTarX8Iwj1Tp4aFzYa Db3LqIYm/uGD8k5Z6hflfRVb5rfPr1ux9M3fX9QHbdJ56a2mlvZ9+O3bt/XO qNoB2cBGoUfTfHB0dPTmzZu6utAWUv3hD3/QxY/6WMO++WBe/UVtUcrmA7i+ TfjETVcI5vfVCFKfeWfFXNd8MFpkV3gcnw9ezBZqZGTEr2myUTST24ralldc TjdcPhgVoZUGaj4U0+pFCaZFddGIKuqvKaG/GaO+73t+Z2qqMDOtv3hQjnnu y0uW8VXniW2n47KhuVcP9w3IHp2LdOMt7o6+KyHX1a/lJP7yg/f73mX0ScwH O2lIajdZtTqvQT7oSld9l9HCEtlxPr1xvXA2Ro3qVewvUvJBAAAAAAAAANg8 2tlHEDabzeXl5WvXrumis8XFRVtaGD0lcM3zQV2ceCtrfn5ec0DNB5cS9unD hLzTmZ62XEmHIztqP+VNvY+oDx81H2w0Grq60JYQ7piZ0TBRPtJ8ML9isU5J 1zsfzCduZU1ESdA65YP3sj/Pjo35VKgsHyxM2SxyinoSldSOMEQ+2M7eHfS7 ZK/Cystfo/u42lLQ6MSV5Uo+iInWVBYuIZQj33ErE2suHtSGotty1p+0tmxN 7zlZPQOlJwvffqMN2cY+5NLVi33vMvqE5oNaAcsHpaE1zAd96SruMlqWD+rT J/XmooXXUZ0KkA8CAAAAAAAAwGbQTh9BqCvs7Ml9moudPHnSlhb6O3yuRz4o Hfg4Rz7SuyBq6/4j6bO8s3fvXrt5o35RbwsA7V6RBw8elHeOHz9uN6XUfNAe pCg/a5Lob0y6wfPBfD5VJ0lZp3zwWPY5fdFdRuvngxUp2+mikg6dD9bcSxeL RaXWqTLcifNHLlxCONziwY7LjF6bf3ugWE3MvfKyf3Zeda7kwyn/AD4LufR6 3LlnT/VdRp/cfHD3vjndeGu7tbb5YFS6sruMluWDQwfEHfJBAAAAAAAAANh8 WskjCO/evTsxMaGB4LOzsxqCNJOnB+rSQsvUqp8qOHQ+KNtb0uf5fDBJkFa2 0SxP/vRP2pKxyEB0/aPd1FH+1DftaH4sehztrWwmH+n7P1Y+2MzeYTV/t9Wy HWvemDSfD9q9OiPyZs18cGRkxN//80H2LqM188Fj4+NleVDU7ceWD3aSxWL5 UsvGq8wHOyVLCIdbPKhH++udZct36sdqspnPB/uuO6uTD+qVe+LcBxV3GX1C 88F2eh9XvY3n2t5fNCpd2V1GC0s0dN2iCpAPAgAAAAAAAMAm0UofQfjs7Ozi 4qIGhT5K07jNP3xQPqrIB/2qw4HyQQsft6Z0uV/LPX/QttE4z3qr8ZkuFZRR HE4cTckQ/KJCnw9uSR5QKBvovUatG3695OPJB7+bnJSNbzSbZS97ht0a5oPX Kxu9V9JKPh9sjY6W3WW0Zj5YMYoNng/qYxMtVrN7ilaHvPklhP51Z2qq/uLB jst3Bk3H8tlW/Xww//A7C7mkA9Pbty/+cLvsLqPrnQ9q3drlCqvnI7882ewX 75zRLV868aZ/ZmVUQ7vtat/WC0snf1bcZfQx5IMDVQ8AAAAAAAAA8CRqp48g nJ+f1xuNWihmwdzhw4dtkZ3mdxaxRfmFHK3mnUhte7/esOx7aX9MWxVoSwjt K/2vvvrqYTl7xmK0FlIPvry8LMPXr+jtzceZD/Z9lcVzq8kH67+q80GpW9ld RgvvI/qk5IOFpY7yQR+rycFvFFVPXz7k7RQtIbTXqfHx+osHO6tY/5XPtqqr VzMf3JawI+fvMlozH7TrvSJvjQ545uJnb579rfSn4qX/8MDva9WT/ki3869f vHPmT//4u24mTfhnVvoaSrerW5ctfdNlpau4y+i65oN9q3fk1Fs15yQAAAAA AAAAYCNrp48gXFpa0uf0+fUjuiLv5s2bunzP1hVqEqd3IvULjlrJHT5tWV+z /E6k1rrPB8vioXxa106eDadtaUPSjfv371++fHk0WXg14chflxN6BJ8Pyl47 ZmZkR3+3UjnyBswHbb3SRssHNSuRvhXeZTS6T+lmzgejJzO2S5YQ3pma0jWJ 9VOejZYP6m8P6cavf3+h8C6jffPBOi/7NTXojvnEreaO8jp9YcEmvP0ushr2 fUmhfLcrSld2l9F1zQf7vha+/aZ+bA0AAAAAAAAA2MhaySMIdZFdu93262Lk B83Obt68aTmIbK9LDpeXl6e3b2+6R+bpcSxk9Hcita++I8Plg53k3o+6hFAX BurP0nThcwxlGws0fT4oR9PjSCf9eqUNmA/acTZgPqgR7c5t2/J3GZWPNk8+ 2MreTDWfD0ZPuJMfmkkg6DcbdPFgZ0Pmg7px2V1G1yQfLDzgmYufSd/09ebZ 3xa+ol81Vr3f/e3KR/K6+vVC+pKf9SMZhRxwx8yMhYN2dnwN33j/3eqmZbzR vmWlK7vL6HqvH6wewqGTJ8gHAQAAAAAAAOCnoZU+gnB5eTl6Bpn8oA/vO3/+ vF/eopna/cTi4uInibt37+rj//wTDOWdpaWljxOf5Mg2Q+eDtoRQ+jC9fbv0 U9ct2rf3llrKzxpoat+WEn6ZpD7zy25w+qPkgy+OjY0kRktYh9cwHxxJFbZ4 3a0H7JsPSpHl0/eyUZeumPtp54OagVo+eDG5j6g+2FFePvvLt6WX0unc4sFB I56NmQ/q6ArvMto3H5Tj27RslCjMB6UC+RXEkbL1g9pi1IpGhIs/3NZP9TL0 u/sa2hEqmm72Wz9opSu8y+i65oO798317T/5IAAAAAAAAAD8NLSTRxAuLS2d PXs2SsTkh5MnT8pHe/fujb7Gl5+f27Xr8uXLGgvqvT0PHz7svwMXulhP3cqR LQ8ePCg/7Nu3r+xrZ3lnfn5eN25mH3co2x89elSOfPz48cL+2xFky8XFRX26 4mLCf1GvGaI9layixTrFHDoftKVJhXxv1zAfLFxuKeTNQfNBXQ0XLaA7Nj7u j1OWD743NbUB80Fpom8++KLLBy1rljFqtiXjrW5Lfi4bXfXZ9DZmPmgFyd9l tE4+qEFV2eUQBW0+H7SniBbSf7fQKnr+YGGL0kP99J+Ov+H/jURZDfu23qp8 /mBUuvxdRtc3H6xXPcJBAAAAAAAAAPgJ0K+Xm82mfh/uwwVN1uyrcn9bPI0I LUsqXCBj2/i1J/kv+bVp/ea8sHvSrm0TfTNvfTCF4YjvrbUbLQKKRl3YYp1i 1oyf8jGffjPvVz5GLArxq9JOjY+vJh/0yxK96LmBdfLBlUVPubuMfu96W5YP fpjElGX5YGFJH0M++Ex2OeRsST444W7Jq6Wzq8m3daWorbL0c6BUWjb+0z/+ fuU//n3u1cOrzAerc8lB88FOyV1GH527fvmgv99v9RXhd9QD2q+gMtGgrALa GTu+/h5Y+PYbXUJYGL3la2iToW/rfUu3JXeXUSvdOuWDg1YPAAAAAAAAAPDk amfX0EUf+bV1+V0sCrHQreXunmdxSeFSFP26u/D4hd3Lb6Pd25oqO44f4Cpb 7FvJofPBmslOK/uQO03W6iQC+Xyw+taaA+WDrfS+iPm7jD7I9tbywavu/T9O TJTlGmubD25tt/z9PO9VFqGwXM3sEwOjfNZSQp0/l3LZ6DrlgxYPDZ0PSmUG ygdt1lWHXO2iu4xKD+vkg/VzrlbJgsSa+2rf8p3XT63zhU/fy+eD9c9dndJF dxmVmhTmg+/85aI+QHD1+eCg/ygCAAAAAAAAAPDkqlgb0vcjv5wnn9/5DfLL f2ouS6nTveqDDLoKZrjFMo8nH/Sp03eTk4W5RmHf1jsf1B2bubuMFuaDvlB3 pqYqCuVXIGqSuJr1g/uzXfIPEIy29Me/5/JBP7ovypPNVm6lZ37Ltc0HT19Y qBkWGxm4ZkMvHDxQJx/8651l2filE2/WzAc7RXcZlW10Ud7Gzwe185q+Lf5w u/X00/kzuE75oLUe3WVUS1d/CWf9CpAPAgAAAAAAAAAwhMeQD8oGp7MJlz0C L4ot9jeb+90z2h5PPtguustoPh9sZZ+79yB5UmF+FNFyP5+yDZcPdpJEzPft yuRkYaa2M7eZ3T3yvdx9RwuTnfxm+VO8Vvmgpm+f3rg+aDz06NGcyc0/X5t/ u+8MfG7XrnyQVCecamXvMir7Pin5oG7w7OysbiMdi2bpuuaDndxdRmWzwnzw yKm3qkdRpwLkgwAAAAAAAAAADGGV+WCz35O/1DNTU9Ez/vYnd3nV2GIlL9i6 9V76kT5S7fHkg53Ku4z6fFC28cvr7mUjQj8Kv03LPSSusNR+90LRbT91DaA9 6k632blt2/fZbfQBkZpLyqf+I9lydmwsOndRrBl1z9dq9fmgHOTA68fqLwPU HtqJtsVx1dGS7PLu4p91DaA+qs9K3TfkaufuMiobPyn5YNstIZSx6xJCH4iv az7Yzt5lVCqjpYvyQYtuXzrxZn6a5Y/pPyUfBAAAAAAAAABgNYbOB7+YmPiw 0ZB9K16n08c7Rkvn9HVpako2OJIEczeymZpFhI8nH+yU32XU8sFHmUtubeCD ZBfpf34UD9LFg5ayRfngnampvgU8nxRQRAGr7n4+qd7ppJLRp3oerQJyhIu1 6/8gXTxYdgPJNckHpWO2xCwKsKIt313885FTb9mzNYUtjjvz+Weak+bjIXln 7pWXLaLyY6kTcnVydxnVtYRRILUx88FO5RLC9c4HO7m7jGrpohJJfyzB1NuQ tkqexCpnX+aAf7gq+SAAAAAAAAAAAKsxdD5Y53UjXSSo6dulogV6ha8/Juvj ZMfHlg9qiLY/1xOfD2rqIX2rOYovJiZGRkb8Y+/O19vRvzT/EvuT5LTOLt9N TrZGRy2+0Qo0k2WDNRvVWLMweVmTfFDP1+59c/pwwE9vXH92draZW4u6Y2ZG QzR5yQZ2d1A5U5pSaUTYmZ72SynVkVNv2cF1LJZM1Qy5Otm7jBYGUmubD1bz +/bNByuWEObzwb4rWNvu3qT1S2d3GfUprZVIa6vnSP6UOjSTNDyaALoCVF5y QvUsd0rywZrVAwAAAAAAAAAA7fXMB6+nT8prJeSwdcI1v+buseWDnTRSiSI8 nw920tSj8E6k+WBxZGTEh3TtofJBPYKUQiPCO/2avp6Eg9GtQdtJpibvfNGv /vdcONgsWtPXXqN8UKu9c88eTYjk9c5fLh54/djPXj6kr1///oJ9dOjkCR/w adyp4ZcuT5ONbccjp96yVPHTG9e3tltWw0HzwXb2LqOPAql9c2ubD742//YL Bw9Y58tec6+8nF891zehK1xC6PPB3Qd+Xqf153btsjk8UOnsLqPyeuP9d32J bAOLXxe+/UbOXeEEOH1hYSL5NwNRPlizenLWChcnAgAAAAAAAACwOeXzwbKv /YfLB+3hfRZRvTg2dmVysnD7LyYmZsfGfDi1mnzQApGa+WAnjf/8OrsPG41o 6ZmOQvpZlrXJ6HQU+VhqiHzQ355UuvFMclfSwoWE301Onhoft1AyWvrn63+9 qP73svWvut9jNh+szokq6IienZ1dSJ5PV/j66OrXz+3aFY3IxnLg9WN+cV/0 +uUH71s46KtRP+TqpDnm6QsLfdcP+nlSZ+wWYtZ8+flcJx/0SwjltWNmxq5E n3jWeUm5dO2eGLR0dpfRfISqG3Smp898/llZ03J+Xzh4oJFehlE+WPMlpbax 1zk7AAAAAAAAAAD8tLXb7Z3JMr0Xx8bkNeuW3UVbalqnm9V8RUezWEfebI2O ygYfNhryOjU+Lj/rqjcNHezL/GeSR/vZAS1tLBzI/uRperplK43V8j2vPsij NU3btvkh5NMlDbYehSNuFPLyo9A4w8LBfKlrvnxv5U/pibTbSNqSumm7x8bH NdezaM+3G41O6z+bHNzXf2RkJF//wjnjT0rFhKnDRrRzz57TFxY+uvq1veSv Lxw8UNYlP5ZDJ0+c+fwz2/Hcl5dem39bk0GtRj4qPXLqrYVvv9FVaWWTwXdy evt2OayGlb688tGvf39BDqUrHOvXwXb0Q16oeH37jQ1Es0V5xy+pq+i5tiI9 tMx39765AZpO99WQetDSyY5aupdOvJkvkU2AHTMzctZ8l+Sczr162K6mqOyP KuA2rh6C9LbsogAAAAAAAAAAYBPyaZd+CR+lWn5LTWR0yzryR9PmNBGw4+j3 /357fytF21iVfcmv3dOBKHtame959UHywywMy3QU1lx+FNZ6fi+/S50CRr31 w6zZbv50169/oeiklE2YmqKCN5zqQfmx2EBsx4rJHM2HvqGezyJtPthHvhT1 62A7RkMu44NO32h15wt7bvOwZtPWul8FPETpJkqS62hKR+3awKN0WN4ZtP/k gwAAAAAAAAAAGEu7VN90SZ+FV0fZ0aLjNJvNsu3r9616Y/9R39sM1my0/ijW toCaENlx6rRbv+d68Jq716xn/f74eFfzrOq4s+NSQr+v7lh9InT4Nftv21uV op5H79ccctTtalaKQSdzvuf2Zs2mLWZVg5ZOR1pRIl/GOhMgirnr9L/vRAIA AAAAAAAAYBOyL//rb1nHQIfqu2X9gazyIJ1VFGTQ7Ycu4KDtrvkRhm634mgt Z9CTHu1Yv3r1m8hvP3QB8+Ot5psYqNHCjQdqvXDf1ZeubLM6E2A11QMAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKu0FwAAAAAAAAAAAMCmcRwAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAADx2/wUAAAAAAAAAAADApvFfAQAAAAAAAAAAAGwa/w0AAAAA AAAAAADApvHfAQAAAAAAAAAAAGwa/wMAAAAAAAAAAADApvE/AQAAAAAAAAAA AGwavV6325P/e6SXSP4b/v7oP92VP/S/yebpZ+knulH6f72wU2/lsCuH7NrO tsPK31YaSBuJ9nV9tBbtp244SM96sNLV9OC9MCDbI90k0zHX+soxQs97boN0 k25aEevhyptpi91wvJ4dc2XEvlnby8prTVlprSV3oK71I3SzG85StH2352qT diQdSuhYqGA3FNBmg3U8LcpK8z0/BDuRvfhYPfeBFbNnzdt/er4Nq174M9Q7 PfduivZC7dKJECanVbnrRpbOIl+OcELSHf0ZCX/YxApvhnqFieMuLXfVZDoU Trad1FDEbnp9hl5mLkG78uzvtrGb0t3Qa39+wsfxJZr5BeCnf9phuxgzF3KY Lt1sA+FMuV8dbm64C8AuL2s/nQx2zt1e+aGF6WCfWzHSee1mlZ369HIIZ9ed E1e2MG/So/tpZU3YWQhHzbwVZkaYMtak3zLU0lUhHUJ2kFZZm5/WaqiVTT+b va6m0YUeCmuT1c6573A4J242hTGGazJcfe4y8vMpdCPMt3A8d/343V11s7vb PEjLFSayfeh2DNO1Gy44ezt7gfsDukngBpfW11UoO1GtEVfxzKD9VRT6nvY8 TIPMWe1lf+ravt3sgGx696Kxuesgcx35Trh5YW/ZmXdn019wXXds11DadbeV u47dNWZzPMyDcJbCvq6mmV8YmWKEizh/qWYuxvhysB76wttlHPbwo/e/OsJx w7xbqb772e2W6ar70zrr5lh6lqzmdo6ti9Z4N3Qrc4WEM+0OkDk3XWsq7G8T wW1lTYdj2jXXdU2GmWMXTC9sGtXIShhOZVq9cC1mz4Wfs+5K7/ki+E/DZPVF zn7myuZmSTokNzHS3rj6+usjzJvwQbfru2unLfQmned2TVlNbZalRUwL6y6q tNd2/nzx/QXbDXu5C9Q3aucilKMXupt2I1xYdtLTKe3npdvQz9Xw6yS6nl0D aVf8TAw9dtO8l/KTKXMR2DwOBcxOlNBzX7xeGEg32iYz0/2lE00Vt4Hvo2/d rmRXWn8+wwzI1iW3izu6r4n/1E2xsFlmsHYiXK/CYbMt+pL6muSLFs6hv5ys sfwZcc12XVt2qGgXX1WbvzZGfwSbnPHuXSc6P644vdzu3agPNuqVUtgPmcpE c8APO1N1u6yyMzBzBt2sCNPbLl8/EneWsifUTXU/W7IynXQ/xGffF9xdCP74 fmL03MSIehidkcwF66vtO+9OcXyJ+b18r3qZ39vpR+63np6FtI2VPcJwe67p 7C98a3blBHXD/2MJ150vibXXC73ypzT8LvBDtV/NaV/ChFyZRDYSP7Z0CoVO Z+Zb5uq1SR/qbnPfXzDpDAxFz9a8F9oPs3OlKit9T0dg14GVzVU1DNNORi9z iYSehTMY6uBOauaisZ+jeeROYzfU0bpjVbLuWnlcbdNz1A3thIH7k5UpU/jZ RmGdDg2Ec2FdDdeETbKe71s37O6nra9MOIVhqrkz3Muc0zCpuq7zYbZmy+bm UZi1rgp+Trl51/MFSlvs2jjCnEknRXpGQg+i0fptwzhC0cPsDIW0SdMr+Z/v lZ1Dd+7C3zM/ui6kfQgHctVMP89OLZuH7kLpZT8J89nKbafCih4at5/TWtq5 yfU8FNJdkKGb6bTx10/4W5jF3dBUuFAyU6bnTqF1JDNh7S/hZPiz28s0YjXo ht5kRtwLXQuDcB3phQ267mBp8fJdCHPVamA1sivHXWM9P/Uy0yG9rkKlwjVm pzecrqibYT7aibFaujnjpq9NUF+T0CebPJne2SWRHtlOgRtzdPatdnZSwrHt 6nCfu3lqkyUddNfv54vQC1eTTS33Yc+3YhdB+HXSsyvQdTucrMx14KprV2xu ovhzblXpWufjXwjpmQsF74XW3IjTs5ueVPupG0YYpoCfU+HEuXnsrj07/d2w b3aDcNr9BRnqEGZFdC7C5HEH9XMn1MLezRzEeh8unjDeTA39qcrOfzcT/fwL 5ylt3nYJm4RLyPrYDQ2EOqbTxpro+b/YCNyc6rle+evAxmAnywrY/V8AAAAA AAAAAAAANo3/DQAAAAAAAAAAAGDT+D8AAAAAAAAAAAAANo3/CwAAAAAAAAAA AGDT+H8AAAAAAAAAAAAANo3/D2zci8M= "], {{0, 90}, {2400, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> False], BaseStyle -> "ImageGraphics", ImageSize -> Magnification[1], ImageSizeRaw -> {2400, 90}, PlotRange -> {{0, 2400}, {0, 90}}]], "", CellMargins -> 0, CellChangeTimes -> {{3.516548605022827*^9, 3.516548633085456*^9}, { 3.516616961864057*^9, 3.516616982571135*^9}, 3.518187891728025*^9, { 3.518199033657151*^9, 3.5181990340305967`*^9}}], Cell[ BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Evaluate", " ", "the", " ", "following", " ", "to", " ", "copy", " ", "the", " ", "style", " ", "of", " ", "the", " ", "cell", " ", "above", " ", "into", " ", "\[IndentingNewLine]", "the", " ", "docked", " ", "cell", " ", "style", " ", "of", " ", RowBox[{"the", " ", "'"}], RowBox[{"Notebook", "'"}], " ", "definition", " ", RowBox[{"(", RowBox[{"2", " ", "cells", " ", "above"}], ")"}], " ", "\[IndentingNewLine]", "These", " ", "two", " ", "cell", " ", "can", " ", "be", " ", "removed", " ", "once", " ", "the", " ", "docked", " ", "cell", " ", "is", " ", RowBox[{"created", "."}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "Previous", ",", "Cell", ",", "2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"celldata", "=", RowBox[{"NotebookRead", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "Previous", ",", "Cell", ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"DockedCells", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FEPrivate`FrontEndResource", "[", RowBox[{ "\"FEExpressions\"", ",", "\"SlideshowToolbar\""}], "]"}], ",", "celldata"}], "}"}]}]}], "]"}], ";"}]}]}]], "Input", FontWeight -> "Bold"]}, Open]], Cell[ CellGroupData[{ Cell["Notebook Options Settings", "Section"], Cell[ StyleData["Notebook"], CellBracketOptions -> { "Color" -> RGBColor[0.739193, 0.750317, 0.747173]}]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Title and Section Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], ShowCellBracket -> Automatic, ShowGroupOpener -> False, CellMargins -> {{58, 0}, {30, 0}}, CellBracketOptions -> {"Margins" -> {0, 0}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, CellFrameMargins -> {{20, 20}, {20, 20}}, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CellChangeTimes -> {3.479211616867702*^9, 3.483202458952606*^9}, TextAlignment -> Left, LineSpacing -> {1, 0}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 48, FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Masked" -> False, "Outline" -> False, "Shadow" -> False, "StrikeThrough" -> False, "Underline" -> False}, FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765], Background -> None], Cell[ StyleData["Title", "Presentation", StyleDefinitions -> None], CellMargins -> {{55, 3}, {14, 125}}, LineSpacing -> {1, 5}, FontSize -> 28], Cell[ StyleData[ "Title", "SlideShow", StyleDefinitions -> StyleData["Title", "Presentation"]], CellMargins -> {{55, 3}, {14, 35}}, FontSize -> 55], Cell[ StyleData["Title", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 10}}, LineSpacing -> {1, 18}, FontSize -> 15]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], ShowCellBracket -> False, CellMargins -> {{58, 0}, {0, 5}}, CellBracketOptions -> {"Margins" -> {0, 0}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, TextAlignment -> Left, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[ 0.34901960784313724`, 0.5254901960784314, 0.5176470588235295], Background -> None], Cell[ StyleData["Subtitle", "Presentation", StyleDefinitions -> None], CellMargins -> {{58, 0}, {0, 5}}, FontSize -> 20], Cell[ StyleData[ "Subtitle", "SlideShow", StyleDefinitions -> StyleData["Subtitle", "Presentation"]]], Cell[ StyleData["Subtitle", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 5}}, FontSize -> 14, Background -> GrayLevel[1]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle", StyleDefinitions -> StyleData["Subtitle"]], FontSize -> Inherited + 3], Cell[ StyleData["Subsubtitle", "Presentation"], FontSize -> Inherited + 3], Cell[ StyleData[ "Subsubtitle", "SlideShow", StyleDefinitions -> StyleData["Subsubtitle", "Presentation"]]], Cell[ StyleData["Subsubtitle", "Printout"], FontSize -> Inherited + 0]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0.2, 0}}, ShowGroupOpener -> False, CellMargins -> {{88, 50}, {10, 25}}, FontSize -> 36, FontWeight -> "Plain", FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765]], Cell[ StyleData["Section", "Presentation"], CellFrame -> {{0, 0}, {0.2, 0}}, CellMargins -> {{58, 50}, {10, 35}}], Cell[ StyleData[ "Section", "SlideShow", StyleDefinitions -> StyleData["Section", "Presentation"]], CellMargins -> {{58, 50}, {10, 35}}], Cell[ StyleData["Section", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {7, 22}}, FontSize -> 14]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> None, ShowGroupOpener -> True, CellMargins -> {{60, Inherited}, {0, 12}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[ 0.34901960784313724`, 0.5254901960784314, 0.5176470588235295]], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{60, 50}, {6, 15}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], Cell[ StyleData["Subsection", "SlideShow"], CellMargins -> {{60, 50}, {8, 12}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], Cell[ StyleData["Subsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {2, 22}}, FontSize -> 12]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellDingbat -> None, ShowGroupOpener -> True, CellMargins -> {{60, Inherited}, {0, 12}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[ 0.34901960784313724`, 0.5254901960784314, 0.5176470588235295]], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{60, 50}, {6, 20}}, LineSpacing -> {1, 0}], Cell[ StyleData[ "Subsubsection", "SlideShow", StyleDefinitions -> StyleData["Subsubsection", "Presentation"]]], Cell[ StyleData["Subsubsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {2, 22}}, FontSize -> 11]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell["Standard", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{60, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 3}, CounterIncrements -> "Text", FontFamily -> "Helvetica", FontSize -> 17], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{60, 50}, {10, 10}}, FontSize -> 17], Cell[ StyleData[ "Text", "SlideShow", StyleDefinitions -> StyleData["Text", "Presentation"]]], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Display", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Item", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "Item"], Cell[ StyleData["Item", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "Item", "SlideShow", StyleDefinitions -> StyleData["Item", "Presentation"]]], Cell[ StyleData["Item", "Printout"], CellMargins -> {{2, 2}, {0, 6}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subitem", StyleDefinitions -> StyleData["Item"]], CellMargins -> {{108, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "Subitem"], Cell[ StyleData["Subitem", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "Subitem", "SlideShow", StyleDefinitions -> StyleData["Subitem", "Presentation"]]], Cell[ StyleData["Subitem", "Printout"], CellMargins -> {{30, 2}, {0, 6}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["ItemNumbered", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell[ TextData[{ CounterBox["ItemNumbered"], "."}]], CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "ItemNumbered"], Cell[ StyleData["ItemNumbered", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemNumbered", "SlideShow", StyleDefinitions -> StyleData["ItemNumbered", "Presentation"]]], Cell[ StyleData["ItemNumbered", "Printout"], CellMargins -> {{2, 2}, {0, 6}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemNumbered", StyleDefinitions -> StyleData["ItemNumbered"]], CellDingbat -> Cell[ TextData[{ CounterBox["SubitemNumbered", CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )], "."}]], CellMargins -> {{108, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "SubitemNumbered"], Cell[ StyleData["SubitemNumbered", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "SubitemNumbered", "SlideShow", StyleDefinitions -> StyleData["SubitemNumbered", "Presentation"]]], Cell[ StyleData["SubitemNumbered", "Printout"], CellMargins -> {{30, 2}, {0, 6}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "ItemParagraph", StyleDefinitions -> StyleData["Item"]], CellDingbat -> None, CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15100}, CounterIncrements -> "ItemParagraph"], Cell[ StyleData["ItemParagraph", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemParagraph", "SlideShow", StyleDefinitions -> StyleData["ItemParagraph", "Presentation"]]], Cell[ StyleData["ItemParagraph", "Printout"], CellMargins -> {{14, 2}, {0, 6}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemParagraph", StyleDefinitions -> StyleData["Subitem"]], CellDingbat -> None, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15200}, CounterIncrements -> "SubitemParagraph"], Cell[ StyleData["SubitemParagraph", "Presentation"]], Cell[ StyleData[ "SubitemParagraph", "SlideShow", StyleDefinitions -> StyleData["SubitemParagraph", "Presentation"]]], Cell[ StyleData["SubitemParagraph", "Printout"]]}, Open]]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"]], Cell[ StyleData["DisplayFormula", "Presentation"], CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormula", "SlideShow", StyleDefinitions -> StyleData["DisplayFormula", "Presentation"]]], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 10]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "DisplayFormulaNumbered", StyleDefinitions -> StyleData["DisplayFormula"]], CellFrameLabels -> {{None, Cell[ TextData[{"(", CounterBox["DisplayFormulaNumbered"], ")"}]]}, {None, None}}, CounterIncrements -> "DisplayFormulaNumbered"], Cell[ StyleData["DisplayFormulaNumbered", "Presentation"], CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormulaNumbered", "SlideShow", StyleDefinitions -> StyleData["DisplayFormulaNumbered", "Presentation"]]], Cell[ StyleData["DisplayFormulaNumbered", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Inline Formatting", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"]], Cell[ StyleData["InlineFormula", "Presentation"], FontSize -> 17], Cell[ StyleData[ "InlineFormula", "SlideShow", StyleDefinitions -> StyleData["InlineFormula", "Presentation"]]], Cell[ StyleData["InlineFormula", "Printout"]]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Input and Output Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], ShowCellBracket -> True, CellMargins -> {{103, 10}, {5, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Input", "SlideShow", StyleDefinitions -> StyleData["Input", "Presentation"]]], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], ShowCellBracket -> True, CellMargins -> {{103, 10}, {7, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", MenuSortingValue -> 1550, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{110, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "InputOnly", "SlideShow", StyleDefinitions -> StyleData["InputOnly", "Presentation"]]], Cell[ StyleData["InputOnly", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], ShowCellBracket -> True, CellMargins -> {{103, 10}, {7, 5}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{110, 50}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Output", "SlideShow", StyleDefinitions -> StyleData["Output", "Presentation"]]], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Code"], CellMargins -> {{103, 10}, {5, 10}}], Cell[ StyleData["Code", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Code", "SlideShow", StyleDefinitions -> StyleData["Code", "Presentation"]]], Cell[ StyleData["Code", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{103, Inherited}, {Inherited, Inherited}}, FontSize -> 14], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{70, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17, Magnification -> Inherited 1.5], Cell[ StyleData[ "Print", "SlideShow", StyleDefinitions -> StyleData["Print", "Presentation"]]], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaShortInput", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{98, 10}, {5, 7}}, EvaluationMode -> "WolframAlphaShort", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "Equal"]]], CellBaseline -> Baseline], None}, {None, None}}, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaShortInput", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaShortInput", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaShortInput", "Presentation"]]], Cell[ StyleData["WolframAlphaShortInput", "Printout"], CellFrameLabelMargins -> 3]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaLong", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{100, 10}, {5, 7}}, StyleKeyMapping -> { "=" -> "Input", "Backspace" -> "WolframAlphaShort"}, EvaluationMode -> "WolframAlphaLong", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "SpikeyEqual"]]]], None}, {None, None}}, DefaultFormatType -> TextForm, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaLong", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaLong", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaLong", "Presentation"]], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData["WolframAlphaLong", "Printout"], CellFrameLabelMargins -> 3]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellMargins -> {{60, 4}, {6, 8}}], Cell[ StyleData["Program", "Presentation"], CellMargins -> {{60, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Program", "SlideShow", StyleDefinitions -> StyleData["Program", "Presentation"]]], Cell[ StyleData["Program", "Printout"], FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData[ "CellLabel", "SlideShow", StyleDefinitions -> StyleData["CellLabel", "Presentation"]]], Cell[ StyleData["CellLabel", "Printout"], FontSize -> 8, FontColor -> GrayLevel[0.]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["ManipulateLabel"]], Cell[ StyleData["ManipulateLabel", "Presentation"], FontSize -> 15], Cell[ StyleData[ "ManipulateLabel", "SlideShow", StyleDefinitions -> StyleData["ManipulateLabel", "Presentation"]]], Cell[ StyleData["ManipulateLabel", "Printout"], FontSize -> 8]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["GraphicsLabel"]], Cell[ StyleData["GraphicsLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "GraphicsLabel", "SlideShow", StyleDefinitions -> StyleData["GraphicsLabel", "Presentation"]]], Cell[ StyleData["GraphicsLabel", "Printout"], FontSize -> 8]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics3DLabel"]], Cell[ StyleData["Graphics3DLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "Graphics3DLabel", "SlideShow", StyleDefinitions -> StyleData["Graphics3DLabel", "Presentation"]]], Cell[ StyleData["Graphics3DLabel", "Printout"], FontSize -> 8]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell[ "Styles for SlideShow", "Section", CellChangeTimes -> {{3.514665148412793*^9, 3.5146651505550737`*^9}}], Cell[ StyleData["slideshowheader"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, -2}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1], CellPadding -> 0, CellFramePadding -> 0], Cell[ CellGroupData[{ Cell[ StyleData["hidefromslideshowgraphic"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1], CellPadding -> 0], Cell[ StyleData["hidefromslideshowgraphic", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> False]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["slideshowheader2"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1]], Cell[ StyleData["ConferenceGraphicCell", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> True], Cell[ StyleData["slideshowheader", "Printout"], FontSize -> 8, Magnification -> 0.75]}, Open]], Cell[ StyleData[ "ConferenceGraphicCellSlideShowOnly", StyleDefinitions -> StyleData["ConferenceCellGraphic"]], ShowCellBracket -> False, CellMargins -> 0, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowNavigationBar"], Editable -> True, Selectable -> False, CellFrame -> 0, ShowGroupOpener -> False, CellMargins -> {{0, 0}, {3, 3}}, CellOpen -> True, CellFrameMargins -> 0, CellFrameColor -> None, Background -> None], Cell[ StyleData["SlideShowNavigationBar", "Printout"], PageBreakAbove -> Automatic]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Special Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Picture"], CellMargins -> {{100, 100}, {20, 20}}, ShowStringCharacters -> False, MenuSortingValue -> 5000, Magnification -> 1], Cell[ StyleData["Picture", "Presentation"], CellMargins -> {{100, 100}, {20, 20}}, Magnification -> 1], Cell[ StyleData["Picture", "SlideShow"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureCaption", StyleDefinitions -> StyleData["Text"]], CellDingbat -> "\[FilledUpTriangle]", CellMargins -> {{114, 100}, {15, 4}}, ShowStringCharacters -> False, MenuSortingValue -> 5100, FontSize -> 14, FontColor -> GrayLevel[0.3]], Cell[ StyleData["PictureCaption", "Presentation"], CellMargins -> {{114, 100}, {20, 4}}, FontSize -> 16], Cell[ StyleData["PictureCaption", "SlideShow"], CellMargins -> {{114, 100}, {20, 4}}, FontSize -> 16]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OverviewTitle"], CellFrame -> None, CellMargins -> {{100, 100}, {20, 60}}, FontFamily -> "Calibri", FontSize -> 24, FontWeight -> "Bold", FontColor -> GrayLevel[0.4]], Cell[ StyleData["OverviewTitle", "Presentation"], CellFrame -> None, CellMargins -> {{100, 100}, {20, 60}}, FontFamily -> "Calibri", FontSize -> 24, FontWeight -> "Bold", FontColor -> GrayLevel[0.4]], Cell[ StyleData["OverviewTitle", "SlideShow"], CellFrame -> None, CellMargins -> {{100, 100}, {20, 60}}, FontFamily -> "Calibri", FontSize -> 24, FontWeight -> "Bold", FontColor -> GrayLevel[0.4]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["OverviewSection"], CellFrame -> None, CellMargins -> {{120, 100}, {10, 10}}, ReturnCreatesNewCell -> True, FontFamily -> "Georgia", FontSize -> 22, FontWeight -> Plain, FontColor -> RGBColor[0.811765, 0.117647, 0.145098]], Cell[ StyleData["OverviewSection", "Presentation"], CellFrame -> None, CellMargins -> {{120, 100}, {10, 10}}, ReturnCreatesNewCell -> True, FontFamily -> "Georgia", FontSize -> 22, FontWeight -> Plain, FontColor -> RGBColor[0.811765, 0.117647, 0.145098]], Cell[ StyleData["OverviewSection", "SlideShow"], CellFrame -> None, CellMargins -> {{120, 100}, {10, 10}}, ReturnCreatesNewCell -> True, FontFamily -> "Georgia", FontSize -> 22, FontWeight -> Plain, FontColor -> RGBColor[0.811765, 0.117647, 0.145098]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ChapterTagline"], CellMargins -> {{60, 90}, {15, 0}}, MenuSortingValue -> 2420, FontFamily -> "Georgia", FontSize -> 20, FontWeight -> "Plain", FontSlant -> "Italic", FontColor -> GrayLevel[0.3]], Cell[ StyleData["ChapterTagline", "Presentation"], CellMargins -> {{90, 90}, {15, 0}}, FontSize -> 24], Cell[ StyleData["ChapterTagline", "SlideShow"]]}, Open]], Cell[ StyleData["PlotLabel"], FontFamily -> "Helvetica", FontSize -> 14], Cell[ StyleData["NonPrintButton"], CellMargins -> {{128, Inherited}, {16, 0}}, FontFamily -> "Helvetica", FontSize -> 12, FontColor -> GrayLevel[1], ButtonBoxOptions -> { Background -> RGBColor[0.811765, 0.117647, 0.145098], ButtonMargins -> 4}], Cell[ CellGroupData[{ Cell[ StyleData["Program"]], Cell[ StyleData["Program", "SlideShow"], CellMargins -> {{116, 48}, {16, 16}}, FontSize -> 18]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Transcript"], CellMargins -> {{60, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 3}, CounterIncrements -> "Transcript", FontFamily -> "Helvetica", FontSize -> 17, Background -> GrayLevel[0.9]], Cell[ StyleData["Transcript", "Presentation"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, FontSize -> 0, Magnification -> 1, FontColor -> GrayLevel[1], Background -> GrayLevel[1], CellPadding -> 0], Cell[ StyleData["Transcript", "SlideShow"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, FontSize -> 0, Magnification -> 1, FontColor -> GrayLevel[1], Background -> GrayLevel[1], CellPadding -> 0]}, Open]], Cell[ StyleData["Transcript"], MenuSortingValue -> 10000]}, Open]], Cell[ CellGroupData[{ Cell[ "Styles for Screencast", "Section", CellChangeTimes -> {{3.520687019071189*^9, 3.5206870238431892`*^9}, { 3.520687323526189*^9, 3.520687328236189*^9}}], Cell[ CellGroupData[{ Cell[ StyleData["LargeChapter", StyleDefnitions -> StyleData["Chapter"]], CellMargins -> {{27, Inherited}, {8, 34}}, MenuSortingValue -> 2430, FontFamily -> "Georgia", FontSize -> 30, FontColor -> RGBColor[0.811765, 0.117647, 0.145098]], Cell[ StyleData["LargeChapter", "SlideShow"], CellMargins -> {{100, 10}, {15, 100}}, FontSize -> 48]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["LargeChapterTagline"], CellMargins -> {{27, 60}, {30, 20}}, MenuSortingValue -> 2420, FontFamily -> "Georgia", FontSize -> 26, FontWeight -> "Plain", FontSlant -> "Italic", FontColor -> GrayLevel[0.3]], Cell[ StyleData["LargeChapterTagline", "SlideShow"], CellMargins -> {{100, 60}, {30, 15}}, FontSize -> 32]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["LargeOverviewTitle"], CellFrame -> None, CellMargins -> {{100, 100}, {20, 60}}, FontFamily -> "Calibri", FontSize -> 24, FontWeight -> "Bold", FontColor -> GrayLevel[0.4]], Cell[ StyleData["LargeOverviewTitle", "SlideShow"], CellFrame -> None, CellMargins -> {{100, 100}, {20, 60}}, FontFamily -> "Calibri", FontSize -> 36, FontWeight -> "Bold", FontColor -> GrayLevel[0.4]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["LargeOverviewSection"], CellFrame -> None, CellMargins -> {{120, 100}, {10, 10}}, ReturnCreatesNewCell -> True, FontFamily -> "Georgia", FontSize -> 22, FontWeight -> Plain, FontColor -> RGBColor[0.811765, 0.117647, 0.145098]], Cell[ StyleData["LargeOverviewSection", "SlideShow"], CellFrame -> None, CellMargins -> {{120, 100}, {10, 10}}, ReturnCreatesNewCell -> True, FontFamily -> "Georgia", FontSize -> 30, FontWeight -> Plain, FontColor -> RGBColor[0.811765, 0.117647, 0.145098]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["LargeItem", StyleDefinitions -> StyleData["Item"]], CellDingbat -> "\[RightGuillemet] ", LineSpacing -> {1.5, 0}, MenuSortingValue -> 2700, FontFamily -> "Georgia", FontSize -> 18, FontColor -> GrayLevel[0.2]], Cell[ StyleData["LargeItem", "SlideShow"], CellMargins -> {{100, 20}, {10, 10}}, FontSize -> 26]}, Open]]}, Closed]]}, Visible -> False, FrontEndVersion -> "9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 14, 2012)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[65044, 1468, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[1397723, 30276, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[1415426, 30629, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[1450707, 31324, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[1599785, 33900, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[1678557, 35279, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 1791051, 37502} } *) (*NotebookFileOutline Notebook[{ Cell[582, 21, 12512, 209, 2, "hidefromslideshowgraphic"], Cell[CellGroupData[{ Cell[13119, 234, 693, 15, 221, "Title"], Cell[13815, 251, 444, 6, 32, "Subtitle"], Cell[14262, 259, 502, 7, 26, "Subsubtitle"], Cell[14767, 268, 545, 12, 57, "Subsubtitle"], Cell[15315, 282, 49692, 1181, 269, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[65044, 1468, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[65133, 1473, 4995, 104, 151, "Section"], Cell[70131, 1579, 1326906, 28662, 191, "Text"], Cell[1397040, 30243, 192, 6, 61, "Subsection"], Cell[1397235, 30251, 149, 5, 86, "Subsection"], Cell[1397387, 30258, 146, 5, 86, "Subsection"], Cell[1397536, 30265, 138, 5, 86, "Subsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1397723, 30276, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[1397812, 30281, 4773, 100, 151, "Section"], Cell[1402588, 30383, 10960, 185, 168, "Text"], Cell[1413551, 30570, 485, 14, 61, "Subsection"], Cell[1414039, 30586, 511, 14, 86, "Subsection"], Cell[1414553, 30602, 824, 21, 86, "Subsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1415426, 30629, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[1415515, 30634, 7406, 159, 151, "Section"], Cell[1422924, 30795, 22008, 366, 163, "Text"], Cell[CellGroupData[{ Cell[1444957, 31165, 264, 5, 61, "Subsection"], Cell[1445224, 31172, 174, 2, 78, "Subsubsection"], Cell[1445401, 31176, 114, 1, 52, "Subsubsection"], Cell[1445518, 31179, 124, 1, 52, "Subsubsection"], Cell[1445645, 31182, 324, 9, 52, "Subsubsection"], Cell[1445972, 31193, 151, 3, 52, "Subsubsection"], Cell[1446126, 31198, 125, 1, 52, "Subsubsection"], Cell[1446254, 31201, 214, 7, 52, "Subsubsection"] }, Closed]], Cell[1446483, 31211, 22, 0, 50, "Subsection"], Cell[CellGroupData[{ Cell[1446530, 31215, 209, 3, 50, "Subsection"], Cell[1446742, 31220, 145, 3, 78, "Subsubsection"], Cell[1446890, 31225, 133, 1, 52, "Subsubsection"], Cell[1447026, 31228, 132, 1, 52, "Subsubsection"], Cell[1447161, 31231, 329, 9, 52, "Subsubsection"] }, Closed]], Cell[1447505, 31243, 22, 0, 50, "Subsection"], Cell[CellGroupData[{ Cell[1447552, 31247, 315, 4, 50, "Subsection"], Cell[1447870, 31253, 587, 14, 78, "Subsubsection"], Cell[1448460, 31269, 394, 7, 52, "Subsubsection"], Cell[1448857, 31278, 376, 6, 52, "Subsubsection"], Cell[1449236, 31286, 221, 3, 52, "Subsubsection"], Cell[1449460, 31291, 295, 6, 52, "Subsubsection"], Cell[1449758, 31299, 485, 8, 52, "Subsubsection"], Cell[1450246, 31309, 180, 2, 52, "Subsubsection"], Cell[1450429, 31313, 217, 4, 52, "Subsubsection"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1450707, 31324, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[1450796, 31329, 6036, 149, 151, "Section"], Cell[1456835, 31480, 131684, 2164, 134, "Text"], Cell[CellGroupData[{ Cell[1588544, 33648, 105, 1, 61, "Subsection"], Cell[1588652, 33651, 131, 1, 78, "Subsubsection"], Cell[1588786, 33654, 332, 9, 52, "Subsubsection"] }, Closed]], Cell[1589133, 33666, 22, 0, 50, "Subsection"], Cell[CellGroupData[{ Cell[1589180, 33670, 130, 3, 50, "Subsection"], Cell[1589313, 33675, 400, 7, 156, "Subsubsection"], Cell[1589716, 33684, 176, 2, 52, "Subsubsection"] }, Closed]], Cell[1589907, 33689, 22, 0, 50, "Subsection"], Cell[CellGroupData[{ Cell[1589954, 33693, 137, 3, 50, "Subsection"], Cell[1590094, 33698, 269, 5, 117, "Subsubsection"], Cell[1590366, 33705, 287, 8, 52, "Subsubsection"] }, Closed]], Cell[1590668, 33716, 22, 0, 50, "Subsection"], Cell[CellGroupData[{ Cell[1590715, 33720, 131, 3, 50, "Subsection"], Cell[1590849, 33725, 273, 3, 78, "Subsubsection"], Cell[1591125, 33730, 411, 9, 91, "Subsubsection"] }, Closed]], Cell[1591551, 33742, 22, 0, 50, "Subsection"], Cell[CellGroupData[{ Cell[1591598, 33746, 531, 7, 50, "Subsection"], Cell[1592132, 33755, 7592, 138, 87, "Subsubsection"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1599785, 33900, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[1599874, 33905, 7456, 165, 151, "Section"], Cell[1607333, 34072, 69586, 1146, 121, "Text"], Cell[CellGroupData[{ Cell[1676944, 35222, 103, 1, 61, "Subsection"], Cell[1677050, 35225, 226, 7, 78, "Subsubsection"], Cell[1677279, 35234, 121, 1, 52, "Subsubsection"] }, Closed]], Cell[1677415, 35238, 22, 0, 50, "Subsection"], Cell[CellGroupData[{ Cell[1677462, 35242, 110, 1, 50, "Subsection"], Cell[1677575, 35245, 237, 7, 78, "Subsubsection"], Cell[1677815, 35254, 121, 1, 52, "Subsubsection"] }, Closed]], Cell[1677951, 35258, 22, 0, 50, "Subsection"], Cell[CellGroupData[{ Cell[1677998, 35262, 100, 1, 50, "Subsection"], Cell[1678101, 35265, 131, 1, 57, "Subsubsection"], Cell[1678235, 35268, 129, 1, 43, "Subsubsection"], Cell[1678367, 35271, 129, 1, 43, "Subsubsection"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1678557, 35279, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[1678646, 35284, 4810, 102, 151, "Section"], Cell[1683459, 35388, 29157, 483, 134, "Text"], Cell[CellGroupData[{ Cell[1712641, 35875, 191, 6, 61, "Subsection"], Cell[1712835, 35883, 182, 2, 57, "Subsubsection"], Cell[1713020, 35887, 129, 1, 43, "Subsubsection"], Cell[1713152, 35890, 121, 1, 43, "Subsubsection"] }, Closed]], Cell[1713288, 35894, 22, 0, 50, "Subsection"], Cell[CellGroupData[{ Cell[1713335, 35898, 96, 1, 50, "Subsection"], Cell[1713434, 35901, 148, 3, 57, "Subsubsection"], Cell[1713585, 35906, 118, 1, 43, "Subsubsection"], Cell[1713706, 35909, 162, 3, 43, "Subsubsection"] }, Closed]], Cell[1713883, 35915, 22, 0, 50, "Subsection"], Cell[CellGroupData[{ Cell[1713930, 35919, 137, 3, 50, "Subsection"], Cell[1714070, 35924, 219, 4, 57, "Subsubsection"], Cell[1714292, 35930, 213, 4, 43, "Subsubsection"], Cell[1714508, 35936, 339, 6, 43, "Subsubsection"], Cell[1714850, 35944, 383, 9, 85, "Subsubsection"], Cell[1715236, 35955, 231, 5, 43, "Subsubsection"], Cell[1715470, 35962, 235, 5, 43, "Subsubsection"] }, Closed]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)