insurance_fraud_statebin_in_R.ipynb

{
  "nbformat": 4,
  "nbformat_minor": 0,
  "metadata": {
    "colab": {
      "provenance": []
    },
    "kernelspec": {
      "name": "ir",
      "display_name": "R"
    },
    "language_info": {
      "name": "R"
    }
  },
  "cells": [
    {
      "cell_type": "markdown",
      "source": [
        "# Package Needed for the Graph"
      ],
      "metadata": {
        "id": "7Cdwot4D0MTD"
      }
    },
    {
      "cell_type": "code",
      "source": [
        "install.packages(\"statebins\")"
      ],
      "metadata": {
        "colab": {
          "base_uri": "https://localhost:8080/"
        },
        "id": "7fJPFjuXnV7b",
        "outputId": "abc1dcf0-6c75-4011-90bf-0f44e4afe3a6"
      },
      "execution_count": null,
      "outputs": [
        {
          "output_type": "stream",
          "name": "stderr",
          "text": [
            "Installing package into ‘/usr/local/lib/R/site-library’\n",
            "(as ‘lib’ is unspecified)\n",
            "\n"
          ]
        }
      ]
    },
    {
      "cell_type": "markdown",
      "source": [
        "# Changing Font (but doesn't work in collab for some reason)"
      ],
      "metadata": {
        "id": "mPQDYYlO0AMs"
      }
    },
    {
      "cell_type": "code",
      "source": [
        "install.packages(\"showtext\")"
      ],
      "metadata": {
        "colab": {
          "base_uri": "https://localhost:8080/"
        },
        "id": "zTpB3ZCcwToT",
        "outputId": "b7ea4e03-dc17-43fc-c190-5f7c0030593d"
      },
      "execution_count": null,
      "outputs": [
        {
          "output_type": "stream",
          "name": "stderr",
          "text": [
            "Installing package into ‘/usr/local/lib/R/site-library’\n",
            "(as ‘lib’ is unspecified)\n",
            "\n"
          ]
        }
      ]
    },
    {
      "cell_type": "code",
      "source": [
        "library(showtext)\n",
        "\n",
        "font_add_google(\"Gochi Hand\", \"gochi\")\n",
        "\n",
        "# font_add(family = \"myriadpro\", regular = \"MYRIADPRO-COND.ttf\")\n",
        "# changing the rendering engine for the font doesn't work either"
      ],
      "metadata": {
        "id": "snhBH7C6wSCY"
      },
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "code",
      "source": [
        "showtext_auto()"
      ],
      "metadata": {
        "id": "YXPe5qNlwr2A"
      },
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "source": [
        "# Statebin Graph"
      ],
      "metadata": {
        "id": "j3M7B_5E0IAf"
      }
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 472
        },
        "id": "-QD6G7nFm1g8",
        "outputId": "e243eefa-e09b-404c-e334-2864b40cdeea"
      },
      "outputs": [
        {
          "output_type": "stream",
          "name": "stderr",
          "text": [
            "Warning message in validate_states(state_data, state_col, merge.x):\n",
            "“Removing duplicate state rows”\n"
          ]
        },
        {
          "output_type": "display_data",
          "data": {
            "text/plain": [
              "plot without title"
            ],
            "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAIAAAByhViMAAAACXBIWXMAABJ0AAASdAHeZh94\nAAAgAElEQVR4nOzdeWAM9//H8c8mm1tC7iDiFkdQV8SRQ4i77lbcVB1VR+toS3+qpyp1t+il\n36KIm1Jn4ogWFXcRt4j7KkLItfP7Y9muZBOhsbP55Pn47be/nc/Mfva9n5ndfWVmZ2gURREA\nAADI/6zULgAAAAB5g2AHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAA\nAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDY\nAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABI\ngmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcA\nACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmC\nHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACA\nJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYA\nAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg\n2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAA\nSIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAH\nAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJ\ngh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAA\ngCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2\nAAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACS\nINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEA\nAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAktCqXQBgiXQ6\nka4TQiiKIoQQihCKIp7853GLfqa+RdH/R9HPFMbL6nuwshKKIjJ0TxqNFtZ3YHgiw7M+uf/k\nP0Ioj5/o8TPaWlulpGcYFfC4X/1i/zYKoShP9SCMJo2fztHGOjk1XTEsZpj170sWivEgPDVX\nedL47yO1VhqttdXDlPSnXsvTA/jvGClPlaUoTz/Hk8oLO9neuZ8ijF+IogRW8vFxc8zlygUA\niRHsABN0irj/UNEpik4RimJ8R+gURTFqz1AURRE6RdH9e+fxLEO7ThGeLraP0jJuP0hThKET\noROPu9IJo56FMDQ+7uHJnQzd4/51itDplCYVPDfEX9cphkZFp4gM3ZP7OqG/k/H0AjpF0eme\nFKl73LP+GXsHFp+391JKuk7RKRnKv8sYD4LhlSo6/cMVRfe4B32hiqLontyp5OMc4OuycFfi\n4wHRPennyR3l8QDpi9YpuiePN7Q/eYCS8fj+jLcbvj19u/6+TqfTVxg1rvmr9cuovdUAgPo4\nFAsAACAJgh0AAIAkCHYAAACSINgBAABIgpMnABPSM/K4w/sp6ekZurzt8+SNB3nbYVziXZ1O\nefZyuXbtXkrGhbt52KEQYvWf5/K2QwCQCcEOMCGvM5h4kJLx5GIeeeb87eS87fDw5aS8LfLW\n/dQbSSl52KEQYvO+i3nbIQDIhEOxAAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEA\nAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJGQIdh9//LHmaS4uLqGh\noStWrFC7tPwhPT29Z8+eTk5Ojo6OFy9m/hfWV61apdFo5syZ8x+fJSgoqGLFitnNjYyMLFSo\n0H98CgAACjit2gXkmdGjR5cpU0YIodPpEhMT582b17Fjx2nTpg0bNkzt0v518ODBGjVqKIqi\ndiFP2bhx4/z587t169a5c2c3N7eX9CyRkZEPHz58SZ0bWOYIAwBgHvIEuzZt2gQFBRkm33vv\nvapVq44dO3bAgAH29vYqFmYsNjZW7RJMuHnzphBiwIABwcHBL+9Z3nnnnZfXuYFljjAAAOYh\nw6FYk5ydnTt27JiUlHT48GF9y/bt2yMiIlxcXBwdHWvWrDl37lzDwg0bNgwJCVm7dm2JEiXq\n16+vb9y8eXNoaKizs7OPj8/rr79++vRpw/I5dBUSEhIcHHzgwIHGjRu7uLh4eXl16dLl+vXr\nQojmzZsPHTpUCKHRaGrXrq1ffvHixYGBgY6Oji4uLrVr1168eLGhK51O9/HHH5coUcLe3r5W\nrVqbN28eMmSIra1tbsrIav369SEhIc7Ozg4ODgEBAVOmTNHv1mrSpEnv3r31lWs0mvPnz+c8\nsDm8wJzHzfhQrKIon376qf6lVa1addmyZZmeJa9G+MqVK/369StZsqS9vb2Pj0/Hjh3j4+Nz\nfoF6VprcLPUcbLVWWus87tTd0fbZCz2PYoXtNXlao5Od1qdwHv9ZVdHPNW87BACZSBvshBCO\njo5CiLS0NCFEdHR048aNU1NTFy5cuHr16rp16/bt23fy5Mn6Je3s7O7evTtq1KjRo0d/+OGH\nQojNmzc3a9bM3t5+zpw548eP37dvX0hIyNWrV5/Zla2tbUJCwoABA0aPHn369OnZs2cvXbr0\nvffeE0LMnDmzbdu2Qoi9e/fOnz9fCBEVFdWlSxdfX9+lS5cuWrTI09OzS5cu69at03c1YcKE\nTz75pH79+mvWrBk0aFCvXr3++usvQ7DLuYxMVq1a1apVKycnpwULFqxdu7ZZs2YjRox4//33\nhRCzZs0aN26cEOLHH3/cu3dvsWLFch7VHF5gzuNmbNKkSePGjQsNDV27du3YsWM/+eSTgwcP\nGubm4Qh36NBh7dq1H3300fr166dMmXLq1KnQ0NDk5OScX6MQwiav92W7OtoUssvjTmuVKJy3\nHTav6KG1ysvPhJLuDmEVPfKwQyHE4LYBedshAMhEnkOxWW3btk2r1QYEBAghRo0aVbp06fXr\n1+vTXkRExOXLlz/55JO3337b3t5eo9EcPnx4xYoV7du31z92zJgxpUqVWrdunVarFUIEBAQE\nBwcvWbJk6NChOXclhEhMTFy0aFGDBg2EEB07dgwLC9u8ebMQonz58h4eHkIIw+66s2fPhoeH\nL168WB/XgoOD3d3dFy1a1KpVK0VRZsyYERAQsHjxYo1Go68hKCjIyclJ/9hnlmFs9OjRJUqU\nWL16tf6JGjdufPbs2WnTpr3//vsVKlQoVaqUEMLf399QWM6ye4E5j5vh4YqiTJ8+PSAgYMGC\nBfqW4ODgkiVLGjJrXo3wvXv3du/e/cEHH/Tt21ffc926dZcsWXLnzh19zwAASEaePXa3b9++\nevXq1atXr1y5snfv3r59++7cubNfv36FCxe+fv36gQMHWrVqZWVl9eiJli1bJiUlHTlyRP9w\nW1vb1q1b6+/funUrLi6uRYsW+nQihAgMDExJSRk6dGhuunJ0dNRnDj1fX9+su6z0Ro8eHR0d\nbQg0Li4uPj4+Fy5cEEJcvXr12rVrERERmifHxurWrasPqUKI3JRhcPny5fj4+JYtWxofxn31\n1VfT0tJ27979AkOd3QvMYdyMH56YmHj58uXw8HBDS9GiRQ2ZMg9H2MHBQR+Uo6OjdTqdEKJs\n2bKjR49+5l5JAADyKXmCXatWrYoWLVq0aNFixYoFBgbOmzdv0KBBU6dOFUJcvnxZCDF9+nQH\nIwMHDhRCGK7u4eHhYWNjo79/5coVIYSXl1fWZ8lNV56ensYP0Wq1+lSR1b179z766KOqVasW\nLlxYq9VqtdqLFy/qF7527ZoQomjRosbL+/v7574Mg0uXLgkhihcvbtyo71nfz/PK7gXmMG7G\n9CEsUyeGsJWHI2xjY7N69WorK6smTZp4eXl16tRp4cKF6enpz/FSAQDIV+Q5FDt16lT9b/M1\nGo2Tk1NAQECRIkWMF3jjjTf69euX6VHlypXT3zGkOiGElZWVECK7NPbMrnLv1Vdf/eOPP95/\n//3mzZsXKVJEo9E0a9ZMPyslJcVQiYHm6V+257IM/aMyvRz9mRNWefqDqmeOm/FTZ5KRkWE8\nmVcj3KBBg1OnTm3fvn39+vW///57t27dpk6dumPHDgcHh+ftCgAAyydPsAsKCjK+3IkxPz8/\nIURGRkZ2C2RSokQJIURiYqJxY0JCgqOj4/N2lYPTp0/v2LGjX79+X3zxhb4lPT399u3bpUuX\nFkLoryen329ncOLEiRd4Rb6+vuLJfjsD/aR+Vl7JYdyM97Hp72c6eGo4GzcPR1jP2to6PDw8\nPDx80qRJs2fPHjRo0JIlS3r16vXMBzrYaRRFKEIIRaMIRX9fUcST/3ucUHWKIp60G5YR/95X\nFCEUIbTWGmc76yKONobFnnTz5LFGdx73b+jkyaI65UmHihCK0FppGpRyffLAx7N0ijAq9d/l\nn7qvPHkWQ29CURThYGvdvpq3ThFCEbosyxi/cONZme6IJ08hhLC3sXa0sXq7cdnHA2IYGUXo\n7ynKk6FSnkwrT5Z43MmT/+ge37e3tf6wWy3lyfL6/1/R72VdfxEA8hd5gl0O3NzcAgMDV61a\ndefOHcNuvHnz5p08efLjjz82/CDMwNnZuWrVqmvXrk1KSnJ2dhZCxMfHV6pU6eOPPx43btxz\ndZWJfudZenq6VqvVn65rHK1mz5796NEj/b6r0qVLFy5ceP369RMnTtTP3bt375EjR/QnTzzX\nK/Lx8QkICFi7du2jR48M51WsWLHC0dGxXr16zzmWOcl53AyLlSpVysPDY8OGDTqdTr+T7+TJ\nk4cOHdKf0PC8KysT4xHet2/fpEmTZsyYYTg63LRpUyHEjRs3nvlatNZCay2EMOwizevLn+QZ\nJ7ULAABYEHl+Y5eziRMnJicnh4aGzps3b9OmTWPHjn3zzTcvXbqUXVD48ssvb926FRERsWjR\noh9++KFt27ZeXl4DBgx4ga6M6X9JNn78+OXLl5crV65EiRLff//9mjVr/vjjj5EjR65YsSIs\nLOzo0aNbt25NSUnp27fv33//3adPn02bNn3//fevv/668RkDz1XGV199dfXq1bZt265Zs2bD\nhg2DBg3asGHD2LFjXVxcXnBAs5HDuBlYWVm99dZbZ86cee2111asWDFnzpymTZvWrFnzxV5a\nJsYjXLx48d9//z0iImLu3LlbtmyJiorq2bOni4uL4dxnAABko+R/+r1Bu3btynmx2NjYiIgI\nZ2dnGxubChUqTJw4MS0tTT+rcePGJUuWzLT8unXrgoKCHB0dvby82rdvf/LkyRfrSn+tDf39\nxMTEGjVq2NjY+Pv7K4qyd+/eevXqOTo6ent7Dxgw4O7du7/99puHh4erq+uJEycePXo0ZMgQ\nDw8PJyen4ODgPXv2dO3atVChQrkpI6tNmzY1bNjQycnJzs6uRo0ac+fONcz6+eefhRCxsbEm\nH7hy5UohxOzZs3PzAnMYt7p16+pftaIo6enpH3zwgY+Pj62tbdWqVVeuXDl48GBbW9s8H+FD\nhw61b9/ey8vLxsamWLFi7du3379/f3ZDBABAfqdR+Fc1848mTZocO3bsxU5lBQAA0isoh2Lz\no2nTpnXs2NFweY47d+7ExcW98sor6lYFAAAsVoE4eSKfcnd31/9jGP369Xv06NG0adPu3bs3\nYsQItesCAAAWimBnuXr06CGEmDp1ateuXRVFeeWVV9auXdu4cWO16wIAABaK39gBAABIgt/Y\nAQAASIJgBzzln3/+6d69e/Hixd3d3Vu3bm34JzFeWPXq1TVGChUq9GL9nDhxIigoKNPF/P5j\ntSb7fOGCL1++3LVrV29vbxcXl9DQ0L/++us/Fpldh3k1pAAgH4Id8JTevXsnJCT8/vvvu3fv\ndnFxad26daZ/x/Z53b59e8aMGYlPnDx58gU6iYqKatSokb+/fx5Wm12fL1xw27ZtExMTN2zY\nsH//fl9f31atWj148OC/FJldh3kypAAgJ5WvowdYkgsXLmg0mgMHDugnb9++rdVqN2/e/F/6\ndHR0XLdu3X8s7JdffklISFi5cqW1tbWh8T9Wa7LPFy741q1bHTp0OHbsmH4yISFBCPHXX3+9\ncJHZdfjCFQJAQcAeO+BfcXFx9vb21atX10+6urpWqlRpz549L9xhSkpKcnLyihUratasWbJk\nyY4dO77Y7qWePXv6+fnlbbUm+3zhgt3c3JYvX16pUiX95KVLl6ytrUuUKPHCRWbXYV4NKQBI\niWAH/OvGjRtubm4ajcbQ4unpef369Rfu8N69e97e3qmpqXPmzFmyZMnDhw9DQkLu3LmTF8Xm\nfbUijwq+fft23759R4wY4ePjkydFGnf4UocUAPI7rmMHPMU4gmTXknuenp5Xr141TEZFRRUt\nWnT58uX6f9/2v8vbakVeFBwfH//qq69GRERMmDAhT4rM1OHLHlIAyNfYYwf8y9vb++bNm4rR\nxR2vX7/u7e2dV/07Ozv7+fklJibmSW8vu1rx/AVHR0c3bNhw6NChs2bN0qe3/1hk1g7/Y4UA\nIDeCHfCvOnXqpKSk7Nu3Tz958+bN48ePN2jQ4IU7/Pvvv/v165eamqqfvH///oULF8qWLZsH\ntb6EasV/K3jnzp2vvfba/PnzhwwZkidFmuzwpQ4pAOR3/MsTwFM6dep07ty5uXPnOjg4vPPO\nOzdv3tyzZ88LH9+8deuWv79/q1atxo0bl5aWNmbMmL1798bHxzs6Oj5XP1evXk1PT9+4ceOA\nAQP014ErUqRIoUKF/ku1JvtMSUl5sYIfPnwYEBDQq1evN954w9Do6urq5OT0YkVm1+GjR4/y\nZEgBQE7qnpQLWJq7d+/26tWraNGiHh4e7du3v3z58n/s8MCBA40bNy5cuLCnp2ebNm3Onj37\nAp2ULFky0zt36tSp/7Ha7Pp8sYK3bNmS9eNl5syZL1xkDh3myZACgJTYYwcAACAJfmMHAAAg\nCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0A\nAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQI\ndgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAA\nkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgB\nAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiC\nYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAA\nIAmCHQAAgCQIdgAAAJLQql0AAADIf1LTRUqq2kU8zcleWBX4HVYEOwAA8NwURWTo1C7iaYra\nBViCAp9sAQAAZEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJ\nEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAA\nACRBsAMAAJAEwQ4AALxc9QIDPIpor129Ytx48MA+V2dNr+6dDMu4Omsy3YYPG6hGvfmYVu0C\nAACA/Nzc3KOiFgwdNsrQsiRqgZubu/EyAwcNe+vtd4xbChVyNlN9siDYAQCAl65R46aLF84z\nBLuMjIzlSxeFhIbrdDrDMoULF/HzK6VOfbLgUCwAAHjpwsKaXLl86dDB/frJrdGbPL28y5ar\noG5V8iHYAQCAl87Ozq5Dp8jFi+bpJ6OiFnTp2ivTMl9P/NzHw974diL+mNkrzd8IdgAAwBy6\ndu+9fOmi9PT0Bw/ub1y/9rXO3TIt0KfvwNg/DxrfSpcpp0qp+Re/sQMAAOZQq1agu4fnls3r\n/7l9u179YC8v70wLuLt7lK9QUZXapEGwAwAAZtKlW69VK5feunWzW/c+atciJ4IdAAAwk8jI\nHqHBtXQ63YKFK7POvXv3zoUL541btNbaYsV9zVScFAh2AADATLy8fapVq1Hct4SdnV3WuXNm\nTZ8za7pxSwm/koePnjdTcVLQKIqidg0AACCfSUkTD1PULuJpzo7CusCfFFrgBwAAAEAWBDsA\nAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ\n7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAElq1CwAAAPmPlZWw\nsbAQoVG7AEugURRF7RoAAACQBzgUCwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJCztT\nGQDMxdIuCaDhUg14Ir9snPmlzgKFYAegIMrQiaRktYt4moOtsLNVuwhYAEvcOO2EnU3mRgus\n09lRWBf4I5EFfgAAAABkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIE\nOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAA\nSRDsAAAAJEGwAwAAkATBDgBypVFI7fdGDjFM3rt316OIduKETw0tp06dcHXW/LXnz26R7fq/\n2V2NGlEQtWkVnnV7O3niuKuzxr+sj6uzJuttyeIF5q+zXmBAGT/3mzdvGFpu3brp6qy5fOmi\nfu6E8R8bLx+3d7dhLnKPYAcAuRLRtGXMlo2GyR3bYxwcHGOiNxlatsVsdnV1q1W7rhrVoeDq\n3af/mtXL7969Y9w4f95PlatU3bn78KGj5w4dPTd56iwhhP7+oaPnWrdpr0qpGo1m7IcjVXnq\ngoNgBwC50rRZyzNnTiUknNNPxkRv6tKt1/59fyUl3TO0hDdpZm1trV6NKIhat+lQyKnQsiUL\nDS1paWlRi+b3eWOAp6eXn18pP79S7h6eQgj9fT+/Uo6OTqqU+u6I0atXLftj53ZVnr2AINgB\nQK7UrBXo5uYevXmDfnJr9KaWrdqWr1Bxx/YYIUR6evrO2G1Nm7ZUtUYURLa2tl269Zo/7ydD\ny8YNa+8/uP96pMX9HqBYcd8RI8cMf+et1NRUtWuRFsEOAHLFysoqvEmz6C0bhRDnz5+9cvVy\nUFCDsEZN9Edj4/buTk5+0DiiudploiDq1af/oYP7jxw+qJ9cMG9uhw6dXVwKq1uVCYoyZNgo\nRVFmTp+UdebECZ96FNEabs0jGpq/QAkQ7AAgtyIiWuzYHpOWlhazZWNQUAN7B4ewsCZbozcJ\nIWKiN9WsWcfd3UPtGlEQlStXoUHDUP1Ou2tXr2zZvL73G/3VLso0W1vbyVNnfT3pi/Pnz2aa\n1afvwNg/Dxpuc76fp0qF+R3BDgByq3FE8+TkB/vi9sREbwoLjxBCNAgOvXjxQkLCuW1bt0Q0\n4zgsVNO7T/+lUb+mPHq0aOEv/hUr164TpHZF2QoOadSmbcdRIwZnavf09KpUOcBwK1W6jCrl\n5XcEOwDILXd3j5o16+yM3bbrz9iwsCZCCEdHp9p1gqI3bziwf28EP7CDel5t29HKymrz5vVL\non7t88YAtct5hs/HT967Z9fa31aqXYiECHYA8ByaNG2x6NdfhBDVqtfQt4Q1ajJn9gw3N/dX\natRStTQUaHZ2dpFde06bPOH8+bMWeNpEJp6eXuM++XL8Z2PVLkRCBDsAeA4RTVuePXs6JDTc\nyurx52dYoyanTsY3jmiu0WjUrQ0FXO8+/fft+6t9+9ct8bSJLHr16e/nV0rtKiSkURRF7RoA\nwNwydCIpWe0inuZgK+xs1S4CFsASN047YWeTudEC63R2FNYFfodVgR8AAAAAWRDsAAAAJEGw\nAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQ\nBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACShVbsAAFCBRiPs\nbNQu4mnW1mpXAMtgiRunqb1AFlinRqN2BRZAoyiK2jUAAAAgD3AoFgAAQBIEOwAAAEkQ7AAA\nACRBsAMAAJAEwQ4AAEASXO4kv0rPEBZ1QrNGI7SmLtaQlm72UnKktTZxPrxOERkZalSTPRtT\nb80MndDpzF5KjkzWmZYhhCVtnFZWpi/WoLOkIoUQVqau1KAoIt3CNk6Tb6L8Yv2ehHRLereX\nKVq4Smn3rO35YuOEZeJyJ/nVvQeW9c7XWotCDiba79w3eyk5KuRgIoCmponkFDWqyV5hJxPf\nncmPRKqFBeUihUw0JiWLDEsKoPll43R2MHEpu5Q08dDCNk6TdeYXRTv8eOe+BQ1oq6BSyz5t\nlalREeKuhW2cDnYWd8k6ZIdDsQAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABI\ngmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcA\nACAJgh0AAIAkCHYAAACSINgBAABIgmAnuUYhtd8bOcQwee/eXY8i2okTPjW0nLGwWcAAACAA\nSURBVDp1wtVZ89eeP/WTfx855Oqs6diumbkLfVq3yHb93+yuv18vMMDVWePqrHEvbO1f1qdb\nZLs/dm5XsbZ6gQEeRbTXrl4xbjx4YJ+rs6ZX905CiG6R7fQFZ7otWbzA/KWW8XO/efOGoeXW\nrZuuzprLly4KyxjYZw6meNarUEWm7XPC+I/VqiQ7uRlY41eB7Oz7ocvl5X09CjsYWtwL2z/c\n9HZxj0LdIvxvrunv5+1svPzMYWFx33ex0Zr1uzU3q1vPQj7h8VIR7CQX0bRlzJaNhskd22Mc\nHBxjojcZWrbFbHZ1datVu65+8ue537Vr/9qO7TEXLpw3c6k5GDT43aPxiXEHT37344JixX3b\ntm4898fZKtbj5uYeFfVUSlsStcDNzV1/f9rM7w8dPXfo6LnJU2cJIfT3Dx0917pNe/OXqtFo\nxn44Mru5ljCwOQ+mXs6vAiblZmCRG4oiJvRvkLX9180n/vz7yrTBoYaWwErevZtXGjg5Ji1d\nZ8YChcj16rbMT3jkLYKd5Jo2a3nmzKmEhHP6yZjoTV269dq/76+kpHuGlvAmzaytrYUQD5OT\nly1Z2H/gkPoNQhbMm6ta0Vk4O7sUK+5bunTZsEZNJk3+ZtT7Y8eMHq7iDptGjZsuXjjPMJmR\nkbF86aKQ0HD9pKenl59fKT+/Uu4enkII/X0/v1KOjk7mL/XdEaNXr1qW3a44SxjYnAdTL+dX\nAZNyM7DIjYmL97UPKRtcrVjWWUOmbwupXqx9cFkhhNba6pthjWavPhJ34prZa8zV6rbYT3jk\nLYKd5GrWCnRzc4/evEE/uTV6U8tWbctXqLhje4wQIj09fWfstqZNW+rnLl++uEgR16B6DSO7\n9Fwwf25GRoZqdedo+Mgx9nb2a39bqVYBYWFNrly+dOjgfv3k1uhNnl7eZctVUKueHBQr7jti\n5Jjh77yVmpr6zIVVGdjcDOZzvQro5aOt1MJduvFg4qJ9M4aG2WqtM81KuJb08f/2TB4U7OJo\nO7TjK86ONp/8b48qReZmdeeXT3j8RwQ7yVlZWYU3aRa9ZaMQ4vz5s1euXg4KahDWqIn+aGzc\n3t3JyQ8aRzTXL/zL3O87d+mh0Wjatu907+7d6C0b1Cw9ezY2NuXL+58/f1atAuzs7Dp0ily8\n6PHfx1FRC7p07aVWMc+gKEOGjVIUZeb0Sc9cVpWBzdVgPs+rgF5+2kotm0Yjpi45oNGId1+v\nkXXurJWHL928/92I8DHdaw+etu3BozTzVyhyt7rzyyc8/iOCnfwiIlrs2B6TlpYWs2VjUFAD\neweHsLAmW6M3CSFiojfVrFnH3d1DCHHs6JG4uD2du/QQQjg6OrVt12ne/35UufTspWeka7Va\nFQvo2r338qWL0tPTHzy4v3H92tc6d1OxmJzZ2tpOnjrr60lf5CaxqTKwuRnM53oV0MtHW6mF\nS03PGDZj+/tdapUu6pJplk5R3pqytXX90itjz0TvT1SlPL2cV3f++oTHf6HmVyPMo3FE8+Tk\nB/vi9sREbwoLjxBCNAgOvXjxQkLCuW1bt0Q0e3wc9ue53wkhwkPq6CdT01LT09KuX7vq5e2j\nVuXZSU5+cOLE8Tf7v61iDbVqBbp7eG7ZvP6f27fr1Q/28vJWsZhnCg5p1KZtx1EjBs/5fl4O\ni6k1sLkczFy+Chjkr63Uwm0/dGnVzjNTB4f0nbgl06y/z9269yD1z7+vmHyg2eS8uvPRJzz+\nI4Kd/NzdPWrWrLMzdtuuP2NHvvd/QghHR6fadYKiN284sH/vV5NmCCEePXy4NOrX8ROmtnq1\nneGBbVs1Xvjr/94Z/oFqpWdj4pefWmmsWrRso24ZXbr1WrVy6a1bN7t176NuJbnx+fjJdWr4\n5/z7ORUHNpeDmZtXAWP5ayu1cO9/98eRud3aNiijdiHZym51569PePxHBLsCoUnTFot+/UUI\nUa3649+IhDVqMmf2DDc391dq1BJCrFgRlZGR0atPP+MzN7v3fGP+Lz8Ne/d9jUajStkGSUn3\nLl+6qNPpzp8/u/DX/0Utmv/t7J9Vv3BDZGSP0OBaOp1uwcJ8kDM8Pb3GffLl+M/GGjdazsDm\ncjBNvgrV3b17x/jiEa6ubs7OmQ/YqSV/baUW7sadh2Pn7h7Xq67ahWQru9Vt4Z/wyFv8xq5A\niGja8uzZ0yGh4VZWj9d4WKMmp07GN45orn9L//LzDx07RWa6Hke37n0SEs7tjN1m/oIzmfXN\n1CoVS1StXLJbZLvr16+tWRcT2bWn2kUJL2+fatVqtGrdzs7OTu1acqVXn/5+fqWMWyxnYHM/\nmFlfhermzJpevUppw82iLiSR77ZSC/fTuqMJ15LUriJb2a1uC/+ER97SKIqidg14EfceCJ0l\nrTqttSjkYKL9zn2zl5KjQg4iyyULRGqaSE5Ro5rsFXYSWf+KTn4kUtPVqCZ7RQqZaExKFhnm\nvj5rTvLLxunsIKyzbJwpaeKhhW2cJuvML4p2+PHOfQsa0FZBpZZ92ipToyLEXQvbOB3shJ2N\n2kUgd9hjBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABI\ngmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcA\nACAJgh0AAIAkNIqiqF0DXkR6hrCoVafRCK21iXadJRUphLDSmG7PF3UqirCwMk3XmZYhLKrQ\nfL1x5peVnl9s2nshJS1d7Sr+5e3qGFjJJ2u7JdUohBBaa6HJz+u9QCHYAQAASIJDsQAAAJIg\n2AEAAEiCYAcAACAJgh0AAIAkCHYAAACS0KpdAF5QfrmixMMUs5eSIztbExdrSM+wuIsL2NkI\nqyx/dllgnQ52JhotbeO0tjIxmIoiHqWqUU327G1NXFHiYaou6VGGGuVky9PZJmud/zxIf5Sq\nU6Mc0zQa4VPENmu7pW2cVhphbeqT09Le6SYvd2KBn0gmP+ELGoJdfvXwkWVdhUtrLQo5mGhP\nSTN7KTmy0QqrLB+jOp1F1pml0QLrNBnsHqWIDAv6ihd2Nibq1CkWN5i2WhPf8Snpyp0HlhXs\nPJxtsn51Jj3MuPfQgr7krbIJdg9ThM6SNk4brXDKstIVIR48UqOa7Dk7Cussaz3D8j6RbG2E\nKPDBjkOxAAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAk\nCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAA\nAJIg2AEAAEiCYFdQnD598q0BvSpVKO7lZutf1qdvny7Hj/1tmFsvMMDVWaO/ublYVapQvF/f\nbpcvXTR/nfUCA8r4ud+8ecPQcuvWTVdnzeVLF9u0Cu//ZvdMy588cdzVWRO3d7d5ymsUUvu9\nkUMMk/fu3fUoop044VNDy6lTJ1ydNcOHDSzuXSjxQoLxY4cPG1i/btW0tDTzlCqESEtL+/KL\ncYG1KhX1cvTxdGgcFvjbmhX6WYY17l7Y2r+sT7fIdn/s3G62wrLTLbJdplX895FDrs6aju2a\nqVVSVsZF5rC5qlSdOH/21PvD3gyuUaZKSZcG1UsOf6vnqfijhrmtG9WaOflz4+UP7vvLv5jD\n1SuXzF6paN+kTlW/Qvpb7QqenZrXW7cyyjD3xLEjVf0KDeje1vyFZfLMtXz27GnD5+eDB/dV\nKlOcOXPqrQG9KpYv5u1uV6ViiaFvv3kx8YIQoltkO0N5xrclixeoVWrO3zhZPwfwXAh2BUJc\n3J6whrUSzp/75tufdu46NPv7eTeuXwsPC9z1Z6xhmUGD3z0an3g0PvHw0fPf/TD/1Mn4Ht06\nqFKtRqMZ++HIrO29+/Rfs3r53bt3jBvnz/upcpWqtesEmae2iKYtY7ZsNEzu2B7j4OAYE73J\n0LItZrOrq9ukKd/Wq99w5PC3De1xe3fPn/fTzFk/2djYmKdUIcT7o4YuX7po0uRvjhxLiNt/\n4tU2Hfr0fH1n7Db9XP0ajzt48rsfFxQr7tu2deO5P842W2259PPc79q1f23H9pgLF86rXYtp\n2W2uqji0f2/7ZvUvXjg/fsqcNVv++mrGTzdvXu/UMjhuzx9ql2ZazzcHb9lzYsueE0vX//Fq\nhy5j3u23PXq9ftbSX39q2qr9nj+3X76YkHMnZpDzWvbzK3Xo6Lnvf1QtJwkhDh860Ci49tkz\np7+dNXf7zv2Tp846eTI+PLTOpYuJ02Z+f+jouUNHz02eOksIob9/6Oi51m3aq1iw5XzjyIdg\nVyAMG9yvblD9teu3NY5oXsG/UnjjpqvXRgeHNBo2uJ+iKPplnJ1dihX3LVbc17eEX0ho+NdT\nZ+3ftzfTPifzeHfE6NWrlmXdgdS6TYdCToWWLVloaElLS4taNL/PGwPMVlvTZi3PnDmVkHBO\nPxkTvalLt1779/2VlHTP0BLepJm1tfWU6XN2xm5bvWqZECI9Pf2doQP6DxxSq1ag2UoVQmyL\n2dz7jQGhYY09PDx9S/i9M/yDb2f/7Obmrp+rX+OlS5cNa9Rk0uRvRr0/dszo4SruasrqYXLy\nsiUL+w8cUr9ByIJ5c9Uux7TsNldV/N+oQTVrB81fvim4UdOy5Ss2DG3yy5L1dRuE/t/IQYZ3\nukVxcnbxLlrcu2jx0mUr9Oo/NLhRsw2/LRdCPHqYvG7Vkm593qod2GBF1Hy1y3zGWtZqtX5+\npTy9vM1clbER7w6qXKXq7xt3NI5oXrFSleYtXl2zLiaoXsOjRw97enr5+ZXy8yvl7uEphNDf\n9/Mr5ejopGLBlvONIx+CnfxOnYw/dvTI8JFjrKz+Xd0ajea9Dz46derEkcMHTT5Ka60VQqSm\npZqpSiPFivuOGDlm+DtvpaY+9ey2trZduvWaP+8nQ8vGDWvvP7j/eqT5dtrXrBXo5uYevXmD\nfnJr9KaWrdqWr1Bxx/YYIUR6evrO2G1Nm7YUQvj5lfq/jz7/4L1hSUn3vv1myv2kpA/Hfma2\nOvUqV6m6JGrBqZPxhpbOXXpUrlLV5MLDR46xt7Nf+9tKc1X3bMuXLy5SxDWoXsPILj0XzJ+b\nkZGhdkUmZLe5mt/Z0ydOHv97wND3Mr3T3353zLkzJ48fPaxibblkZ2eny8gQQqxfs8ylsGuN\nOvVe7dR1ZdQ8ndqr3nLWskmXL12M27t7+MjR1tbWhkZbW9t5vy5v2qyVioXlnorfOPIh2Mnv\n3LkzQoiKlapkaq9cOUCj0Zw5cyrrQ65eufzZJ2MqVqpSpkw5c5SYiaIMGTZKUZSZ0ydlmtOr\nT/9DB/cbwuiCeXM7dOjs4lLYbKVZWVmFN2kWvWWjEOL8+bNXrl4OCmoQ1qiJ/mhs3N7dyckP\nGkc01y884K2hxYv5Dn7rjYlffjp1xnfm//t4yvQ5xYr51q1duU4N/2GD+61auTQlJSW7hW1s\nbMqX9z9//qw5K8zZL3O/79ylh0ajadu+0727d6O3bFC7IlOy31zN7ML5s0KI8v6VM7VXqFhZ\no9EknD2tn/x2yvjKJQoZbl3bhZu7UFN0GRk7t23eHr2hUdPWQohlC39+tWMXjUbTtGW7+0l3\nd27frHJ9FrOWTcruQz6/UPkbRzoEu4JCp9NlbVQURaPR6O9P+Xp8ce9Cxb0LFfN2quzvm56e\nvjBqtWGumdna2k6eOuvrSV9kyhnlylVo0DBUv9Pu2tUrWzav7/1GfzPXFhHRYsf2mLS0tJgt\nG4OCGtg7OISFNdkavUkIERO9qWbNOu7uHvolraysZnz74+/rVrdt36lReISZ6xRCeHl5L176\nW/ypy6P/71Otjc2Ho4fXrF7u2NEj2S2fnpGu1WrNWWEOjh09Ehe3p3OXHkIIR0entu06zfvf\nj2oXZVp2m6sqnvlOj+zZb/XmPYbbVzN+yrq82fwwc1JgRe/Ait41y7uPHNRjwLD3m7/a8VT8\n0cMH9r7aoYsQwsHRKaJl++WLflGxSD2LWssmpaenq13Cc7CobxzJEOzkV668vxDi6N+ZD8To\nW8qX99dP9uk7MHbXwdhdB3/+JcrW1vbjT78qXbqsmUs1FhzSqE3bjqNGDM7U3rtP/6VRv6Y8\nerRo4S/+FSub7bQJg8YRzZOTH+yL2xMTvSksPEII0SA49OLFCwkJ57Zt3RLRrKXxwpWrVHVx\nKRxUr6GZizTm5e3ToWPnyVNnHTh8pnTpsl98NtbkYsnJD06cOO5fMfP+HrX8PPc7IUR4SJ2S\nxYuULF5kxYqojRvWXr92Ve26TMtuczWn0uUqCCFOHM8c3OOP/y2EKF2uvH7S3cOzfMUqhlsJ\nv9JmrtPY6z36Ltuwa9mGXZv+PLbr6JV+g0cJIZb++pMQIrJ1cL0qxepVKbbht+Xbo9ffvHFN\nxTr1crOWVYkm+o/xrL+rMec5+M/L0r5xZEKwk1+ZMuVq1Kw96avPjH+ipCjK1MkTKlUOMPzi\nytXVrUyZcmXKlGvWvHWfvgMH9Ovx6OFDlUp+7PPxk/fu2ZXpV1+vtu1oZWW1efP6JVG/mvO0\nCQN3d4+aNevsjN2268/YsLAmQghHR6fadYKiN284sH9vRNOWz+zBPM6dO9O7x2u3bt00tNja\n2lYJqHbnzj8ml5/45adWGqsWLduYq8CcPHr4cGnUr+MnTNV/9MfuOrgn7pivr9/CX/+ndmnZ\nMrm5mlPJUmUDqtecNfXLTO/072d+Xb5ilQoVA9QqLAeFi7j5lSrjV6qMl08xfSRKefRw7cqo\n98Z9tXzjLv1tTUxc0WIlVi9V85xTg0xredrUr778Ypz+/q2bNxwcHR0cHM1flZe3T736wZO+\n+sz4txapqaltWoXPnP61+evJDQv8xpEGwa5AmD7zh7+PHGrVPHTb1i1nzpzaGbvttQ4tYnds\n/WbWXJN/X340bnxaaurH4z4wf6nGPD29xn3y5fin9zDZ2dlFdu05bfKE8+fPmvO0CWNNmrZY\n9OsvQohq1WvoW8IaNZkze4abm/srNWqpUlJWxYuXOHb0SGSn1jHRmy5dTDx//uy8X378df7P\nhuiWlHTv8qWLFxMv7IzdNmhg75kzvv56yreGc2bVtWJFVEZGRq8+/Qxn8Pn5lere8435v/xk\nmWd3imw2VzP7/OvZ8ceOdO8Q8WdsTMK503/9uePNbm33/Ln9yynf5ZeDXBt+W67TZXTq0ruY\nb0nDrX3nHisW/2IJqz7TWvbw8Jw+beLqVcsOHdw/c8bXTZo0V2ucv57y7cXECxHhQRs3rD0R\nf2zTxnVtWze+euVyZ5U+JJ+LhXzjSINgVyBUrfbK1ti40mXKDuzfM6h25b59unh4em2NjatZ\nq47J5R0cHWd8++MP332zbesWM5eaSa8+/f38SmVq7N2n/759f7Vv/7o5T5swFtG05dmzp0NC\nww2nH4Y1anLqZHzjCNU+1rOytbVdu2F79Rq1hg8bWKtGhfp1q879cfYnn301eOgI/QKzvpla\npWKJqpVLdotsd/36tTXrYiK79lS3ZoNffv6hY6fITKebdOveJyHhnOE6fBbI5OZqTpWqVFu+\n4Q+/UmXeG9q3RWiNdwf1dPfwXLHhj6qvWMrfG8+0bOHPLdq85vD0qm/3eo+LiQl7d8Vm9yhz\nMl7L3Xu8MXTYqPdHDW3TKrxEiZJfT52lVlWVq1TdGhtXJaDa0MH9QhrUGDV8cLXqNTbF7PLy\n9lGrpNyznG8cOWgs4W8gvIB7D4TOklad1loUcjDRfke1y7CbVshBaK0zN6amieRszxZVR36p\ns0ghE41JySLDxC/4VWNnIxzsMjdm6ERSshrVZM/ZQVhnWel3kjOu37WsX0qV87G3yvL3y4Wb\nKfceWtCP9600orKvifPQ7yULU6eXqMZGK5zsMzcqQty1sE9OZ0dhnWVHUEqaeGhhn0gm6yxo\nCvwAAAAAyIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgB\nAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiC\nYAcAACAJjaIoateAF2GB602jUbuC/8DSxtPkYCqP/2dB8vVKRwFkae90oRH5+j1kaePJJ5Ig\n2AEAAEiDQ7EAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAktCqXQBeUHKKZZ1nbmMtbG0y\nN+oU8eChGtVkz87GVJ068TBVjWqy52hv4iIIKWkiPUOFYnLgZG+i8cEjodOZvZTsWVsLRzsT\n7UnJZi8lR072wirL39prD1z5dssZNcrJ1rTu1f2LOmdqPHw5ac+Ff1SpxyStlaZPYIms7Q9T\nhM6SPjm1VsLONnOjIsR9C9s47W2FDXkhn2BF5Vfp6Zb18WRl8upBisiwpC94IbIdtLR089bx\nTIrImuwyMiyvTlN0Osta79ld2sqiihTZXBLsTnLayatJZq8lJ4/STAzcw7SMG/ct6M8jG2vT\nx6PSMizrrw6hFab+6LC4jdOivm6QMw7FAgAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiC\nYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAA\nIAmCHQAAgCQIdgAAAJIg2AEAAEiCYFeAnDlz6q0BvSqWL+btblelYomhb795MfGC8QJ/Hznk\n6qzp2K6ZWhUKIfzL+vzw3TfGLWfPnnZ11hw/9ne3yHauzpqstyWLF5i5yJxH8vTpk28N6FWp\nQnEvN1v/sj59+3Q5fuxvM1eoVy8woIyf+82bNwwtt27ddHXWXL50UT8362AOHzbQzBV6FNFe\nu3rFuPHggX2uzppe3TsZWixkSOsFBkwY/7Fhcsum9cW8ndb/vmbxwnnFvQslXkgwXnj4sIH1\n61ZNS0szW3mr360/rn1lw6SzvfbkpOZDmpYztJTxcjozucXxr5pN6VY902PLeRc6M7lFjZJF\nzFSrED+N6rFkwohMjTcunPkwonzi8YNCiCtn4z+MKP+/D/qYraRMcrNxGt5E7oWt/cv6dIts\n98fO7WoU+4xKLOHNDrMh2BUUhw8daBRc++yZ09/Omrt95/7JU2edPBkfHlrn0sVEwzI/z/2u\nXfvXdmyPuXDhvHqVZmvazO8PHT136Oi5yVNnCSH09w8dPde6TXtzlpHzSMbF7QlrWCvh/Llv\nvv1p565Ds7+fd+P6tfCwwF1/xpqzSAONRjP2w5HZzR04aJhhGPW3/xv3hTnLE0K4ublHRT0V\nzZdELXBzczdMWtqQ6u36M7Z3z9e/mTW3Rcs2kV171qvfcOTwtw1z4/bunj/vp5mzfrKxsTFb\nSduO3wip6GGYrFfe/VFaRnCFf1saVvC4k5z2QdSR5tV8XByeKuy1QN8TV5IOJNwxW7V1WnY+\nGrvx0f17xo1x65d6l/YvUekVIcTetYsCQlqcObjrn2uXzFZVJs/cOIUQgwa/ezQ+Me7gye9+\nXFCsuG/b1o3n/jjbvGXmqhJLeLPDPAh2BcWIdwdVrlL19407Gkc0r1ipSvMWr65ZFxNUr+HR\no4f1CzxMTl62ZGH/gUPqNwhZMG+uutWa5Onp5edXys+vlLuHpxBCf9/Pr5Sjo5M5y8h5JIcN\n7lc3qP7a9dsaRzSv4F8pvHHT1Wujg0MaDRvcT1EUc9ap9+6I0atXLctuL0LhwkUMw6i/ZfrS\nMoNGjZsuXjjPMJmRkbF86aKQ0HBDi6UNqRDi0MH9XV5v89XXMzp07KxvmTJ9zs7YbatXLRNC\npKenvzN0QP+BQ2rVCjRnVduO3yjl4VTCzUE/GVzBY/neS9X9ihSy1+pbGlbwiD1x8/dDV5NT\n0tvULGp4oNZa07528UW7Ek10+tJUCW5m6+B4KOY3Q0tGevqBLasCW0cKIdJSHh6K+a1eu56l\nqgbu27DUnIUZe+bGKYRwdnYpVty3dOmyYY2aTJr8zaj3x44ZPVy/U9zMcq7EEt7sMA+CXYFw\n+dLFuL27h48cbW1tbWi0tbWd9+vyps1a6SeXL19cpIhrUL2GkV16Lpg/NyMjQ6ViLVrOI3nq\nZPyxo0eGjxxjZfXvO0uj0bz3wUenTp04cvig+QsuVtx3xMgxw995KzU11fzPnhthYU2uXL50\n6OB+/eTW6E2eXt5ly1XQT1rgkJ48cbxT++b/99Hn3br/e5TQz6/U/330+QfvDUtKuvftN1Pu\nJyV9OPYzMxd26MLdOw/SQip66ieD/T22HL125vr9euXchRDWVpqgcm7bjl9Py9At33vp9cAS\nhgeGV/ZytLVetc+sO8astTY1IzrEGYW2E3tiUh8mv9K4rRDi8NZ1DoVcSgbUqhHRbt+GZTqd\nOh9HOW+cJg0fOcbezn7tbyvNUmBOLKcSmBnBrkA4d+6MEKJipSo5LPPL3O87d+mh0Wjatu90\n7+7d6C0bzFVdfpLzSGY3t3LlAI1Gc+bMqZddngmKMmTYKEVRZk6flHXm1xM/9/GwN76diD9m\n5gLt7Ow6dIpcvOjxfpGoqAVduvYyzLW0Ib1w4Xy7NhEenl59+mb+fdKAt4YWL+Y7+K03Jn75\n6dQZ35l5R7IQQqcoO07cCPH3EEKUcHf0Kmy/79ydP07dCvb3EELUKFnEwdZ6e/xNIcTi3YlV\nfF0qF3fRP/C1QN91B68kPUo3c8F1WnW+fOrolTPH9ZP7NiyrFtbS3slZCLF33eJXItppNJqA\nkBaPHiSd2qvOYfecN06TbGxsypf3P3/+7Muv7hkyVWIJb3aYB8GuAElPz/aD+9jRI3Fxezp3\n6SGEcHR0atuu07z//WjG0vKZHEZSCKHT6bI2Koqi0WheWkU5sbW1nTx11teTvsj6ZdOn78DY\nPw8a30qXKWeyk5eqa/fey5cuSk9Pf/Dg/sb1a1/r3C3TApYzpCuWRw0ZcBK6QQAAIABJREFU\nOjIp6d6YD97NNMvKymrGtz/+vm512/adGoVHmLkwve3xN+qVd9daa0L8Pfad++dRWsYfJ2/q\ng12wv8fhxLv/PEgVQpy78WDPmduvBfoKIbxc7EIrei7ebdbjsHoevqVLVwuMW79UCJF0+8bJ\nv3bUaRUphLh27kRi/KEaTdoJIWztHQKCm8etX2L+8vSeuXFmlZ6RrtVqzVDbMxlXYiFvdpiB\nRWx8eNnKl/cXQhw5fLDM0+/ktLQ0/Y+7f577nRAiPKSOvj01LTU9Le36tate3j5mLtXG1vb+\n/STjltu3bwkh7B0czFyJSTmPZLny/kKIo38fDmvUxHju0b8PGx6riuCQRm3adhw1YvCc7+cZ\nt7u7e5SvUFGtqgxq1Qp09/Dcsnn9P7dv16sf7OXlbZhlaUM6eMiIt95+p36DkOZNG1asWDnT\nfrvKVaq6uBQOqtfQzFUZbI+/6WBr/YpfkWB/j50nbwoh/jpzu1gRhxJuDg3Ke2w7/u/50Yt3\nJ37cofKE3+I71C5++tp9c542YaxOq8jfZn7Sov/7+zet8CxZTn/axF9rFwshZr3dQb9MRnpa\nRnpa0u0bzm6e5q8wh43TpOTkBydOHH+z/9s5L2YGmSqxkDc7zIA9dgWCl7dPvfrBk776LCUl\nxdCYmpraplX4zOlfP3r4cGnUr+MnTI3ddVB/2xN3zNfXb+Gv/zN/qRUqVPzz6bMdt0ZvKly4\niK+vn/mLySrnkSxTplyNmrUnffWZ8S8UFUWZOnlCpcoBlatUVaPkxz4fP3nvnl0W+4ObLt16\nrVq5dMWKqC7dnjrUZWlDqt//Uf2VmjO/+fH9UUN3bI8xcwE5++dB6uHEu3XLudUp7fbHyVtC\niOTUjAMJd0IqelbzK2wc7DYcvqroRGglz7a1ipn5tAljVYKbaaw0J/duPxS95slpE48Oxqxp\n9daHg7/7TX8b9tOGIl7F9m9aoVaR2W2cJk388lMrjVWLlm3MUFh+qQRmxh67guLrKd+2bBYS\nER704djPSpUqk5BwburkCVevXO4c2X3FiqiMjIxeffoZ/yqoe8835v/y07B33zfz0a4PP/q8\nRUTDD94bFtmlp42NzZYtGyZP+mLSlG/NedmInOUwkkKI6TN/aN0irFXz0A/GfFzCr+SVy5em\nTZmwZ/efq9dGq3UoVs/T02vcJ1+O/2yscePdu3cyXdpGa60tVtzXrJUJIYSIjOwRGlxLp9Mt\nWJg5elrmkHZ6vevhwwd693ht89bdZcuWV6uMrLYfv9Gxtq8Q4tilx1cS+ePUzV7Bpf55kPr3\nxbuGxVLTdSv2XRoYXraEm6OZT5swprWxrRHRfvvi725fSdSfNnFk+++KLqN2y8629v/upK/V\nvNO+9UtDOvdXZY3nsHEKIZKS7l2+dFGn050/f3bhr/+LWjT/29k/q3LCac6VWM6bHS8be+wK\nispVqm6NjasSUG3o4H4hDWqMGj64WvUam2J2eXn7/PLzDx07RWb6rXe37n0SEs7tjN1m5jpr\n1Qr87fetJ+KPdWjbtEXT4LWrV8z5YX6Pnn3NXEYOchhJIUTVaq9sjY0rXabswP49g2pX7tun\ni4en19bYuJq16qhduOjVp7+fXynjljmzplevUtr41rypOocRvbx9qlWr0ap1Ozs7u0yzLHZI\nx30yoWatOl1ee/XuXXWOY5q07fiNkh6Of56+pXtyLZg/Tt4q6+W0I/5mpovDLN51obpf4d8P\nXTX/aRPG6rSKvBh/uGpoi8enTfweVS2stXGqE0LUbNbpn6sXzx3ao0qFOWycQohZ30ytUrFE\n1colu0W2u3792pp1MZFde5q/yGdWYjlvdrxsGrUuBIX/6N4DobOkVWdnIxyyfOjpdOJeshrV\nZM/eVtjbZm60wDoLO4ms+yaSH4lUNb+CTShSyERjUrLIMHG2g2q01qKQqZ9o3rlv9lJy5Owg\njK6i89iCPy6MW3FUjXL+v507D4+qvB8+/EwSkgKirAFlUUBAFlcUxRXc7U8RWQRkUaRUXHGj\nKlVxF3dRpCoKioAgBde3WERRsSLvjyqC4IIoYgV3QQQ0ZHn/iG+ukIRgW50ZHu77mj+Y5xy9\nvpk5k3zmTHK2aMbQg/duslOZxfmfrHlx2dcpmadCVTIzhnVuVn79+w2hoj/FSZkqWaH678ou\nFoWwNs0Ozqo5ISddPjVhK5yxAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLAD\nAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiERW\nqgfgP5SZERJFqR6ilESF7xESITPN3jtkJCpaTYTsdHspVDRnZkbaPZ4VykizIbf0oKXbk17h\ni6hW9SptG+2Y9FkqUzW7gkGrZWc2qJGT/GG2JKvil3rIzKjwtZUyFY6Z2PJBmyqJtHrUqFSi\nqCid6gAAgP9Umr0pAADgPyXsAAAiIewAACIh7AAAIiHsAAAikWZ/7g8pkm5/He7iAkmQbk96\nSFR8JY70G7MCRUWhKM0mzfAqYrsk7PgNFRaG7zekeojN7VA1ZGWWXczbFDb8lIpptmxbmbPm\nDhUsrtsQCgqTPsqW5VQJVctdYa2gMKxLs4OzanbIyS67+NUPeWPfWJmKcbbo0s7NsstdZu3M\nO+Y8+8aKVIxTsWo5WSsn9U/1FJACPooFAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLAD\nAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISw\nAwCIhLAjHb2z+O1aNRLdux5XsrJ+/Q+1aiTK3JrvWjf5s3Xs0K5Zkzpff/1Vyco333xdq0Zi\n1Wf/Kt5at2bWF5+vLv2fLHzrn7VqJE7v1yPZs4bQsUO7kTddU3J39qyZu9SvPvNvz4QQNm3a\ndPONIzq0b71zbrUG9aoe1anDs8/MSP6EJco/6SGEjh3alTzdtXfMaN2y4eBBfYsf6iTr27tr\n+SOwVo3EE1Mmhq0dFck0avDvb+i2//q135asbFj73Z+PabH2q89/HuyzFX+99U8jex189Qlt\nbj3tsCfvHL7my1VJHjKEUCUz47Je+84b1e1fkwd89viAF0aedOKBu5Zsbbbzjvedf9iSsb1W\nTTl90QOn3n32IY3qVk/+kLAtEnako/HjHuh6Ss9XX3lp5coVxSvVqlV/e8nHJbd5//edXRo2\n6tf/zJSMl0gkrvrzpVvaWrt2nalTJ5ZeeWLqxNq16/z2c23FvNfnnjHg1NFjxp3w+y4hhMuG\nXTB92uO33TF68dJPFrz5/kldug0ccOprc19O1Xjln/Ri55x30ZL3Pl3y3qeLlqx4YOxjyz54\nr3/fbskf7+57Hyw+9u64a0wIoeRQPLHLKcU7VH5UJFMikZj5wMgKN636cOl955zyzapPul06\n8ry/PN3lgmu/WvnRmHO7rf1qdYX7/3ZuHnRg90ObXfbQvL2HPHHg+dOfm//Jw5d0PqRtgxDC\nnk3rvHhrl6YNdrxgzGtHDnt62Nh5LRrWnH1Ll4baDn6BrFQPAGVt3LDhr09MnjLt2W+//Wbi\nhHHDr7wuhJBIJJo02a1kn7MG92/ceNerrrkpJRNedMkVN914db/+Zx5y6BHlt3Y+6tgpkydc\nMHRY8d2CgoLp0x4//IgjCwsLkzvmZt5e+GafU7vccvs93br3Kl55+aUXzvzD2Ud0Oqr47oUX\nX77zzg1TFaAVPunFatTYcZeGjYr/3ahxk9vvGnNM54M+XflJ4ya7buF/9puoVy+3+B916tYL\nIZQ+GotVflQk0xF9hsx+ZFT743s03atDmU3P3DOiQdNWf7hzUkZGZgghd7cWLfY/bOqNF37+\n0fs71ds5mUN22qvhuFnvvbr456Ac9eSi1d+u/27dTyGE2wZ3XPrJd12u/ltBYVEI4b1P18xZ\n+NmDF3Vqs2vtz75en8whYVvkjB1pZ/r0KTVr1jqo46G9+wyY+Ni4goKCMjs8Mv7BF194fvyj\nU7OyUvPOZJeGjS65dPjFF56dl5dXfmunTkevXvXZ2wvfLL4758VZ9XLrN9+9ZXJn3MwH77/b\n45Tjr7z6hr79BpYstmm75xNTJy774L2SlV59+rdpu2cqBtz6k14iKzMrhJC3qYJHPrUqPyqS\naae6DTqdNuTpUVcX5G8qvb72q88/fXfhEX2GFFddscysKqeNuK/VgZ2SPOTSld+denjzFg13\nKll54pXlS1d+t0ud6vu3rHf3k4uKq65YXn7hGbe99MI/P03ykLAtEnaknUfHPdirT/9EInHy\nKT2+X7v2xdnPl966eNHC4Zdf9ODDk3bepWGqJgxFRecPHVZUVHTvqNvKb8zJyenWo/eUxycU\n3506dWKf005P7nybWblyRdcux9Stlztw0JDS63eOun+XXRoduH+bA/ZtNfS8wU89Oe2nn35K\n1ZCVP+klPl+96vprh+/Rum2zZrsnecKtq/SoSO4gRYedOjgUFc19Ymzp9W9Xrwwh5O7WIkVz\nbeaSB19f9c361+/uNv+e7nedfcjJHXfLrpIZQtitfo0QwvuffpfqAWFbJexIL0uXLF6wYH6v\nPv1DCNWqVT+5a48JjzxUsnXduu/P6N/zvPMvOfKoY1M3YwghZGdn33HXmNtvu3HFio/Kbz2t\n3xnTpz2en5+/fv0Pf5/5XM9efZM/YYkZ06eef8Gl69Z9P/zyi0qv5+bWnzLt2feWrbriyuuy\nqlT58xUX77f37kuXLE7+hJU/6XfeflPD+js0rL/DLvWrt2nVKD8/f/LUpxOJRPLn3KrKj4pk\nysyq0uWCa1+e/JdvV5c9y1VYkJ+Skcr4as3G026e3XbwlJFT38zPL7z+jA4LRndv06RW8dbM\nDD+b4D/kxUN6GT/ugRDCkYcfsGvDmrs2rDljxtS/P//cl1/8/Ad9558zqFHjJpcPvyaVI/5/\nhx3eucvJ3Yddcl75Te3bd6hTt97sF2Y+89T0jgcflptbP/njlTjv/EvOPvfCSY8/NeHRh8Y/\nfH+Zrbn1G3Tr3uuOu8a8tWh506bNb7z+quRPWPmTPnDQkLnzFs6dt3D8o1Ozs7Ovue6Wpk2b\nJ3/IX6iSoyLJmu1zUNtDj3t29LUlK3UbNQ0hrP7w3TJ7FuSnLPW+XLPxyX98PGzsvP3P/euK\nL9Zd0We/D1etDSHs2bR2mT2rZPppBb+Ilwpp5MeNG6dNnXTTyLuKf5DPnbdw/oKljRo1mTzp\nkRDC/WNGzZv32thxkzPS5t38DTfd8b/z5z337JPlN/Xpe/pTT06bMWNqn76p/Bw2hFD8m4h7\n77PfvaMfumzYBa++8lII4eOPl5/Rv+c333xdslt2dnbbdnutWZPsj8Aqf9JDCLVq1W7WbPdm\nzXY/7vgTBw4actbg/j9u3JjkIf8tlRwVSfb7IVesXPrWkn/MKr5bo3a93fbcf86k+/JL/YZi\nQf6mh4f1nzvtoS38P34TuzWoMe6SznVq/K5kJS+/cMmK72pWz/5yzcY33v3ikh77FH8yWyw7\nK+PJa48/t0u7ZA4J26h0+QEJIYQZM6YWFBScPnBwkya7ldz6DTjzsUcfXrBg/oir/jTi2pt/\n/HHjypUrSm4p/LWwEEK9erkjrr35porOcvXu3f+Vl19c9PZbxdcWSQc9Tj1tyDlDz+jfc/ny\nZQ0bNl66ZHHvHie+9OKsz/716YoVH0149KFJj41P/rSVPOlFRUVldr56xE2b8vKuGXF5kof8\nt1RyVCRZ9Zp1jht06exH7i5Z6XL+NWu+XHX/+T3ee2POl598+P78lx8eNmDdN1/sc9TJyRxs\n1dfr2+xaa/Lwozvv3bBh3eq71q/R/6iWpx25+8wFn4YQ/jR2XqO61WfdfOKx7Ru3alTzmPaN\nZ1xz/M61qk17dXkyh4RtlMudkEYeHT+2e4/e1aptdrWqvv0G3nzjiEsvOicvL+/cIQPL/Ccz\nZ809qOOhSZyxrNMH/nHyxEe+/PKLMuu59Rvstde+DRs1zsnJSclgFRpx7cilSxb36XnSC3Pe\neO75V24ded3FQ4d8/sXqjIyMli33uPb6WwYNPifJI1XypJe/qF7VatXuue+hricdffwJJ3Xq\nfHTypvw3bemoSL4D/qfXm3+f/sN3P5+ard+01bn3PfnSxNFP3fXnDd+v2bFO7h4dj+o8YnT1\nmkm9zE1efuFJV88c1nOf28/q2KBWtcLComWfrb32sQXj/v5eCGHpyu+OuuyZYT33ufvsQ2ru\nkPP5txv+vuDTM6a/9PXaH5M5JGyjEuXfE8OvpbAwfL8h1UNsboeqISuz7GLeprAhlSf+KrCt\nzFlzhwoW120IBam8Zl9ZOVVC1XJ1XVAY1qXZwVk1O+Rkl1386oe8sW+sTMU4W3Rp52bZ5X7j\nbeDtc559Y0UqxqlYtZyslZP6p3oKSAEfxQIARELYAQBEQtgBAERC2AEARELYAQBEQtgBAERC\n2AEARELYAQBEQtgBAERC2AEARELYAQBEQtgBAERC2AEARELYAQBEQtgBAERC2AEARELYAQBE\nQtgBAEQiK9UDELNEIuRUSfUQm8uo6L1MZkbazZlZ0ZxZmaH675I+SiUSFS9XzQlFRcmdpFIV\nPpgZ6XdwZmZWsFg1O/PAXWsmfZbKZCYqeOKPP6Bxk9wdkj/MlmRnOW3BdipRlFbfgAEA+E95\nTwMAEAlhBwAQCWEHABAJYQcAEAlhBwAQCZc7KaugIBSm2R8KV/EsEUIIIb8gvS4jErZwcG7K\nT/oclcrMqPgyN+n2Sk8kKr6ATLrNmVHRlEVFIc3GrHhOiJ5kKOun/JC3KdVDbK5mGl0cilTK\n2xTy0qyZKjw4f8wLBYVJH2XLcqqEqjllFwsKw7oNqZhmy6pmh5zssotpOOdO1UP5K9lt+Cm9\ngj6RCDtVT/UQkAo+igUAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLAD\nAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsPvVvLP4\n7Vo1Et27Hld6sWOHdiNvuqbk7uxZM3epX33m355J9nBsrz788IOzzzq9dcuGubWzWzVvMGhg\nn3eXvlOyNX2OzzKTlFHhiyvJOnZoV7dm1hefry69uPCtf9aqkTi9X4/iu5s2bbr5xhEd2rfe\nObdag3pVj+rU4dlnZqRi2BB+2Xek1Fq+fNm5Qwa2adWo+ODs3fOk+W/8o8w+6fDUw7ZF2P1q\nxo97oOspPV995aWVK1dUuMO81+eeMeDU0WPGnfD7LkmdjO3VggXzOx3a/pMVH4++7+HX5r39\nlwcnfPXlF0d26jDv9bnld07n43OrL67kqF27ztSpE0uvPDF1Yu3adUruXjbsgunTHr/tjtGL\nl36y4M33T+rSbeCAU1+b+3KyBw0hpM2DtiVvvbmg06HtP/row3tHPzT39YVjx03eoUaNk37f\nee6rc0rvluZfBaShrFQPEImNGzb89YnJU6Y9++2330ycMG74ldeV2eHthW/2ObXLLbff0617\nr5RMyHZo6HmDDzzo4GkzZmZkZIQQWrZq3fnIY3r1PHHoeYPn//PdRCJRsmc6H59bfXElTeej\njp0yecIFQ4cV3y0oKJg+7fHDjziysLCweOXll1448w9nH9HpqOK7F158+c47NyxdfkmTPg/a\nllx84ZB999v/qWdnFx+crfZoc/gRR97Zpt3atWtK9kn/rwLSkDN2v47p06fUrFnroI6H9u4z\nYOJj4woKCkpv/eD9d3uccvyVV9/Qt9/AVE3I9mbZB+8tXbL44kuHF//gLJZIJP50+dXLlr2/\neNHCksU0Pz4rf3ElU6dOR69e9dnbC98svjvnxVn1cus3371lyQ5t2u75xNSJyz54r2SlV5/+\nbdrumexB0+lBq9C/Pl258K1/Dr3ostIHZwjh4kuHn3jSKSV30/yrgPQk7H4dj457sFef/olE\n4uRTeny/du2Ls58v2bRy5YquXY6pWy934KAhKZyQ7c3HHy8PIezRum2Z9TZt2iUSieXLlxXf\nTf/js5IXV5Ll5OR069F7yuMTiu9OnTqxz2mnl97hzlH377JLowP3b3PAvq2Gnjf4qSen/fTT\nT6mYNI0etAqtWPFRCKFlyz0q3y3NvwpIT8LuV7B0yeIFC+b36tM/hFCtWvWTu/aY8MhDJVtn\nTJ96/gWXrlv3/fDLL0rdjGynSj4lLK2oqKjkc9g0Pz4rf3El32n9zpg+7fH8/Pz163/4+8zn\nevbqW3prbm79KdOefW/ZqiuuvC6rSpU/X3HxfnvvvnTJ4iQPmW4PWnnFh19B4c9n4D7+eHnd\nmlklt+LF9P8qID35HbtfwfhxD4QQjjz8gOK7eZvy8jdt+vKLz3PrNwghnHf+JWefe+HBhxx+\n/LGH7rFHm7Q9L0Jkdm/RKoSw5J1FnTofXXp9yTuLQggtWrQqvpvmx2flL67ka9++Q5269Wa/\nMPO7b7/tePBhubn1y++TW79Bt+69unXvdfMtd3c7+dgbr79q0pSnkjlkuj1o5RUffu8sfnu3\n3ZqFEBo2bDz39YUhhCXvLBo86OdWTv+vAtKTM3b/rR83bpw2ddJNI++aO29h8W3+gqWNGjWZ\nPOmR4h2ysrJCCHvvs9+9ox+6bNgFr77yUgqnZfvRrNnu++63/223XF/6N5OKioruumNk6zbt\nSn7xK52Pz62+uFKiT9/Tn3py2owZU/v03exz2I8/Xn5G/57ffPN1yUp2dnbbdnutWfNdMsdL\nzwetjNz6DQ459Ijbb70hLy8vhJCdnd26TbvWbdo1atykeIdt4quA9OSM3X9rxoypBQUFpw8c\nXK1a9ZLFfgPOfOzRh4dedFnpPXucetqiRW+d0b/nC3PeaN68RdInZbsz6t6xJ57Q6X+OP+Ly\n4dc0brLr6lWf3X3nyPlvvP70cy+W/pPYYik/PteuXVP6kha1atV+9pkZlby4yn8JydG7d/8j\nDmtfWFg4cfKTpdcbNmy8dMni3j1OvOLK61q1ar0pf9Orr7w06bHxlw+/JpnjbfU7UvnHuUaN\nHZM5YbG7Rt1/wrGHHXPkQVdedUOz3VusXbNm3utzx9x3V/HfFFf+VaTqqYdtgjN2/61Hx4/t\n3qN36e8+IYS+/QZ+8snH5a9fNeLakfu1P6BPz5NK/0k//Eb23GufOXMXNG3WfMgfBxy0f5tB\nA/vUrZc7Z+6C/dofUOH+qT0+7x8zau+2TUtuEyeM+7deXEmTW7/BXnvt+z8nds3JySm9np2d\n/dzzr+y9b/uLhw5pv2/Lgw/cc9xDf7n2+lvOu+CSZI631Qet/OOczPFKtGi5x8tz/7nvvvtf\ndOGQjge07dnthBdm/e2qq2+c8fSsX/JVAFuSKCoqSvUM6WXDTyFvU6qH2FzNHVI9Aelhw48h\nLz/VQ2yuwoNz3YZQUMHfbKRMTpVQNafsYkFhWLchFdNsWdXskJNddjEN59ypeih/ymz9j2FT\nOh2ciUTYqfrWd4P4OGMHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlh\nBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQiURRUVGq\nZ0gvafh4JBKpnoD0sK0cnPkFIa0mzcwIGeXmLCoK+YWpmGbLMhMho9x77aIQ8gtSMc2WVcms\nYLGgMBSm07OeCCGrojkhesIOACASPooFAIiEsAMAiISwAwCIhLADAIiEsAMAiERWqgdIO3n5\naXdxgWo5qZ6A9JC3Kb2u0JEIoaqDk23Kxp/S7lo8OVVSPQRxEXZl5ReEvE2pHmJzwo5i+QUh\nLz/VQ2xO2LFtyctPr+tBVskSdvzKfBQLABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEH\nABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlh\nBwAQCWH3q+nYod3Im64pvbLgf9+oVSOx6rN/hRD69u76xz/0S81kbK/69u5aq0ai/O2JKRNX\nr/qsWZM64x++v2TnjRs2tN+7xVV/vjSFA0Ma6tihXfkXUfE39vLf9iHlslI9APBbufveB2++\n9e4QwuxZMy+56Jy3l3xcvF63br1q1aqPGj12yOABh3c6qnnzFiGEEVdfVrVatSuvvjGVE0Na\nGnLO0LPPvbD0Sv0GO6dqGKicsINo1auXW/yPOnXrhRCaNNmt9NaTunSbPWvmWYP6PT/7H2/M\ne+2xCQ/PeeV/c3Jykj8npLmddqpZ5uUDactHsbD9uvnWu9euXXPdNVecO2Tgtdfdskfrtqme\nCID/ijN2v6ZbR153+603pHoK+KWqVav+4MOTjjzigIM6Hjr4rPNSPQ4A/y1n7H5NAwcNmfv6\nwpLb/Q9OSPVEsBX/eO2V3PoNlryz6F+frkz1LJCmbr/1hgZ1f1dya75r3VRPBFvkjN2vqV69\n3NZt2pXcXb/+hxQOA1u16O23br5xxP95/pX7/zLq7LNOf+b/vJSR4c0elDVw0JA/ljqlnfAy\nIY0JO9hObdiw/g8D+wy96E/77Nv+ltvuOeiAtmNG33XeBZekei5IO3Xq1G3Rco9UTwG/iLCD\n7dTlw4buUKPGxZcODyHstFPNe+4d279vt6OOPq70WWegcmvXrlm5ckXJ3Vq1ateosWPqxgG/\nYwfbpWeenj5t2uQHxj6WlfXzu7tjjvt9j56n/fEP/fLy8lI7G2xD7h8zau+2TUtuEyeMS/VE\nbO8SRUVFqZ4hvWz4KeRtSvUQm6u5Q6onID1s+DHk5ad6iM05ONm2rF0f0uqHXpWsUP13qR6C\nuDhjBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWGxdZOTAAADXUlEQVQHABAJ\nYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEIlEUVFR\nqmcAAOBX4IwdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQd\nAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSE\nHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAk\nhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBA\nJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0A\nQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQd\nAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSE\nHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAk\nhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBA\nJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0A\nQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQd\nAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSE\nHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAk\nhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBA\nJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCSEHQBAJIQdAEAkhB0AQCT+H53CG3+8YaSyAAAA\nAElFTkSuQmCC"
          },
          "metadata": {
            "image/png": {
              "width": 420,
              "height": 420
            }
          }
        }
      ],
      "source": [
        "library(statebins)\n",
        "\n",
        "states <- c(\"SC\", \"VA\", \"NY\", \"OH\", \"WV\", \"NC\", \"PA\", \"AK\", \"AL\", \"AR\", \"AZ\",\n",
        "            \"CA\", \"CO\", \"CT\", \"DE\", \"FL\", \"GA\", \"HI\", \"IA\", \"ID\", \"IL\", \"IN\",\n",
        "            \"KS\", \"KY\", \"LA\", \"MA\", \"MD\", \"ME\", \"MI\", \"MN\", \"MO\", \"MS\", \"MT\",\n",
        "            \"ND\", \"NE\", \"NH\", \"NJ\", \"NM\", \"NV\", \"OK\", \"OR\", \"RI\", \"SC\", \"SD\",\n",
        "            \"TN\", \"TX\", \"UT\", \"VT\", \"WA\", \"WI\", \"WY\")\n",
        "\n",
        "pct_incidents_w_data <- c(24.8, 11.0, 26.2, 2.3, 21.7, 11.0, 3.0)\n",
        "zero_padding <- replicate(length(states) - length(pct_incidents_w_data), 0)\n",
        "pct_incidents <- c(pct_incidents_w_data, zero_padding)\n",
        "\n",
        "incident_state_data <- data.frame(states, pct_incidents)\n",
        "\n",
        "statebins(state_data = incident_state_data, state_col = \"states\",\n",
        "          value_col = \"pct_incidents\", font_size = 3, palette = \"Blues\",\n",
        "          dark_label = \"black\", name = \"Percentage of Incidents\",\n",
        "          light_label = \"white\", direction = 1) +\n",
        "          theme_statebins(legend_position=\"top\")\n"
      ]
    }
  ]
}