#!/usr/local/bin/perl5
########################################################
#
# Test Porter Stemming routine (stem.pl)
#
# AUTHOR
#
# Michael W. Berry <berry@cs.utk.edu>
#
########################################################

@words = ('tried', 'business', 'jogging', 'duplicate', 'irreplaceable',
          'informative', 'activation', 'triplicate');
require 'stem.pl';

foreach $i (@words) {
    printf("%15s %15s\n", $i,stem($i));
}