igor@66: 
igor@66: cat <<EOF > /dev/null
igor@66: Как работает?
igor@66: ----------------
igor@66: 
igor@66: Слова, которые мы должны обрабатывать поступают на стандартный поток ввода.
igor@66: * Удаляем из них комментарии.
igor@66: * Размножаем слова, которые, возможно, находятся не в нормальной форме.
igor@66:   Например, слова, заканчивающиеся на te.
igor@66: * Прогоняем через прогу, которая разложит их по категориям.
igor@66: * Разложенные по категориям слова прогоняем ещё раз.
igor@66: EOF
igor@66: 
igor@66: word_multiplier()
igor@66: {
igor@66:     cat
igor@66: }
igor@66: 
igor@66: new-words -l de -R 95 -n -c -a "$@" \
igor@66: | grep -v ^# | awk '{print $2}' | word_multiplier \
igor@66: | while read word
igor@66: do
igor@66:     de-short "$word"
igor@66: done \
igor@66: | perl ~/hg/new-words/misc/categorized.pl \
igor@66: | while read word 
igor@66: do 
igor@66:     if echo $word | fgrep -q "|"
igor@66:     then
igor@66:     w="$(echo $word | awk '{print $1}')"
igor@66:     a="`de-super-short $w`"; [ -n "$a" ] && echo $w " | " $a 
igor@66:     else
igor@66:     echo "$word"
igor@66:     fi
igor@66: done