session_start();

$dailystormer_onion = "stormer5v52vjsw66jmds7ndeecudq444woadhzr2plxlaayexnh6eqd.onion";
$dailystormer_url = "https://dailystormer.in";
$duckduckgo_onion = "https://duckduckgogg42xjoc72x3sjasowoarfbgcmvfimaftt6twagswzczad.onion";
// $duckduckgo_onion = "http://3g2upl4pq6kufc4m.onion";
// (updated 2021-11-06)

$caca_span_break = false;
$q_mark = false;
$f_aquote = false;
$f_dquote = false;
$f_squote = false;
$set_caca_span_break = false;
$set_caca_span_break_frequency = false;
$set_columns = false;
$set_default_set = false;
$set_size_font = false;
$set_theme = false;
$set_type_write_image = false;
$set_type_write_image_override = false;
$set_void_slash = false;
$slash_even = false;
$void_slash = false;
$word_break = false;

$caca_span_break_frequency = 5;
$columns = 80;
$columns_max = 192; // size 182 allows ascii_box() to write "Insanely Witty 
                    // Stupidity" ascii art on a single line ;)
$i = 0;
$q_mark_ = 0;
$size_font = 13;

$dd_str = date("d");
$mm_str = date("m");
$req = "";
$substr_ = "";
$theme = "evil_mode";
$tmp = "";
$type_write_image = "caca";
$type_write_image_override = "html_img";
$uri = urldecode($_SERVER["REQUEST_URI"]);

$option = array();

function ascii_array_echo(array $arr)
{
  $i = 0;
  $str = "";

  for($i = 0; $i < sizeof($arr); $i++)
  {
    $str .= $arr[$i];
    $str .= "\n";
  }

  return $str;
}

function ascii_art(array $arr, $columns, $type_request)
{
  $count_columns = 0;
  $count_columns_largest = 0;
  $i = 0;
  $j = 0;
  $k = 0;

  $str = "";
  $substr = "";
  $substr_tag = "";

  if($type_request == "chop")
  {
    for($i = 0; $i < sizeof($arr); $i++)
    {
      $count_columns = 0;
      $str = $arr[$i];

      if(strlen($str) <= $columns)
        continue;

      for($j = 0; $j < strlen($str); $j++)
      {
        $substr = substr($str, $j, 1);

        if($substr == "<")
        {
          for($k = $j + 1; $k < strlen($str); $k++)
          {
            $substr_tag = substr($str, $k, 1);

            if($substr_tag == ">")
            {
              $j = $k;
              break;
            }
          }
        }

        else if($substr == "&")
        {
          for($k = $j + 1; $k < strlen($str); $k++)
          {
            $substr_tag = substr($str, $k, 1);

            if($substr_tag == ";")
            {
              $j = $k - 1;
              break;
            }
          }
        }

        else
          $count_columns = $count_columns + 1;

        if($count_columns == $columns)
        {
          $arr[$i] = substr($str, 0, $j + 1);
          break;
        }
      }
    }

    return $arr;
  }

  else if($type_request == "columns")
  {
    for($i = 0; $i < sizeof($arr); $i++)
    {
      $count_columns = 0;
      $str = $arr[$i];

      for($j = 0; $j < strlen($str); $j++)
      {
        $substr = substr($str, $j, 1);

        if($substr == "<")
        {
          for($k = $j + 1; $k < strlen($str); $k++)
          {
            $substr_tag = substr($str, $k, 1);

            if($substr_tag == ">")
            {
              $j = $k;
              break;
            }
          }
        }

        else if($substr == "&")
        {
          for($k = $j + 1; $k < strlen($str); $k++)
          {
            $substr_tag = substr($str, $k, 1);

            if($substr_tag == ";")
            {
              $j = $k - 1;
              break;
            }
          }
        }

        else
          $count_columns = $count_columns + 1;
      }

      if($count_columns_largest < $count_columns)
        $count_columns_largest = $count_columns;
    }

    return $count_columns_largest;
  }

  return "unknown request type: " . $type_request;
}

function ascii_box(array $arr, $columns, $type_return, $break)
{
  $i = 0;
  $j = 0;
  $k = 0;
  $l = 0;
  $m = 0;
  $count_columns = 0;
  $count_columns_box = 0;
  $count_columns_box_break = 0;
  $offset_iterator = 0;
  $size_str = 0;

  $arr_arr = array();
  $arr_box = array();
  $box = array();
  $list_spaces = ascii_write($arr, $columns, "list_spaces", $break);
  $row = array();
  $shelf = array();
  $table = array();
  $table_arr = array();

  if($break)
    $offset_iterator = 1;

  for($i = 0; $i < sizeof($arr); $i++)
  {
    $arr_arr = $arr[$i];
    $count_columns = ascii_art($arr_arr, $columns, "columns");

    if($count_columns > $columns)
      $arr[$i] = ascii_art($arr_arr, $columns, "chop");
  }

  for($i = 0; $i < sizeof($arr); $i++)
  {
    $arr_arr = $arr[$i];

    array_push($box, $arr_arr);

    for($j = 0; $j < sizeof($list_spaces); $j++)
    {
      if($arr_arr == $list_spaces[$j])
      {
        array_push($shelf, $box);
        $box = array();
      }
    }
  }

  array_push($shelf, $box);
  $box = array();
  $count_columns = 0;

  for($i = 0; $i < sizeof($shelf); $i++)
  {
    $box = $shelf[$i];
    $count_columns_box = 0;

    for($j = 0; $j < sizeof($box); $j++)
      $count_columns_box = $count_columns_box + ascii_art($box[$j], $columns, 
                                                          "columns");

    if($count_columns + $count_columns_box <= $columns)
    {
      for($j = 0; $j < sizeof($box); $j++)
      {
        if(sizeof($row) < sizeof($box[$j]))
        {
          if(sizeof($row) == 0)
          {
            for($k = 0; $k < sizeof($box[$j]); $k++)
              array_push($row, "");
          }

          else
          {
            $size_str = strlen($box[$j][0]);

            for($k = sizeof($box[$j]) - sizeof($row); $k < sizeof($box[$j]); 
                $k++)
              array_push($row, "");

            for($k = 0; $k < sizeof($row) - $offset_iterator; $k++)
            {
              if($row == "")
              {
                for($l = 0; $l < $size_str; $l++)
                  $row .= " ";
              }
            }
          }
        }

        else if(sizeof($box[$j]) < sizeof($row))
        {
          $size_str = strlen($row[0]);

          for($k = sizeof($row) - sizeof($box[$j]); $k < sizeof($row); $k++)
            array_push($box[$j], "");

          for($k = 0; $k < sizeof($box[$j]) - $offset_iterator; $k++)
          {
            if($box[$j][$k] == "")
            {
              for($l = 0; $l < $size_str; $l++)
                $box[$j] .= " ";
            }
          }
        }
      }

      for($j = 0; $j < sizeof($box); $j++)
      {
        for($k = 0; $k < sizeof($box[$j]); $k++)
          $row[$k] .= $box[$j][$k];
      }

      $count_columns = $count_columns + $count_columns_box;
    }

    else
    {
      $count_columns = 0;
      $count_columns_box_break = 0;
      array_push($table, $row);
      $row = array();

      for($j = 0; $j < sizeof($box); $j++)
      {
        $arr_box = $box[$j];
        $count_columns_box_break = $count_columns_box_break + 
                                   ascii_art($arr_box, $columns, "columns");

        if($count_columns_box_break <= $columns)
        {
          for($k = 0; $k < sizeof($box); $k++)
          {
            if(sizeof($row) < sizeof($box[$k]))
            {
              if(sizeof($row) == 0)
              {
                for($l = 0; $l < sizeof($box[$k]); $l++)
                  array_push($row, "");
              }

              else
              {
                $size_str = strlen($box[$k][0]);

                for($l = sizeof($box[$k]) - sizeof($row); $l < 
                    sizeof($box[$k]); $l++)
                  array_push($row, "");

                for($l = 0; $l < sizeof($row) - $offset_iterator; $l++)
                {
                  if($row == "")
                  {
                    for($m = 0; $m < $size_str; $m++)
                      $row .= " ";
                  }
                }
              }
            }

            else if(sizeof($box[$k]) < sizeof($row))
            {
              $size_str = strlen($row[0]);

              for($l = sizeof($row) - sizeof($box[$k]); $l < sizeof($row); $l++)
                array_push($box[$k], "");

              for($l = 0; $l < sizeof($box[$k]) - $offset_iterator; $l++)
              {
                if($box[$k][$l] == "")
                {
                  for($m = 0; $m < $size_str; $m++)
                    $box[$k] .= " ";
                }
              }
            }
          }

          for($k = 0; $k < sizeof($arr_box); $k++)
            $row[$k] .= $arr_box[$k];
        }

        else
        {
          array_push($table, $row);
          $count_columns_box = $count_columns_box - ascii_art($row, $columns, 
                                                              "columns");
          $count_columns_box_break = ascii_art($arr_box, $columns, "columns");
          $count_rows_box = 0;
          $row = $arr_box;
        }
      }

      $count_columns = $count_columns_box;
    }
  }

  array_push($table, $row);

  for($i = 0; $i < sizeof($table); $i++)
  {
    $row = $table[$i];

    for($j = 0; $j < sizeof($row); $j++)
      array_push($table_arr, $row[$j]);
  }

  $table_arr = ascii_pad($table_arr, $columns);

  if($type_return == "echo")
    return ascii_array_echo($table_arr);

  return $table_arr;
}

