<?php

// Count words in a text
// (c) Peter Kankowski, 2008

$lines = file('php://stdin');
$words = array();

foreach($lines as $line) {
   $line = rtrim($line);
   if(preg_match('/^[IVXLC]+$/', $line) > 0) // skip a sonnet number
      continue;
   $line = preg_replace('/[^a-zA-Z\' ]/', ' ', $line); // remove punctuation
   $line = strtolower($line);
   foreach(explode(' ', $line) as $word) {
      if(strlen($word) == 0)
         continue;
      if(isset($words[$word]))
         $words[$word]++;
      else
         $words[$word] = 1;
   }
}

arsort($words, SORT_NUMERIC);

foreach($words as $word => $count) {
   //echo "$word $count\r\n";
   echo "$word\r\n";
}


?>