markovBigrams.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Markov Bigrams\n",
    "Tyler Shoemaker (tshoemaker \\[at\\] ucdavis \\[dot\\] edu) "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {
    "scrolled": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol>\n",
       "\t<li><style>\n",
       ".list-inline {list-style: none; margin:0; padding: 0}\n",
       ".list-inline>li {display: inline-block}\n",
       ".list-inline>li:not(:last-child)::after {content: \"\\00b7\"; padding: 0 .5ex}\n",
       "</style>\n",
       "<ol class=list-inline><li>'igraph'</li><li>'stats'</li><li>'graphics'</li><li>'grDevices'</li><li>'utils'</li><li>'datasets'</li><li>'methods'</li><li>'base'</li></ol>\n",
       "</li>\n",
       "\t<li><style>\n",
       ".list-inline {list-style: none; margin:0; padding: 0}\n",
       ".list-inline>li {display: inline-block}\n",
       ".list-inline>li:not(:last-child)::after {content: \"\\00b7\"; padding: 0 .5ex}\n",
       "</style>\n",
       "<ol class=list-inline><li>'ggplot2'</li><li>'igraph'</li><li>'stats'</li><li>'graphics'</li><li>'grDevices'</li><li>'utils'</li><li>'datasets'</li><li>'methods'</li><li>'base'</li></ol>\n",
       "</li>\n",
       "\t<li><style>\n",
       ".list-inline {list-style: none; margin:0; padding: 0}\n",
       ".list-inline>li {display: inline-block}\n",
       ".list-inline>li:not(:last-child)::after {content: \"\\00b7\"; padding: 0 .5ex}\n",
       "</style>\n",
       "<ol class=list-inline><li>'ggraph'</li><li>'ggplot2'</li><li>'igraph'</li><li>'stats'</li><li>'graphics'</li><li>'grDevices'</li><li>'utils'</li><li>'datasets'</li><li>'methods'</li><li>'base'</li></ol>\n",
       "</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate}\n",
       "\\item \\begin{enumerate*}\n",
       "\\item 'igraph'\n",
       "\\item 'stats'\n",
       "\\item 'graphics'\n",
       "\\item 'grDevices'\n",
       "\\item 'utils'\n",
       "\\item 'datasets'\n",
       "\\item 'methods'\n",
       "\\item 'base'\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item \\begin{enumerate*}\n",
       "\\item 'ggplot2'\n",
       "\\item 'igraph'\n",
       "\\item 'stats'\n",
       "\\item 'graphics'\n",
       "\\item 'grDevices'\n",
       "\\item 'utils'\n",
       "\\item 'datasets'\n",
       "\\item 'methods'\n",
       "\\item 'base'\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item \\begin{enumerate*}\n",
       "\\item 'ggraph'\n",
       "\\item 'ggplot2'\n",
       "\\item 'igraph'\n",
       "\\item 'stats'\n",
       "\\item 'graphics'\n",
       "\\item 'grDevices'\n",
       "\\item 'utils'\n",
       "\\item 'datasets'\n",
       "\\item 'methods'\n",
       "\\item 'base'\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\end{enumerate}\n"
      ],
      "text/markdown": [
       "1. 1. 'igraph'\n",
       "2. 'stats'\n",
       "3. 'graphics'\n",
       "4. 'grDevices'\n",
       "5. 'utils'\n",
       "6. 'datasets'\n",
       "7. 'methods'\n",
       "8. 'base'\n",
       "\n",
       "\n",
       "\n",
       "2. 1. 'ggplot2'\n",
       "2. 'igraph'\n",
       "3. 'stats'\n",
       "4. 'graphics'\n",
       "5. 'grDevices'\n",
       "6. 'utils'\n",
       "7. 'datasets'\n",
       "8. 'methods'\n",
       "9. 'base'\n",
       "\n",
       "\n",
       "\n",
       "3. 1. 'ggraph'\n",
       "2. 'ggplot2'\n",
       "3. 'igraph'\n",
       "4. 'stats'\n",
       "5. 'graphics'\n",
       "6. 'grDevices'\n",
       "7. 'utils'\n",
       "8. 'datasets'\n",
       "9. 'methods'\n",
       "10. 'base'\n",
       "\n",
       "\n",
       "\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[[1]]\n",
       "[1] \"igraph\"    \"stats\"     \"graphics\"  \"grDevices\" \"utils\"     \"datasets\" \n",
       "[7] \"methods\"   \"base\"     \n",
       "\n",
       "[[2]]\n",
       "[1] \"ggplot2\"   \"igraph\"    \"stats\"     \"graphics\"  \"grDevices\" \"utils\"    \n",
       "[7] \"datasets\"  \"methods\"   \"base\"     \n",
       "\n",
       "[[3]]\n",
       " [1] \"ggraph\"    \"ggplot2\"   \"igraph\"    \"stats\"     \"graphics\"  \"grDevices\"\n",
       " [7] \"utils\"     \"datasets\"  \"methods\"   \"base\"     \n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "packages <- c(\"igraph\", \"ggplot2\", \"ggraph\")\n",
    "lapply(packages, library, character.only=TRUE, warn.conflicts=FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {},
   "outputs": [],
   "source": [
    "make_bigrams <- function(word) {\n",
    "  bigram_vec = c()\n",
    "  chars <- strsplit(tolower(word), split=\"\")[[1]]\n",
    "  for (idx in seq_along(chars)) {\n",
    "    while (idx < length(chars)) {\n",
    "      bigram <- paste0(chars[idx], chars[idx+1])\n",
    "      bigram_vec <- c(bigram_vec, bigram)\n",
    "      idx <- idx+length(chars)\n",
    "    }\n",
    "  }\n",
    "  return(bigram_vec)\n",
    "}"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {},
   "outputs": [],
   "source": [
    "get_frequencies <- function(bigram_vec, freq_data) {\n",
    "  bigram_freq = c()\n",
    "  for (idx in seq_along(bigram_vec)) {\n",
    "    bigram <- strsplit(bigram_vec[idx], split=\"\")[[1]]\n",
    "    pair <- freq_data[bigram[2], bigram[1]]\n",
    "    bigram_freq <- c(bigram_freq, pair)\n",
    "  }\n",
    "  return(bigram_freq)\n",
    "}"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {},
   "outputs": [],
   "source": [
    "make_network <- function(word, weight) {\n",
    "  source = c(1:length(word))\n",
    "  target = c(1:length(word)+1)\n",
    "  links <- data.frame(source, target, weight)\n",
    "  network <- graph_from_data_frame(d=links, directed=TRUE)\n",
    "  return(network)\n",
    "}"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {},
   "outputs": [],
   "source": [
    "plot_network <- function(word, network) {\n",
    "  set.seed(5)\n",
    "  chars <- strsplit(word, split=\"\")[[1]]\n",
    "  ggraph(network, layout=\"linear\") +\n",
    "    theme_graph(background=\"white\") +\n",
    "    geom_edge_link(aes(edge_width=(I(frequencies)*100)),\n",
    "                   show.legend=FALSE) +\n",
    "    geom_node_point(size=0,\n",
    "                    alpha=0,\n",
    "                    x=-1) +\n",
    "    geom_node_label(aes(label=chars),\n",
    "                    #family=\"Futura\",\n",
    "                    color=\"black\",\n",
    "                    size=8,\n",
    "                    alpha=0,\n",
    "                    y=-0.03,\n",
    "                    label.size=0,\n",
    "                    show.legend=FALSE)\n",
    "}"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Select a corpus\n",
    "Copy the corpus name and paste it into the corpus variable below\n",
    "* Google Books: ```google-books-transition-frequencies.csv```\n",
    "* Project Gutenberg: ```project-gutenberg-transition-frequencies.csv```\n",
    "* Wordfreq: ```wordfreq-transition-frequencies.csv```"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {},
   "outputs": [],
   "source": [
    "corpus <- \"project-gutenberg-transition-frequencies.csv\"\n",
    "df <- read.csv(paste0(\"./data/\", corpus), header=TRUE, row.names=1)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Enter text here:"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {},
   "outputs": [],
   "source": [
    "word <- \"phonautograph\""
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAYAAAD958/bAAAEDWlDQ1BJQ0MgUHJvZmlsZQAA\nOI2NVV1oHFUUPrtzZyMkzlNsNIV0qD8NJQ2TVjShtLp/3d02bpZJNtoi6GT27s6Yyc44M7v9\noU9FUHwx6psUxL+3gCAo9Q/bPrQvlQol2tQgKD60+INQ6Ium65k7M5lpurHeZe58853vnnvu\nuWfvBei5qliWkRQBFpquLRcy4nOHj4g9K5CEh6AXBqFXUR0rXalMAjZPC3e1W99Dwntf2dXd\n/p+tt0YdFSBxH2Kz5qgLiI8B8KdVy3YBevqRHz/qWh72Yui3MUDEL3q44WPXw3M+fo1pZuQs\n4tOIBVVTaoiXEI/MxfhGDPsxsNZfoE1q66ro5aJim3XdoLFw72H+n23BaIXzbcOnz5mfPoTv\nYVz7KzUl5+FRxEuqkp9G/Ajia219thzg25abkRE/BpDc3pqvphHvRFys2weqvp+krbWKIX7n\nhDbzLOItiM8358pTwdirqpPFnMF2xLc1WvLyOwTAibpbmvHHcvttU57y5+XqNZrLe3lE/Pq8\neUj2fXKfOe3pfOjzhJYtB/yll5SDFcSDiH+hRkH25+L+sdxKEAMZahrlSX8ukqMOWy/jXW2m\n6M9LDBc31B9LFuv6gVKg/0Szi3KAr1kGq1GMjU/aLbnq6/lRxc4XfJ98hTargX++DbMJBSiY\nMIe9Ck1YAxFkKEAG3xbYaKmDDgYyFK0UGYpfoWYXG+fAPPI6tJnNwb7ClP7IyF+D+bjOtCpk\nhz6CFrIa/I6sFtNl8auFXGMTP34sNwI/JhkgEtmDz14ySfaRcTIBInmKPE32kxyyE2Tv+thK\nbEVePDfW/byMM1Kmm0XdObS7oGD/MypMXFPXrCwOtoYjyyn7BV29/MZfsVzpLDdRtuIZnbpX\nzvlf+ev8MvYr/Gqk4H/kV/G3csdazLuyTMPsbFhzd1UabQbjFvDRmcWJxR3zcfHkVw9GfpbJ\nmeev9F08WW8uDkaslwX6avlWGU6NRKz0g/SHtCy9J30o/ca9zX3Kfc19zn3BXQKRO8ud477h\nLnAfc1/G9mrzGlrfexZ5GLdn6ZZrrEohI2wVHhZywjbhUWEy8icMCGNCUdiBlq3r+xafL549\nHQ5jH+an+1y+LlYBifuxAvRN/lVVVOlwlCkdVm9NOL5BE4wkQ2SMlDZU97hX86EilU/lUmkQ\nUztTE6mx1EEPh7OmdqBtAvv8HdWpbrJS6tJj3n0CWdM6busNzRV3S9KTYhqvNiqWmuroiKgY\nhshMjmhTh9ptWhsF7970j/SbMrsPE1suR5z7DMC+P/Hs+y7ijrQAlhyAgccjbhjPygfeBTjz\nhNqy28EdkUh8C+DU9+z2v/oyeH791OncxHOs5y2AtTc7nb/f73TWPkD/qwBnjX8BoJ98VVBg\n/m8AAEAASURBVHgB7d0LsG33fAfw5YqEECURVfUITVFpokQimiGNkkYoSka91dDqNIM2jFcJ\nGlJth6lX9DW4qqahjAxaJN6S1juSSB+IoFWPRKiIpJLurv/Ob++sc3LOPfve+z/n//+v/Vkz\nd+4+e+/zX7/1+f/O2uu7H2tfb9IvnYUAAQIECBAgQIAAAQIEum0MCBAgQIAAAQIECBAgQOAa\nAQFJJxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA\n0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQC\nAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAA\nAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAA\nAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAA\nAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAA\nAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAA\ngRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAE\nBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJ\nKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goE\nCBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIE\nCBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIE\nCBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIE\nCBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIE\nCBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIE\nQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQ\nkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCSt\nQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAg\nQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAg\nQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAg\nQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAg\nQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAg\nQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAI\nAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA\n0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQC\nAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAA\nAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAA\nAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAA\nAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAA\nAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAA\ngRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAE\nBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJ\nKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goE\nCBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIE\nCBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIE\nCBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIE\nCBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIE\nCBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIE\nQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQ\nkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCSt\nQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAg\nQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAg\nQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAg\nQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAg\nQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAg\nQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAI\nAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA\n0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQC\nAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAA\nAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAA\nAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAA\nAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAA\nAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAA\ngRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAE\nBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJ\nKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goE\nCBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIE\nCBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIE\nCBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIE\nCBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIE\nCBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIE\nQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQ\nkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCSt\nQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAg\nQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAg\nQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAg\nQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAg\nQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAg\nQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAI\nAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA\n0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQC\nAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAA\nAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAA\nAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAA\nAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAA\nAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAA\ngRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAE\nBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJ\nKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goE\nCBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIE\nCBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIE\nCBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIE\nCBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIE\nCBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIE\nQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQ\nkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCSt\nQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAg\nQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAg\nQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAg\nQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAg\nQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAg\nQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAI\nAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA\n0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQC\nAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAA\nAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAA\nAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAA\nAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAA\nAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAA\ngRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAE\nBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJ\nKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goE\nCBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIE\nCBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIE\nCBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIE\nCBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIE\nCBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIE\nQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQ\nkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCSt\nQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAg\nQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAg\nQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAg\nQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAg\nQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAg\nQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAI\nAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA\n0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQC\nAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAA\nAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAA\nAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAA\nAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAAgRAQkLQCAQIECBAgQIAA\nAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAEBCStQIAAAQIECBAgQIAA\ngRAQkLQCAQIECBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAQFJKxAgQIAAAQIECBAgQCAE\n9iBBgMDaAieeeGL34Q9/eO0bR3DtWWed1e29994j2BKbQIAAAQIECBDIJyAg5bM00sgELrzw\nwu6cc84Z2VZduzlXX331tT+4RIAAAQIECBAgMBXwFjuNQIAAAQIECBAgQIAAgRAQkLQCAQIE\nCBAgQIAAAQIEQkBA0goECBAgQIAAAQIECBAIAZ9B0goECBBoTGD79u3dK1/5ysaqXrzcU089\ntTvyyCMX/wX3JECAAAECGQUEpIyYhiJAgMBWCHznO9/pzj333K1YVZF1/PCHPyyyXislQIAA\nAQJJQEDSBwQIECBQlcDll1/eXXLJJVXVlLOY/fbbL+dwxiJAgACBzAICUmZQwxEgQIDA7gmc\ncsop3SMe8YjdG6Ti377yyiu7Pffcs+IKlUaAAIHlFnCShuWef1tPgAABAgQIECBAgMBAwCtI\nAwwXCRAgQIAAgV0X+OxnP9sdf/zxuz5A5b/5tKc9rTvxxBMrr1J5BAjsroCAtLuCfp8AAQIE\nCBCYClxxxRXdRRddNFqNSy+9dLTbZsMIELhWwFvsrrVwiQABAgQIECBAgACBJRcQkJa8AWw+\nAQIECBAgQIAAAQLXCniL3bUWLhEgQIAAAQIE1hVIb7F7//vfv+7trd9w2GGHdfvuu2/rm6F+\nArstICDtNuHyDvCDH/ygS19YOdblqquuGuum2S4CBAgQ2AWB888/v3vd6163C7/Zxq986EMf\n6o4++ug2ilUlgU0UEJA2EXfsQ2/fvr17xjOeMdrNPPzww0e7bTaMAAECBAgQIEBgbQGfQVrb\nxbUECBAgQIAAAQIECCyhgIC0hJNukwkQIECAAAECBAgQWFtAQFrbxbUECBAgQIAAAQIECCyh\ngIC0hJNukwkQIECAAAECBAgQWFtAQFrbxbUECBAgQIAAAQIECCyhgIC0hJNukwkQIECAAAEC\nBAgQWFtAQFrbxbUECBAgQIAAAQIECCyhgO9BWsJJt8kEksCb3/zmbtu2cT5Hsv/++3fHH3+8\niSZAgAABAgQI7LSAgLTTZIv/wo9+9KPu7LPPXvwXGrvnt7/97cYqVu5Q4LnPfW532WWXDa8a\nzeVDDz1UQBrNbNoQAgQI5BE444wz8gxU4Sj77rtvlx77LHkEBKQ8jmuO8tWvfrU75phj1rxt\nDFfe9773HcNm2AYCBAgQIEBgCQTGfEx2v/vdr/vgBz+4BLO4NZsoIG2Ns7UQIECAAAECBKoW\neM1rXtOddNJJVdeoOAJbISAgbYWydRAgsKUCV155Zfewhz1sS9e5lSvba6+9tnJ11kWAwJII\npHe+nHPOOUuytTaTwPoCAtL6Nm4hQKBRgauuuqo7/fTTG61+47KPOuqoje/kHtUKvPOd7xzt\nCVK+9a1vVeuuMAIECCwqICAtKuV+BAgQIEAgg8ATnvCE7ic/+UmGkeob4uCDD66vKBURIEBg\nJwUEpJ0Ec3cCBAgQILA7AkcccUR39dVX784Q1f5uOsX+eeedV219CiNAgMAiAgLSIkruQ4AA\nAQIEMgmceeaZ3Z577plptLqGOeuss0b99ta6tFVDgMBmCQhImyVrXAIEignc6EY36i666KJi\n69/sFW/fvr376Ec/utmrMT4BAgQIEFhKAQFpKafdRhMYt8C2bdu629/+9qPdyBQALQQIEMgt\ncOKJJ3YHHXRQ7mGrGc8XqVYzFdUXIiBt4hTts88+3YMe9KBNXEPZoW9yk5uULcDaCRAgQIAA\ngWwCt7nNbbp73OMe2carbaAxH5Pd7W53q4276XoEpE2cvvQM9nve855NXEPZoV/96ld3p512\nWtkirH2XBQ488MDuxz/+8S7/fs2/eMABB9RcntoIECBAoIDAmI/JCnCOepUC0qin18YRWF/g\nYx/7WJde5bQQIECAAAECBAhcK7Dt2osuESBAgAABAgQIECBAYLkFBKTlnn9bT4AAAQIECBAg\nQIDAQEBAGmC4SIAAAQIECBAgQIDAcgsISMs9/7aeAAECBAgQIECAAIGBgIA0wHCRAAECBAgQ\nIECAAIHlFhCQlnv+bT0BAgQIECBAgAABAgMBAWmA4SIBAgQIECBAgAABAsst4HuQlnv+d2vr\n07c2n3DCCbs1Rs2/fMEFF9RcntoIECBAgAABAgQ2QUBA2gTUZRnyqKOO6tK/sS4Pe9jDxrpp\ntosAAQIEdkFg33337R74wAfuwm+28Sv77bdfG4WqksAmCwhImwxseAIECBAgQGAcAgcddFB3\n8sknj2NjbAUBAusK+AzSujRuIECAAAECBAgQIEBg2QQEpGWbcdtLgAABAgQIECBAgMC6AgLS\nujRuIECAAAECBAgQIEBg2QR8BmnZZtz2EiBAgACBTRL4hV/4he7000/fpNHLD3unO92pfBEq\nIEBg0wUEpE0ntgICBAgQILAcAuksbw95yEOWY2NtJQECoxUQkEY7tTaMAAECbQocffTR3XHH\nHddm8QtUff3rX3+Be7kLAQIECJQSEJBKyVsvAQIECKwp8Ku/+qvdscceu+ZtriRAgAABApst\n4CQNmy1sfAIECBAgQIAAAQIEmhHwClIzU6VQAgQIXCPwqEc9qjvssMNGy3HIIYeMdttsGAEC\nBAjULyAg1T9HKiRAgMAKgdve9rZd+mchQIAAAQIE8gt4i11+UyMSIECAAAECBAgQINCogIDU\n6MQpmwABAgQIECBAgACB/AICUn5TIxIgQIAAAQIECBAg0KjA9Sb90mjtyiawqQIXXHBBd/HF\nF2/qOkoOfuSRR3a+j6XkDFg3AQIECBAgUKOAgFTjrKiJAAECBAgQIECAAIEiAt5iV4TdSgkQ\nIECAAAECBAgQqFFAQKpxVtREgAABAgQIECBAgEARAQGpCLuVEiBAgAABAgQIECBQo4CAVOOs\nqIkAAQIECBAgQIAAgSICAlIRdislQIAAAQIECBAgQKBGAQGpxllREwECBAgQIECAAAECRQQE\npCLsVkqAAAECBAgQIECAQI0CAlKNs6ImAgQIECBAgAABAgSKCAhIRditlAABAgQIECBAgACB\nGgUEpBpnRU0ECBAgQIAAAQIECBQREJCKsFspAQIECBAgQIAAAQI1CghINc6KmggQIECAAAEC\nBAgQKCIgIBVht1ICBAgQIECAAAECBGoUEJBqnBU1ESBAgAABAgQIECBQREBAKsJupQQIECBA\ngAABAgQI1CggINU4K2oiQIAAAQIECBAgQKCIgIBUhN1KCRAgQIAAAQIECBCoUUBAqnFW1ESA\nAAECBAgQIECAQBEBAakIu5USIECAAAECBAgQIFCjgIBU46yoiQABAgQIECBAgACBIgICUhF2\nKyVAgAABAgQIECBAoEYBAanGWVETAQIECBAgQIAAAQJFBASkIuxWSoAAAQIECBAgQIBAjQIC\nUo2zoiYCBAgQIECAAAECBIoICEhF2K2UAAECBAgQIECAAIEaBQSkGmdFTQQIECBAgAABAgQI\nFBEQkIqwWykBAgQIECBAgAABAjUKCEg1zoqaCBAgQIAAAQIECBAoIiAgFWG3UgIECBAgQIAA\nAQIEahQQkGqcFTURIECAAAECBAgQIFBEQEAqwm6lBAgQIECAAAECBAjUKCAg1TgraiJAgAAB\nAgQIECBAoIiAgFSE3UoJECBAgAABAgQIEKhRQECqcVbURIAAAQIECBAgQIBAEQEBqQi7lRIg\nQIAAAQIECBAgUKOAgFTjrKiJAAECBAgQIECAAIEiAgJSEXYrJUCAAAECBAgQIECgRgEBqcZZ\nURMBAgQIECBAgAABAkUEBKQi7FZKgAABAgQIECBAgECNAgJSjbOiJgIECBAgQIAAAQIEiggI\nSEXYrZQAAQIECBAgQIAAgRoFBKQaZ0VNBAgQIECAAAECBAgUERCQirBbKQECBAgQIECAAAEC\nNQoISDXOipoIECBAgAABAgQIECgiICAVYbdSAgQIECBAgAABAgRqFBCQapwVNREgQIAAAQIE\nCBAgUERAQCrCbqUECBAgQIAAAQIECNQoICDVOCtqIkCAAAECBAgQIECgiICAVITdSgkQIECA\nAAECBAgQqFFAQKpxVtREgAABAgQIECBAgEARAQGpCLuVEiBAgAABAgQIECBQo4CAVOOsqIkA\nAQIECBAgQIAAgSICAlIRdislQIAAAQIECBAgQKBGAQGpxllREwECBAgQIECAAAECRQQEpCLs\nVkqAAAECBAgQIECAQI0CAlKNs6ImAgQIECBAgAABAgSKCAhIRditlAABAgQIECBAgACBGgUE\npBpnRU0ECBAgQIAAAQIECBQREJCKsFspAQIECBAgQIAAAQI1CghINc6KmggQIECAAAECBAgQ\nKCIgIBVht1ICBAgQIECAAAECBGoUEJBqnBU1ESBAgAABAgQIECBQREBAKsJupQQIECBAgAAB\nAgQI1CggINU4K2oiQIAAAQIECBAgQKCIgIBUhN1KCRAgQIAAAQIECBCoUUBAqnFW1ESAAAEC\nBAgQIECAQBEBAakIu5USIECAAAECBAgQIFCjgIBU46yoiQABAgQIECBAgACBIgICUhF2KyVA\ngAABAgQIECBAoEYBAanGWVETAQIECBAgQIAAAQJFBASkIuxWSoAAAQIECBAgQIBAjQICUo2z\noiYCBAgQIECAAAECBIoICEhF2K2UAAECBAgQIECAAIEaBQSkGmdFTQQIECBAgAABAgQIFBEQ\nkIqwWykBAgQIECBAgAABAjUKCEg1zoqaCBAgQIAAAQIECBAoIiAgFWG3UgIECBAgQIAAAQIE\nahQQkGqcFTURIECAAAECBAgQIFBEQEAqwm6lBAgQIECAAAECBAjUKCAg1TgraiJAgAABAgQI\nECBAoIiAgFSE3UoJECBAgAABAgQIEKhRQECqcVbURIAAAQIECBAgQIBAEQEBqQi7lRIgQIAA\nAQIECBAgUKOAgFTjrKiJAAECBAgQIECAAIEiAgJSEXYrJUCAAAECBAgQIECgRgEBqcZZURMB\nAgQIECBAgAABAkUEBKQi7FZKgAABAgQIECBAgECNAgJSjbOiJgIECBAgQIAAAQIEiggISEXY\nrZQAAQIECBAgQIAAgRoFBKQaZ0VNBAgQIECAAAECBAgUERCQirBbKQECBAgQIECAAAECNQoI\nSDXOipoIECBAgAABAgQIECgiICAVYbdSAgQIECBAgAABAgRqFBCQapwVNREgQIAAAQIECBAg\nUERAQCrCbqUECBAgQIAAAQIECNQoICDVOCtqIkCAAAECBAgQIECgiICAVITdSgkQIECAAAEC\nBAgQqFFAQKpxVtREgAABAgQIECBAgEARAQGpCLuVEiBAgAABAgQIECBQo4CAVOOsqIkAAQIE\nCBAgQIAAgSICAlIRdislQIAAAQIECBAgQKBGAQGpxllREwECBAgQIECAAAECRQQEpCLsVkqA\nAAECBAgQIECAQI0CAlKNs6ImAgQIECBAgAABAgSKCAhIRditlAABAgQIECBAgACBGgUEpBpn\nRU0ECBAgQIAAAQIECBQREJCKsFspAQIECBAgQIAAAQI1CghINc6KmggQIECAAAECBAgQKCIg\nIBVht1ICBAgQIECAAAECBGoUEJBqnBU1ESBAgAABAgQIECBQREBAKsJupQQIECBAgAABAgQI\n1CggINU4K2oiQIAAAQIECBAgQKCIgIBUhN1KCRAgQIAAAQIECBCoUUBAqnFW1ESAAAECBAgQ\nIECAQBEBAakIu5USIECAAAECBAgQIFCjgIBU46yoiQABAgQIECBAgACBIgICUhF2KyVAgAAB\nAgQIECBAoEYBAanGWVETAQIECBAgQIAAAQJFBASkIuxWSoAAAQIECBAgQIBAjQICUo2zoiYC\nBAgQIECAAAECBIoICEhF2K2UAAECBAgQIECAAIEaBQSkGmdFTQQIECBAgAABAgQIFBEQkIqw\nWykBAgQIECBAgAABAjUKCEg1zoqaCBAgQIAAAQIECBAoIiAgFWG3UgIECBAgQIAAAQIEahQQ\nkGqcFTURIECAAAECBAgQIFBEQEAqwm6lBAgQIECAAAECBAjUKCAg1TgraiJAgAABAgQIECBA\noIiAgFSE3UoJECBAgAABAgQIEKhRQECqcVbURIAAAQIECBAgQIBAEQEBqQi7lRIgQIAAAQIE\nCBAgUKOAgFTjrKiJAAECBAgQIECAAIEiAgJSEXYrJUCAAAECBAgQIECgRgEBqcZZURMBAgQI\nECBAgAABAkUEBKQi7FZKgAABAgQIECBAgECNAgJSjbOiJgIECBAgQIAAAQIEiggISEXYrZQA\nAQIECBAgQIAAgRoFBKQaZ0VNBAgQIECAAAECBAgUERCQirBbKQECBAgQIECAAAECNQoISDXO\nipoIECBAgAABAgQIECgiICAVYbdSAgQIECBAgAABAgRqFBCQapwVNREgQIAAAQIECBAgUERA\nQCrCbqUECBAgQIAAAQIECNQoICDVOCtqIkCAAAECBAgQIECgiICAVITdSgkQIECAAAECBAgQ\nqFFAQKpxVtREgAABAgQIECBAgEARAQGpCLuVEiBAgAABAgQIECBQo4CAVOOsqIkAAQIECBAg\nQIAAgSICAlIRdislQIAAAQIECBAgQKBGAQGpxllREwECBAgQIECAAAECRQQEpCLsVkqAAAEC\nBAgQIECAQI0CAlKNs6ImAgQIECBAgAABAgSKCAhIRditlAABAgQIECBAgACBGgUEpBpnRU0E\nCBAgQIAAAQIECBQREJCKsFspAQIECBAgQIAAAQI1CghINc6KmggQIECAAAECBAgQKCIgIBVh\nt1ICBAgQIECAAAECBGoUEJBqnBU1ESBAgAABAgQIECBQREBAKsJupQQIECBAgAABAgQI1Cgg\nINU4K2oiQIAAAQIECBAgQKCIgIBUhN1KCRAgQIAAAQIECBCoUUBAqnFW1ESAAAECBAgQIECA\nQBEBAakIu5USIECAAAECBAgQIFCjgIBU46yoiQABAgQIECBAgACBIgICUhF2KyVAgAABAgQI\nECBAoEYBAanGWVETAQIECBAgQIAAAQJFBASkIuxWSoAAAQIECBAgQIBAjQICUo2zoiYCBAgQ\nIECAAAECBIoICEhF2K2UAAECBAgQIECAAIEaBQSkGmdFTQQIECBAgAABAgQIFBEQkIqwWykB\nAgQIECBAgAABAjUKCEg1zoqaCBAgQIAAAQIECBAoIiAgFWG3UgIECBAgQIAAAQIEahQQkGqc\nFTURIECAAAECBAgQIFBEQEAqwm6lBAgQIECAAAECBAjUKLBHjUWpqQ6BSy65pLv44ounxey5\n557dHe5whzoKUwUBAgQIECBAYIkEHJNt7WR7BWlrvZta22tf+9ruLne5y/Tfgx/84KZqVywB\nAu0KXHrppd15553X7gaonAABApkFHJNlBt1gOAFpAyA3EyBAgMDWCEwmk+6Nb3xjd+c737n7\nyEc+sjUrtRYCBAgQILBKwFvsVoH4kQABAgTKCBx33HHd+973vjIrt1YCBAgQIBACXkHSCgQI\nECBQhcD5559fRR2KIECAAIHlFhCQlnv+bT0BAgQIECBAgAABAgMBAWmA4SIBAgQIECBAgAAB\nAsstICBt4vz/3//9X/e9731vE9dQfugf/OAH3Y9//OPyhWSsIH1QfOzzlrYxncL96quvzihX\nz1Df//73p3M41u2rR1olOyMw9n1L2m+mx71lWS677LLuqquuGs3mjn2/6ZhsNK26JRsiIO0G\n89vf/vbu+OOPn/57y1veMh3pu9/9bnfyySd3D3zgA7t9992322+//bqf+qmf6o444ojuTW96\nU/eTn/xkN9ZYx6++4Q1v6B796Ed3Bx54YHezm92s23vvvbtb3OIW3ROf+MTu7LPPrqPInazi\nk5/85LT+ww47rLvpTW86nbc0f7/yK7/SPf3pT+/OOuusnRyx7N2Hvfm2t71tWsyVV17ZveY1\nr+kOP/zwbq+99ur233//6bbe+9737k444YTui1/8Ytmid3HtKaSn058+9alP7Y466qjup3/6\np7ub3/zm0zm8wQ1u0N3xjnfsnvSkJ3Wf+MQndnENW/tr6e9rtl856aSTFlr54x73uPnvtHb2\nt3/+53+e156+52O2DB2e//znz65u7v+x7VuGE3D55ZdP//YOPfTQbp999pnvN4855pjuRS96\n0fyJpr//+7+fz3F6HGxpSY/ts7/H008/fVr6u971ru7+97//dD+THv/uda97dWkbW3pCZmz7\nzTQxw8c9x2RtH5NVsY/on9Gy7KLAi1/84kk/idN/z372sydf+9rXJne6053m181uG/7fH6xN\n/u3f/m0X17i1vzbcvrve9a6T/tmlyUMf+tAdbt/1rne9yXOf+9ytLXQ31vbNb35z8oQnPGGS\n6h7O0+rL27Ztm5x44omT/tWy3Vjb1v3qcO76A5Vpzx188ME73Mb+gX7Sn2J564rMsKZTTz11\n0j8BscPtGs7lYx7zmMkVV1yRYc2bN8TTnva0+fbc5z73WWhFae5m29naHPYBfl77bBtW/98/\nwbSQQ013Guu+ZWbcPxk2ueUtb7nDufu5n/u5Sf/Ey+QFL3jB/H6///u/Pxuiif/TY/usH//k\nT/5kkvo1PR7Mrpv93z8ZOumfhGpim8a430zww8c9x2TXHJu2dkxW0x+Q03z3e7ccy7//+793\nRx55ZPef//mf0+H6oDR9Nvt///d/u49//OPdhRdeOL0+/d8f9HRnnHFGd7e73S3HqrdkjPR2\nrPQs4Ve+8pX5+n7mZ35m+irZl770pS5tZ1r65u5e/vKXdwcccMD0Gf35nSu8kF7t+6Vf+qXu\nO9/5zry6fmfSpblL38Pyr//6r92Xv/zl6Tall+Zf+cpXdv/4j/84PQ3x7W9/+/nv1H7h29/+\ndvdrv/ZrXR/gp6WmbTygn5/0auasX9MN6dng9EpLuj29Glj7csopp3R/+Id/uKLM9MXGt73t\nbafPZn/jG9/oUm+mt43Mlre+9a1dHxS7PsTPrvJ/YYH0amZ6BTotw7do3fjGN+5udKMbTa9P\nr1S3tIx933LmmWd2/ZNl033GbF7SfKVX4NO+8jOf+cz0tvR4kd49cfe73312t6b/T/vS9Pi2\n1tsIH/WoR3V77rln9du3LPtNx2TtHZNV98dTU1prrZbhsxX9xE6fUeof7Cd/93d/d51N+fM/\n//PJ9a9//fmzTv2B+aR/Of4696vpirW2b4899pi89KUvnZx77rnzUtOzZum+6baZQ3/AU/32\nPfzhD5/Xm+p+/OMfP+kP0ObblS704WnyG7/xGyvu9+AHP3jFfWr8YTh36RmktH03uclNJn/2\nZ3826d83Py/5P/7jPybDVyzS/VJv1r5ccMEFK/rtHve4x+Rzn/vcdcpOvZn+9vq3/8znsA/2\nVT/TO5yPZXgFaThpt7nNbebz9OpXv3p4U1OXx7xv+Z//+Z/JrW51q/k89W9jnbzqVa+a9J/F\nmc9R/+TL9Lp02+wxYfZ/y68gpcf3tB03vOENp48Lr3/96ydPecpTJre+9a0nn/rUp+bbX+uF\nMe83k/nwcW/Wb47Jrjk2beGYrLa/m/TsuGUXBVb/MaaX3T/60Y+uO1r/ntgVDxZ/9Vd/te59\na7hh9falHU7/uYB1S0sPfLOdUvq/f+/9uvctfcPf/u3frqj1Fa94xQ5LeuELX7ji/v170Hd4\n/9I3rp67FF6/8IUvrFtW/5myFdv3L//yL+vet4Yb0kHJrNfSjj+9nWlHy+te97r5/dPv/dM/\n/dOO7l70NgHpmgf0VgPS2Pctz3rWs+Z/S+nJlw9+8IPr/r187GMfW/HEYPrbazkgpfrTNn/4\nwx9esc39K0orfq71hzHvN5P56sc9x2TtHJPV+DfjJA39Hi/X8pu/+Zvdfe9733WHe+xjHzt9\nS9fsDn1Aml1s4v/nPOc507dgrVdsun241Pqlj+msQ/1B6LzU9Da7P/iDP5j/vNaF9GH5n//5\nn5/f9IxnPKOpE2783u/9XnfIIYfM6199Ib1tZLicd955wx+rutzvSLv3vve985p+67d+q0tv\n99zRkv42h0sfqIY/ukwgi8DY9y3pbbl/8zd/M7d65CMf2d3vfveb/7z6Qno7eQtv111d945+\nTie0SSfvGS7pbcm1L8u433RM1sYxWa1/OwJSppnpn6noFjnj1PBsTJ/97Ge7//7v/85UweYP\nkz6fsqOlf9vF9Ix9s/vUeqrs9L744edSXvayl00/dzOre63/+1dgpmcnnN2WPs/Tvz1t9mP1\n///2b//2Dmu83e1uNz0j4exOQ5/ZdbX8nw5GLrrooi69xzx9JmyjcJvqTmeT7N9iON+EdEY/\nC4HcAmPft/SvCK3Yd/bP2G9ImO6T9p9jWfq3Tza5Kcu233RM1nWtHJPV+gclIGWamTvc4Q5d\n+oD4Rks6xfJsSc/opAecFpb0Adx04oKNlvQB+dmSTiNa45JOvjBb0oNGOl3rIks60cFwSQfo\nrSwH9Cdl2GhJp6OfLbOTbsx+ru3/9GHodDKNdDr9/v3/OywvfbD6tNNOW/F9JWM43f4ON9qN\nRQTGvm/p3043d037i0Ue89JjwiL7n/nAlV8YvpOg8lKvU94y7Tcdk10z/S0ck12nUSu5YjxP\n6xQGXfQB4Gd/9me7/mQN8+9LaOWtPuk7gRZZhs8U1vqdEMODmHRwveiZh9KZtNK/2asr/ena\nFyEpfp80d8NXT9YrqP/g8fymtc7SNL+x0gvpbymdtS69spf+pQCb5ihdZyGwFQJj37f813/9\n15xx0ce89AvpvumMoK0v6ayK6TF8TMtY95uL9qdjsjF1c95tEZAyeS562ucUINLnJWanV07P\nbrewLHKA3cJ2pBqHBzGL7kRn25aelfr85z8//bGVV5DSF6eOdUkHbP0ZtLr+g/Hdt771rbFu\npu1qRGDs+5bh39iij3lp6tJ+cwxL2o4WPm+0kfUy7DcX7U/HZBt1y/Le7i12meZ++PakTENW\nNcwYHhRmoP1pamcX59+zMr9igwvDV8haeZVlTHM3nJ70vVTpgKU/dfma4Shtd/9Fld3v/M7v\ndO95z3um3400/H2XCeQWGPu+Jb37Ybb0X5o9u7jh/+nkFWNYZt/L1fK2LMt+0zFZy11aR+1e\nQco0D8O3HuxoyPS2s+GJGdKH6CxbK3DggQfOVzj78tT5FRtcGN5///333+Debt4sgTe/+c3d\nM5/5zBXDp7MR3vve956erS99CfMv/uIvrghFrQTa4UYtUnP6LOMVV1wx/DWXCwmMfd+SPvfX\nnyJ/qpu+iHnRZbjfXPR33C+/wLLsN5OcY7L8/bNsIwpImWb861//+kIjpT/a4WdzNjo98UKD\nutNOCQw/ZJvmLR1gLvIqS3rGtP/i2Pm6bnnLW84vu7B1AukzYP33ecxX2H8PUvcP//AP3VFH\nHTW/bvWFdFKGH/3oR/Or05zXugx7cZGTZaRXLRYJUrVu75jqGvu+Zbh9OxOQFn18HFMv1LYt\nY99vrvZetOcck62W8/NMwFvsZhK7+X86vesw+Kw33Orvl/nlX/7l9e7q+k0SSM+CzpZ0uudF\nP0vUf9Hq7Nem/w/HWXGDHzZV4OMf//iK76Davn37DsNRKiadFny41BwohicNufzyy4dlr3l5\nDB9+X3PDGrxyuE8Y475luH3pCYdPf/rTG85SOlBd/fe34S+5Q3aBse83V4M5Jlst4uedFRCQ\ndlZsnft/97vf7d761reuc+u1V//pn/7p/IdDDz20G56CcX6DC5sqcNe73rW7wQ1uMF9H+h6k\nRZaXvvSl87vtvffe3bHHHjv/2YWtExieGj/N446+qHJW1bve9a7Zxen/NX8mYnhClHQyl43C\n3Pvf//4V29byD8PPuNT8Kt96xmPft6QvSL3jHe843/yXvOQl88vrXTj55JNXnGJ/vfu5fnMF\nxr7fXK3nmGy1iJ93VkBA2lmxHdw/HUDv6MArfYfEcCf1+Mc/fgejuWmzBNJZ3Z7+9KfPh0/B\ndvWrQ/Mb48InPvGJ7r3vfe/86gc96EFdCkmWrRfYZ5995itNb50bfjB+fsPgwvve977uBS94\nweCarqv5i2KHB6Dpu8TSWfrWW9KzwukAdCzL8G/qhz/8YXObNfZ9S3pC4kUvetF8XtI+8Z3v\nfOf859UXPvKRj3RvetObVl/t5wICY99vrkXqmGwtFdctKiAgLSq1wP3Sd6+kLxO9+OKLr3Pv\nd7/73d3wG7gPPvjg7oQTTrjO/VyxNQInnXTS9Fum09rSM/TpVYh0prO1lre97W3dcccdN78p\nPdD88R//8fxnF7ZW4O53v/uKFa4OP8Mb0wFa+rtb/Vmemg++H/rQh6743qq0feeff/5ws6aX\nP/nJT3bpvmM6QcPwIC4deG8Ufq+DUsEVY9+3PPaxj13xBbHHH39897znPa9Lz9jPlksvvXS6\nj0xfwr2jJw1n9/f/5guMfb+5lqBjsrVUXLeogJM0LCq14P0+9KEPdelsWunA5V73uleXvuco\nvfqQAtLsLSPpWdK//uu/7oanjF5weHfLJHDTm960e8UrXtGlB/u0fO973+se8pCHTAPuEUcc\n0aX32qcvGT377LO7M888c77W9AH617/+9dPTR8+vdGFLBdJBV3or0wUXXDBdb/pbSp8je+pT\nnzp9+086IPvqV7/aveMd75i+6pd+Ts98py8EnH0WYvY9ZFta+IIrS735uMc9rvuLv/iL6W+k\nzyGlJ1QOOeSQaVBPB6If+MAHutmH5NNJKtJtad/T+pLm9VOf+tR0Mz73uc916UuO05c53/zm\nN9/wVd5atn3s+5b0Nsj0t/Xrv/7r3YUXXjh9XHv5y1/GMhhyAAAR8klEQVTepX/pe+XS49rw\nc3Hp+2hSD88C1PBtlLXM2TLUMfb95npz6JhsPRnXbyjQH7RbdlHgxS9+cToV1vTfXe5yl0n/\nzOGkP4CeXze7bfh/f1rvSf/B1l1c49b+2nD7+gOXhVbeh8P59vfPKi70OyXvdMYZZ0xud7vb\nzWseztXqy/vtt9+kf0tJyXIXXveuzN2d73znuUP/tq2F11Xijv1bIif9Ew3zelfP1fDn/ruS\nJv2rLZM+2M7v3x94T/q32ZUofaF19geTk2OOOWZe73B7hpdTT5511lmT/qx+8/u+8Y1vXGgd\nNd4pzdONb3zj+bbMtnXbtm2T/iySNZa8bk1j3bfMNviSSy6Z9K+8X2euZnOW/n/AAx4w6d9R\nMemfcJrf74/+6I9mQzTx/7Of/ex57f3nhpuoeb0ix77fHD7uOSa7pgtaOyZbr3dLXO8tdv1e\nPMfSP4B36QOrb3/727vhqVBnY6dnFZ/1rGd1n//857t73vOes6v9X1ggPauWziyYvkx0ve81\nSp8reM5znjN9Bnv4VrvCpS/16tMrJukVvvRKy/C02DOU9Cx1ejUifX4nvdJ0+OGHd33gmN08\nfcUwfTap1iW9KpTqO+WUU7q1vgogvSL2yEc+sjv33HO7MZ0JM81TOqHG6pPXpLfBprfLtLSM\nfd+SXt1LJwg57bTTpt9Jlk6zn76cM/3dPelJT+re8IY3THu4D/Erzjo59i/wrLlHx77fHNo7\nJhtquLwrAtdLqWxXftHvdNNA1D9jMaVIDwpf/OIX5yyzt9Zddtll08CUdkzDs1PN7+hCVQJp\n3tJBZzpFaPqeo/SWkfT2pnRAaqlTIH3m70tf+tJ0ztKBdPqC2PT3eMMb3rDOgnehqvRdHZ/5\nzGemb9lNbxVMb99NIWqsS3pYSm/TSt87drOb3azrX+Vd8aW/LW73Mu9bUq/2rzhNpy2dtOGJ\nT3xii1M4qprHuN9MT1I7JhtVmxbdGAFpN/h39Me4G8P6VQIECBAgUJ1AOvtjOvFJ+oxm+mxR\nepZ+oyWdiTGF3NmSPhNy9NFHz370P4FsAo7JslEaqBfYeO+GiQABAgQIEFh6gfQlxumsdelU\n9OlkQ+kERBstb3nLW+Z3Sb8zpreEzjfMBQIERicgII1uSm0QAQIECBDIL5A+73fQQQdNB06v\nJv3lX/7lDleSzhqZPkc3W9LnlPbaa6/Zj/4nQIBAtQICUrVTozACBAgQIFCXwLHHHjsvKL06\n9OQnP3l6Wv35lf2F9AXO27dv71Ig+uY3vzm9Kb36NAxLw/u7TIAAgdoEfA9SbTOiHgIECBAg\nUKnAC1/4wq4/tfz8++HS2erSv3QW0HQCke9///tdOqlICkmzJX1WKZ1RMn1HoIUAAQItCHgF\nqYVZUiMBAgQIEKhAIJ1CP53a+zGPeUw3/NLX9EWw55xzzvTLmIfhKIWm9GXbv/u7v1tB9Uog\nQIDAYgLOYreY05r3Sjv9/ssAp7elU0I/85nPXPN+riRAgAABAmMTuPDCC7tTTz11+l1j6fNG\n3/jGN6anY7/1rW/d9V883T360Y/u0lvy9tjDm1XGNvc1bo9jshpnpd2aBKR2507lBAgQIECA\nAAECBAhkFvAWu8yghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CA\nAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blT\nOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSk\nzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBd\nAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAA\nAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIE\nCBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIE\nCBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYj\nQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAand\nuVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkF\nBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBA\noF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBA\ngAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAAB\nAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkB\nAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyg\nhiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEB\nqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAEC\nmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQ\nIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQ\nIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CA\nAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blT\nOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSk\nzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBd\nAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAA\nAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIE\nCBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIE\nCBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYj\nQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAand\nuVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkF\nBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBA\noF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBA\ngAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAAB\nAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkB\nAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyg\nhiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEB\nqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAEC\nmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQ\nIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQ\nIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CA\nAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blT\nOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSk\nzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBd\nAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAA\nAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIE\nCBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIE\nCBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYj\nQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAand\nuVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkF\nBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBA\noF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBA\ngAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAAB\nAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkB\nAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAECmQUEpMyg\nhiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQIECgXQEB\nqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQIECAAAEC\nmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CAAAECBAgQ\nIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blTOQECBAgQ\nIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSkzKCGI0CA\nAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBdAQGp3blT\nOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAAAQKZBQSk\nzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkFBKTMoIYjQIAAAQIECBAgQKBd\nAQGp3blTOQECBAgQIECAAAECmQUEpMyghiNAgAABAgQIECBAoF0BAanduVM5AQIECBAgQIAA\nAQKZBQSkzKCGI0CAAAECBAgQIECgXQEBqd25UzkBAgQIECBAgAABApkF/h82s88/hS7oaAAA\nAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "if (length(strsplit(word, split=\"\")[[1]]) <= 1) {\n",
    "    print(\"Your word must have more than two letters\")\n",
    "} else {\n",
    "    bigrams <- make_bigrams(word)\n",
    "    frequencies <- get_frequencies(bigrams, df)\n",
    "    network <- make_network(bigrams, frequencies)\n",
    "    plot_network(word, network)\n",
    "}"
   ]
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.6.1"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 4
}