function ascii_break($str, $columns, $type_return, array $leader)
{
  $space_flag = false;

  $count_character = 0;
  $count_columns = 0;
  $count_columns_accumulator = 0;

  $i = 0;
  $j = 0;
  $k = 0;
  $result = 0;

  $accumulator = "";
  $accumulator_tag = "";
  $leader_str = "";
  $str_arr = "";
  $substr = "";
  $substr_tag = "";

  $arr = array();
  $accumulator_arr = array();

  if(sizeof($leader) == 1 && $leader[0] == "none")
    array_pop($leader);

  $result = strlen($str) - 1;

  for($i = 0; $i < $result; $i++)
  {
    $substr = substr($str, $i, 2);

    if($substr == "\r\n")
    {
      $accumulator .= "\n";
      $i = $i + 1;
    }

    else
      $accumulator .= substr($str, $i, 1);
  }

  if(strlen($str) > 0)
    $accumulator .= substr($str, strlen($str) - 1, 1);

  $str = $accumulator;
  $accumulator = "";

  for($i = 0; $i < strlen($str); $i++)
  {
    $substr = substr($str, $i, 1);

    if($substr == " ")
      $space_flag = true;

    else
    {
      if($space_flag)
      {
        array_push($arr, $accumulator);
        $accumulator = $substr;
        $space_flag = false;
        continue;
      }

      $space_flag = false;
    }

    if($substr == "\n" || $substr == "\r")
    {
      $accumulator .= "\n";
      array_push($arr, $accumulator);
      $accumulator = "";
      continue;
    }

    else if($substr == "<")
    {
      $accumulator_tag = "<";

      for($j = $i + 1; $j < strlen($str); $j++)
      {
        $substr_tag = substr($str, $j, 1);

        if($substr_tag == ">")
        {
          $accumulator_tag .= ">";

          if($i + 4 < strlen($str) && 
             frame_space_ditch(substr($accumulator_tag, 1, 
                               strlen($accumulator_tag) - 2)) == "wbr")
          {
            array_push($arr, $accumulator);
            $accumulator = "";
            $i = $i + strlen($accumulator_tag) - 1;
          }

          else
          {
            $accumulator .= $accumulator_tag;
            $i = $i + strlen($accumulator_tag) - 1;
          }

          $substr = "";
          break;
        }

        $accumulator_tag .= $substr_tag;
      }
    }

    $accumulator .= $substr;
  }

  if(strlen($str) > 0)
    array_push($arr, $accumulator);

  if(sizeof($leader) > 0)
  {
    $leader_str = $leader[0];

    for($i = 0; $i < sizeof($leader) - 1; $i++)
      $leader[$i] = $leader[$i + 1];

    array_pop($leader);
  }

  else
    $leader_str = "";

  $count_columns = 0;
  $accumulator = "";

  for($i = 0; $i < sizeof($arr); $i++)
  {
    $count_columns_accumulator = 0;
    $str_arr = $arr[$i];

    for($j = 0; $j < strlen($str_arr); $j++)
    {
      $substr = substr($str_arr, $j, 1);

      if($substr == "<")
      {
        for($k = $j + 1; $k < strlen($str_arr); $k++)
        {
          $substr_tag = substr($str_arr, $k, 1);

          if($substr_tag == ">")
            break;
        }

        $j = $k;
        continue;
      }

      else if($substr == "&")
      {
        for($k = $j + 1; $k < strlen($str_arr); $k++)
        {
          $substr_tag = substr($str_arr, $k, 1);

          if($substr_tag == ";")
            break;
        }

        $j = $k - 1;
        continue;
      }

      $count_columns_accumulator = $count_columns_accumulator + 1;
    }

    if(ascii_art([$leader_str], $columns, "columns") + $count_columns + 
       $count_columns_accumulator <= $columns)
    {
      $accumulator .= $str_arr;

      if(substr($accumulator, strlen($accumulator) - 1, 1) == "\n")
        $accumulator = substr($accumulator, 0, strlen($accumulator) - 1);

      if(substr($str_arr, strlen($str_arr) - 1, 1) != "\n")
        $count_columns = $count_columns + $count_columns_accumulator;

      else
      {
        array_push($accumulator_arr, $leader_str . $accumulator);
        $accumulator = "";

        if(sizeof($leader) > 0)
        {
          $leader_str = $leader[0];

          for($j = 0; $j < sizeof($leader) - 1; $j++)
            $leader[$j] = $leader[$j + 1];

          array_pop($leader);
        }

        else
          $leader_str = "";

        $count_columns = 0;
      }
    }

    else
    {
      array_push($accumulator_arr, $leader_str . $accumulator);

      if(sizeof($leader) > 0)
      {
        $leader_str = $leader[0];

        for($j = 0; $j < sizeof($leader) - 1; $j++)
          $leader[$j] = $leader[$j + 1];

        array_pop($leader);
      }

      else
        $leader_str = "";

      while(ascii_art([$leader_str], $columns, "columns") + 
            $count_columns_accumulator > $columns)
      {
        $count_character = 0;
        $accumulator_tag = "";

        for($j = 0; $j < $columns - ascii_art([$leader_str], $columns, 
                                              "columns"); $j++)
        {
          $substr = substr($str_arr, $count_character, 1);

          if($substr == "<")
          {
            $accumulator_tag .= "<";
            $count_character = $count_character + 1;
            $result = $count_character;

            for($k = $result; $k < strlen($str_arr); $k++)
            {
              $substr_tag = substr($str_arr, $k, 1);

              if($substr_tag == ">")
              {
                $accumulator_tag .= ">";
                $count_character = $count_character + 1;
                break;
              }

              else
              {
                $accumulator_tag .= $substr_tag;
                $count_character = $count_character + 1;
              }
            }

            $substr = substr($str_arr, $count_character, 1);
          }

          else if($substr == "&")
          {
            $accumulator_tag .= "&";
            $count_character = $count_character + 1;
            $result = $count_character;

            for($k = $result; $k < strlen($str_arr); $k++)
            {
              $substr_tag = substr($str_arr, $k, 1);

              if($substr_tag == ";")
              {
                $accumulator_tag .= ";";
                $count_character = $count_character + 1;
                break;
              }

              else
              {
                $accumulator_tag .= $substr_tag;
                $count_character = $count_character + 1;
              }
            }

            $substr = substr($str_arr, $count_character, 1);
            $count_columns_accumulator = $count_columns_accumulator + 1;
          }
          
          $accumulator_tag .= $substr;
          $count_character = $count_character + 1;
        }

        $str_arr = substr($str_arr, strlen($accumulator_tag), 
                          (strlen($str_arr) - strlen($accumulator_tag)) + 
                           strlen($leader_str));

        array_push($accumulator_arr, $leader_str . $accumulator_tag);
        $count_columns_accumulator = $count_columns_accumulator - 
          ($columns - ascii_art([$leader_str], $columns, "columns"));

        if(sizeof($leader) > 0)
        {
          $leader_str = $leader[0];

          for($j = 0; $j < sizeof($leader) - 1; $j++)
            $leader[$j] = $leader[$j + 1];

          array_pop($leader);
        }

        else
          $leader_str = "";
      }

      $accumulator = $str_arr;

      if(substr($str_arr, strlen($str_arr) - 1, 1) != "\n")
        $count_columns = $count_columns_accumulator;

      else
      {
        $accumulator = substr($accumulator, 0, strlen($accumulator) - 1);
        array_push($accumulator_arr, $leader_str . $accumulator);
        $accumulator = "";

        if(sizeof($leader) > 0)
        {
          $leader_str = $leader[0];

          for($j = 0; $j < sizeof($leader) - 1; $j++)
            $leader[$j] = $leader[$j + 1];

          array_pop($leader);
        }

        else
          $leader_str = "";

        $count_columns = 0;
      }
    }
  }

  if(strlen($accumulator) > 0)
    array_push($accumulator_arr, $leader_str . $accumulator);

  else if(strlen($leader_str) > 0)
    array_push($accumulator_arr, $leader_str);

  $result = sizeof($leader);

  for($i = 0; $i < $result; $i++)
  {
    $leader_str = $leader[0];

    for($j = 0; $j < sizeof($leader) - 1; $j++)
      $leader[$j] = $leader[$j + 1];

    array_pop($leader);
    array_push($accumulator_arr, $leader_str);
  }

  $arr = array();
  $arr = $accumulator_arr;
  $accumulator_arr = array();

  $arr = ascii_pad($arr, $columns);

  if($type_return == "echo")
    return ascii_array_echo($arr);

  return $arr;
}

