A=
F=/usr/dict/papers/Ind
while :
do	case $1 in
		-p)	F="$2"
			shift; shift;;
		-*)	A="$A $1"
			shift;;
		"")	break;;
		*)	F="$1"
			shift;
			break;;
	esac
done
/usr/lib/refer/mkey -s | /usr/lib/refer/hunt $A $F
