/**
  * Pas 4: eliminarea vocalelor finale
  *
  * @return bool
  */
 private static function Pas4()
 {
     $arr = array('a', 'ie', 'e', 'i', '#', 'a');
     foreach ($arr as $str) {
         if (self::test_str(self::$R1, $str)) {
             self::$word = self::rem_str(self::$word, $str);
             self::$R1 = self::rem_str(self::$R1, $str);
             return true;
         }
     }
 }
anomalie
anomalii
anonim
anonimă
ansamblu
ansamblul
anselm
antantist
ante
antebraţul
antepresupoziţiuni
anterioară
anterioare
anterior
antică
antice
antici
anticipat
anticipată
anticipaţie
anticipaţiilor
anticipez
antiintervenţionist
antilopă
antinomie
antipatic
HERE;
$words = explode("\r\n", $words);
foreach ($words as $word) {
    echo $word . ' - ' . RomanianStemmer::Stem($word) . '<br />';
}
octet
octeţ
octogenar
octombr
ocular
ocult
ocult
ocult
ocult
ocultăr
oculţ
ocup
ocup
ocup
ocupanţ
ocupanţ
ocup
ocup
HERE;
$words = explode("\n", $words);
$expectedResults = explode("\n", $expectedResults);
for ($i = 0; $i < count($words); $i++) {
    $word = $words[$i];
    $expected = $expectedResults[$i];
    $stem = RomanianStemmer::Stem($words[$i]);
    if (strcmp($stem, $expected) !== 0) {
        echo 'Word: ' . $words[$i] . ' - Stem ' . $stem . ' - Expected: ' . $expected . PHP_EOL;
        exit(1);
    }
}
echo 'Success';