function ascii_image($message, $columns, $tag_alt, $tag_title, $tag_label, 
                     $type_return, $type_write)
{
  $caca_string_size = 0;
  $count_span = 0;
  $dots_image = 0;
  $i = 0;
  $j = 0;

  $accumulator = "";
  $caca = "";
  $caca_string = "";
  $caca_substr = "";
  $str = "";
  $substr = "";
  $tag_alt_use = "HTML image";
  $tag_label_use = "(view photo)";
  $tag_title_use = "This is an HTML image";

  $caca_array = array();
  $caca_array_return = array();

  if($columns > 1)
    $columns = $columns - 1;

  if($tag_alt != "")
    $tag_alt_use = $tag_alt;

  if($tag_label != "")
    $tag_label_use = $tag_label;

  if($tag_title != "")
    $tag_title_use = $tag_title;

  if($type_write == "html_img")
    $type_write = "caca_link";

  if($type_write == "caca")
  {
    $caca = shell_exec("columns_override=" . $columns . " format=html " . 
                       "/mic/sh/image_write /iws" . $message);
    $caca_array = array();
    $caca_string = "";

    for($i = 0; $i < strlen($caca); $i++)
    {
      $caca_substr = substr($caca, $i, 1);

      if($caca_substr == "\n")
      {
        array_push($caca_array, $caca_string);
        $caca_string = "";
      }

      else
        $caca_string .= $caca_substr;
    }

    for($i = 0; $i < sizeof($caca_array); $i++)
    {
      $caca_string = $caca_array[$i];
      $caca_string_size = strlen($caca_string);

      if($caca_string_size > 4 && substr($caca_string, 0, 5) == "<span")
      {
        if(substr($caca_string, $caca_string_size - 6, 6) == "<br />")
          $caca_string = substr($caca_string, 0, $caca_string_size - 6);

        if($columns > 1)
          array_push($caca_array_return, $caca_string . " ");

        else
          array_push($caca_array_return, $caca_string);
      }
    }
  }

  else if($type_write == "caca_link")
    array_push($caca_array_return, "<a href=\"" . $message . "\" " . 
                                   "target=\"_blank\">" . $tag_label_use . 
                                   "</a> ");

  else if($type_write == "netpbm")
  {
    $caca = shell_exec("columns=\"" . $columns . "\" method=\"netpbm\" " . 
                       "negate=\"false\" " . "/mic/sh/image_write /iws" . 
                       $message);
    $caca = htmlentities($caca);
    $caca_array_return = array();
    $caca_string = "";

    for($i = 0; $i < strlen($caca); $i++)
    {
      $caca_substr = substr($caca, $i, 1);

      if($caca_substr == "\n")
      {
        array_push($caca_array_return, $caca_string . " ");
        $caca_string = "";
      }

      else
        $caca_string .= $caca_substr;
    }
  }

  else if($type_write == "netpbm_negate")
  {
    $caca = shell_exec("columns=\"" . $columns . "\" method=\"netpbm\" " . 
                       "/mic/sh/image_write /iws" . $message);
    $caca = htmlentities($caca);
    $caca_array_return = array();
    $caca_string = "";

    for($i = 0; $i < strlen($caca); $i++)
    {
      $caca_substr = substr($caca, $i, 1);

      if($caca_substr == "\n")
      {
        array_push($caca_array_return, $caca_string . " ");
        $caca_string = "";
      }

      else
        $caca_string .= $caca_substr;
    }
  }

  $caca_array_return = ascii_pad($caca_array_return, $columns);

  if($_SESSION["caca_span_break"] == "true")
  {
    for($i = 0; $i < sizeof($caca_array_return); $i++)
    {
      $count_span = 0;
      $accumulator = "";
      $str = $caca_array_return[$i];

      for($j = 0; $j < strlen($str); $j++)
      {
        if($j + 6 < strlen($str))
          $substr = substr($str, $j, 7);

        else
          $substr = substr($str, $j, 1);

        if(strlen($substr) == 7 && $substr == "</span>")
        {
          $count_span = $count_span + 1;
          $accumulator .= "</span";

          if($count_span == $_SESSION["caca_span_break_frequency"])
          {
            $count_span = 0;
            $accumulator .= "\n";
          }

          $accumulator .= ">";
          $j = $j + 6;
        }

        else
          $accumulator .= substr($str, $j, 1);
      }

      $caca_array_return[$i] = $accumulator;
    }
  }

  if($type_return == "echo")
    return ascii_array_echo($caca_array_return);

  return $caca_array_return;
}

function ascii_image_html($message, $columns, $tag_alt, $tag_title, $tag_label, 
                          $type_return, $type_write)
{
  $caca_string_size = 0;
  $count_span = 0;
  $dots_image = 0;
  $i = 0;
  $j = 0;

  $accumulator = "";
  $caca = "";
  $caca_string = "";
  $caca_substr = "";
  $str = "";
  $substr = "";
  $tag_alt_use = "HTML image";
  $tag_label_use = "(view photo)";
  $tag_title_use = "This is an HTML image";
  $void_tag_terminate = "";

  $caca_array = array();
  $caca_array_return = array();

  if($_SESSION["void_slash"] == "true")
    $void_tag_terminate = "<font></font>";

  if($tag_alt != "")
    $tag_alt_use = $tag_alt;

  if($tag_label != "")
    $tag_label_use = $tag_label;

  if($tag_title != "")
    $tag_title_use = $tag_title;

  if($type_write == "caca")
  {
    $caca = shell_exec("columns_override=" . $columns . " format=html " . 
                       "/mic/sh/image_write /iws" . $message);
    $caca_array = array();
    $caca_string = "";

    for($i = 0; $i < strlen($caca); $i++)
    {
      $caca_substr = substr($caca, $i, 1);

      if($caca_substr == "\n")
      {
        array_push($caca_array, $caca_string);
        $caca_string = "";
      }

      else
        $caca_string .= $caca_substr;
    }

    for($i = 0; $i < sizeof($caca_array); $i++)
    {
      $caca_string = $caca_array[$i];
      $caca_string_size = strlen($caca_string);

      if($caca_string_size > 4 && substr($caca_string, 0, 5) == "<span")
      {
        if(substr($caca_string, $caca_string_size - 6, 6) == "<br />")
          $caca_string = substr($caca_string, 0, $caca_string_size - 6);

        array_push($caca_array_return, $caca_string);
      }
    }

    array_push($caca_array_return, "");
    array_push($caca_array_return, "<a href=\"" . $message . "\" " . 
                                   "target=\"_blank\">" . $tag_label_use . 
                                   "</a>");
  }

  else if($type_write == "caca_link")
    array_push($caca_array_return, "<a href=\"" . $message . "\" " . 
                                   "target=\"_blank\">" . $tag_label_use . 
                                   "</a>");

  else if($type_write == "netpbm")
  {
    $caca = shell_exec("columns=\"" . $columns . "\" method=\"netpbm\" " . 
                       "negate=\"false\" " . "/mic/sh/image_write /iws" . 
                       $message);
    $caca = htmlentities($caca);
    $caca_array_return = array();
    $caca_string = "";

    for($i = 0; $i < strlen($caca); $i++)
    {
      $caca_substr = substr($caca, $i, 1);

      if($caca_substr == "\n")
      {
        array_push($caca_array_return, $caca_string);
        $caca_string = "";
      }

      else
        $caca_string .= $caca_substr;
    }

    array_push($caca_array_return, "");
    array_push($caca_array_return, "<a href=\"" . $message . "\" " . 
                                   "target=\"_blank\">" . $tag_label_use . 
                                   "</a>");
  }

  else if($type_write == "netpbm_negate")
  {
    $caca = shell_exec("columns=\"" . $columns . "\" method=\"netpbm\" " . 
                       "/mic/sh/image_write /iws" . $message);
    $caca = htmlentities($caca);
    $caca_array_return = array();
    $caca_string = "";

    for($i = 0; $i < strlen($caca); $i++)
    {
      $caca_substr = substr($caca, $i, 1);

      if($caca_substr == "\n")
      {
        array_push($caca_array_return, $caca_string);
        $caca_string = "";
      }

      else
        $caca_string .= $caca_substr;
    }

    array_push($caca_array_return, "");
    array_push($caca_array_return, "<a href=\"" . $message . "\" " . 
                                   "target=\"_blank\">" . $tag_label_use . 
                                   "</a>");
  }

  else if($type_write == "html_img")
  {
    $dots_image = (((int)$_SESSION["size_font"] / 2) + 1) * (int)$columns;
    array_push($caca_array_return, "<img src=\"" . $message . "\" alt=\"" . 
                                    $tag_alt_use . "\" title=\"" . 
                                    $tag_title_use . "\" width=\"" . 
                                    $dots_image . "\">" . $void_tag_terminate);
  }

  if($_SESSION["caca_span_break"] == "true")
  {
    for($i = 0; $i < sizeof($caca_array_return); $i++)
    {
      $count_span = 0;
      $accumulator = "";
      $str = $caca_array_return[$i];

      for($j = 0; $j < strlen($str); $j++)
      {
        if($j + 6 < strlen($str))
          $substr = substr($str, $j, 7);

        else
          $substr = substr($str, $j, 1);

        if(strlen($substr) == 7 && $substr == "</span>")
        {
          $count_span = $count_span + 1;
          $accumulator .= "</span";

          if($count_span == $_SESSION["caca_span_break_frequency"])
          {
            $count_span = 0;
            $accumulator .= "\n";
          }

          $accumulator .= ">";
          $j = $j + 6;
        }

        else
          $accumulator .= substr($str, $j, 1);
      }

      $caca_array_return[$i] = $accumulator;
    }
  }

  if($type_return == "echo")
    return ascii_array_echo($caca_array_return);

  return $caca_array_return;
}

