--- stem-hr.pl	2005/02/26 00:01:42	3
+++ stem-hr.pl	2005/02/26 00:37:18	4
@@ -18,6 +18,8 @@
 # - uzvici
 #
 
+use strict;
+
 sub kgh {
 	my ($pre,$replace,$post) = @_;
 	$replace =~ s/[cè]/k/g;
@@ -78,3 +80,10 @@
 my $nr_stems = keys(%stem_words);
 printf "\n# %d words, %d stems in %d ops, %.2f%% size\n",$words,$nr_stems,$stems,($nr_stems*100/$words);
 
+foreach my $s (keys %stem_words) {
+	print "#stem $stem_words{$s} $s\n";
+}
+
+foreach my $r (keys %rules) {
+	print "#rule $rules{$r} $r\n";
+}