%V 0
%I bb Tue Nov 25 16:15:56 1980
a0
trap 'rm -f $$; exit' 1 2 3 15
D=/usr/lib/style/suggest.d
if test $1
then
cat >$$ <<dn
/$*.*	/s/\(.*\)	\(.*\)/use "\2" for "\1"/p
dn
sed -n -f $$ $D; rm $$
fi
while echo "phrase?"; read x
do
cat >$$ <<dn
/$x.*	/s/\(.*\)	\(.*\)/use "\2" for "\1"/p
dn
case $x in
[a-z]*)
sed -n -f $$ $D; rm $$;;
*) rm $$;;
esac
done
.
%E
%I bb Wed Dec 17 14:45:38 1980
%C modified for UTS
c1 8
data=/usr/lib/style/suggest.d

if [ $# -gt 0 ]; then
	grep "$*.*->" $data
else
	while   echo -n "phrase?  "
		read phrase
		if [ $? != 0 ]; then
			echo
			exit
		fi
		[ "$phrase" ]
	do
		grep "$phrase.*->" $data
	done
.
d10 20
%E
%I bb Wed Dec 31 13:09:33 1980
%C data file moved from /usr/lib/style to /usr/lib/diction 
c1
data=/usr/lib/diction/suggest.d
.
%E