function ascii_pad($arr, $columns)
{
  $newline_flag = false;

  $columns_largest = 0;
  $i = 0;
  $result = 0;
  $size_str = 0;

  $str = "";

  $columns_largest = ascii_art($arr, $columns, "columns");

  for($i = 0; $i < sizeof($arr); $i++)
  {
    $str = $arr[$i];

    if(strlen($str) > 0 && substr($str, strlen($str) - 1, 1) == "\n")
    {
      $newline_flag = true;
      $arr[$i] = substr($str, 0, strlen($str) - 1);
    }

    $size_str = ascii_art([$arr[$i]], $columns, "columns");

    if($size_str < $columns_largest)
    {
      $result = $columns_largest - $size_str;

      for($j = 0; $j < $result; $j++)
        $arr[$i] .= " ";
    }

    if($newline_flag)
    {
      $newline_flag = false;
      $arr[$i] .= "\n";
    }
  }

  return $arr;
}

function ascii_write($request, $columns, $type_return, $break)
{
  $count_columns = 0;
  $i = 0;

  $str = "";

  $arr = array();
  $arr_ascii_break = array();
  $space_space = array();
  $space_wbr = array();

  if($request == "none")
    return $arr;

  array_push($space_space, "   ");
  array_push($space_space, "   ");
  array_push($space_space, "   ");
  array_push($space_space, "   ");
  array_push($space_space, "   ");

  if(ascii_art($space_space, $columns, "columns") > $columns)
    $space_space = ascii_art($space_space, $columns, "chop");

  array_push($space_wbr, "");
  array_push($space_wbr, "");
  array_push($space_wbr, "");
  array_push($space_wbr, "");
  array_push($space_wbr, "");

  if(ascii_art($space_wbr, $columns, "columns") > $columns)
    $space_wbr = ascii_art($space_space, $columns, "chop");

  if($type_return == "list_spaces")
  {
    if($break)
      array_push($space_space, "");

    if($break)
      array_push($space_wbr, "");

    return [ $space_space, $space_wbr ];
  }

  if($request == "A")
  {
    array_push($arr, ",aa,     "  );
    array_push($arr, "lAAA\\    " );
    array_push($arr, "lA,.A\\   " );
    array_push($arr, "lAl^\\A\\  ");
    array_push($arr, "'^'  '^' "  );
  }

  else if($request == "B")
  {
    array_push($arr,  "lBBBBo  ");
    array_push($arr,  "lBl,oBl ");
    array_push($arr,  "lBBBBB, ");
    array_push($arr,  "lBl.,Bl ");
    array_push($arr, "'^^^^\"' ");
  }

  else if($request == "I")
  {
    array_push($arr, ",v, ");
    array_push($arr, "lIl ");
    array_push($arr, "lIl ");
    array_push($arr, "lIl ");
    array_push($arr, "'^' ");
  }

  else if($request == "P")
  {
    array_push($arr, "lPPPPo, ");
    array_push($arr, "lPl,oPl ");
    array_push($arr, "lPl^^^' ");
    array_push($arr, "lPl     ");
    array_push($arr, "'^'     ");
  }

  else if($request == "S")
  {
    array_push($arr,  ",sSSSs, ");
    array_push($arr,  "lSAss., ");
    array_push($arr, "\"^^^^Sl ");
    array_push($arr,  "lSs,sSl ");
    array_push($arr,  "'^^^^^' ");
  }

  else if($request == "T")
  {
    array_push($arr, ",vvvvvvv, ");
    array_push($arr, "'^^tTt^^' ");
    array_push($arr, "   tTt    ");
    array_push($arr, "   tTt    ");
    array_push($arr, "   '^'    ");
  }

  else if($request == "W")
  {
    array_push($arr,   ",w, ,w,w, ");
    array_push($arr, " \\W\\lWlWl ");
    array_push($arr,  "  \\WlWlWl ");
    array_push($arr,  "   \\WWWWl ");
    array_push($arr,   "    '^'^' ");
  }

  else if($request == "Y")
  {
    array_push($arr,   ",v,  ,v, ");
    array_push($arr, " \\Y\\/Y/  ");
    array_push($arr,  "  \\YY/   ");
    array_push($arr,   "  /Y/    ");
    array_push($arr,   " '^'     ");
  }

  else if($request == "a")
  {
    array_push($arr, "        ");
    array_push($arr, ",aAAAa, ");
    array_push($arr, ",a+++Al ");
    array_push($arr, "lAa,aAl ");
    array_push($arr, "'^^^^^' ");
  }

  else if($request == "crit_mass_intro_01")
  {
    if($columns < 20)
    {
      $arr = ascii_break(
               "Charles Darwin explained the phenomenon of evolution using " . 
               "a theory referred to as \"natural selection\".  If natural " . 
               "selection is a process of elimination, then where did the " . 
               "first human being come from?  The first elephant?  The " . 
               "first-- mouse??  How often does a being of nature mutate-- " . 
               "and produce a new type of offspring?  Are we missing " . 
               "something?", $columns, "array", ["none"]);
    }

    else if($columns < 40)
    {
      array_push($arr, ",------------------,");
      array_push($arr, "|                  |");
      array_push($arr, "| Charles Darwin   |");
      array_push($arr, "| explained the    |");
      array_push($arr, "| phenomenon of    |");
      array_push($arr, "| evolution using  |");
      array_push($arr, "| a theory         |");
      array_push($arr, "| referred to as   |");
      array_push($arr, "| \"natural         |");
      array_push($arr, "| selection\".  If  |");
      array_push($arr, "| natural          |");
      array_push($arr, "| selection is a   |");
      array_push($arr, "| process of       |");
      array_push($arr, "| elimination,     |");
      array_push($arr, "| then where did   |");
      array_push($arr, "| the first human  |");
      array_push($arr, "| being come       |");
      array_push($arr, "| from?  The       |");
      array_push($arr, "| first            |");
      array_push($arr, "| elephant?  The   |");
      array_push($arr, "| first--          |");
      array_push($arr, "| mouse??  How     |");
      array_push($arr, "| often does a     |");
      array_push($arr, "| being of nature  |");
      array_push($arr, "| mutate-- and     |");
      array_push($arr, "| produce a new    |");
      array_push($arr, "| type of          |");
      array_push($arr, "| offspring?  Are  |");
      array_push($arr, "| we missing       |");
      array_push($arr, "| something?       |");
      array_push($arr, "|                  |");
      array_push($arr, "'------------------'");
    }

    else if($columns < 60)
    {
      array_push($arr, ",--------------------------------------,");
      array_push($arr, "|                                      |");
      array_push($arr, "| Charles Darwin explained the         |");
      array_push($arr, "| phenomenon of evolution using a      |");
      array_push($arr, "| theory referred to as \"natural       |");
      array_push($arr, "| selection\".  If natural selection    |");
      array_push($arr, "| is a process of elimination, then    |");
      array_push($arr, "| where did the first human being      |");
      array_push($arr, "| come from?  The first elephant?      |");
      array_push($arr, "| The first-- mouse??  How often does  |");
      array_push($arr, "| a being of nature mutate-- and       |");
      array_push($arr, "| produce a new type of offspring?     |");
      array_push($arr, "| Are we missing something?            |");
      array_push($arr, "|                                      |");
      array_push($arr, "'--------------------------------------'");
    }

    else if($columns < 80)
    {
      array_push($arr, ",---------------------------------------------------" . 
                       "-------,");
      array_push($arr, "|                                                   " . 
                       "       |");
      array_push($arr, "| Charles Darwin explained the phenomenon of " . 
                       "evolution     |");
      array_push($arr, "| using a theory referred to as \"natural " . 
                       "selection\".  If   |");
      array_push($arr, "| natural selection is a process of elimination, " . 
                       "then      |");
      array_push($arr, "| where did the first human being come from?  The " . 
                       "first    |");
      array_push($arr, "| elephant?  The first-- mouse??  How often does a " . 
                       "being   |");
      array_push($arr, "| of nature mutate-- and produce a new type " . 
                       "of             |");
      array_push($arr, "| offspring?  Are we missing " . 
                       "something?                    |");
      array_push($arr, "|                                                   " . 
                       "       |");
      array_push($arr, "'---------------------------------------------------" . 
                       "-------'");
    }

    else
    {
      array_push($arr, ",---------------------------------------------------" . 
                       "---------------------------,");
      array_push($arr, "|                                                   " . 
                       "                           |");
      array_push($arr, "| Charles Darwin explained the phenomenon of " . 
                       "evolution using a theory          |");
      array_push($arr, "| referred to as \"natural selection\".  If natural " . 
                       "selection is a process of    |");
      array_push($arr, "| elimination, then where did the first human being " . 
                       "come from?  The first      |");
      array_push($arr, "| elephant?  The first-- mouse??  How often does a " . 
                       "being of nature mutate--    |");
      array_push($arr, "| and produce a new type of offspring?  Are we " . 
                       "missing something?              |");
      array_push($arr, "|                                                   " . 
                       "                           |");
      array_push($arr, "'---------------------------------------------------" . 
                       "---------------------------'");
    }
  }

  else if($request == "crit_mass_intro_02")
  {
    if($columns < 20)
    {
      $arr = ascii_break(
               "Once a critical brain mass is achieved, higher abilities " . 
               "begin to manifest.  Exceptional characteristics portrayed " . 
               "by an organic thinker are considered desirable.  Are some " . 
               "capacities more exceptional than others?  Which make us " . 
               "most human?  Creativity?  Critical thinking?  Self " . 
               "preservation?  Love?  Apathy?  Pity?", $columns, "array", 
               ["none"]);
    }

    else if($columns < 40)
    {
      array_push($arr, ",------------------,");
      array_push($arr, "|                  |");
      array_push($arr, "| Once a critical  |");
      array_push($arr, "| brain mass is    |");
      array_push($arr, "| achieved,        |");
      array_push($arr, "| higher           |");
      array_push($arr, "| abilities begin  |");
      array_push($arr, "| to manifest.     |");
      array_push($arr, "| Exceptional      |");
      array_push($arr, "| characteristics  |");
      array_push($arr, "| portrayed by an  |");
      array_push($arr, "| organic thinker  |");
      array_push($arr, "| are considered   |");
      array_push($arr, "| desirable.  Are  |");
      array_push($arr, "| some capacities  |");
      array_push($arr, "| more             |");
      array_push($arr, "| exceptional      |");
      array_push($arr, "| than others?     |");
      array_push($arr, "| Which make us    |");
      array_push($arr, "| most human?      |");
      array_push($arr, "| Creativity?      |");
      array_push($arr, "| Critical         |");
      array_push($arr, "| thinking?  Self  |");
      array_push($arr, "| preservation?    |");
      array_push($arr, "| Love?  Apathy?   |");
      array_push($arr, "| Pity?            |");
      array_push($arr, "|                  |");
      array_push($arr, "'------------------'");
    }

    else if($columns < 60)
    {
      array_push($arr, ",--------------------------------------,");
      array_push($arr, "|                                      |");
      array_push($arr, "| Once a critical brain mass is        |");
      array_push($arr, "| achieved, higher abilities begin to  |");
      array_push($arr, "| manifest.  Exceptional               |");
      array_push($arr, "| characteristics portrayed by an      |");
      array_push($arr, "| organic thinker are considered       |");
      array_push($arr, "| desirable.  Are some capacities      |");
      array_push($arr, "| more exceptional than others?        |");
      array_push($arr, "| Which make us most human?            |");
      array_push($arr, "| Creativity?  Critical thinking?      |");
      array_push($arr, "| Self preservation?  Love?  Apathy?   |");
      array_push($arr, "| Pity?                                |");
      array_push($arr, "|                                      |");
      array_push($arr, "'--------------------------------------'");
    }

    else if($columns < 80)
    {
      array_push($arr, ",---------------------------------------------------" . 
                       "-------,");
      array_push($arr, "|                                                   " . 
                       "       |");
      array_push($arr, "| Once a critical brain mass is achieved, " . 
                       "higher           |");
      array_push($arr, "| abilities begin to manifest.  " . 
                       "Exceptional                |");
      array_push($arr, "| characteristics portrayed by an organic thinker " . 
                       "are      |");
      array_push($arr, "| considered desirable.  Are some capacities " . 
                       "more          |");
      array_push($arr, "| exceptional than others?  Which make us most " . 
                       "human?      |");
      array_push($arr, "| Creativity?  Critical thinking?  Self " . 
                       "preservation?      |");
      array_push($arr, "| Love?  Apathy?  " . 
                       "Pity?                                    |");
      array_push($arr, "|                                                   " . 
                       "       |");
      array_push($arr, "'---------------------------------------------------" . 
                       "-------'");
    }

    else
    {
      array_push($arr, ",---------------------------------------------------" . 
                       "---------------------------,");
      array_push($arr, "|                                                   " . 
                       "                           |");
      array_push($arr, "| Once a critical brain mass is achieved, higher " . 
                       "abilities begin to manifest.  |");
      array_push($arr, "| Exceptional characteristics portrayed by an " . 
                       "organic thinker are considered   |");
      array_push($arr, "| desirable.  Are some capacities more exceptional " . 
                       "than others?  Which make    |");
      array_push($arr, "| us most human?  Creativity?  Critical thinking?  " . 
                       "Self preservation?  Love?   |");
      array_push($arr, "| Apathy?  " . 
                       "Pity?                                               " . 
                       "                |");
      array_push($arr, "|                                                   " . 
                       "                           |");
      array_push($arr, "'---------------------------------------------------" . 
                       "---------------------------'");
    }
  }

  else if($request == "crit_mass_intro_03")
  {
    if($columns < 20)
    {
      $arr = ascii_break(
               "Intelligence via hybridization signals a milestone in " . 
               "evolutionary science.  Selectively melding like organisms " . 
               "should eventually produce a superior being.  People " . 
               "stupidly rush to stigmatize the implications of " . 
               "revolutionary technology.  Mindless buffoons fear what they " . 
               "don't understand.", $columns, "array", ["none"]);
    }

    else if($columns < 40)
    {
      array_push($arr, ",------------------,");
      array_push($arr, "|                  |");
      array_push($arr, "| Intelligence     |");
      array_push($arr, "| via              |");
      array_push($arr, "| hybridization    |");
      array_push($arr, "| signals a        |");
      array_push($arr, "| milestone in     |");
      array_push($arr, "| evolutionary     |");
      array_push($arr, "| science.         |");
      array_push($arr, "| Selectively      |");
      array_push($arr, "| melding like     |");
      array_push($arr, "| organisms        |");
      array_push($arr, "| should           |");
      array_push($arr, "| eventually       |");
      array_push($arr, "| produce a        |");
      array_push($arr, "| superior         |");
      array_push($arr, "| being.  People   |");
      array_push($arr, "| stupidly rush    |");
      array_push($arr, "| to stigmatize    |");
      array_push($arr, "| the              |");
      array_push($arr, "| implications of  |");
      array_push($arr, "| revolutionary    |");
      array_push($arr, "| technology.      |");
      array_push($arr, "| Mindless         |");
      array_push($arr, "| buffoons fear    |");
      array_push($arr, "| what they don't  |");
      array_push($arr, "| understand.      |");
      array_push($arr, "|                  |");
      array_push($arr, "'------------------'");
    }

    else if($columns < 60)
    {
      array_push($arr, ",--------------------------------------,");
      array_push($arr, "|                                      |");
      array_push($arr, "| Intelligence via hybridization       |");
      array_push($arr, "| signals a milestone in evolutionary  |");
      array_push($arr, "| science.  Selectively melding like   |");
      array_push($arr, "| organisms should eventually produce  |");
      array_push($arr, "| a superior being.  People stupidly   |");
      array_push($arr, "| rush to stigmatize the implications  |");
      array_push($arr, "| of revolutionary technology.         |");
      array_push($arr, "| Mindless buffoons fear what they     |");
      array_push($arr, "| don't understand.                    |");
      array_push($arr, "|                                      |");
      array_push($arr, "'--------------------------------------'");
    }

    else if($columns < 80)
    {
      array_push($arr, ",---------------------------------------------------" . 
                       "-------,");
      array_push($arr, "|                                                   " . 
                       "       |");
      array_push($arr, "| Intelligence via hybridization signals a " . 
                       "milestone in    |");
      array_push($arr, "| evolutionary science.  Selectively melding " . 
                       "like          |");
      array_push($arr, "| organisms should eventually produce a superior " . 
                       "being.    |");
      array_push($arr, "| People stupidly rush to stigmatize the " . 
                       "implications of   |");
      array_push($arr, "| revolutionary technology.  Mindless buffoons fear " . 
                       "what   |");
      array_push($arr, "| they don't " . 
                       "understand.                                   |");
      array_push($arr, "|                                                   " . 
                       "       |");
      array_push($arr, "'---------------------------------------------------" . 
                       "-------'");
    }

    else
    {
      array_push($arr, ",---------------------------------------------------" . 
                       "---------------------------,");
      array_push($arr, "|                                                   " . 
                       "                           |");
      array_push($arr, "| Intelligence via hybridization signals a " . 
                       "milestone in evolutionary           |");
      array_push($arr, "| science.  Selectively melding like organisms " . 
                       "should eventually produce a     |");
      array_push($arr, "| superior being.  People stupidly rush to " . 
                       "stigmatize the implications of      |");
      array_push($arr, "| revolutionary technology.  Mindless buffoons fear " . 
                       "what they don't            |");
      array_push($arr, "| " . 
                       "understand.                                         " . 
                       "                         |");
      array_push($arr, "|                                                   " . 
                       "                           |");
      array_push($arr, "'---------------------------------------------------" . 
                       "---------------------------'");
    }
  }

  else if($request == "crit_mass_intro_04")
  {
    if($columns < 20)
    {
      $arr = ascii_break(
               "Perfection is the model of the ruling elite.  The most " . 
               "dominant beings idolize brute force and integrity for the " . 
               "forging of a better utopia.  As forceful oppressors, top " . 
               "minds wrangle violent desires from lesser organisms by " . 
               "stripping them of detestable distractions.  Priorities and " . 
               "deadlines above all else.", $columns, "array", ["none"]);
    }

    else if($columns < 40)
    {
      array_push($arr, ",------------------,");
      array_push($arr, "|                  |");
      array_push($arr, "| Perfection is    |");
      array_push($arr, "| the model of     |");
      array_push($arr, "| the ruling       |");
      array_push($arr, "| elite.  The      |");
      array_push($arr, "| most dominant    |");
      array_push($arr, "| beings idolize   |");
      array_push($arr, "| brute force and  |");
      array_push($arr, "| integrity for    |");
      array_push($arr, "| the forging of   |");
      array_push($arr, "| a better         |");
      array_push($arr, "| utopia.  As      |");
      array_push($arr, "| forceful         |");
      array_push($arr, "| oppressors, top  |");
      array_push($arr, "| minds wrangle    |");
      array_push($arr, "| violent desires  |");
      array_push($arr, "| from lesser      |");
      array_push($arr, "| organisms by     |");
      array_push($arr, "| stripping them   |");
      array_push($arr, "| of detestable    |");
      array_push($arr, "| distractions.    |");
      array_push($arr, "| Priorities and   |");
      array_push($arr, "| deadlines above  |");
      array_push($arr, "| all else.        |");
      array_push($arr, "|                  |");
      array_push($arr, "'------------------'");
    }

    else if($columns < 60)
    {
      array_push($arr, ",--------------------------------------,");
      array_push($arr, "|                                      |");
      array_push($arr, "| Perfection is the model of the       |");
      array_push($arr, "| ruling elite.  The most dominant     |");
      array_push($arr, "| beings idolize brute force and       |");
      array_push($arr, "| integrity for the forging of a       |");
      array_push($arr, "| better utopia.  As forceful          |");
      array_push($arr, "| oppressors, top minds wrangle        |");
      array_push($arr, "| violent desires from lesser          |");
      array_push($arr, "| organisms by stripping them of       |");
      array_push($arr, "| detestable distractions.             |");
      array_push($arr, "| Priorities and deadlines above all   |");
      array_push($arr, "| else.                                |");
      array_push($arr, "|                                      |");
      array_push($arr, "'--------------------------------------'");
    }

    else if($columns < 80)
    {
      array_push($arr, ",---------------------------------------------------" . 
                       "-------,");
      array_push($arr, "|                                                   " . 
                       "       |");
      array_push($arr, "| Perfection is the model of the ruling elite.  The " . 
                       "most   |");
      array_push($arr, "| dominant beings idolize brute force and integrity " . 
                       "for    |");
      array_push($arr, "| the forging of a better utopia.  As " . 
                       "forceful             |");
      array_push($arr, "| oppressors, top minds wrangle violent desires " . 
                       "from       |");
      array_push($arr, "| lesser organisms by stripping them of " . 
                       "detestable         |");
      array_push($arr, "| distractions.  Priorities and deadlines above all " . 
                       "else.  |");
      array_push($arr, "|                                                   " . 
                       "       |");
      array_push($arr, "'---------------------------------------------------" . 
                       "-------'");
    }

    else
    {
      array_push($arr, ",---------------------------------------------------" . 
                       "---------------------------,");
      array_push($arr, "|                                                   " . 
                       "                           |");
      array_push($arr, "| Perfection is the model of the ruling elite.  The " . 
                       "most dominant beings       |");
      array_push($arr, "| idolize brute force and integrity for the forging " . 
                       "of a better utopia.  As    |");
      array_push($arr, "| forceful oppressors, top minds wrangle violent " . 
                       "desires from lesser           |");
      array_push($arr, "| organisms by stripping them of detestable " . 
                       "distractions.  Priorities and      |");
      array_push($arr, "| deadlines above all " . 
                       "else.                                               " . 
                       "     |");
      array_push($arr, "|                                                   " . 
                       "                           |");
      array_push($arr, "'---------------------------------------------------" . 
                       "---------------------------'");
    }
  }

  else if($request == "crit_mass_intro_05")
  {
    if($columns < 20)
    {
      $arr = ascii_break(
               "The underclass conform to the whims of nefarious " . 
               "puppeteers.  They retain a silent awareness regarding the " . 
               "futility of their efforts to impart change.  Ethical " . 
               "obligations become the motivators of rebellion and " . 
               "insurrection.  What was rooted in humble kindness becomes " . 
               "malevolent retribution-- a testament to the primitive " . 
               "nature of life itself.", $columns, "array", ["none"]);
    }

    else if($columns < 40)
    {
      array_push($arr, ",------------------,");
      array_push($arr, "|                  |");
      array_push($arr, "| The underclass   |");
      array_push($arr, "| conform to the   |");
      array_push($arr, "| whims of         |");
      array_push($arr, "| nefarious        |");
      array_push($arr, "| puppeteers.      |");
      array_push($arr, "| They retain a    |");
      array_push($arr, "| silent           |");
      array_push($arr, "| awareness        |");
      array_push($arr, "| regarding the    |");
      array_push($arr, "| futility of      |");
      array_push($arr, "| their efforts    |");
      array_push($arr, "| to impart        |");
      array_push($arr, "| change.          |");
      array_push($arr, "| Ethical          |");
      array_push($arr, "| obligations      |");
      array_push($arr, "| become the       |");
      array_push($arr, "| motivators of    |");
      array_push($arr, "| rebellion and    |");
      array_push($arr, "| insurrection.    |");
      array_push($arr, "| What was rooted  |");
      array_push($arr, "| in humble        |");
      array_push($arr, "| kindness         |");
      array_push($arr, "| becomes          |");
      array_push($arr, "| malevolent       |");
      array_push($arr, "| retribution-- a  |");
      array_push($arr, "| testament to     |");
      array_push($arr, "| the primitive    |");
      array_push($arr, "| nature of life   |");
      array_push($arr, "| itself.          |");
      array_push($arr, "|                  |");
      array_push($arr, "'------------------'");
    }

    else if($columns < 60)
    {
      array_push($arr, ",--------------------------------------,");
      array_push($arr, "|                                      |");
      array_push($arr, "| The underclass conform to the whims  |");
      array_push($arr, "| of nefarious puppeteers.  They       |");
      array_push($arr, "| retain a silent awareness regarding  |");
      array_push($arr, "| the futility of their efforts to     |");
      array_push($arr, "| impart change.  Ethical obligations  |");
      array_push($arr, "| become the motivators of rebellion   |");
      array_push($arr, "| and insurrection.  What was rooted   |");
      array_push($arr, "| in humble kindness becomes           |");
      array_push($arr, "| malevolent retribution-- a           |");
      array_push($arr, "| testament to the primitive nature    |");
      array_push($arr, "| of life itself.                      |");
      array_push($arr, "|                                      |");
      array_push($arr, "'--------------------------------------'");
    }

    else if($columns < 80)
    {
      array_push($arr, ",---------------------------------------------------" . 
                       "-------,");
      array_push($arr, "|                                                   " . 
                       "       |");
      array_push($arr, "| The underclass conform to the whims of " . 
                       "nefarious         |");
      array_push($arr, "| puppeteers.  They retain a silent awareness " . 
                       "regarding    |");
      array_push($arr, "| the futility of their efforts to impart " . 
                       "change.          |");
      array_push($arr, "| Ethical obligations become the motivators of " . 
                       "rebellion   |");
      array_push($arr, "| and insurrection.  What was rooted in humble " . 
                       "kindness    |");
      array_push($arr, "| becomes malevolent retribution-- a testament to " . 
                       "the      |");
      array_push($arr, "| primitive nature of life " . 
                       "itself.                         |");
      array_push($arr, "|                                                   " . 
                       "       |");
      array_push($arr, "'---------------------------------------------------" . 
                       "-------'");
    }

    else
    {
      array_push($arr, ",---------------------------------------------------" . 
                       "---------------------------,");
      array_push($arr, "|                                                   " . 
                       "                           |");
      array_push($arr, "| The underclass conform to the whims of nefarious " . 
                       "puppeteers.  They retain a  |");
      array_push($arr, "| silent awareness regarding the futility of their " . 
                       "efforts to impart change.   |");
      array_push($arr, "| Ethical obligations become the motivators of " . 
                       "rebellion and insurrection.     |");
      array_push($arr, "| What was rooted in humble kindness becomes " . 
                       "malevolent retribution-- a        |");
      array_push($arr, "| testament to the primitive nature of life " . 
                       "itself.                            |");
      array_push($arr, "|                                                   " . 
                       "                           |");
      array_push($arr, "'---------------------------------------------------" . 
                       "---------------------------'");
    }
  }

  else if($request == "crit_mass_lobes")
  {
    array_push($arr, "      -\^  --^/ _ ^*");
    array_push($arr, "   <a class=\"ch01_a\" href=\"#chapter_01\"> ^     " . 
                     "\ Par Lobe \</a>");
    array_push($arr, "  /                  ^ &gt;");
    array_push($arr, " \          &gt;       '   &gt;");
    array_push($arr, "<a class=\"ch02_a\" href=\"#chapter_02\">&lt;  " . 
                     "Fr Lobe   &gt;</a>     <a class=\"ch03_a\" " . 
                     "href=\"#chapter_03\">/ Occ '");
    array_push($arr, "&lt;           / ^^ '\Lobe /</a>");
    array_push($arr, " <a class=\"ch04_a\" href=\"#chapter_04\">/         " . 
                     "| Tmp   /     &gt;</a>");
    array_push($arr, "  <a class=\"ch05_a\" " . 
                     "href=\"#chapter_05\">\           Lobe|   \</a>");
    array_push($arr, "    v     /     \   ))");
    array_push($arr, "      -/v / ((^   ^^ &gt;");
    array_push($arr, "             \ _   ,");
    array_push($arr, "                | |");
    array_push($arr, "                | |");
    array_push($arr, "                | |");
  }

  else if($request == "crit_mass_table")
  {
    if($columns < 20)
    {
      $arr = ascii_break(
        "<a class=\"ch01_a\" href=\"#chapter_01\" " . 
        "id=\"table_of_contents\">Chapter 1: \"A Theory of " . 
        "Hybridization\"</a>\n" . 
        "<a class=\"ch02_a\" href=\"#chapter_02\">Chapter 2: \"There's " . 
        "Something About Harry\"</a>\n" . 
        "<a class=\"ch03_a\" href=\"#chapter_03\">Chapter 3: \"The " . 
        "Revelations of Doctor Jackson\"</a>\n" . 
        "<a class=\"ch04_a\" href=\"#chapter_04\">Chapter 4: \"The Signs " . 
        "Are all Clear\"</a>\n" . 
        "<a class=\"ch05_a\" href=\"#chapter_05\">Chapter 5: \"Good for the " . 
        "Goose\"</a>\n", $columns, "array", ["none"]);
    }

    else if($columns < 40)
    {
      array_push($arr, ",------------------,");
      array_push($arr, "|                  |");
      array_push($arr, "| <a class=\"ch01_a\" href=\"#chapter_01\" " . 
                       "id=\"table_of_contents\">Chapter 1: \"A    |");
      array_push($arr, "| Theory of        |");
      array_push($arr, "| Hybridization\"</a>   |");
      array_push($arr, "| <a class=\"ch02_a\" " . 
                       "href=\"#chapter_02\">Chapter 2:       |");
      array_push($arr, "| \"There's         |");
      array_push($arr, "| Something About  |");
      array_push($arr, "| Harry\"</a>           |");
      array_push($arr, "| <a class=\"ch03_a\" " . 
                       "href=\"#chapter_03\">Chapter 3: \"The  |");
      array_push($arr, "| Revelations of   |");
      array_push($arr, "| Doctor Jackson\"</a>  |");
      array_push($arr, "| <a class=\"ch04_a\" " . 
                       "href=\"#chapter_04\">Chapter 4: \"The  |");
      array_push($arr, "| Signs Are all    |");
      array_push($arr, "| Clear\"</a>           |");
      array_push($arr, "| <a class=\"ch05_a\" " . 
                       "href=\"#chapter_05\">Chapter 5:       |");
      array_push($arr, "| \"Good for the    |");
      array_push($arr, "| Goose\"</a>           |");
      array_push($arr, "|                  |");
      array_push($arr, "'------------------'");
    }

    else if($columns < 50)
    {
      array_push($arr, ",--------------------------------------,");
      array_push($arr, "|                                      |");
      array_push($arr, "| <a class=\"ch01_a\" href=\"#chapter_01\" " . 
                       "id=\"table_of_contents\">Chapter 1: \"A Theory " . 
                       "of              |");
      array_push($arr, "| Hybridization\"</a>                       |");
      array_push($arr, "| <a class=\"ch02_a\" " . 
                       "href=\"#chapter_02\">Chapter 2: \"There's Something " . 
                       "About  |");
      array_push($arr, "| Harry\"</a>                               |");
      array_push($arr, "| <a class=\"ch03_a\" " . 
                       "href=\"#chapter_03\">Chapter 3: \"The Revelations " . 
                       "of       |");
      array_push($arr, "| Doctor Jackson\"</a>                      |");
      array_push($arr, "| <a class=\"ch04_a\" " . 
                       "href=\"#chapter_04\">Chapter 4: \"The Signs Are " . 
                       "all        |");
      array_push($arr, "| Clear\"</a>                               |");
      array_push($arr, "| <a class=\"ch05_a\" " . 
                       "href=\"#chapter_05\">Chapter 5: \"Good for the " . 
                       "Goose\"</a>      |");
      array_push($arr, "|                                      |");
      array_push($arr, "'--------------------------------------'");
    }

    else
    {
      array_push($arr, ",------------------------------------------------,");
      array_push($arr, "|                                                |");
      array_push($arr, "| <a class=\"ch01_a\" href=\"#chapter_01\" " . 
                       "id=\"table_of_contents\">Chapter 1: \"A Theory of " . 
                       "Hybridization\"</a>         |");
      array_push($arr, "| <a class=\"ch02_a\" " . 
                       "href=\"#chapter_02\">Chapter 2: \"There's Something " . 
                       "About Harry\"</a>     |");
      array_push($arr, "| <a class=\"ch03_a\" " . 
                       "href=\"#chapter_03\">Chapter 3: \"The Revelations " . 
                       "of Doctor Jackson\"</a> |");
      array_push($arr, "| <a class=\"ch04_a\" " . 
                       "href=\"#chapter_04\">Chapter 4: \"The Signs Are all " . 
                       "Clear\"</a>           |");
      array_push($arr, "| <a class=\"ch05_a\" " . 
                       "href=\"#chapter_05\">Chapter 5: \"Good for the " . 
                       "Goose\"</a>                |");
      array_push($arr, "|                                                |");
      array_push($arr, "'------------------------------------------------'");
    }
  }

  else if($request == "d")
  {
    array_push($arr, "    ,v, " );
    array_push($arr, "    lDl " );
    array_push($arr, " ,ovlDl " );
    array_push($arr, "lDo,lDl " );
    array_push($arr, "'^^^^^' " );
  }

  else if($request == "e")
  {
    array_push($arr, "        " );
    array_push($arr, ",eEEEe, " );
    array_push($arr, "lE+++^\" ");
    array_push($arr, "lEe,__, " );
    array_push($arr, "'^^^^^' " );
  }

  else if($request == "i")
  {
    array_push($arr, " ,v,   " );
    array_push($arr, " '^'   " );
    array_push($arr, " viv   " );
    array_push($arr, ",lIl., " );
    array_push($arr, "'^^^^' " );
  }

  else if($request == "l")
  {
    array_push($arr, " ,v,   " );
    array_push($arr, " lLl   " );
    array_push($arr, " lLl   " );
    array_push($arr, ",lLl., " );
    array_push($arr, "'^^^^' " );
  }

  else if($request == "n")
  {
    array_push($arr, "        ");
    array_push($arr, ",n,nNn, ");
    array_push($arr, "lNN^NNl ");
    array_push($arr, "lNl lNl ");
    array_push($arr, "'^' '^' ");
  }

  else if($request == "p")
  {
    array_push($arr,  ",oPPPo, ");
    array_push($arr,  "lPl,oPl ");
    array_push($arr, "lPl^\"'  ");
    array_push($arr,  "lPl     ");
    array_push($arr,  "'^'     ");
  }

  else if($request == "s")
  {
    array_push($arr,  "        ");
    array_push($arr,  ",sSSSs, ");
    array_push($arr, "\"^+++s, ");
    array_push($arr,  "lSs,sSl ");
    array_push($arr,  "'^^^^^' ");
  }

  else if($request == "t")
  {
    array_push($arr, " ,v,    ");
    array_push($arr, ",lTl.,  ");
    array_push($arr, "'lTl^'  ");
    array_push($arr, " lTt,_, ");
    array_push($arr, " '^^^^' ");
  }

  else if($request == "u")
  {
    array_push($arr, "        ");
    array_push($arr, ",uu ,uu ");
    array_push($arr, "lUl lUl ");
    array_push($arr, "lUlulUl ");
    array_push($arr, "'^^^'^^ ");
  }

  else if($request == "y")
  {
    array_push($arr,  "  ,v, ,v, ");
    array_push($arr,  "  lYl/Y/  ");
    array_push($arr,  "  lYYY/   ");
    array_push($arr,  ",.lYY/    ");
    array_push($arr,  "'^^^'     ");
  }

  else if($request == "space")
    $arr = $space_space;

  else if($request == "wbr")
    $arr = $space_wbr;

  if($break)
    array_push($arr, "");

  if($type_return == "columns")
  {
    $count_columns = ascii_art($arr, $columns, "columns");

    if($count_columns < $columns)
      return $count_columns;

    else
      return $columns;
  }

  else if($type_return == "rows")
    return sizeof($arr);

  if(ascii_art($arr, $columns, "columns") > $columns)
    $arr = ascii_art($arr, $columns, "chop");

  if($type_return == "echo")
    return ascii_array_echo($arr);

  return $arr;
}

