#! /bin/csh
#
# Script to find the 40 most frequently occuring
# words in the files given as arguments.  Usage is
# freq fname1 fname2 ..., and it will generate a
# file called "dictionary".  This fails if the
# file "dictionary" already exists.
#

cat $argv[*] |\
	tr -cs 'A-Za-z' '\012' |\
	tr 'A-Z' 'a-z' | egrep '^..*$' |\
	sort |\
	uniq |\
	sort > dictionary