if (!function_exists('var_export')) {
      function var_export($array,$return = false, $lvl=0)\; \{$// Common output variables
          indent      = '  ';
          $doublearrow\; =\; \text{'}\; =>\; \text{'};$lineend     = ",\n";
          $stringdelim\; =\; \text{'}\backslash \text{'}\text{'};$// Check the export isn't a simple string / int
          if (is_string(array)) {
              $out\; =$stringdelim . str_replace('\'', '\\\'', str_replace('\\', '\\\\', $array))\; .$stringdelim;
          } elseif (is_int($array)\; ||\; is\_float($array)) {
              $out\; =\; (string)$array;
          } elseif (is_bool($array))\; \{$out = $array\; ?\; \text{'}true\text{'}\; :\; \text{'}false\text{'};\; \}\; elseif\; (is\_null($array)) {
              $out\; =\; \text{'}NULL\text{'};\; \}\; elseif\; (is\_resource($array)) {
              $out\; =\; \text{'}resource\text{'};\; \}\; else\; \{$// Begin the array export
              // Start the string
              out = "array (\n";
  
              // Loop through each value in array
              foreach ($array\; as$key => $value)\; \{$// If the key is a string, delimit it
                  if (is_string(key)) {
                      $key\; =\; str\_replace(\text{'}\backslash \text{'}\text{'},\; \text{'}\backslash \backslash \backslash \text{'}\text{'},\; str\_replace(\text{'}\backslash \backslash \text{'},\; \text{'}\backslash \backslash \backslash \backslash \text{'},$key));
                      $key\; =$stringdelim . $key\; .$stringdelim;
                  }
  
                  $val\; =\; var\_export($value, true, $lvl+1);$// Delimit value
                  /*if (is_array(value)) {
                      // We have an array, so do some recursion
                      // Do some basic recursion while increasing the indent
                      $recur\_array\; =\; explode($newline, var_export($value,\; true));$temp_array = array();
                      foreach ($recur\_array\; as$recur_line) {
                          $temp\_array[]\; =$indent . $recur\_line;\; \}$recur_array = implode($newline,$temp_array);
                      $value\; =$newline . $recur\_array;\; \}\; elseif\; (is\_null($value)) {
                      $value\; =\; \text{'}NULL\text{'};\; \}\; else\; \{$value = str_replace($find,$replace, $value);$value = $stringdelim\; .$value . $stringdelim;\; \}*/$
  
                  // Piece together the line
                  for (i = 0; lvl; $i++)$out .= $indent;$out .= $key\; .$doublearrow . $val\; .$lineend;
              }
  
              // End our string
              for ($i\; =\; 0;$i < $lvl;$i++)
                  $out\; .=$indent;
              $out\; .=\; ")";\; \}\; //\; Decide\; method\; of\; output\; if\; ($return === true) {
              return $out;\; \}\; else\; \{\; echo$out;
              return;
          }
      }
  }
  ?>