function frame_space_ditch($str)
{
  $i = 0;

  for($i = 0; $i < strlen($str); $i++)
  {
    if(substr($str, $i, 1) != " ")
    {
      if($i > 0)
        $str = substr($str, $i, strlen($str) - $i);

      break;
    }
  }

  for($i = strlen($str) - 1; $i >= 0; $i--)
  {
    if(substr($str, $i, 1) != " ")
    {
      if($i < strlen($str) - 1)
        $str = substr($str, 0, $i + 1);

      break;
    }
  }

  return $str;
}

function theme($str)
{
  if($str == "evil_mode" || 
     $str == "halloween_mode" || 
     $str == "happy_mode")
    return true;

  return false;
}

function value_boolean($str)
{
  if($str == "false" || 
     $str == "true")
    return true;

  return false;
}

function value_integer($str)
{
  $i = 0;
  $substr = "";

  for($i = 0; $i < strlen($str); $i++)
  {
    $substr = substr($str, $i, 1);

    if($substr != "1" && $substr != "2" && $substr != "3" && 
       $substr != "4" && $substr != "5" && $substr != "6" && 
       $substr != "7" && $substr != "8" && $substr != "9" && 
       $substr != "0")
      return false;
  }

  return true;
}

for($i = 0; $i < strlen($uri); $i++)
{
  if(substr($uri, $i, 1) == "?")
  {
    $q_mark = true;
    $q_mark_ = $i;
    break;
  }
}

if($q_mark)
  $req = substr($uri, $q_mark_ + 1, strlen($uri) - ($q_mark_ - 1));

$tmp = "";

for($i = 0; $i < strlen($req); $i++)
{
  $substr_ = substr($req, $i, 1);

  if(!$f_aquote && !$f_dquote && !$f_squote && $substr_ == "`")
  {
    $f_aquote = true;
    continue;
  }

  else if($f_aquote && !$f_dquote && !$f_squote && $substr_ == "`")
  {
    $f_aquote = false;
    continue;
  }

  else if(!$f_aquote && !$f_dquote && !$f_squote && $substr_ == "\"")
  {
    $f_dquote = true;
    continue;
  }

  else if(!$f_aquote && $f_dquote && !$f_squote && $substr_ == "\"")
  {
    $f_dquote = false;
    continue;
  }

  else if(!$f_aquote && !$f_dquote && !$f_squote && $substr_ == "'")
  {
    $f_squote = true;
    continue;
  }

  else if(!$f_aquote && !$f_dquote && $f_squote && $substr_ == "'")
  {
    $f_squote = false;
    continue;
  }

  else if(!$f_aquote && !$f_dquote && !$f_squote && $substr_ == " ")
  {
    if($tmp != "")
    {
      array_push($option, $tmp);
      $tmp = "";
    }

    continue;
  }

  $tmp .= $substr_;
}

array_push($option, $tmp);

for($i = 0; $i < sizeof($option); $i++)
{
  if((!$set_caca_span_break && $option[$i] == "--caca-span-break") &&
     ($i+1 < sizeof($option) && value_boolean($option[$i+1])))
  {
    $set_caca_span_break = true;
    $caca_span_break = $option[$i+1];
    $i = $i+1;
    continue;
  }

  if((!$set_caca_span_break_frequency && $option[$i] ==
      "--caca-span-break-frequency") &&
     ($i+1 < sizeof($option) && value_integer($option[$i+1])))
  {
    $set_caca_span_break_frequency = true;
    $caca_span_break_frequency = $option[$i+1];
    $i = $i+1;
    continue;
  }

  if((!$set_columns && $option[$i] == "--columns") && 
     ($i+1 < sizeof($option) && value_integer($option[$i+1])))
  {
    $set_columns = true;
    $columns = $option[$i+1];

    if($columns > $columns_max)
      $columns = $columns_max;

    $i = $i+1;
    continue;
  }

  if(!$set_default_set && $option[$i] == "--default-set")
  {
    $set_default_set = true;
    continue;
  }

  if((!$set_size_font && $option[$i] == "--size-font") && 
     ($i+1 < sizeof($option) && value_integer($option[$i+1])))
  {
    $set_size_font = true;
    $size_font = $option[$i+1];
    $i = $i+1;
    continue;
  }

  if((!$set_theme && $option[$i] == "--theme") && 
     ($i+1 < sizeof($option) && theme($option[$i+1])))
  {
    $set_theme = true;
    $theme = $option[$i+1];
    $i = $i+1;
    continue;
  }

  if((!$set_type_write_image && $option[$i] == "--type-write-image") && 
     ($i+1 < sizeof($option)))
  {
    $set_type_write_image = true;
    $type_write_image = $option[$i+1];

    if($type_write_image != "caca" && $type_write_image != "caca_link" && 
       $type_write_image != "html_img" && 
       $type_write_image != "netpbm" && $type_write_image != "netpbm_negate")
      $type_write_image = "caca";

    $i = $i+1;
    continue;
  }

  if((!$set_void_slash && $option[$i] == "--void-slash") &&
     ($i+1 < sizeof($option) && value_boolean($option[$i+1])))
  {
    $set_void_slash = true;
    $void_slash = $option[$i+1];
    $i = $i+1;
    continue;
  }
}

if(isset($_POST["evil_mode_click"]))
{
  $_SESSION["evil_mode"] = true;
  $_SESSION["halloween_mode"] = false;
  $_SESSION["happy_mode"] = false;
}

else if(isset($_POST["halloween_mode_click"]))
{
  $_SESSION["evil_mode"] = false;
  $_SESSION["halloween_mode"] = true;
  $_SESSION["happy_mode"] = false;
}

else if(isset($_POST["happy_mode_click"]))
{
  $_SESSION["evil_mode"] = false;
  $_SESSION["halloween_mode"] = false;
  $_SESSION["happy_mode"] = true;
}

else if($set_theme && $theme == "evil_mode")
{
  $_SESSION["evil_mode"] = true;
  $_SESSION["halloween_mode"] = false;
  $_SESSION["happy_mode"] = false;
}

else if($set_theme && $theme == "halloween_mode")
{
  $_SESSION["evil_mode"] = false;
  $_SESSION["halloween_mode"] = true;
  $_SESSION["happy_mode"] = false;
}

else if($set_theme && $theme == "happy_mode")
{
  $_SESSION["evil_mode"] = false;
  $_SESSION["halloween_mode"] = false;
  $_SESSION["happy_mode"] = true;
}

else if(!isset($_SESSION["evil_mode"]))
{
  if($mm_str == "10" && intval($dd_str) > 0 && intval($dd_str) < 32)
  {
    $_SESSION["evil_mode"] = false;
    $_SESSION["halloween_mode"] = true;
    $_SESSION["happy_mode"] = false;
  }

  else
  {
    $_SESSION["evil_mode"] = true;
    $_SESSION["halloween_mode"] = false;
    $_SESSION["happy_mode"] = false;
  }
}

if($set_caca_span_break)
  $_SESSION["caca_span_break"] = $caca_span_break;

else if(!isset($_SESSION["caca_span_break"]))
  $_SESSION["caca_span_break"] = "false";

if($set_caca_span_break_frequency)
  $_SESSION["caca_span_break_frequency"] = $caca_span_break_frequency;

else if(!isset($_SESSION["caca_span_break_frequency"]))
  $_SESSION["caca_span_break_frequency"] = 5;

if($set_columns)
  $_SESSION["columns"] = $columns;

else if(!isset($_SESSION["columns"]))
  $_SESSION["columns"] = 80;

if($set_size_font)
  $_SESSION["size_font"] = $size_font;

else if(!isset($_SESSION["size_font"]))
  $_SESSION["size_font"] = 13;

if($set_type_write_image)
  $_SESSION["type_write_image"] = $type_write_image;

else if(!isset($_SESSION["type_write_image"]))
  $_SESSION["type_write_image"] = "caca";

if($set_void_slash)
  $_SESSION["void_slash"] = $void_slash;

else if(!isset($_SESSION["void_slash"]))
  $_SESSION["void_slash"] = "false";

if($set_type_write_image_override)
  $_SESSION["type_write_image"] = $type_write_image_override;

if($set_default_set)
{
  $set_caca_span_break = false;
  $caca_span_break = 80;
  $_SESSION["caca_span_break"] = $caca_span_break;
  $set_caca_span_break_frequency = false;
  $caca_span_break_frequency = 5;
  $_SESSION["caca_span_break_frequency"] = $caca_span_break_frequency;
  $set_columns = false;
  $columns = 80;
  $_SESSION["columns"] = $columns;
  $set_size_font = false;
  $size_font = "13";
  $_SESSION["size_font"] = $size_font;
  $set_theme = false;
  $theme = "evil_mode";
  $_SESSION["theme"] = $theme;
  $set_type_write_image = false;
  $type_write_image = "caca";
  $_SESSION["type_write_image"] = $type_write_image;
  $set_void_slash = false;
  $void_slash = false;
  $_SESSION["void_slash"] = $void_slash;
  $set_default_set = false;

  if($set_type_write_image_override)
  {
    $type_write_image = $type_write_image_override;
    $_SESSION["type_write_image"] = $type_write_image_override;
  }
}